mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-20 16:56:18 -06:00
39 lines
979 B
Plaintext
39 lines
979 B
Plaintext
concrete IdiomPes of Idiom = CatPes ** open Prelude,Predef, ResPes in {
|
|
|
|
flags optimize=all_subs ;
|
|
flags coding = utf8;
|
|
|
|
lin
|
|
|
|
ImpersCl vp = mkSClause " " (agrP3 Sg) vp ;
|
|
GenericCl vp = mkSClause "آدم" (agrP3 Sg) vp ;
|
|
|
|
CleftNP np rs =
|
|
let cl = mkSClause (np.s ! NPC bEzafa) (np.a) (predAux auxBe);
|
|
in
|
|
{s = \\t,p,o => cl.s ! t ! p ! o ++ rs.s ! np.a };
|
|
|
|
CleftAdv ad ss = { s = \\t,b,o => ad.s ++ ss.s};
|
|
|
|
ExistNP np =
|
|
mkSClause " " (agrP3 (fromAgr np.a).n)
|
|
(insertObj (\\_ => np.s ! NPC bEzafa) (predAux auxBe)) ;
|
|
|
|
ExistIP ip =
|
|
let cl = mkSClause ( ip.s ) (agrP3 ip.n) (predAux auxBe);
|
|
in {
|
|
s = \\t,p,qf => case qf of {
|
|
QDir => cl.s ! t ! p ! ODir;
|
|
QIndir => cl.s ! t! p ! ODir
|
|
}
|
|
};
|
|
|
|
|
|
ProgrVP vp = predProg vp ;
|
|
|
|
ImpPl1 vp = {s = "بیایید" ++ vp.s ! VVForm (agrP1 Pl)} ;
|
|
ImpP3 np vp = {s = "بگذارید" ++ np.s!NPC bEzafa ++ vp.s ! VVForm np.a};
|
|
|
|
|
|
}
|