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) Add new paradigm for assimilated+defective FormI verbs

Browse Source
This commit is contained in:
Inari Listenmaa
2019-01-09 19:38:47 +02:00
parent 002fea0e66
commit 5a0818920b
2 changed files with 26 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/arabic/ParadigmsAra.gf
View File

@@ -462,9 +462,10 @@ resource ParadigmsAra = open
root = mkRoot3 rootStr root = mkRoot3 rootStr
} in { } in {
s = s =
case root.l of { case rootStr of {
#weak => (v2defective root).s; -- #weak + ? + ? =>
_ => (v2sound root).s ? + ? + #weak => (v2defective root).s;
_ => (v2sound root).s
}; };
lock_V = <> lock_V = <>
}; };

28
src/arabic/ResAra.gf
View File

@@ -622,17 +622,20 @@ v1defForms_perfA : Root3 -> Vowel -> DefForms = \rmy,vowImpf ->
armi armu urma -- VImpf armi armu urma -- VImpf
eirmi eirmu marmiy ; eirmi eirmu marmiy ;
v1defForms_perfI : Root3 -> Vowel -> DefForms = \bqy,vowImpf ->
let vforms_a = v1defForms_perfA bqy vowImpf ;
baqI = mkDefective facIl bqy ;
baqiy = mkDefective facil bqy ;
in table { 0 => baqI ;
1 => baqiy ;
x => vforms_a ! x } ;
v1defective_a : Root3 -> Vowel -> Verb = \rmy,vowImpf -> v1defective_a : Root3 -> Vowel -> Verb = \rmy,vowImpf ->
let vforms = v1defForms_perfA rmy vowImpf let vforms = v1defForms_perfA rmy vowImpf
in verbDef vforms vowImpf ; in verbDef vforms vowImpf ;
v1defective_i : Root3 -> Vowel -> Verb = \bqy,vowImpf -> -- IL (conjugation 1d4) v1defective_i : Root3 -> Vowel -> Verb = \bqy,vowImpf -> -- IL (conjugation 1d4)
let vforms_a = v1defForms_perfA bqy vowImpf ; let vforms_i = v1defForms_perfI bqy vowImpf ;
baqI = mkDefective facIl bqy ;
baqiy = mkDefective facil bqy ;
vforms_i = table { 0 => baqI ;
1 => baqiy ;
x => vforms_a ! x } ;
in verbDef vforms_i vowImpf ; in verbDef vforms_i vowImpf ;
v1doubleweak : Root3 -> Verb = \r'y -> v1doubleweak : Root3 -> Verb = \r'y ->
@@ -647,6 +650,19 @@ v1doubleweak : Root3 -> Verb = \r'y ->
x => vforms_doubleweak ! x } ; x => vforms_doubleweak ! x } ;
in verbDoubleDef vforms a ; -- sukun in suffixes is removed in verbDoubleDef in verbDoubleDef vforms a ; -- sukun in suffixes is removed in verbDoubleDef
v1assimilated_defective : Root3 -> Vowel -> Vowel -> Verb = \root,vPerf,vImpf ->
let vffun = case vPerf of {i => v1defForms_perfI ; _ => v1defForms_perfA} ;
vforms_def : DefForms = vffun root vImpf ;
vforms_ass : DefForms = \\x => rmSukun (vffun (root ** {f = ""}) vImpf ! x) ;
vforms : DefForms =
table { 4 => vforms_ass ! 4 ;
5 => vforms_ass ! 5 ;
6 => vforms_ass ! 6 ;
7 => vforms_ass ! 7 ;
8 => vforms_ass ! 8 ;
9 => vforms_ass ! 9 ;
x => vforms_def ! x } ;
in verbDef vforms vImpf ;
patDef1 : Vowel => Pattern = patDef1 : Vowel => Pattern =
table { table {