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

(Ara) More relative clauses + fix questions + update MissingAra

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-08 15:52:06 +01:00
parent e6d57f3b03
commit 7713518ad5
10 changed files with 43 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/arabic/RelativeAra.gf
+13 -8
View File
@@ -1,11 +1,12 @@
concrete RelativeAra of Relative = CatAra ** open ResAra, SentenceAra in {
concrete RelativeAra of Relative = CatAra **
open ResAra, (Se=SentenceAra), (St=StructuralAra) in {
flags coding=utf8;
lin
-- RelCl cl = {
-- s = \\t,p,agr,c => IdRP.s ! agr2ragr agr c ++ cl.s ! t ! p ! Nominal
-- } ;
RelCl cl = {
s = \\t,p,agr,c => IdRP.s ! agr2ragr agr c ++ cl.s ! t ! p ! Nominal
} ;
-- : RP -> VP -> RCl ; -- who loves John
RelVP rp vp = {
@@ -13,15 +14,19 @@ concrete RelativeAra of Relative = CatAra ** open ResAra, SentenceAra in {
let
npS : Case => Str = \\_ => rp.s ! agr2ragr agr c ;
np = {s = npS ; a = agr} ;
cl = PredVP np vp ;
cl = Se.PredVP np vp ;
in
cl.s ! t ! p ! Nominal
} ;
-- : RP -> ClSlash -> RCl ; -- whom John loves
-- TODO: add resumptive pronouns
-- RelSlash rp slash = {
-- } ;
RelSlash rp cl = cl ** {
s = \\t,p,agr,c =>
let obj = case (pgn2gn agr.pgn).g of {
Fem => St.she_Pron ;
Masc => St.he_Pron } ;
in rp.s ! agr2ragr agr c ++ cl.s ! t ! p ! Nominal ++ cl.c2.s ++ obj.s ! cl.c2.c
} ;
--
-- FunRP p np rp = {
-- s = \\c => np.s ! c ++ p.s ++ rp.s ! Acc ;