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

(Ara) Fix existential constructions

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-16 16:05:55 +01:00
parent a2907a91a5
commit c4f207a541
1 changed files with 15 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
src/arabic/IdiomAra.gf
View File

@@ -1,6 +1,7 @@
concrete IdiomAra of Idiom = CatAra ** open concrete IdiomAra of Idiom = CatAra ** open
Prelude, Prelude,
ResAra, ResAra,
VerbAra,
ParadigmsAra ParadigmsAra
in { in {
@@ -18,16 +19,14 @@ concrete IdiomAra of Idiom = CatAra ** open
-- : NP -> RS -> Cl ; -- it is I who did it -- : NP -> RS -> Cl ; -- it is I who did it
--CleftNP np rs = --CleftNP np rs =
-- TODO: check page 61 for existentials and clefts /IL
-- : Adv -> S -> Cl ; -- it is here she slept -- : Adv -> S -> Cl ; -- it is here she slept
CleftAdv adv s = CleftAdv adv s =
let comp : Comp = {s = \\_,_ => adv.s ++ s.s} in ---- let comp : Comp = CompAdv adv in
predVP he_Pron (kaan comp) ; predVP he_Pron (UseComp comp) ;
-- : NP -> Cl ; -- there is a house -- : NP -> Cl ; -- there is a house
ExistNP np = ExistNP np =
predVP emptyNP (insertObj np (predV copula ** {c2=noPrep})) ; -- dummy /IL predVP (emptyNP ** {s=\\c=>"هُنَاكَ"}) (UseComp (CompNP np)) ; -- IL
-- ExistIP : IP -> QCl ; -- which houses are there -- ExistIP : IP -> QCl ; -- which houses are there
@@ -35,7 +34,7 @@ concrete IdiomAra of Idiom = CatAra ** open
-- : NP -> Adv -> Cl ; -- there is a house in Paris -- : NP -> Adv -> Cl ; -- there is a house in Paris
ExistNPAdv np adv = ExistNPAdv np adv =
predVP emptyNP (insertStr adv.s (insertObj np (predV copula ** {c2=noPrep}))) ; predVP (emptyNP ** {s=\\c=>"هُنَاكَ"}) (AdvVP (UseComp (CompNP np)) adv) ; -- IL
-- ExistIPAdv : IP -> Adv -> QCl ; -- which houses are there in Paris -- ExistIPAdv : IP -> Adv -> QCl ; -- which houses are there in Paris
@@ -56,10 +55,8 @@ concrete IdiomAra of Idiom = CatAra ** open
-- : NP -> NP ; -- the president himself (is at home) -- : NP -> NP ; -- the president himself (is at home)
SelfNP np = np ** { SelfNP np = np ** {
s = let pron : ResAra.NP = np2pron np ; s = let pron : ResAra.NP = np2pron np ;
in \\c => np.s ! c ++ refl ! c ++ pron.s ! Gen in \\c => np.s ! c ++ refl ! c ++ pron.s ! Gen
} ; } ;
} }