First ~1500 words in TopDictionaryFin

This commit is contained in:
inari
2014-04-24 08:05:17 +00:00
parent 0c0b11f9ee
commit 0b801b71d2

View File

@@ -3,7 +3,8 @@
concrete TopDictionaryFin of TopDictionary = CatFin ** open ParadigmsFin, concrete TopDictionaryFin of TopDictionary = CatFin ** open ParadigmsFin,
(S = StructuralFin), (S = StructuralFin),
(L = LexiconFin), (L = LexiconFin),
MorphoFin, ParadigmsFin, Kotus, WNKotus, StemFin, Prelude in { (R = ResFin),
MorphoFin, ParadigmsFin, (E = ExtraFin), Kotus, WNKotus, StemFin, Prelude in {
flags coding=utf8 ; flags coding=utf8 ;
@@ -530,10 +531,9 @@ lin after_Subj = lin Subj (ss "sen jälkeen kun") ;
lin only_Predet = S.only_Predet ; lin only_Predet = S.only_Predet ;
lin before_Subj = lin Subj (ss "ennen kuin") ; lin before_Subj = lin Subj (ss "ennen kuin") ;
lin bit_N = mkN "palanen" ; --- split mkN "bitti" lin bit_N = mkN "palanen" ; --- split mkN "bitti"
lin face_N = mkN "kasvo" ; lin face_N = mkN "kasvo" | mkN "naama" ; ---- plural "kasvot" also possible
---- checked by IL till face_N in the BNC order lin sit_VA = mkVA (mkV "istua") (mkPrep inessive) ; ---- subcat ; no idea
lin sit_VA = mkWVA (k53A "pitää") "istuntoa" ; --UNCHK lin sit_V2 = mkV2 (mkV "istua") ;
lin sit_V2 = mkWV2 (k53A "pitää") "istuntoa" ; --UNCHK
lin sit_V = L.sit_V ; lin sit_V = L.sit_V ;
lin market_N = mkN "markkina" ; lin market_N = mkN "markkina" ;
lin market_1_N = mkN "tori" ; lin market_1_N = mkN "tori" ;
@@ -781,7 +781,7 @@ lin staff_2_N = mkN "sauva" ;
lin staff_1_N = mkN "henkilökunta" ; lin staff_1_N = mkN "henkilökunta" ;
lin certain_A = mkA (mkN "varma") "varmempi" "varmin" ; lin certain_A = mkA (mkN "varma") "varmempi" "varmin" ;
lin certain_2_A = mkA "tietty" ; lin certain_2_A = mkA "tietty" ;
lin certain_1_A = mkA "varma" ; lin certain_1_A = mkA (mkN "varma") "varmempi" "varmin" ;
lin student_N = mkN "opiskelija" ; lin student_N = mkN "opiskelija" ;
lin half_Predet = mkPredet "puoliksi" ; lin half_Predet = mkPredet "puoliksi" ;
lin around_Prep = mkPrep "ympärillä" ; lin around_Prep = mkPrep "ympärillä" ;
@@ -1213,7 +1213,7 @@ lin success_N = mkN "menestys" ; --f93
lin natural_A = mkA "luonnollinen" ; --f126 lin natural_A = mkA "luonnollinen" ; --f126
lin wrong_A = mkWA (k10 "väärä") ; lin wrong_A = mkWA (k10 "väärä") ;
lin near_Prep = postPrep genitive "lähellä" ; lin near_Prep = postPrep genitive "lähellä" ;
lin round_Adv = mkWAdv (k99 "ympäri") ; lin round_Adv = mkAdv "ympäri" ;
lin thought_N = mkN "ajatus" | mkN "ajattelu" ; lin thought_N = mkN "ajatus" | mkN "ajattelu" ;
lin list_N = mkN "lista" ; lin list_N = mkN "lista" ;
lin argue_VS = mkVS (mkV "väittää") ; lin argue_VS = mkVS (mkV "väittää") ;
@@ -1357,9 +1357,9 @@ lin recently_Adv = mkAdv "äskettäin" | mkAdv "hiljattain" ;
lin publish_V2 = mkWV2 (k66 "julkaista") ; --f65 lin publish_V2 = mkWV2 (k66 "julkaista") ; --f65
lin publish_V = mkWV (k66 "julkaista") ; --f74 lin publish_V = mkWV (k66 "julkaista") ; --f74
lin serious_A = mkWA (k10 "vakava") ; --f132 lin serious_A = mkWA (k10 "vakava") ; --f132
lin anyway_Adv = mkWAdv (k99 "joka tapauksessa") ; lin anyway_Adv = mkAdv "joka tapauksessa" ;
lin visit_V2V = mkWV2V (k73A "kohdata") ; --UNCHK lin visit_V2V = mkV2V (mkV "vierailla") ; ---- subcat
lin visit_V2 = mkV2 "vierailla" inessive ; lin visit_V2 = mkV2 (mkV "vierailla") (postGenPrep "luona") ; --- agreement to prep, "minun luonani"
lin visit_V = mkV "vierailla" ; lin visit_V = mkV "vierailla" ;
lin capital_N = mkN "pää" (mkN "oma") ; lin capital_N = mkN "pää" (mkN "oma") ;
lin capital_3_N = mkN "isokirjain" ; ---- iso kirjain : CN lin capital_3_N = mkN "isokirjain" ; ---- iso kirjain : CN
@@ -1382,7 +1382,7 @@ lin economy_N = mkN "talous" "talouden" "talouksia" ;
lin economy_2_N = mkN "säästö" ; lin economy_2_N = mkN "säästö" ;
lin economy_1_N = mkN "talous" ; lin economy_1_N = mkN "talous" ;
lin element_N = mkN "alku" (mkN "aine") ; lin element_N = mkN "alku" (mkN "aine") ;
lin finish_VA = mkWVA (k53A "lopettaa") ; lin finish_VA = mkWVA (k53A "lopettaa") ; ---- subcat
lin finish_V2 = mkWV2 (k53A "lopettaa") ; lin finish_V2 = mkWV2 (k53A "lopettaa") ;
lin finish_V = mkWV (k53A "lopettaa") ; lin finish_V = mkWV (k53A "lopettaa") ;
lin duty_N = mkN (lin NK {s = d40 "velvollisuus"}) ; lin duty_N = mkN (lin NK {s = d40 "velvollisuus"}) ;
@@ -1512,7 +1512,7 @@ lin exactly_Adv = mkAdv "täsmälleen" ;
lin above_Adv = mkAdv "yläpuolella" ; lin above_Adv = mkAdv "yläpuolella" ;
lin commission_N = mkN (lin NK {s = d03 "komissio"}) ; lin commission_N = mkN (lin NK {s = d03 "komissio"}) ;
lin intend_VV = mkVV (mkV "aikoa") ; lin intend_VV = mkVV (mkV "aikoa") ;
lin intend_V2V = mkV2V "kaavailla" genitive infPresPart ; lin intend_V2V = mkV2V (mkV "kaavailla") genitive infPresPart ;
lin intend_V2 = mkV2 "yrittää" | mkV2 "ajatella" ; lin intend_V2 = mkV2 "yrittää" | mkV2 "ajatella" ;
lin intend_V = mkV "tarkoittaa" ; --mkWV (k67A "ajatella") ; lin intend_V = mkV "tarkoittaa" ; --mkWV (k67A "ajatella") ;
lin beyond_Prep = mkPrep "saavuttamattomissa" ; lin beyond_Prep = mkPrep "saavuttamattomissa" ;