FM-SBLEX-3.0: src/dalin/VerbBuildSw.hs
module VerbBuildSw where
import General
import Dictionary
import TypesSw
import RulesSw
import GenRulesSw
verb :: Verb -> Entry
verb = entry
verbM :: VerbM -> Entry
verbM = entry
verb_full :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_full n (finna, finne,finner, finn, fann, funne, funnit, funnen) w =
verb $ verb_prefixed n finna finner finne finn fann funne funnit funnen w
verb_full_compound :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_full_compound n (finna, finne,finner, finn, fann, funne, funnit, funnen,finn_c) w =
verb $ verb_prefixed_compound n finna finner finne finn fann funne funnit funnen finn_c w
verb_full_compound_sform_variant :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_full_compound_sform_variant n (finna, finne,finner, finn, fann, funne, funnit, funnen,finn_c) w =
verb $ ppvar n (verb_prefixed_compound n finna finner finne finn fann funne funnit funnen finn_c w) w
verb_full_sform_variant :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_full_sform_variant n (finna, finne,finner, finn, fann, funne, funnit, funnen) w =
verb $ ppvar n (verb_prefixed n finna finner finne finn fann funne funnit funnen w) w
verb_full_no_sform :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_full_no_sform n (finna, finne,finner, finn, fann, funne, funnit, funnen) w =
verb $ no_passive $ verb_prefixed n finna finner finne finn fann funne funnit funnen w
verb_weak :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_weak n (finna, finner, finn, fann, funnit, funnen) w =
verb $ verb_prefixed n finna finner [] finn fann [] funnit funnen w
verb_weak_no_passive :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_weak_no_passive n (finna, finner, finn, fann, funnit, funnen) w =
verb $ no_vcomp $ no_part_pres $ no_passive $ verb_prefixed n finna finner [] finn fann [] funnit funnen w
verb_weak_compound :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_weak_compound n (finna, finner, finn, fann, funnit, funnen,finn_c) w =
verb $ verb_prefixed_compound n finna finner [] finn fann [] funnit funnen finn_c w
verb_weak_compound_sform_variant :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_weak_compound_sform_variant n (finna, finner, finn, fann, funnit, funnen,finn_c) w =
verb $ ppvar n (verb_prefixed_compound n finna finner [] finn fann [] funnit funnen finn_c w) w
vbm_inf w = set_pos "vbm" $ verb $ only (vb1 w) [VI (Inf Act)]
verb_vbm n wfs w = (set_pos "vbm" . verb_weak_no_passive n wfs) w
verb_weak_no_sform :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_weak_no_sform n (finna, finner, finn, fann, funnit, funnen) w =
verb $ no_passive $ verb_prefixed n finna finner [] finn fann [] funnit funnen w
verb_weak_sform_variant :: Int -> (Suffixes,Suffixes,Suffixes,Suffixes,Suffixes,Suffixes) -> (String -> Entry)
verb_weak_sform_variant n (finna, finner, finn, fann, funnit, funnen) w =
verb $ ppvar n (verb_prefixed n finna finner [] finn fann [] funnit funnen w) w
--verb_wc :: Int -> [String] -> [String] -> [String] -> [String] -> [String] -> [String] -> (String -> Entry)
--verb_wc n finna finner finn fann funnit funnen w =
-- verb $ verb_prefixed n (map e finna) (map e finner) []
-- (map e finn) (map e fann) []
-- (map e funnit) (map e funnen) w
vbm_part :: Int -> (Suffixes,Suffixes) -> (String -> Entry)
vbm_part n (avbländande,avbländad) w =
verb $ vbmpart n avbländande avbländad w
verb_dwc :: Int -> [String] -> [String] -> [String] -> [String] -> [String] -> (String -> Entry)
verb_dwc n finna finn fann funnit funnen w =
verb $ no_part_pres $ no_active $ verb_prefixed n (map e finna) [] []
(map e finn) (map e fann) []
(map e funnit) (map e funnen) w
verb_deponens :: Int -> (Suffixes, Suffixes, Suffixes, Suffixes, Suffixes) -> (String -> Entry)
verb_deponens n (finna,finn,fann,funnit,funnen) w =
verb $ no_part_pres $ no_active $ verb_prefixed n finna [] [] finn fann [] funnit funnen w
-- verbs :: [String] -> Verb -> [Entry]
-- verbs prefs v = map verb [\f -> strings (map (p ++) (unStr (v f))) | p <- prefs]
-- Conjugation 1
v1 :: String -> Entry
v1 = verb . vb1
-- Conjugation 2
v2 :: String -> Entry
v2 = verb . vb2
vb_2a_följa :: String -> Entry
vb_2a_följa = verb . no_konj .vb2följa
vb_2a_sända :: String -> Entry
vb_2a_sända = verb . no_konj .vb2sända
vb_2a_knäcka :: String -> Entry
vb_2a_knäcka = verb . no_konj .vb2knäcka
vb_2a_vända :: String -> Entry
vb_2a_vända = verb . no_konj .vb2vända
vb_2a_dröja :: String -> Entry
vb_2a_dröja = verb . no_konj .vb2dröja
vb_2a_göra :: String -> Entry
vb_2a_göra = verb . no_konj .vb2göra
-- Conjugation 3
v3 :: String -> Entry
v3 = verb . no_konj . vb3
vb_3a_klä :: String -> Entry
vb_3a_klä = verb . no_konj . vb3klä
-- Conjugation 4
vb_4a_se :: String -> Entry
vb_4a_se = verb . vb4se
vb_4a_gå :: String -> Entry
vb_4a_gå = verb . vb4gå
vb_4a_bita :: String -> Entry
vb_4a_bita = verb . vb4bita
vb_4m_vina :: String -> Entry
vb_4m_vina = verb . vb4vina
vb_4a_krypa :: String -> Entry
vb_4a_krypa = verb . vb4krypa
vb_4a_vinna :: String -> Entry
vb_4a_vinna = verb . vb4vinna
vb_4a_giva :: String -> Entry
vb_4a_giva = verb . vb4giva
vb_4a_binda :: String -> Entry
vb_4a_binda = verb . vb4binda
vb_4a_bliva :: String -> Entry
vb_4a_bliva = verb . no_passive . vb4bliva
vb_4a_draga :: String -> Entry
vb_4a_draga = verb . vb4draga
vb_4a_göra :: String -> Entry
vb_4a_göra = verb . vb4göra
vb_4m_stå :: String -> Entry
vb_4m_stå = verb . vb4stå
vb_4a_slå :: String -> Entry
vb_4a_slå = verb . vb4slå
vb_4a_ta :: String -> Entry
vb_4a_ta = verb . vb4taga
vb_4a_få :: String -> Entry
vb_4a_få = verb . vb4få
vb_4a_ha :: String -> Entry
vb_4a_ha = verb . vb4hava
vb_4a_vara :: String -> Entry
vb_4a_vara = verb . vb4vara
vb_4a_fara :: String -> Entry
vb_4a_fara = verb . vb4fara
vb_4a_komma :: String -> Entry
vb_4a_komma = verb . vb4komma
vb_4a_äta :: String -> Entry
vb_4a_äta = verb . vb4äta
vb_4a_låta :: String -> Entry
vb_4a_låta = verb . vb4låta
vb_4a_falla :: String -> Entry
vb_4a_falla = verb . vb4falla
vb_4a_supa :: String -> Entry
vb_4a_supa = verb . vb4supa
vb_4a_hålla :: String -> Entry
vb_4a_hålla = verb . vb4hålla
-- deponent verbs
vb_1s_hoppas :: String -> Entry
vb_1s_hoppas = verb . no_konj . vbdhoppas
vb_1s_lyckas :: String -> Entry
vb_1s_lyckas = verb . no_konj . vbdlyckas
vb_1s_nalkas :: String -> Entry
vb_1s_nalkas = verb . no_konj . vbdnalkas
vb_1s_färdas :: String -> Entry
vb_1s_färdas = verb . no_konj . vbdfärdas
vb_2s_synas :: String -> Entry
vb_2s_synas = verb . no_konj . vbdsynas
vb_4d_vederfås :: String -> Entry
vb_4d_vederfås = verb . no_konj . vbdvederfås
-- pending verbs
vb_va_koka :: String -> Entry
vb_va_koka = verb . no_konj . vbvkoka
vb_va_mista :: String -> Entry
vb_va_mista = verb . no_konj . vbvmista
-- vb_va_sprida = verb . no_konj . vbvsprida
vb_va_bringa :: String -> Entry
vb_va_bringa = verb . no_konj . vbvbringa
vb_va_tala :: String -> Entry
vb_va_tala = verb . no_konj . vbvtala
-- verb phrases
--vbm1_p v pr = verbM $ \(VM p) -> mapStr (\s -> unwords [s,pr] ) ((vb1 v) p)
--vbm1_pr v pr r = verbM $ \(VM p) -> mapStr (\s -> unwords [s,pr,r] ) ((vb1 v) p)
vbm_dö_ut :: String -> Entry
vbm_dö_ut = verb . vbmdöut