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

(Pes) Remove unnecessary QForm from QS and QCl

Browse Source 
Y/N questions are formed the same way in direct and indirect, not like 
English "do you sleep / if you sleep".
This commit is contained in:
Inari Listenmaa
2019-03-14 15:14:03 +01:00
parent ac4130ca2e
commit 47aa4a969d
6 changed files with 28 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/persian/IdiomPes.gf
+4 -8
View File
@@ -16,16 +16,12 @@ lin
CleftAdv ad ss = { s = \\t,b,o => ad.s ++ ss.s ! Indic};
ExistNP np =
mkSClause " " (agrP3 (fromAgr np.a).n)
(insertComp (\\_ => np.s ! Bare) (predV beVerb)) ;
mkSClause [] (agrP3 (fromAgr np.a).n)
(insertComp (\\_ => np.s ! Bare) (predV beVerb)) ;
ExistIP ip =
let cl = mkSClause ( ip.s ) (agrP3 ip.n) (predV beVerb);
in {s = \\t,p,qf => case qf of {
QDir => cl.s ! t ! p ! ODir;
QIndir => cl.s ! t! p ! ODir
}
};
let cl = mkSClause ip.s (agrP3 ip.n) (predV beVerb);
in {s = \\t,p => cl.s ! t ! p ! ODir};
ProgrVP vp = predProg vp ;