msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

russian4

Browse Source
This commit is contained in:
janna
2006-06-09 11:10:43 +00:00
parent 648b186491
commit b589a0fd4d
5 changed files with 182 additions and 116 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/resource-1.0/russian/IdiomRus.gf
View File

@@ -22,7 +22,17 @@ concrete IdiomRus of Idiom = CatRus ** open Prelude, ResRus, MorphoRus in {
}
} ;
ImpersCl vp = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>""}
CleftAdv adv sen = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>"не"}
in
"это" ++ ne ++ adv.s ++ sen.s };
CleftNP np rs = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>"не"}
in
"это" ++ ne ++ np.s ! (PF Nom No NonPoss) ++ rs.s ! ASg Masc!Nom!Animate };
ImpPl1 vp = {s= "давайте" ++ vp.s! (ClIndic Future Simul)! APl ! P2 };
ImpersCl vp = {s= \\ b, clf => let ne= case b of {Pos =>[]; Neg =>"не"}
in
ne ++ vp.s! clf! (ASg Neut) ! P3 };