From 1afa6540d21b24740b0047a5099053a5ff57dc4e Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 8 Dec 2009 07:32:46 +0000
Subject: [PATCH] making Arabic minimal compile; strange chars remain

---
 src/api/Constructors.gf    | 8 ++++----
 src/arabic/MorphoAra.gf    | 6 +++---
 src/arabic/ParadigmsAra.gf | 2 +-
 3 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/src/api/Constructors.gf b/src/api/Constructors.gf
index 923f0e28f..a4396cb09 100644
--- a/src/api/Constructors.gf
+++ b/src/api/Constructors.gf
@@ -1789,7 +1789,7 @@ incomplete resource Constructors = open Grammar in {
 
 -- numerals from strings
 
-oper
+oper --# notminimal
   str2ord : Str -> Ord = \s -> case Predef.lessInt (Predef.length s) 7 of {
     Predef.PTrue  => OrdNumeral (str2numeral s) ;
     Predef.PFalse => OrdDigits (str2digits s)
@@ -1802,9 +1802,9 @@ oper
 
   str2numeral : Str -> Numeral = (\s -> case s of {
     m@(? + _) + "000"            => num (pot3 (s2s1000 m)) ;
-    m@(? + _) + "00" + n@?       => num (pot3plus (s2s1000 m) (s2s1000 n)) ;
-    m@(? + _) + "0"  + n@(? + ?) => num (pot3plus (s2s1000 m) (s2s1000 n)) ;
-    m@(? + _) + n@(? + ? + ?)    => num (pot3plus (s2s1000 m) (s2s1000 n)) ;
+    m@(? + _) + "00" + n@?       => num (pot3plus (s2s1000 m) (s2s1000 n)) ; --# notminimal
+    m@(? + _) + "0"  + n@(? + ?) => num (pot3plus (s2s1000 m) (s2s1000 n)) ; --# notminimal
+    m@(? + _) + n@(? + ? + ?)    => num (pot3plus (s2s1000 m) (s2s1000 n)) ; --# notminimal
     _ => num (pot2as3 (s2s1000 s))
     }) 
   where {
diff --git a/src/arabic/MorphoAra.gf b/src/arabic/MorphoAra.gf
index 8846e11a6..a6c2267d2 100644
--- a/src/arabic/MorphoAra.gf
+++ b/src/arabic/MorphoAra.gf
@@ -41,9 +41,9 @@ flags optimize = all ;--noexpand;  coding=utf8 ;
     
     vowel : Case => Str = 
       table {
-        Nom => "ُ";
-        Acc => "َ";
-        Gen => "ِ"
+        Nom =>  "ُ";
+        Acc =>  "َ";
+        Gen =>  "ِ"
       };
 
 }
diff --git a/src/arabic/ParadigmsAra.gf b/src/arabic/ParadigmsAra.gf
index 9e9a1c598..75cccff5b 100644
--- a/src/arabic/ParadigmsAra.gf
+++ b/src/arabic/ParadigmsAra.gf
@@ -355,7 +355,7 @@ resource ParadigmsAra = open
 
   -- e.g. al-jamii3, 2a7ad
   regNP : Str -> Number -> NP = \word,n ->
-    { s = \\c => word + vowel ! c ;
+    { s = \\c => word ++ vowel ! c ; ---- gives strange chars
       a = {pgn = Per3 Masc n; isPron = False };
       lock_NP = <>
     };