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

(Ara) replace old have_V2 ('X owns Y') with the structure 'Y is on X'

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-01 09:51:27 +02:00
parent dbe14786e7
commit 0a737299c1
2 changed files with 19 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/arabic/ResAra.gf
View File

@@ -1466,7 +1466,6 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
theyMasc_Pron : NP = mkPron "هُمْ" "هُمْ" "هُمْ" (Per3 Masc Pl) ; theyMasc_Pron : NP = mkPron "هُمْ" "هُمْ" "هُمْ" (Per3 Masc Pl) ;
theyFem_Pron : NP = mkPron "هُنَّ" "هُنَّ" "هُنَّ" (Per3 Fem Pl) ; theyFem_Pron : NP = mkPron "هُنَّ" "هُنَّ" "هُنَّ" (Per3 Fem Pl) ;
-- Used e.g. to encode the subject as an object clitic -- Used e.g. to encode the subject as an object clitic
-- or to find a possessive suffix corresponding to the NP. -- or to find a possessive suffix corresponding to the NP.
-- If the NP is a pronoun, just use itself. -- If the NP is a pronoun, just use itself.
@@ -1512,6 +1511,23 @@ patHollowImp : (_,_ :Str) -> Gender => Number => Str =\xaf,xAf ->
VPPart => v.s ! vf ++ reflPron Acc (Per3 Masc Sg) ---- VPPart => v.s ! vf ++ reflPron Acc (Per3 Masc Sg) ----
} }
} ; } ;
ladaa_V : Verb =
let laday : PerGenNum -> Str = \pgn -> case pgn of {
Per1 Sing => "لَدَيَّ" ;
Per3 Masc Sg => "لَدَيْهِ" ; -- vowel assimilation
Per3 Masc Dl => "لَدَيْهِمَا" ; -- vowel assimilation
Per3 Masc Pl => "لَدَيْهِم" ; -- vowel assimilation
Per3 Fem Pl => "لَدَيْهِنَّ" ; -- vowel assimilation
_ => "لَدَيْ" + (pgn2pron pgn).s ! Gen
} ;
in { s = table {
VImpf Ind Act pgn => laday pgn ;
vf@(VImpf _ _ pgn) => copula.s ! vf ++ laday pgn ;
vf@(VPerf _ pgn) => copula.s ! vf ++ laday pgn ;
vf@(VImp g n) => copula.s ! vf ++ laday (Per2 g n) ;
VPPart => copula.s ! VPPart ++ "لَدَى" }
} ;
----------------------------------------------------------------------------- -----------------------------------------------------------------------------
-- IP, questions -- IP, questions

3
src/arabic/StructuralAra.gf
View File

@@ -122,7 +122,8 @@ concrete StructuralAra of Structural = CatAra **
youPl_Pron = youPlMasc_Pron ; youPl_Pron = youPlMasc_Pron ;
youPol_Pron = youPlFem_Pron ; -- arbitrary? youPol_Pron = youPlFem_Pron ; -- arbitrary?
have_V2 = dirV2 (regV "يَملِك") ; have_V2 = mkV2 ladaa_V (casePrep nom) ; -- "X has Y" literally "Y<nom> is on X<nom>"
--have_V2 = dirV2 (regV "يَملِك") ; -- "X<nom> owns/possesses Y<acc>"
lin language_title_Utt = {s = \\_ => "العربية"} ; lin language_title_Utt = {s = \\_ => "العربية"} ;