GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 13:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

~100 words of TopDictFin

Browse Source
This commit is contained in:
inari
2014-04-17 15:59:21 +00:00
parent 3fd6dc90f9
commit 0786fc84b7
1 changed files with 23 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

45
lib/src/translator/todo/TopDictionaryFin.gf
View File

@@ -1,5 +1,5 @@
--# -path=.:src/finnish/stemmed:src/finnish:src/abstract:src/common:src/finnish/kotus:src/api
---- checked by IL till look_V in the BNC order
concrete TopDictionaryFin of TopDictionary = CatFin ** open ParadigmsFin,
(S = StructuralFin),
(L = LexiconFin),
@@ -15,7 +15,7 @@ lin of_Prep = casePrep genitive ; ---
lin and_Conj = S.and_Conj ;
lin in_Prep = S.in_Prep ;
lin have_VV = S.must_VV ;
lin have_VS = mkVS "uskoa" ; ---??
lin have_VS = mkVS "uskoa" ; -- Is this like "I have it that <S>"? in that case uskoa or ymmärtää are OKish
lin have_V2V = mkV2V (mkV "saada") accusative ; --WV2V (k63 "saada") "lapsi" ;
lin have_V2 = S.have_V2 ;
lin have_V = lin V S.have_V2 ;
@@ -44,10 +44,10 @@ lin say_VA = mkVA (mkV "sanoa") (mkPrep translative) ;
lin say_V2 = mkV2 "sanoa" ;
lin say_V = mkV "sanoa" ;
lin if_Subj = S.if_Subj ;
lin go_VV = mkVV (mkV "aikoa") ;
lin go_VV = mkVV (mkV "aikoa") ; --?
lin go_VS = mkVS "sanoa" ;
lin go_VA = mkVA (mkV "käydä") (casePrep translative) ;
lin go_V2 = mkV2 "tulla" translative ;
lin go_V2 = mkV2 (mkV "tulla") (mkPrep translative) ; --?
lin go_V = L.go_V ;
lin get_VV = mkVV "päätyä" infIllat ;
lin get_VS = mkVS (mkV "ymmärtää") ;
@@ -55,40 +55,40 @@ lin get_VA = mkVA (mkV "tulla") (mkPrep translative) ;
lin get_V2V = mkV2V (mkV "saada") accusative infIllat ;
lin get_V2 = mkV2 "saada" ;
lin get_V = mkV (lin VK {s = c63 "saada"}) ;
lin make_VV = mkVV (mkV "asettaa") infIllat ;
lin make_VV = mkVV (mkV (mkV "näyttää") "aikovansa") ; --mkVV (mkV "asettaa") infIllat ; --this WN sense? ``appear to begin an activity; "He made to speak but said nothing in the end";''
lin make_VS = mkVS tehda_V ;
lin make_VA = mkVA tehda_V (casePrep translative) ;
lin make_V3 = mkV3 (mkV "tehdä") accusative (mkPrep translative) ;
lin make_V2V = mkWV2V (mkV "saada") ;
lin make_V2A = mkWV2A tehda_V ;
lin make_V3 = mkV3 tehda_V accusative (mkPrep translative) ;
lin make_V2V = mkV2V (mkV "saada") accusative ;
lin make_V2A = mkV2A tehda_V accusative (mkPrep translative) ;
lin make_V2 = mkV2 tehda_V ;
lin make_V = tehda_V ;
lin as_Prep = casePrep essive ;
lin out_Adv = mkWAdv (k99 "ulkona") ;
lin up_Adv = mkAdv "ylös" ;
lin see_VS = mkVS (mkV "pitää" "huolta") ;
lin see_VQ = mkVQ (lin V L.see_V2) ;
lin see_VA = mkVA (lin V L.see_V2) (mkPrep essive) ;
lin up_Adv = mkAdv "ylös" | mkAdv "ylhäällä" ;
lin see_VS = mkVS (mkV (mkV "pitää") "huolta") ;
lin see_VQ = mkVQ nahda_V ;
lin see_VA = mkVA nahda_V (mkPrep essive) ;
lin see_V2V = mkV2V nahda_V (mkPrep genitive) infPresPart ;
lin see_V2 = L.see_V2 ;
lin see_V = nahda_V ;
lin know_VS = L.know_VS ;
lin know_VQ = L.know_VQ ;
lin know_V2V = mkV2V (mkV "tietää") accusative infPresPart ;
lin know_V2V = mkV2V (mkV "tietää") genitive infPresPart ; --tiedän hänen tekevän
lin know_V2 = L.know_V2 ;
lin know_V = mkV "tietää" ;
lin time_N = mkN "aika" "ajan" "aikoja" ;
lin time_2_N = mkN "kerta" ;
lin time_1_N = mkN "aika" "ajan" "aikoja" ;
lin take_VA = mkVA (mkV "ottaa") (mkPrep essive) ;
lin take_V2V = mkV2V "viedä" ;
lin take_V2A = mkV2A tehda_V accusative (mkPrep translative) ;
lin take_V2V = mkV2V (mkV "viedä") accusative ; --vien hänet tanssimaan
lin take_V2A = mkV2A tehda_V accusative (mkPrep translative) ; --?
lin take_V2 = mkV2 "ottaa" ;
lin take_V = mkV "ottaa" ;
lin so_Adv = mkWAdv (k99 "niin") ;
lin so_Adv = mkAdv "niin" ;
lin year_N = L.year_N ;
lin into_Prep = casePrep illative ;
lin then_Adv = mkAdv (lin AdvK {s = c99 "silloin"}) ;
lin then_Adv = mkAdv "silloin" ; -- mkAdv "siinä tapauksessa"
lin think_VS = mkVS (mkV "ajatella") ;
lin think_V2A = mkV2A (mkV "ajatella") (mkPrep partitive) (mkPrep essive) ;
lin think_V2 = mkV2 (mkV "ajatella") partitive ;
@@ -111,19 +111,20 @@ lin give_V2 = mkV2 "antaa" ;
lin give_V = mkV "antaa" ;
lin just_Adv = mkAdv "juuri" ;
lin people_N = mkN "kansa" ;
lin also_Adv = mkWAdv (k99 "lisäksi") ;
lin also_Adv = mkAdv "myös" | mkAdv "lisäksi" ;
lin well_Adv = mkAdv "hyvin" ;
lin only_Adv = mkAdv (lin AdvK {s = c99 "vain"}) ;
lin only_Adv = mkAdv "vain" ;
lin new_A = L.new_A ;
lin when_Subj = S.when_Subj ;
lin way_N = mkN "tie" ;
lin way_2_N = mkN "tapa" ;
lin way_1_N = mkN "tie" ;
lin look_VV = mkWVV (k53A "näyttää") infPresPart ;
lin look_VV = mkVV (mkV "näyttää") infPresPart ;
lin look_VA = mkVA (mkV "näyttää") (mkPrep ablative) ;
lin look_V2V = mkWV2V (k53A "näyttää") "jltak" ; --UNCHK
lin look_V2 = mkWV2 (k53A "näyttää") "jltak" ; --UNCHK
lin look_V2V = mkV2V (mkV "katsoa") genitive infPresPart ; --?
lin look_V2 = mkV2 (mkV "näyttää") (mkPrep ablative) ;
lin look_V = mkV "katsoa" ;
---- checked by IL till look_V in the BNC order
lin like_Prep = postPrep genitive "tavalla" ; ---
lin use_VV = mkVV "tavata" ;
lin use_V2V = mkWV2V (mkV "käyttää") ;