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

(Ara) couple of additions

Browse Source
This commit is contained in:
Inari Listenmaa
2018-09-17 15:57:09 +02:00
parent 5e5840722d
commit c660dd6aa5
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/LexiconAra.gf
View File

@@ -112,7 +112,7 @@ flags
iron_N = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ; iron_N = brkN "حدّ" "فَعِيل" "فَعائِل" Masc NoHum ;
king_N = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ; king_N = brkN "ملك" "فَعِل" "فُعُول" Masc Hum ;
know_V2 = dirV2 (regV "عَرِف") ; know_V2 = dirV2 (regV "عَرِف") ;
-- know_V2 = dirV2 (v1 "عرف" i a) ; know_VS = mkVS (regV "عَرِف") ; -- or with ع ل م‎?
lake_N = sdfN "بحر" "فُعَيلة" Fem NoHum ; lake_N = sdfN "بحر" "فُعَيلة" Fem NoHum ;
lamp_N = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs lamp_N = brkN "صبح" "مِفعال" "مَفاعِيل" Masc NoHum ; --qanDIl, fAnUs
learn_V2 = dirV2 (v5 "علم") ; learn_V2 = dirV2 (v5 "علم") ;

4
src/arabic/PhraseAra.gf
View File

@@ -18,7 +18,9 @@ concrete PhraseAra of Phrase = CatAra ** open
UttIP ip = {s = \\_ => ip.s} ; ---- AR UttIP ip = {s = \\_ => ip.s} ; ---- AR
-- AP = { s : Species => Gender => Number => State => Case => Str } ; -- AP = { s : Species => Gender => Number => State => Case => Str } ;
UttAP ap = {s = \\g => ap.s ! NoHum ! g ! Sg ! Def ! Nom } ; ---- OK? IL UttAP ap = {s = \\g => ap.s ! NoHum ! g ! ResAra.Sg ! Def ! Nom } ; ---- OK? IL
-- Card = {s : Gender => State => Case => Str } ;
UttCard c = {s = \\g => c.s ! g ! Def ! Nom } ; ---- OK? IL
-- UttIAdv iadv = iadv ; -- UttIAdv iadv = iadv ;
UttNP np = {s = \\_ => np.s ! Nom} ; UttNP np = {s = \\_ => np.s ! Nom} ;

2
src/arabic/StructuralAra.gf
View File

@@ -39,7 +39,7 @@ concrete StructuralAra of Structural = CatAra **
-- here7to_Adv = ss ["تْ هري"] ; -- here7to_Adv = ss ["تْ هري"] ;
-- here7from_Adv = ss ["فرْم هري"] ; -- here7from_Adv = ss ["فرْم هري"] ;
how_IAdv = ss "كَيفَ" ; how_IAdv = ss "كَيفَ" ;
-- how8many_IDet = mkDeterminer Pl ["هْو مَني"] ; -- how8many_IDet = mkDet "كَمْ" Pl Const ; -- IL: check (was ["هْو مَني"]) ;
-- if_Subj = ss "ِف" ; -- if_Subj = ss "ِف" ;
in8front_Prep = ss "مُقَابِلَ" ; in8front_Prep = ss "مُقَابِلَ" ;
i_Pron = mkPron "أَنَا" "نِي" "ِي" (Per1 Sing); i_Pron = mkPron "أَنَا" "نِي" "ِي" (Per1 Sing);