(May) Add numerals and digits

src/malay/CatMay.gf

@@ -64,7 +64,7 @@ concrete CatMay of Cat = CommonX ** open ResMay, Prelude in {
     Det = ResMay.Determiner ;
     Predet = SS ;
     Quant = ResMay.Quant ;
-    Num = ResMay.Num ;
+    Num = ResMay.CardNum ;
     Ord = {
       s : Str ; -- AForm => Str ; -- Ord can came from AP and become AP again
       n : Number -- Ord can come from Num, which has inherent number
@@ -76,9 +76,9 @@ concrete CatMay of Cat = CommonX ** open ResMay, Prelude in {
 
 -- Constructed in NumeralMay.
 
-    Card = ResMay.Num ;
-    Numeral = ResMay.Numeral ;
-    Digits = {s : CardOrd => Str ; n : Number} ;
+    Card = ResMay.CardNum ;
+    Numeral = ResMay.CardOrdNum ;
+    Digits = ResMay.DigNum ;
 
 
 

src/malay/NumeralMay.gf

@@ -1,4 +1,158 @@
+-- David Wahlstedt 2002 (cardinal numbers)
+-- Inari Listenmaa 2020 (ordinals + cosmetic changes)
 concrete NumeralMay of Numeral = CatMay [Numeral,Digits] **
-  open Prelude, ResMay, ParamMay in {
+  open Prelude, ResMay in {
 
+  lincat
+    Digit = CardOrdNum ;      -- 2..9
+    Sub10,                    -- 1..9
+    Sub100,                   -- 1..99
+    Sub1000 = LinNumber ;     -- 1..999
+    Sub1000000 = CardOrdNum ; -- 1..999999
+
+  oper
+    LinNumber : Type = {
+      s : DForm => Str ;
+      n : Number ; -- This is an internal number that tells which form of digits to choose. When quantifying a noun, the noun is in singular.
+      ord : Str ;
+      } ;
+
+  lin
+    -- : Sub1000000 -> Numeral ; -- 123456 [coercion to top category]
+    num x = x ;
+
+    -- : Digit ;
+    n2 = mkDigit "dua" ;
+    n3 = mkDigit "tiga" ;
+    n4 = mkDigit "empat" ;
+    n5 = mkDigit "lima" ;
+    n6 = mkDigit "enam" ;
+    n7 = mkDigit "tujuh" ;
+    n8 = mkDigit "lapan" ; -- "delapan" for Indonesian
+    n9 = mkDigit "sembilan" ;
+
+    -- : Sub10 ;                            -- 1
+    pot01 = {
+      s = table {
+            Attrib => [] ;
+            Indep => "satu" } ;
+      n = Sg ;
+      ord = "pertama"
+      } ;
+
+    -- : Digit -> Sub10 ;                   -- d * 1
+    pot0 d = d ** {s = \\_ => d.s} ;
+
+    -- : Sub100 ;                           -- 10
+    pot110 = mkNum "sepuluh" ;
+
+    -- : Sub100 ;                           -- 11
+    pot111 = mkNum "sebelas" ;
+
+    -- : Digit -> Sub100 ;                  -- 10 + d
+    pot1to19 d = mkNum3 d "belas" [] ;
+
+    -- : Sub10 -> Sub100 ;                  -- coercion of 1..9
+    pot0as1 n = n ;
+
+    -- : Digit -> Sub100 ;                  -- d * 10
+    pot1 d = mkNum3 d "puluh" [] ;
+
+    -- : Digit -> Sub10 -> Sub100 ;         -- d * 10 + n
+    pot1plus d e = -- 21 = dua puluh satu, so we choose Indep form of 1.
+      mkNum3 d "puluh" (e.s ! Indep) ;
+
+    -- : Sub100 -> Sub1000 ;                -- coercion of 1..99
+    pot1as2 n = n ;
+
+    -- : Sub10 -> Sub1000 ;                 -- m * 100
+    pot2 d = potNum d ratus [] ;
+
+    -- : Sub10 -> Sub100 -> Sub1000 ;       -- m * 100 + n
+    pot2plus d e = potNum d ratus (e.s ! Indep) ;
+
+    -- : Sub1000 -> Sub1000000 ;            -- coercion of 1..999
+    pot2as3 n = n ** {s = n.s ! Indep} ;
+
+    -- : Sub1000 -> Sub1000000 ;            -- m * 1000
+    pot3 d = pot2as3 (potNum d ribu []) ;
+
+    -- : Sub1000 -> Sub1000 -> Sub1000000 ; -- m * 1000 + n
+    pot3plus d e = pot2as3 (potNum d ribu (e.s ! Indep)) ;
+
+oper
+  ratus : Number*CardOrd => Str = table {                 -- 100
+    <Sg, NCard> => "seratus" ;
+    <Sg, NOrd> => "keseratus" ;
+    <Pl,_> => "ratus"
+    } ;
+
+  ribu : Number*CardOrd => Str = table {                  -- 1000
+    <Sg, NCard> => "seribu" ;
+    <Sg, NOrd> => "keseribu" ;
+    <Pl,_> => "ribu"
+    } ;
+
+  -- To make Sub* funs directly from a string.
+  mkNum : Str -> LinNumber = \s -> {
+    n = Pl ;
+    s = \\_ => s ; -- Indep vs. Attrib only matters for number 1
+    ord = "ke" + s ; -- Works for all but number 1
+    } ;
+
+  mkDigit : Str -> CardOrdNum = \s -> mkNum s ** {s=s} ;
+
+  -- Only for Digit -> Sub*: we won't run into 1 here.
+  mkNum3 : (digit : CardOrdNum) -> (ten,unit : Str) -> LinNumber = \tiga,puluh,dua -> {
+    n = Pl ;
+    s = \\_ => tiga.s ++ puluh ++ dua ;
+    ord = tiga.ord ++ puluh ++ dua
+    } ;
+
+  -- The most general oper for making new numbers out of old ones.
+  potNum : LinNumber -> (Number*CardOrd => Str) -> Str -> LinNumber = \satu,ribuTbl,dua -> {
+    n = Pl ;
+    s = \\_ =>
+      satu.s ! Attrib ++ -- Attrib form is empty string in 1, and normal for others.
+      ribuTbl ! <satu.n, NCard> ++ dua ;
+    ord = case satu.n of {
+      Sg => satu.s ! Attrib ++ ribuTbl ! <Sg, NOrd>  ++ dua ;
+      Pl => satu.ord      ++ ribuTbl ! <Pl, NCard> ++ dua }
+    } ;
+
+  -- Numerals as sequences of digits have a separate, simpler grammar
+  lincat
+    Dig = DigNum ;  -- single digit 0..9
+
+  lin
+    -- : Dig -> Digits ;       -- 8
+    IDig d = d ;
+
+    -- : Dig -> Digits -> Digits ; -- 876
+    IIDig d e = {
+      s = table {
+        NCard => glue (d.s ! NCard) (e.s ! NCard) ;
+        NOrd => glue (d.s ! NOrd) (e.s ! NCard)
+        }
+      } ;
+
+    -- : Dig ;
+    D_0 = mkDig "0" ;
+    D_1 = mkDig "1" ;
+    D_2 = mkDig "2" ;
+    D_3 = mkDig "3" ;
+    D_4 = mkDig "4" ;
+    D_5 = mkDig "5" ;
+    D_6 = mkDig "6" ;
+    D_7 = mkDig "7" ;
+    D_8 = mkDig "8" ;
+    D_9 = mkDig "9" ;
+
+  oper
+    mkDig : Str -> DigNum = \s -> {
+      s = table {
+        NCard => s ;
+        NOrd => "ke-" + s
+        }
+      } ;
 }

src/malay/ResMay.gf

@@ -70,21 +70,25 @@ oper
 --    numtype : NumType ; -- number as in "5" or "Sg/Pl", often makes a difference in lots of things
     } ;
 
-  Num : Type = {
-    s : DForm => Str ; -- independent or attribute
+  CardNum : Type = {
+    s : Str ;
     n : Number
     } ;
 
-  baseNum : Num = {
-    s = \\_ => [] ;
+  baseNum : CardNum = {
+    s = [] ;
     n = Sg ;
     numtype = NoNum
     } ;
 
-  Numeral : Type = Num ** {
+  CardOrdNum : Type = CardNum ** {
     ord : Str
     } ;
 
+  DigNum : Type = {
+    s : CardOrd => Str ;
+    } ;
+
   baseQuant : Quant = {
     s = [] ;
     sp = \\_ => [] ;