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

(Ara) fix bug in MkVPS + comment about possible improvement in [VPS]s

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-01 10:06:11 +02:00
parent 0a737299c1
commit 33d20b15e4
1 changed files with 3 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/arabic/ExtendAra.gf
View File

@@ -29,7 +29,6 @@ concrete ExtendAra of Extend =
ICompAP ap = {s = \\gn => "كَمْ" ++ ap.s ! NoHum ! gn.g ! gn.n ! Indef ! Acc} ; ICompAP ap = {s = \\gn => "كَمْ" ++ ap.s ! NoHum ! gn.g ! gn.n ! Indef ! Acc} ;
lincat lincat
VPS = {s : PerGenNum => Str} ; -- finite VP's with tense and polarity VPS = {s : PerGenNum => Str} ; -- finite VP's with tense and polarity
[VPS] = {s1,s2 : PerGenNum => Str} ; [VPS] = {s1,s2 : PerGenNum => Str} ;
lin lin
@@ -40,14 +39,14 @@ concrete ExtendAra of Extend =
Nominal -- Nominal (=SVO) generalises best for ConjVPS. Nominal -- Nominal (=SVO) generalises best for ConjVPS.
vp.obj.a.isPron vp.obj.a.isPron
(vStr vp pgn t.t p.p Nominal) (vStr vp pgn t.t p.p Nominal)
(case <vp.isPred,vp.obj.a.isPron> of { vp.obj.s -- BIND is taken care of when the VP was made, no need to add one here
<False,True> => BIND ++ vp.obj.s ;
_ => vp.obj.s })
(pred vp pgn t.t p.p) (pred vp pgn t.t p.p)
vp.s2 vp.s2
in vps.before ++ vps.after -- word order is SVO, so this is safe for just this case. in vps.before ++ vps.after -- word order is SVO, so this is safe for just this case.
} ; } ;
-- maybe more robust to use إِيَّا as object carrier if the VPS
-- consists of several VPSs; like it's done in Slash3V3 /IL
BaseVPS = twoTable PerGenNum ; BaseVPS = twoTable PerGenNum ;
ConsVPS = consrTable PerGenNum comma ; ConsVPS = consrTable PerGenNum comma ;
ConjVPS = conjunctDistrTable PerGenNum ; ConjVPS = conjunctDistrTable PerGenNum ;