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

(Ara) don't bind if object case is nominative

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-01 09:50:35 +02:00
parent a9394f58fb
commit d0158265d1
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/arabic/ResAra.gf
View File

@@ -1729,8 +1729,11 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
bindIf : Bool -> Str = \b -> if_then_Str b BIND [] ; bindIf : Bool -> Str = \b -> if_then_Str b BIND [] ;
bindIfPron : NP -> {c2:Preposition; isPred:Bool} -> Str = \np,vp -> bindIfPron : NP -> {c2:Preposition; isPred:Bool} -> Str = \np,vp ->
let bind = case vp.isPred of { let notNom : Case -> Bool = \c -> case c of {Nom => False; _=>True} ;
False => bindIf (orB np.a.isPron vp.c2.binds) ; bind = case vp.isPred of {
False => bindIf (
orB (andB np.a.isPron (notNom vp.c2.c)) --if np is pron, not in nominative
vp.c2.binds) ;
True => [] } True => [] }
in vp.c2.s ++ bind ++ np.s ! vp.c2.c ; in vp.c2.s ++ bind ++ np.s ! vp.c2.c ;