latin adjectives and determiners

This commit is contained in:
aarne
2008-09-18 13:29:53 +00:00
parent 6d458d19dc
commit d9b6bdaf1e
8 changed files with 140 additions and 42 deletions

View File

@@ -34,6 +34,15 @@ oper
= \x,y,z -> noun_ngg x y z ** {lock_N = <>} ;
} ;
mkA = overload {
mkA : (verbum : Str) -> A
= \n -> adj n ** {isPre = False ; lock_A = <>} ;
mkA : (verbum, verbi : Str) -> A
= \x,y -> adj123 x y ** {isPre = False ; lock_A = <>} ;
mkA : (bonus,bona,bonum : N) -> A
= \x,y,z -> mkAdjective x y z ** {isPre = False ; lock_A = <>} ;
} ;
mkV = overload {
mkV : (tacere : Str) -> V