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

(Ara) Add paradigm for doubly weak v1

Browse Source
This commit is contained in:
Inari Listenmaa
2018-11-12 16:31:09 +01:00
parent 87613d464c
commit 4d35a0206c
2 changed files with 15 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/arabic/ParadigmsAra.gf
View File

@@ -374,15 +374,15 @@ resource ParadigmsAra = open
v1' : Str -> Vowel -> Vowel -> Verb = v1' : Str -> Vowel -> Vowel -> Verb =
\rootStr,vPerf,vImpf -> \rootStr,vPerf,vImpf ->
let { root = mkRoot3 rootStr } in let root = mkRoot3 rootStr
case <root.l, root.c> of { in case rootStr of {
<"ّ", _> => v1geminate rootStr vPerf vImpf ; _ + "ّ" => v1geminate rootStr vPerf vImpf ;
<"و"|"ي",_> => case vPerf of { ? + #hamza + #weak => v1doubleweak root ;
? + ? + #weak => case vPerf of {
i => v1defective_i root vImpf ; i => v1defective_i root vImpf ;
_ => v1defective_a root vImpf } ; _ => v1defective_a root vImpf } ;
<_,"و"|"ي"> => v1hollow root vImpf ; ? + #weak + ? => v1hollow root vImpf ;
_ => v1sound root vPerf vImpf _ => v1sound root vPerf vImpf } ;
};
v2 = v2 =
\rootStr -> \rootStr ->

7
src/arabic/ResAra.gf
View File

@@ -553,6 +553,12 @@ v1defective_i : Root3 -> Vowel -> Verb = \bqy,vowImpf -> -- IL (conjugation 1d4)
x => vforms_a ! x } ; x => vforms_a ! x } ;
in verbDef vforms_i vowImpf ; in verbDef vforms_i vowImpf ;
v1doubleweak : Root3 -> Verb = \r'y ->
let ry = r'y ** {c = ""} ;
vforms : DefForms = \\x => rmSukun (v1DefForms_perfA ry a ! x) ; -- only remove the first sukun
in verbDoubleDef vforms i ; -- sukun in suffixes is removed in verbDoubleDef
patDef1 : Vowel => Pattern = patDef1 : Vowel => Pattern =
table { table {
u => fcu ; u => fcu ;
@@ -642,7 +648,6 @@ v4doubleweak : Root3 -> Verb = \r'y ->
vforms : DefForms = \\x => rmSukun (v4DefForms ry ! x) ; -- only remove the first sukun vforms : DefForms = \\x => rmSukun (v4DefForms ry ! x) ; -- 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
v5sound : Root3 -> Verb = v5sound : Root3 -> Verb =
\nfs -> \nfs ->
let { let {