Symbolic and Nound fixes for Russian

This commit is contained in:
Nick Frolov
2011-11-24 16:13:08 +00:00
parent f1cacffc98
commit 31e1a657f9
7 changed files with 74 additions and 33 deletions

View File

@@ -3,8 +3,29 @@
concrete SymbolRus of Symbol = CatRus ** open Prelude, ResRus in {
{- TODO! -}
-- lin
-- SymbPN i = {s = i.s ; g = Neut } ;
lin
SymbPN i = {s = table {_ => i.s} ; g = Neut; anim = Inanimate } ;
IntPN i = {s = table {_ => i.s} ; g = Neut; anim = Inanimate } ;
FloatPN i = {s = table {_ => i.s} ; g = Neut; anim = Inanimate } ;
NumPN n = {s = table {_ => n.s ! Nom ! Neut} ; g = Neut; anim = Inanimate } ;
CNIntNP cn i = {s = \\cas => cn.s ! NF Sg (extCase cas) ++ i.s;
n = Sg ; p = P3 ;
g = PGen cn.g ; anim = cn.anim ; pron = False } ;
CNNumNP cn n = {s = \\cas => cn.s ! NF Sg (extCase cas)
++ n.s ! (extCase cas) ! cn.g;
n = Sg ; p = P3 ;
g = PGen cn.g ; anim = cn.anim ; pron = False } ;
CNSymbNP d cn ss = {s = \\cas => cn.s ! NF Sg (extCase cas);
n = Sg ; p = P3 ;
g = PGen cn.g ; anim = cn.anim ; pron = False } ;
SymbS sy = sy ;
SymbNum sy = { s = \\_,_=>sy.s; n=Pl };
SymbOrd sy = { s = \\af => sy.s } ;
lincat
@@ -13,7 +34,8 @@ lincat
lin
MkSymb s = s ;
-- BaseSymb = infixSS "and" ;
BaseSymb = infixSS "и" ;
ConsSymb = infixSS "," ;
}