forked from GitHub/gf-rgl
42 lines
1.2 KiB
Plaintext
42 lines
1.2 KiB
Plaintext
--# -path=.:../abstract:../common:../prelude
|
|
|
|
concrete SymbolRus of Symbol = CatRus ** open Prelude, ResRus in {
|
|
flags coding=utf8;
|
|
{- TODO! -}
|
|
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 ! Neut ! Inanimate ! Nom} ; g = Neut; anim = Inanimate } ;
|
|
|
|
CNIntNP cn i = {s = \\cas => cn.nounpart ! NF Sg (extCase cas) nom ++ cn.relcl ! Sg ! extCase cas ++ i.s;
|
|
n = Sg ; p = P3 ;
|
|
g = PGen cn.g ; anim = cn.anim ; pron = False } ;
|
|
CNNumNP cn n = {s = \\cas => cn.nounpart ! NF Sg (extCase cas) nom ++ cn.relcl ! Sg ! extCase cas
|
|
++ n.s ! cn.g ! cn. anim ! (extCase cas) ;
|
|
n = Sg ; p = P3 ;
|
|
g = PGen cn.g ; anim = cn.anim ; pron = False } ;
|
|
|
|
CNSymbNP d cn ss = {s = \\cas => cn.nounpart ! NF Sg (extCase cas) nom ++ cn.relcl ! 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 ; size = plg };
|
|
|
|
SymbOrd sy = { s = \\af => sy.s } ;
|
|
|
|
lincat
|
|
|
|
Symb, [Symb] = SS ;
|
|
|
|
lin
|
|
MkSymb s = s ;
|
|
|
|
BaseSymb = infixSS "и" ;
|
|
ConsSymb = infixSS "," ;
|
|
|
|
|
|
}
|