debugging arabic

2008-06-26 21:40:21 +00:00
parent d1a491653c
commit 334394f3ea
3 changed files with 60 additions and 48 deletions
--- a/lib/resource/arabic/OrthoAra.gf
+++ b/lib/resource/arabic/OrthoAra.gf
@@ -1,5 +1,7 @@
 resource OrthoAra = open Prelude, Predef in {

+flags coding=utf8 ;
+
  oper
    
    rectifyHmz: Str -> Str = \word ->
--- a/lib/resource/arabic/ParadigmsAra.gf
+++ b/lib/resource/arabic/ParadigmsAra.gf
@@ -27,7 +27,7 @@ resource ParadigmsAra = open
  Predef, 
  Prelude, 
  MorphoAra,
-  OrthoAra,
+  OrthoAra,(ResAra=ResAra),
  CatAra
  in {

@@ -206,7 +206,8 @@ resource ParadigmsAra = open
      lock_V = <>
    } ;
  
-  
+  va : Vowel = ResAra.a ;
+
  v1' : Str ->  Vowel -> Vowel -> Verb = 
    \rootStr,vPerf,vImpf ->
    let { root = mkRoot3 rootStr ;