msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

(Pes) Word order regarding ra + cleanup and renaming

Browse Source
This commit is contained in:
Inari Listenmaa
2019-02-22 15:18:59 +01:00
parent c25a236585
commit 50200f3e0c
13 changed files with 156 additions and 174 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/IdiomPes.gf
+5 -6
View File
@@ -17,16 +17,15 @@ lin
ExistNP np =
mkSClause " " (agrP3 (fromAgr np.a).n)
(insertObj (\\_ => np.s ! Bare) (predAux auxBe)) ;
(insertComp (\\_ => np.s ! Bare) (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;
in {s = \\t,p,qf => case qf of {
QDir => cl.s ! t ! p ! ODir;
QIndir => cl.s ! t! p ! ODir
}
};
}
};
ProgrVP vp = predProg vp ;