GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-30 11:08:35 -06:00
Code Issues Packages Projects Releases Wiki 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
src/arabic/ResAra.gf
+12 -3
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 ->