1
0
forked from GitHub/gf-core

Proper reflexive and medial verbs support together with completelly reworked case system.

This commit is contained in:
krasimir
2008-02-26 16:59:47 +00:00
parent 7cf94a854d
commit 775c4cc34e
13 changed files with 279 additions and 182 deletions

View File

@@ -2,13 +2,13 @@ concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
lin
PositAdvAdj a = {s = a.s ! ASg Neut Indef} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! Acc
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ np.s ! RObj Acc
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ "ïî" ++ "-" ++ a.s ! ASg Neut Indef ++ "îò" ++ s.s
} ;
PrepNP prep np = {s = prep.s ++ np.s ! prep.c} ;
PrepNP prep np = {s = prep.s ++ np.s ! RObj prep.c} ;
AdAdv = cc2 ;