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

(Ara) ComplSlash: retain old object. Slash3V3: insert c3 into new c2.

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-01 12:06:14 +02:00
parent fcf13dc89f
commit fb9ebf782f
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/arabic/ResAra.gf
View File

@@ -1189,6 +1189,8 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
isPred = False isPred = False
}; };
predVSlash : Verb ** {c2 : Str} -> VPSlash = \v ->
predV v ** {c2 = v.c2} ;
-- in verbal sentences, the verb agrees with the subject -- in verbal sentences, the verb agrees with the subject
-- in Gender but not in number -- in Gender but not in number
@@ -1198,8 +1200,8 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
_ => pgn _ => pgn
}; };
insertObj : NP -> VP -> VP = \np,vp -> vp ** insertObj : NP -> VPSlash -> VP = \np,vp -> vp **
{ obj = {s = np.s ! Acc ; a = np.a} }; { obj = {s = vp.obj.s ++ vp.c2 ++ np.s ! Acc ; a = np.a} };
insertPred : {s : AAgr => Case => Str} -> VP -> VP = \p,vp -> vp ** insertPred : {s : AAgr => Case => Str} -> VP -> VP = \p,vp -> vp **
{ pred = p; { pred = p;

4
src/arabic/VerbAra.gf
View File

@@ -6,8 +6,8 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in {
UseV = predV ; UseV = predV ;
SlashVV vv vps = vps ** predV vv ; ----IL SlashVV vv vps = vps ** predV vv ; ----IL
SlashV2a v = predV v ** {c2 = v.c2}; SlashV2a v = predVSlash v ;
Slash3V3 v np = insertObj np (predV v) ** {c2 = v.c2}; Slash3V3 v np = insertObj np (predVSlash v) ** {c2 = v.c3};
ComplSlash vp np = insertObj np vp ; ComplSlash vp np = insertObj np vp ;