GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Pes) Add ExistNPAdv + fix ExistNP

Browse Source
This commit is contained in:
Inari Listenmaa
2019-03-15 11:20:32 +01:00
parent 6e4b68c7df
commit c61e46be89
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/persian/IdiomPes.gf
View File

@@ -1,4 +1,4 @@
concrete IdiomPes of Idiom = CatPes ** open Prelude,Predef, ResPes in { concrete IdiomPes of Idiom = CatPes ** open Prelude,ParadigmsPes,ResPes in {
flags optimize=all_subs ; flags optimize=all_subs ;
flags coding = utf8; flags coding = utf8;
@@ -17,7 +17,14 @@ lin
ExistNP np = ExistNP np =
mkSClause [] (agrP3 (fromAgr np.a).n) mkSClause [] (agrP3 (fromAgr np.a).n)
(insertComp (\\_ => np.s ! Bare) (predV beVerb)) ; (insertComp (\\_ => np.s ! Bare) (predV existVerb)) ;
ExistNPAdv np adv =
mkSClause [] (agrP3 (fromAgr np.a).n)
(insertComp (\\_ => np.s ! Bare ++ adv.s)
(predV existVerb)
) ;
ExistIP ip = ExistIP ip =
let cl = mkSClause ip.s (agrP3 ip.n) (predV beVerb); let cl = mkSClause ip.s (agrP3 ip.n) (predV beVerb);
@@ -31,5 +38,7 @@ lin
ImpP3 np vp = ImpP3 np vp =
{s = "بگذارید" ++ np.s ! Bare ++ showVPH (VSubj Pos np.a) np.a vp}; {s = "بگذارید" ++ np.s ! Bare ++ showVPH (VSubj Pos np.a) np.a vp};
oper
existVerb = mkV "وجود" haveVerb ;
} }