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

debugging arabic

Browse Source
This commit is contained in:
aarne
2008-06-26 21:40:21 +00:00
parent c0fa3cea36
commit e25f1cbea2
2 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
resource/arabic/OrthoAra.gf
View File

@@ -1,5 +1,7 @@
resource OrthoAra = open Prelude, Predef in { resource OrthoAra = open Prelude, Predef in {
flags coding=utf8 ;
oper oper
rectifyHmz: Str -> Str = \word -> rectifyHmz: Str -> Str = \word ->

5
resource/arabic/ParadigmsAra.gf
View File

@@ -27,7 +27,7 @@ resource ParadigmsAra = open
Predef, Predef,
Prelude, Prelude,
MorphoAra, MorphoAra,
OrthoAra, OrthoAra,(ResAra=ResAra),
CatAra CatAra
in { in {
@@ -206,7 +206,8 @@ resource ParadigmsAra = open
lock_V = <> lock_V = <>
} ; } ;
va : Vowel = ResAra.a ;
v1' : Str -> Vowel -> Vowel -> Verb = v1' : Str -> Vowel -> Vowel -> Verb =
\rootStr,vPerf,vImpf -> \rootStr,vPerf,vImpf ->
let { root = mkRoot3 rootStr ; let { root = mkRoot3 rootStr ;