mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-18 07:40:16 -06:00
88 lines
2.9 KiB
Plaintext
88 lines
2.9 KiB
Plaintext
concrete NumeralSwa of Numeral = CatSwa [Numeral,Digits] **
|
|
open Prelude,DiffSwa,MorphoSwa in {
|
|
|
|
lincat
|
|
Digit = {s : DForm => CardOrd => Gender => Str} ;
|
|
Sub10 = {s : DForm => CardOrd => Gender => Str ; n : Number} ;
|
|
Sub100 = {s : CardOrd => Gender => Str ; n : Number} ;
|
|
Sub1000 = {s : CardOrd => Gender => Str ; n : Number} ;
|
|
Sub1000000 = {s : CardOrd => Gender => Str ; n : Number} ;
|
|
|
|
lin num x = x ;
|
|
lin n2 = mkNumn "ili" "ishirini" "pili" ;
|
|
lin n3 = mkNum "tatu" "thelathini" ;
|
|
lin n4 = mkNum "nne" "arobaini" ;
|
|
lin n5 = mkNum "tano" "hamsini" ;
|
|
lin n6 = regNum "sita" "sitini";
|
|
lin n7 = regNum "saba" "sabini";
|
|
lin n8 = regNum "nane" "themanini";
|
|
lin n9 = regNum "tisa" "tisini" ;
|
|
|
|
lin pot01 = mkNume "moja" "kwanza" ** {n = Sg} ;
|
|
lin pot0 d = d ** {n = Pl} ;
|
|
lin pot110 = regCardOrd "kumi" ** {n = Pl} ;
|
|
lin pot111 = regCardone "kumi na" "moja" ** {n = Pl} ; -- creat another function to be gender specific
|
|
lin pot1to19 d = {s = d.s ! teen} ** {n = Pl} ;
|
|
lin pot0as1 n = {s = n.s ! unit} ** {n = n.n} ;
|
|
lin pot1 d = {s = d.s ! ten} ** {n = Pl} ;
|
|
lin pot1plus d e = { s = table {
|
|
NCard => \\g => d.s ! ten ! NCard ! g ++ "na"++ e.s ! unit ! NCard ! g ;
|
|
NOrd => \\g =>Ordprefix g++ d.s ! ten ! NCard ! g ++ "na"++ e.s ! unit ! NCard ! g } ;
|
|
n = Pl} ;
|
|
lin pot1as2 n = n ;
|
|
lin pot2 d = {s = d.s ! hund} ** {n = Pl} ;
|
|
lin pot2plus d e = {s = table {
|
|
NCard => \\g => d.s ! hund ! NCard ! g ++ "na" ++ e.s !NCard ! g ;
|
|
NOrd => \\g =>Ordprefix g++ d.s ! hund ! NCard ! g ++ "na" ++ e.s ! NCard ! g } ;
|
|
n = Pl} ;
|
|
lin pot2as3 n = n ;
|
|
lin pot3 n = { s = table {
|
|
NCard => \\g => mkCard NCard "elfu" ! g ++ n.s ! NCard ! g ;
|
|
NOrd => \\g =>Ordprefix g++ mkCard NCard "elfu" ! g ++ n.s ! NCard ! g } ;
|
|
n = Pl} ;
|
|
lin pot3plus n m = { s = table {
|
|
NCard => \\g => "elfu" ++ n.s ! NCard !g ++ m.s ! NCard ! g ;
|
|
NOrd => \\g =>Ordprefix g++ "elfu" ++ n.s ! NCard !g ++ m.s ! NCard ! g} ;
|
|
n = Pl} ;
|
|
|
|
-- numerals as sequences of digits0'
|
|
|
|
lincat
|
|
Dig = TDigit ;
|
|
|
|
lin
|
|
IDig d = d ;
|
|
|
|
IIDig d i = {
|
|
--s = \\o,g => d.s ! NCard ! g ++ i.s ! o ! g ;
|
|
s = table {NCard => \\g => d.s! NCard ! g ++ BIND ++ i.s ! NCard ! g ;
|
|
NOrd => \\g => d.s! NOrd! g ++ BIND ++ i.s !NCard! g } ;
|
|
n = Pl
|
|
} ;
|
|
|
|
D_0 = mkDig "0" ;
|
|
D_1 = mk3Dig "1" "1" Sg ;
|
|
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
|
|
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
|
|
mkDig : Str -> TDigit = \c -> mk2Dig c (c ) ;
|
|
|
|
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
|
|
s = table {NCard => \\g => c ; NOrd => \\g =>Ordprefix g ++ o} ; --Ordprefix g ++
|
|
n = n} ;
|
|
|
|
TDigit = {
|
|
n : Number ;
|
|
s : CardOrd => Gender => Str
|
|
} ;
|
|
|
|
}
|