forked from GitHub/gf-rgl
2c8fed764b
Adding coding pragmas --# -coding=latin1 so that grammars will continue to work when we change the default character encoding to UTF-8.
56 lines
1.5 KiB
Plaintext
56 lines
1.5 KiB
Plaintext
--# -path=.:../abstract:../common
|
|
--# -coding=cp1251
|
|
|
|
concrete SymbolBul of Symbol = CatBul ** open Prelude, ResBul in {
|
|
|
|
flags
|
|
coding = cp1251 ;
|
|
|
|
lin
|
|
SymbPN i = {s = i.s ; g = Neut} ;
|
|
IntPN i = {s = i.s ; g = Neut} ;
|
|
FloatPN i = {s = i.s ; g = Neut} ;
|
|
NumPN i = {s = i.s ! CFNeut Indef ; g = Neut} ;
|
|
CNIntNP cn i = {
|
|
s = \\c => cn.s ! NF Sg Indef ++ i.s ;
|
|
a = agrP3 (gennum cn.g Sg)
|
|
} ;
|
|
CNSymbNP det cn xs = {
|
|
s = \\c => det.s ! False ! cn.g ! RSubj ++ cn.s ! NF (numnnum det.nn) Indef ++ xs.s ;
|
|
a = agrP3 (gennum cn.g (numnnum det.nn))
|
|
} ;
|
|
CNNumNP cn i = {
|
|
s = \\c => (cn.s ! NF Sg Indef ++ i.s ! CFNeut Indef) ;
|
|
a = agrP3 (gennum cn.g Sg)
|
|
} ;
|
|
|
|
SymbS sy = sy ;
|
|
|
|
SymbNum sy = {s = \\_ => sy.s; n = Pl; nonEmpty = True} ;
|
|
SymbOrd sy = {s = \\aform => sy.s ++ "-" ++
|
|
case aform of {
|
|
ASg Masc Indef => "òè" ;
|
|
ASg Fem Indef => "òà" ;
|
|
ASg Neut Indef => "òî" ;
|
|
ASg Masc Def => "òèÿ" ;
|
|
ASg Fem Def => "òàòà" ;
|
|
ASg Neut Def => "òîòî" ;
|
|
ASgMascDefNom => "òèÿò" ;
|
|
APl Indef => "òè" ;
|
|
APl Def => "òèòå"
|
|
}
|
|
} ;
|
|
|
|
lincat
|
|
|
|
Symb, [Symb] = SS ;
|
|
|
|
lin
|
|
|
|
MkSymb s = s ;
|
|
|
|
BaseSymb = infixSS "è" ;
|
|
ConsSymb = infixSS comma ;
|
|
|
|
}
|