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) Fix bug with negation in haveVerb and have_V2

Browse Source
This commit is contained in:
Inari Listenmaa
2019-03-21 20:24:07 +01:00
parent 76c1c2453e
commit 70b8d2e5e3
2 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/persian/MorphoPes.gf
View File

@@ -312,6 +312,7 @@ oper
haveVerb : Verb = haveRegV ** {s = table { haveVerb : Verb = haveRegV ** {s = table {
ImpPrefix _ => [] ; ImpPrefix _ => [] ;
VAor Neg agr => imperfectSuffix agr (addN "دار") ;
vf => haveRegV.s ! vf } vf => haveRegV.s ! vf }
} where { haveRegV = mkVerb "داشتن" "دار" } ; } where { haveRegV = mkVerb "داشتن" "دار" } ;

7
src/persian/StructuralPes.gf
View File

@@ -126,12 +126,7 @@ have_V2 = haveVerb ** {
VImp Pos Pl => "داشته باشید" ; VImp Pos Pl => "داشته باشید" ;
VImp Neg Sg => "نداشته باش" ; VImp Neg Sg => "نداشته باش" ;
VImp Neg Pl => "نداشته باشید" ; VImp Neg Pl => "نداشته باشید" ;
VSubj _ (Ag Sg P1) => "داشته باشم" ; VSubj p agr => "داشته" ++ subjAux p agr ;
VSubj _ (Ag Sg P2) => "داشته باشی" ;
VSubj _ (Ag Sg P3) => "داشته باشد" ;
VSubj _ (Ag Pl P1) => "داشته باشیم" ;
VSubj _ (Ag Pl P2) => "داشته باشید" ;
VSubj _ (Ag Pl P3) => "داشته باشند" ;
x => haveVerb.s ! x } ; x => haveVerb.s ! x } ;
c2 = prepOrRa [] -- "را" ; ---- AR 18/9/2017: usually no ra acc. to Nasrin, but this is tricky c2 = prepOrRa [] -- "را" ; ---- AR 18/9/2017: usually no ra acc. to Nasrin, but this is tricky
} ; } ;