forked from GitHub/gf-rgl
70 lines
2.5 KiB
Plaintext
70 lines
2.5 KiB
Plaintext
concrete NumeralGla of Numeral = CatGla [Numeral,Digits,Decimal] **
|
|
open Prelude, ResGla in {
|
|
|
|
lincat
|
|
Digit, Sub10, Sub100, Sub1000, Sub1000000,
|
|
Sub1000000000, Sub1000000000000, Dig = LinNumeral ;
|
|
|
|
lin
|
|
num x = x ;
|
|
n2 = mkNumeral "dhà" "dàrna" ;
|
|
n3 = mkNumeral "trì" "treas" ;
|
|
n4 = mkNumeral "ceithir" "ceathramh" ;
|
|
n5 = mkNumeral "còig" "còigeamh" ;
|
|
n6 = mkNumeral "sia" "siathamh" ;
|
|
n7 = mkNumeral "seachd" "seachdamh" ;
|
|
n8 = mkNumeral "ochd" "ochdamh" ;
|
|
n9 = mkNumeral "naoi" "naoidheamh" ;
|
|
pot01 = one ;
|
|
pot0 d = d ;
|
|
pot0as1 n = n ;
|
|
pot110 = mkNumeral "deich" "deicheamh" ;
|
|
pot111 = mkNumeral "aon deug" "aonamh deug" ;
|
|
pot1to19 d = join "deug" d ;
|
|
pot1 d = join "deich" d ;
|
|
pot1plus d e = plus (join "deich" d) e ;
|
|
pot1as2 n = n ;
|
|
pot21 = mkNumeral "ceud" "ceudamh" ;
|
|
pot2 d = join "ceud" d ;
|
|
pot2plus d e = plus (join "ceud" d) e ;
|
|
pot2as3 n = n ;
|
|
pot31 = mkNumeral "mìle" "mìleamh" ;
|
|
pot3 d = join "mìle" d ;
|
|
pot3plus d e = plus (join "mìle" d) e ;
|
|
pot3as4 n = n ;
|
|
pot3decimal d = mkNumeral (d.s ++ "mìle") (d.s ++ "mìleamh") ;
|
|
pot41 = mkNumeral "millean" "milleanamh" ;
|
|
pot4 d = join "millean" d ;
|
|
pot4plus d e = plus (join "millean" d) e ;
|
|
pot4as5 n = n ;
|
|
pot4decimal d = mkNumeral (d.s ++ "millean") (d.s ++ "milleanamh") ;
|
|
pot51 = mkNumeral "billean" "billeanamh" ;
|
|
pot5 d = join "billean" d ;
|
|
pot5plus d e = plus (join "billean" d) e ;
|
|
pot5decimal d = mkNumeral (d.s ++ "billean") (d.s ++ "billeanamh") ;
|
|
|
|
IDig d = d ;
|
|
IIDig d ds = {
|
|
s = table {NCard => d.s ! NCard ++ BIND ++ ds.s ! NCard ; NOrd => d.s ! NCard ++ BIND ++ ds.s ! NOrd} ;
|
|
n = Pl
|
|
} ;
|
|
D_0 = digit "0" ; D_1 = digit "1" ; D_2 = digit "2" ; D_3 = digit "3" ;
|
|
D_4 = digit "4" ; D_5 = digit "5" ; D_6 = digit "6" ; D_7 = digit "7" ;
|
|
D_8 = digit "8" ; D_9 = digit "9" ;
|
|
PosDecimal ds = {s = ds.s ! NCard} ;
|
|
NegDecimal ds = {s = "-" ++ BIND ++ ds.s ! NCard} ;
|
|
IFrac d x = {s = d.s ++ "." ++ x.s ! NCard} ;
|
|
|
|
oper
|
|
one : LinNumeral = {s = table {NCard => "aon" ; NOrd => "ciad"} ; n = Sg} ;
|
|
digit : Str -> LinNumeral = \x -> {s = table {NCard => x ; NOrd => x} ; n = Pl} ;
|
|
join : Str -> LinNumeral -> LinNumeral = \unit,n -> {
|
|
s = table {NCard => n.s ! NCard ++ unit ; NOrd => n.s ! NCard ++ unit} ; n = Pl
|
|
} ;
|
|
plus : LinNumeral -> LinNumeral -> LinNumeral = \x,y -> {
|
|
s = table {NCard => x.s ! NCard ++ "'s" ++ y.s ! NCard ;
|
|
NOrd => x.s ! NCard ++ "'s" ++ y.s ! NOrd} ;
|
|
n = Pl
|
|
} ;
|
|
}
|