From 0786fc84b7cc211d7b8df05059fd2c64d4144f25 Mon Sep 17 00:00:00 2001 From: inari Date: Thu, 17 Apr 2014 15:59:21 +0000 Subject: [PATCH] ~100 words of TopDictFin --- lib/src/translator/todo/TopDictionaryFin.gf | 45 +++++++++++---------- 1 file changed, 23 insertions(+), 22 deletions(-) diff --git a/lib/src/translator/todo/TopDictionaryFin.gf b/lib/src/translator/todo/TopDictionaryFin.gf index bcee9d558..a540f8a01 100644 --- a/lib/src/translator/todo/TopDictionaryFin.gf +++ b/lib/src/translator/todo/TopDictionaryFin.gf @@ -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 "? 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ää") ;