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

(Ara) Add v4assimilated

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-15 10:32:01 +01:00
parent c021129cda
commit e44440928a
3 changed files with 14 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
src/arabic/ParadigmsAra.gf
View File

@@ -474,6 +474,7 @@ resource ParadigmsAra = open
\rootStr ->
let root : Root3 = mkRoot3 rootStr ;
verb : Verb = case rootStr of {
#weak + ? + ? => v4assimilated root ;
? + #hamza + #weak => v4doubleweak root ;
? + #weak + ? => v4hollow root ;
_ + #weak => v4defective root ;

1
src/arabic/PatternsAra.gf
View File

@@ -48,6 +48,7 @@ flags coding=utf8 ;
eafcal = { h = "أَ"; m1 = "ْ" ; m2 = "َ" ; t = "" } ;
eafcAl = { h = "أَ"; m1 = "ْ" ; m2 = "َا" ; t = "" } ;
eifcAl = { h = "إِ"; m1 = "ْ" ; m2 = "َا" ; t = "" } ;
eIfcAl = eifcAl ** {h = "إِي"} ;
eafcil = { h = "أَ"; m1 = "ْ" ; m2 = "ِ" ; t = "" } ;
eafcul = { h = "أَ"; m1 = "ْ" ; m2 = "ُ" ; t = "" } ;
eiftacal = { h = "إِ"; m1 = "ْتَ" ; m2 = "َ" ; t = "" } ;

15
src/arabic/ResAra.gf
View File

@@ -727,8 +727,7 @@ v3sound : Root3 -> Verb =
mutAbacAt = mutAbac + "َاَة"
} in verb tAbac twbic utAbic utAbac tAbic mutAbac mutAbacAt ;
v4sound : Root3 -> Verb =
\qnc ->
v4soundForms : Root3 -> SoundForms = \qnc ->
let {
eaqnac = mkStrong eafcal qnc;
euqnic = mkStrong eufcil qnc;
@@ -738,7 +737,17 @@ v4sound : Root3 -> Verb =
muqnac = "م" + uqnac;
eiqnAc = mkStrong eifcAl qnc
} in
verb eaqnac euqnic uqnic uqnac eaqnic muqnac eiqnAc;
toSoundForms eaqnac euqnic uqnic uqnac eaqnic muqnac eiqnAc;
v4sound : Root3 -> Verb = \qnc ->
verb' (v4soundForms qnc) ;
-- TODO: other differences
v4assimilated : Root3 -> Verb = \wqf ->
let eIqAf = mkStrong eIfcAl (wqf ** {f=""}) ;
vforms_snd = v4soundForms wqf ;
vforms_ass = table {6 => eIqAf ; n => vforms_snd ! n}
in verb' vforms_ass ;
v4hollow : Root3 -> Verb =
\rwd ->