mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-14 09:30:13 -06:00
52 lines
1.2 KiB
Plaintext
52 lines
1.2 KiB
Plaintext
--# -path=.:../abstract:../common:../prelude
|
|
|
|
concrete SymbolPes of Symbol = CatPes ** open Prelude, ResPes in {
|
|
|
|
flags coding = utf8;
|
|
|
|
lin
|
|
-- SymbPN i = {s = \\_ => i.s ; g = Masc} ;
|
|
SymbPN i = {s = i.s ; animacy = Inanimate} ; -- "از" is removed for Phrasebook
|
|
IntPN i = {s = i.s ; animacy = Inanimate} ;
|
|
FloatPN i = {s = i.s ; animacy = Inanimate} ;
|
|
NumPN i = {s = i.s ; animacy = Inanimate} ;
|
|
CNIntNP cn i = cn ** {
|
|
s = \\ez => cn.s ! Sg ! Ezafe ++ i.s ;
|
|
a = agrP3 Sg ;
|
|
compl = cn.compl ! Sg
|
|
} ;
|
|
CNSymbNP det cn xs = cn ** {
|
|
s = \\ez => det.s ++ cn.s ! det.n ! Ezafe ++ xs.s ;
|
|
a = agrP3 det.n ;
|
|
compl = cn.compl ! det.n
|
|
} ;
|
|
CNNumNP cn i = cn ** {
|
|
s = \\ez => cn.s ! Sg ! Ezafe ++ i.s ;
|
|
a = agrP3 Sg ;
|
|
compl = cn.compl ! Sg
|
|
} ;
|
|
|
|
SymbS sy = {s = \\_ => sy.s} ;
|
|
SymbNum sy = { s = sy.s ; n = Pl } ;
|
|
SymbOrd sy = { s = sy.s ++ "wN" ; n = Pl; isNum=False} ;
|
|
|
|
lincat
|
|
|
|
Symb, [Symb] = SS ;
|
|
|
|
lin
|
|
MkSymb s = s ;
|
|
|
|
BaseSymb = infixSS "تE" ;
|
|
ConsSymb = infixSS "" ;
|
|
|
|
--oper
|
|
-- Note: this results in a space before 's, but there's
|
|
-- not mauch we can do about that.
|
|
-- addGenitiveS : Str ;
|
|
-- addGenitiveS s =
|
|
-- s ++ "از" ;
|
|
|
|
|
|
}
|