20071225_ArabicRG

lib/resource/arabic/NumeralAra.gf

@@ -5,115 +5,150 @@ concrete NumeralAra of Numeral = CatAra **
 
 lincat 
 
-  Digit = {s : DForm => Gender => State => Case => Str ;
+  Digit = {s : DForm => CardOrd => Gender => State => Case => Str ;
            n : Size } ;
-  Sub10 = {s : DForm => Gender => State => Case => Str ; 
+  Sub10 = {s : DForm => CardOrd => Gender => State => Case => Str ; 
            n : Size } ;
-  Sub100 = {s : Gender => State => Case => Str ; 
-            n : Size} ;
-  Sub1000 = {s : Gender => State => Case => Str ; 
-            n : Size } ;
-  Sub1000000 = {s : Gender => State => Case => Str ; 
+  Sub100 = {s : CardOrd => Gender => State => Case => Str ; 
             n : Size} ;
+  Sub1000 = {s : CardOrd => Gender => State => Case => Str ; 
+             n : Size } ;
+  Sub1000000 = {s : CardOrd => Gender => State => Case => Str ; 
+                n : Size} ;
+  
 
+  
+  lin num x = x ;
+      
+  lin n2 = num2 ** {n = Two };
 
+  lin n3 = num3_10  "ثَلاث" "ثالِث";  
+  lin n4 = num3_10  "أَربَع" "رابِع"; 
+  lin n5 = num3_10  "خَمس"  "خامِس";   
+  lin n6 = num3_10  "سِتّ"   "سادِس";   
+  lin n7 = num3_10  "سَبع"  "سابِع";   
+  lin n8 = num3_10  "ثَمانِي" "ثامِن"; 
+  lin n9 = num3_10  "تِسع"  "تاسِع";   
 
-lin num x = x ;
+  lin pot01 = mkNum "واحِد" "أَوَّل" "أُولى" ** { n = One } ;
 
+  lin pot0 d = d ;
 
-lin n2 = num2 ** {n = Two };
-
-
-lin n3 = num3_10   "ثَلاث";  
-lin n4 = num3_10  "أَربَع"; 
-lin n5 = num3_10    "خَمس";   
-lin n6 = num3_10    "سِتّ";   
-lin n7 = num3_10    "سَبع";   
-lin n8 = num3_10  "ثَمانِي"; 
-lin n9 = num3_10    "تِسع";   
-
-
-lin pot01 = num1_10 "واحِد" ** { n = One } ;
-
-lin pot0 d = d ;
-
-lin pot110 = 
-      { s= ((num3_10  "عَشر").s ! unit ) ;
+  lin pot110 = { 
+        s= ((num3_10  "عَشر" "عاشِر").s ! unit ) ;
         n = ThreeTen
-      };
-lin pot111 = 
-      { s = \\g,d,_ => 
+        };
+
+  lin pot111 = { 
+        s = \\_,g,d,_ => 
           case g of {
             Masc => Al ! d + "أَحَدَ" ++ teen ! Masc ;
             Fem => Al ! d + "إِحدَى" ++ teen ! Fem
           };
         n = NonTeen
-      };
-
-lin pot1to19 dig = 
-      { s = \\g,d,c => 
-          case dig.n of {
-            Two => Al ! d + num2.s ! unit ! g ! Const ! c ++ teen ! g  ;
-            _ => dig.s ! unit ! g ! (toDef d ThreeTen) ! Acc ++ 
-              teen ! (genPolarity ! g) 
-          };
-        n = case dig.n of {
-          Two => NonTeen;
-          _ => Teen
-          }
-      };
-
-lin pot0as1 num = 
-      { s= num.s ! unit;
+        };
+      
+  lin pot1to19 dig = { 
+       s = \\co,g,d,c => case dig.n of {
+         Two => Al ! d + num2.s ! unit ! co ! g ! Const ! c ++ teen ! g ;
+         _ => dig.s ! unit ! co ! g ! (toDef d ThreeTen) ! Acc ++ 
+           teen ! (genPolarity ! g) 
+         };
+       n = case dig.n of {
+         Two => NonTeen;
+         _ => Teen
+         }
+       };
+      
+  lin pot0as1 num = { 
+        s= num.s ! unit;
         n = num.n
-      } ;
-
-lin pot1 dig = 
-      { s = dig.s ! ten;
+        } ;
+      
+  lin pot1 dig = { 
+        s = dig.s ! ten;
         n = NonTeen
-      };
+        } ;
+      
+  lin pot1plus dig n = {
+        s = \\co,g,d,c => n.s ! unit ! co ! g ! d ! c 
+          ++ "وَ" ++ dig.s ! ten ! co ! g ! d ! c ;
+        n = NonTeen
+        };
 
-lin pot1plus dig n = {
-      s = \\g,d,c => n.s ! unit ! g ! d ! c 
-           ++ "وَ" ++ dig.s ! ten ! g ! d ! c ;
-      n = NonTeen
-      };
+  lin pot1as2 n = n ;
 
-lin pot1as2 n = n ;
-
-lin pot2 dig = {
-      s = \\g,d,c => 
-        case dig.n of {
-          One => num100 ! d ! c ;
-          Two => num200 ! d ! c ;
-          _ => dig.s ! unit ! Masc ! (toDef d ThreeTen) ! c ++ "مِٱَةِ"
+  lin pot2 dig = {
+      s = \\co,_,d,c => case dig.n of {
+        One => num100 ! d ! c ;
+        Two => num200 ! d ! c ;
+        _ => dig.s ! unit ! co ! Masc ! (toDef d ThreeTen) ! c ++ "مِٱَةِ"
         };
       n = Hundreds
-      };
+     };
+      
+  lin pot2plus m e = {
+       s = \\co,g,d,c => case m.n of {
+         One => num100 ! d ! c;
+         Two => num200 ! d ! c;
+         _ => m.s ! unit ! co ! Masc ! (toDef d ThreeTen) ! c ++ "مِٱَةٌ"
+         } ++ "وَ" ++ e.s ! co ! g ! d ! c ;
+       n = e.n 
+       };
 
-lin pot2plus m e = {
-      s = \\g,d,c => 
-        case m.n of {
-          One => num100 ! d ! c;
-          Two => num200 ! d ! c;
-          _ => m.s ! unit ! Masc ! (toDef d ThreeTen) ! c ++ "مِٱَةٌ"
-        } ++ "وَ" ++ e.s ! g ! d ! c ;
-      n = e.n 
-      };
-        
-
-lin pot2as3 n = n ;
-
-lin pot3 m = {
-      s = \\g,d,c =>
-        case m.n of {
+  lin pot2as3 n = n ;
+      
+  lin pot3 m = {
+        s = \\co,_,d,c => case m.n of {
           One => num1000 ! (definite ! d) ! c;
           Two => num2000 ! (definite ! d) ! c;
-          _ => m.s ! Fem ! (toDef d ThreeTen) ! c ++ "آلافٌ"
-        } ;
-      n = m.n 
-      };
+          _ => m.s ! co ! Fem ! (toDef d ThreeTen) ! c ++ "آلافٌ"
+          } ;
+        n = m.n 
+        };
 --lin pot3plus n m = {
 --  s = \\c => n.s ! NCard ++ "تهُْسَند" ++ m.s ! c ; n = Pl} ;
 
+-- numerals as sequences of digits
+
+  lincat 
+    Dig = Digits ;  
+--   Numeral,Digits = {s : Gender => State => Case => Str ; 
+--               n : Size } ;
+
+
+  lin
+    IDig d = d ;
+
+    IIDig d i = {
+      s = d.s ++ i.s;
+      n = ThreeTen ;
+    } ;
+
+    D_0 = mk1Dig "0" ;
+    D_1 = mk2Dig "1" One ;
+    D_2 = mk2Dig "2" Two ;
+    D_3 = mk1Dig "3" ;
+    D_4 = mk1Dig "4" ;
+    D_5 = mk1Dig "5" ;
+    D_6 = mk1Dig "6" ;
+    D_7 = mk1Dig "7" ;
+    D_8 = mk1Dig "8" ;
+    D_9 = mk1Dig "9" ;
+
+  oper
+
+
+    mk2Dig : Str -> Size -> Digits = \str,sz -> {
+      s = str ;
+      n = sz ;
+      lock_Digits = <>
+      };
+
+    mk1Dig : Str -> Digits = \str -> {
+      s = str ;
+      n = ThreeTen;
+      lock_Digits = <>
+      };
+
 }