add Russian in next-lib

This commit is contained in:
krasimir
2008-11-26 14:43:05 +00:00
parent 66785b2020
commit d0116c3958
25 changed files with 4220 additions and 0 deletions

View File

@@ -0,0 +1,24 @@
--# -path=.:../abstract:../common:../../prelude
concrete AdverbRus of Adverb = CatRus ** open ResRus, Prelude in {
flags coding=utf8 ;
lin
PositAdvAdj a = {s = a.s !Posit! AdvF} ;
ComparAdvAdj cadv a np = {
s = cadv.s ++ a.s !Posit! AdvF ++ "чем" ++ np.s ! PF Nom No NonPoss
} ;
ComparAdvAdjS cadv a s = {
s = cadv.s ++ a.s !Posit! AdvF ++ "чем" ++ s.s
} ;
PrepNP na stol = ss (na.s ++ stol.s ! PF na.c Yes NonPoss) ;
AdAdv = cc2 ;
SubjS = cc2 ;
AdnCAdv cadv = {s = cadv.s ++ "чем"} ;
}