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

(Ara) Fix ComplVV: now uses subjunctive and agrees with subject.

Browse Source
This commit is contained in:
Inari Listenmaa
2018-10-01 12:04:17 +02:00
parent 3edc34ed56
commit fcf13dc89f
1 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
src/arabic/VerbAra.gf
View File

@@ -17,12 +17,12 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra in {
a = {pgn = Per3 Masc Sg ; isPron = False} } --FIXME a = {pgn = Per3 Masc Sg ; isPron = False} } --FIXME
(predV v) ;-} (predV v) ;-}
ComplVV vv vp = --- IL ComplVV vv vp = let vvVP = predV vv in --- IL
predV vv ** { vp ** {
s2 = vv.c2 ; -- add the preposition of the VV. TODO: do we need a separate field in the VP? s = \\pgn,vpf => vvVP.s ! pgn ! vpf
pred = compVP vp ; -- add VP complement in pred. TODO: what agreement features are needed? ++ vv.c2 -- أَنْ‎
isPred = False } ; {- Despite verb complement being in pred, it's not predicative. ++ vp.s ! pgn ! VPImpf Cnj
Changing this to True causes PredVP to not include the verb. -} } ;
-- ComplVS v s = insertObj (\\_ => conjThat ++ s.s) (predV v) ; -- ComplVS v s = insertObj (\\_ => conjThat ++ s.s) (predV v) ;
-- ComplVQ v q = insertObj (\\_ => q.s ! QIndir) (predV v) ; -- ComplVQ v q = insertObj (\\_ => q.s ! QIndir) (predV v) ;