GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 11:56:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Ara) New category for ClSlash; update related functions

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-12 14:30:44 +01:00
parent 2159d4b0be
commit 87613d464c
6 changed files with 97 additions and 77 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/arabic/RelativeAra.gf
+4 -3
View File
@@ -20,12 +20,13 @@ concrete RelativeAra of Relative = CatAra **
} ;
-- : RP -> ClSlash -> RCl ; -- whom John loves
RelSlash rp cl = cl ** {
RelSlash rp cls = cls ** {
s = \\t,p,agr,c =>
let obj = case (pgn2gn agr.pgn).g of {
Fem => St.she_Pron ;
Fem => St.she_Pron ; -- head is repeated as a clitic object pronoun
Masc => St.he_Pron } ;
in rp.s ! agr2ragr agr c ++ cl.s ! t ! p ! Nominal ++ cl.c2.s ++ obj.s ! cl.c2.c
cl : ResAra.Cl = complClSlash obj cls ;
in rp.s ! agr2ragr agr c ++ cl.s ! t ! p ! VOS
} ;
--
-- FunRP p np rp = {