GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 09:28:54 -06:00
Code Issues Packages Projects Releases Wiki 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

33
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 {
@@ -8,34 +9,32 @@ concrete IdiomAra of Idiom = CatAra ** open
lin lin
-- : VP -> Cl ; -- it is hot -- : VP -> Cl ; -- it is hot
ImpersCl vp = ImpersCl vp =
let it : ResAra.NP = pron2np (pgn2pron vp.obj.a.pgn) ; -- if no obj, Per3 Masc Sg chosen by default let it : ResAra.NP = pron2np (pgn2pron vp.obj.a.pgn) ; -- if no obj, Per3 Masc Sg chosen by default
in predVP it vp ; in predVP it vp ;
-- : VP -> Cl ; -- one sleeps -- : VP -> Cl ; -- one sleeps
GenericCl = predVP (regNP "المَرْء" Sg) ; GenericCl = predVP (regNP "المَرْء" Sg) ;
-- : 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
-- 7/12/2012 generalizations of these -- 7/12/2012 generalizations of these
-- : 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
@@ -48,18 +47,16 @@ concrete IdiomAra of Idiom = CatAra ** open
-- 3/12/2013 non-reflexive uses of "self" -- 3/12/2013 non-reflexive uses of "self"
-- : VP -> VP ; -- is at home himself; is himself at home -- : VP -> VP ; -- is at home himself; is himself at home
SelfAdvVP, SelfAdvVP,
SelfAdVVP = \vp -> vp ** { SelfAdVVP = \vp -> vp ** {
s = \\pgn,vf => let pron : ResAra.NP = pgn2pron pgn in s = \\pgn,vf => let pron : ResAra.NP = pgn2pron pgn in
vp.s ! pgn ! vf ++ refl ! Nom ++ pron.s ! Gen vp.s ! pgn ! vf ++ refl ! Nom ++ pron.s ! Gen
} ; } ;
-- : 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
} ; } ;
} }