debugging arabic

lib/resource/arabic/OrthoAra.gf

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

lib/resource/arabic/ParadigmsAra.gf

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

src/GFI.hs

@@ -55,8 +55,16 @@ loop opts gfenv0 = do
     pwords = case words s of
       w:ws -> getCommandOp w :ws
       ws -> ws
-  r <- runInterruptibly $ case pwords of
+  
   -- special commands, requiring source grammar in env
+
+  case pwords of
+
+      "q":_  -> putStrLn "See you." >> return gfenv
+
+      _ -> do
+        r <- runInterruptibly $ case pwords of
+
           "!":ws -> do
              system $ unwords ws
              loopNewCPU gfenv
@@ -65,14 +73,16 @@ loop opts gfenv0 = do
                (style,term) = case ws of 
                  ('-':w):ws2 -> (pTermPrintStyle w, ws2)
                  _ -> (TermPrintDefault, ws)
-       case pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr of   ---- pipe!
+             case pTerm (unwords term) >>= checkTerm sgr >>= computeTerm sgr of
                Ok  x -> putStrLn $ enc (showTerm style x)
                Bad s -> putStrLn $ enc s
              loopNewCPU gfenv
           "i":args -> do
               gfenv' <- case parseOptions args of
-                    Ok (opts',files) -> importInEnv gfenv (addOptions opts opts') files
+                          Ok (opts',files) -> 
-                    Bad err -> do putStrLn $ "Command parse error: " ++ err
+                            importInEnv gfenv (addOptions opts opts') files
+                          Bad err -> do 
+                            putStrLn $ "Command parse error: " ++ err
                             return gfenv
               loopNewCPU gfenv'
 
@@ -99,11 +109,10 @@ loop opts gfenv0 = do
                  }
                _ -> putStrLn "value definition not parsed" >> loopNewCPU gfenv
 
-    "ph":_ -> mapM_ (putStrLn . enc) (reverse (history gfenv0)) >> loopNewCPU gfenv
+          "ph":_ -> 
+            mapM_ (putStrLn . enc) (reverse (history gfenv0)) >> loopNewCPU gfenv
           "se":c -> loopNewCPU $ gfenv {coding = s}
 
-    "q":_  -> putStrLn "See you." >> return gfenv
-
   -- ordinary commands, working on CommandEnv
           _ -> do
             interpretCommandLine enc env s