GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-02 12:08:34 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) Guessing default implementations in various categories

Browse Source
This commit is contained in:
Inari Listenmaa
2018-09-06 16:25:50 +02:00
parent 07b99f455f
commit bdef0d0f12
7 changed files with 28 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/arabic/ResAra.gf
+12 -19
View File
@@ -1035,6 +1035,12 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
s2 : Str
};
linVP : VP -> Str = \vp -> --used for the first dummy implementation of ComplVV --IL
vp.s ! Per3 Masc Sg ! VPPerf ++ vp.s2 ++
case vp.isPred of {
True => vp.pred.s ! {g=Masc ; n=Sg} ! Acc ;
False => vp.obj.s } ;
predV : Verb -> VP = \v ->
{ s = \\pgn,vf =>
let gn = pgn2gn pgn in
@@ -1061,29 +1067,16 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
_ => pgn
};
insertObj : NP -> VP -> VP = \np,vp ->
{ s = vp.s;
obj = {s = np.s ! Acc ; a = np.a};
s2 = vp.s2;
pred = vp.pred;
isPred = vp.isPred
};
insertObj : NP -> VP -> VP = \np,vp -> vp **
{ obj = {s = np.s ! Acc ; a = np.a} };
insertPred : {s : AAgr => Case => Str} -> VP -> VP = \p,vp ->
{ s = vp.s;
obj = vp.obj;
s2 = vp.s2;
pred = p;
insertPred : {s : AAgr => Case => Str} -> VP -> VP = \p,vp -> vp **
{ pred = p;
isPred = True
};
insertStr : Str -> VP -> VP = \str,vp ->
{ s = vp.s;
obj = vp.obj;
s2 = str;
pred = vp.pred;
isPred = vp.isPred
};
insertStr : Str -> VP -> VP = \str,vp -> vp **
{ s2 = str };
kaan : {s : AAgr => Case => Str} -> VP = \xabar ->
insertPred xabar (predV (v1hollow {f = "ك"; c = "و" ; l = "ن"} u) );