mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-07-01 19:48:34 -06:00
Renamed parameters + added possessive suffixes
This commit is contained in:
@@ -9,7 +9,7 @@ lin
|
||||
GenericCl vp = mkSClause "آدم" (agrP3 Sg) vp ;
|
||||
|
||||
CleftNP np rs =
|
||||
let cl = mkSClause (np.s ! NPC bEzafa) (np.a) (predAux auxBe);
|
||||
let cl = mkSClause (np.s ! Bare) (np.a) (predAux auxBe);
|
||||
in
|
||||
{s = \\t,p,o => cl.s ! t ! p ! o ++ rs.s ! np.a };
|
||||
|
||||
@@ -17,7 +17,7 @@ lin
|
||||
|
||||
ExistNP np =
|
||||
mkSClause " " (agrP3 (fromAgr np.a).n)
|
||||
(insertObj (\\_ => np.s ! NPC bEzafa) (predAux auxBe)) ;
|
||||
(insertObj (\\_ => np.s ! Bare) (predAux auxBe)) ;
|
||||
|
||||
ExistIP ip =
|
||||
let cl = mkSClause ( ip.s ) (agrP3 ip.n) (predAux auxBe);
|
||||
@@ -32,7 +32,7 @@ lin
|
||||
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};
|
||||
ImpP3 np vp = {s = "بگذارید" ++ np.s!Bare ++ vp.s ! VVForm np.a};
|
||||
|
||||
|
||||
}
|
||||
|
||||
Reference in New Issue
Block a user