forked from GitHub/gf-core
19 lines
499 B
Plaintext
19 lines
499 B
Plaintext
concrete AdverbBul of Adverb = CatBul ** open ResBul, Prelude in {
|
|
lin
|
|
PositAdvAdj a = {s = a.adv} ;
|
|
ComparAdvAdj cadv a np = {
|
|
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 ! RObj prep.c} ;
|
|
|
|
AdAdv = cc2 ;
|
|
|
|
SubjS = cc2 ;
|
|
|
|
AdnCAdv cadv = {s = cadv.sn ++ "îò"} ;
|
|
}
|