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

(Ara) Improve documentation for verb constructors + add reflV

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-19 15:23:37 +01:00
parent 7b51bb6638
commit fe4bec4e58
3 changed files with 32 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/arabic/IdiomAra.gf
View File

@@ -49,14 +49,12 @@ concrete IdiomAra of Idiom = CatAra ** open
-- : VP -> VP ; -- is at home himself; is himself at home
SelfAdvVP,
SelfAdVVP = \vp -> vp ** {
s = \\pgn,vf => let pron : ResAra.NP = pgn2pron pgn in
vp.s ! pgn ! vf ++ refl ! Nom ++ pron.s ! Gen
s = \\pgn,vf => vp.s ! pgn ! vf ++ reflPron Nom pgn
} ;
-- : NP -> NP ; -- the president himself (is at home)
SelfNP np = np ** {
s = let pron : ResAra.NP = np2pron np ;
in \\c => np.s ! c ++ refl ! c ++ pron.s ! Gen
s = \\c => np.s ! c ++ reflPron c (np.a.pgn)
} ;
}