(May) Add lexicon + some unit tests

This commit is contained in:
Inari Listenmaa
2020-08-18 21:56:34 +02:00
parent f2cf027f55
commit 6d781d3d02
3 changed files with 18 additions and 6 deletions

View File

@@ -95,7 +95,7 @@ lin cat_N = mkN "kucing" ;
-- lin doctor_N = mkN "" ; -- lin doctor_N = mkN "" ;
lin dog_N = mkN "anjing" ; lin dog_N = mkN "anjing" ;
-- lin door_N = mkN "" ; -- lin door_N = mkN "" ;
-- lin drink_V2 = mkV2 "" ; lin drink_V2 = mkV2 "minum" ;
-- lin dry_A = mkA "" ; -- lin dry_A = mkA "" ;
-- lin dull_A = mkA "" ; -- lin dull_A = mkA "" ;
-- lin dust_N = mkN "" ; -- lin dust_N = mkN "" ;
@@ -225,7 +225,7 @@ lin learn_V2 = mkV2 (mkV "ajar" Ber) emptyPrep ;
-- lin man_N = mkN "" ; -- lin man_N = mkN "" ;
-- lin married_A2 = mkA "" ; -- lin married_A2 = mkA "" ;
-- lin meat_N = mkN "" ; -- lin meat_N = mkN "" ;
-- lin milk_N = mkN "" ; lin milk_N = mkN "susu" ;
-- lin moon_N = mkN "" ; -- lin moon_N = mkN "" ;
-- lin mother_N2 = mkN2 "" ; -- lin mother_N2 = mkN2 "" ;
-- lin mountain_N = mkN "" ; -- lin mountain_N = mkN "" ;
@@ -390,7 +390,7 @@ lin teach_V2 = mkV2 "ajar" ;
-- W - Y -- W - Y
-- lin wait_V2 = mkV2 "" ; -- lin wait_V2 = mkV2 "" ;
lin walk_V = mkV "jalan" ; lin walk_V = mkV "jalan" Ber ;
-- lin war_N = mkN "" ; -- lin war_N = mkN "" ;
-- lin warm_A = mkA "" ; -- lin warm_A = mkA "" ;
-- lin wash_V2 = mkV2 "" ; -- lin wash_V2 = mkV2 "" ;

View File

@@ -49,9 +49,10 @@ concrete NounMay of Noun = CatMay ** open ResMay, Prelude in {
-- } ; -- } ;
-- MassNP : CN -> NP ; -- MassNP : CN -> NP ;
-- MassNP cn = useN cn ** { MassNP cn = {
-- } ; s = cn.s ! NF Sg Bare ;
p = P3
} ;
--2 Determiners --2 Determiners

View File

@@ -0,0 +1,11 @@
Lang: DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (UseV go_V))))
LangEng: a cat that goes
LangMay: kucing yang pergi
Lang: DetCN (DetQuant IndefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelVP IdRP (ComplSlash (SlashV2a drink_V2) (MassNP (UseN milk_N))))))
LangEng: a cat that drinks milk
LangMay: kucing yang minum susu
Lang: DetCN (DetQuant DefArt NumSg) (RelCN (UseN cat_N) (UseRCl (TTAnt TPres ASimul) PPos (RelSlash IdRP (SlashPrep (PredVP (DetCN (DetQuant DefArt NumSg) (UseN dog_N)) (UseV walk_V)) with_Prep))))
LangEng: the cat that the dog walks with
LangMay: kucing yang anjing berjalan dengannya