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

(Ara) Small bugfixes that came from changing DefForms

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-21 14:01:20 +01:00
parent 1faa9acd93
commit c8523f0413
1 changed files with 4 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/arabic/MorphoAra.gf
View File

@@ -647,12 +647,9 @@ oper
rumi = mkDefective fuci rmy ; rumi = mkDefective fuci rmy ;
rumu = mkDefective fucu rmy ; rumu = mkDefective fucu rmy ;
rumiy = mkStrong fucilo rmy ; rumiy = mkStrong fucilo rmy ;
armi = "َ" + _rmi ; ad3i = "َ" + mkDefective fci rmy ; -- Per2 Sg Fem: always i
armu = "َ" + _rmu ; armu = "َ" + _rmu ; -- Per2/Per3 Pl Masc: always u/a
ad3i = case vowImpf of { armi = "َ" + _rmi ; -- rest of the forms: depends on vowImpf
u => "َ" + mkDefective fci rmy ;
_ => armu
} ;
urma = mkDefective ufca rmy ; urma = mkDefective ufca rmy ;
eirmi = prefixImp ! vowImpf + _rmi; eirmi = prefixImp ! vowImpf + _rmi;
eirmu = prefixImp ! vowImpf + _rmu; eirmu = prefixImp ! vowImpf + _rmu;
@@ -822,7 +819,7 @@ v4doubleweak : Root3 -> Verb = \r'y ->
r' = ry ** {l = "ء"} ; r' = ry ** {l = "ء"} ;
eirA'at = mkStrong eifcAl r' + "َة" ; eirA'at = mkStrong eifcAl r' + "َة" ;
vforms : DefForms = table { vforms : DefForms = table {
11 => rmSukun eirA'at ; 12 => rmSukun eirA'at ;
n => rmSukun (v4DefForms ry ! n) -- only remove the first sukun n => rmSukun (v4DefForms ry ! n) -- only remove the first sukun
} ; } ;
in verbDoubleDef vforms i ; -- sukun in suffixes is removed in verbDoubleDef in verbDoubleDef vforms i ; -- sukun in suffixes is removed in verbDoubleDef