mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-30 02:58:35 -06:00
add first changes
This commit is contained in:
odanoburu
+123
-98
@@ -1,111 +1,123 @@
|
||||
concrete NumeralPor of Numeral = CatPor [Numeral,Digits] **
|
||||
concrete NumeralPor of Numeral = CatPor [Numeral,Digits] **
|
||||
open CommonRomance, ResRomance, MorphoPor, Prelude in {
|
||||
flags coding=utf8 ;
|
||||
|
||||
lincat
|
||||
lincat
|
||||
Digit = {s : DForm => CardOrd => Str} ;
|
||||
Sub10 = {s : DForm => CardOrd => Str ; n : Number} ;
|
||||
Sub100 = {s : CardOrd => Str ; n : Number} ;
|
||||
Sub1000 = {s : CardOrd => Str ; n : Number} ;
|
||||
Sub1000000 = {s : CardOrd => Str ; n : Number} ;
|
||||
|
||||
lin num x = x ;
|
||||
lin
|
||||
num x = x ;
|
||||
|
||||
lin n2 =
|
||||
mkTal "dos" "doce" "veinte" "doscientos"
|
||||
"segundo" "duodécimo" "vigésimo" "ducentésimo" ;
|
||||
lin n3 =
|
||||
mkTal "tres" "trece" "treinta" "trescientos"
|
||||
"tercero" "decimotercero" "trigésimo" "tricentesimo" ;
|
||||
lin n4 =
|
||||
mkTal "cuatro" "catorce" "cuarenta" "cuatrocientos"
|
||||
"cuarto" "decimocuarto" "cuadragésimo" "cuadringentesimo" ;
|
||||
lin n5 =
|
||||
mkTal "cinco" "quince" "cincuenta" "quinientos"
|
||||
"quinto" "decimoquinto" "quincuagésimo" "guingentésimo" ;
|
||||
lin n6 =
|
||||
mkTal "seis" "dieciséis" "sesenta" "seiscientos"
|
||||
"sexto" "decimosexto" "sexagésimo" "sexcentesimo" ;
|
||||
lin n7 =
|
||||
mkTal "siete" "diecisiéte" "setenta" "setecientos"
|
||||
"séptimo" "decimoséptimo" "septuagésimo" "septingentesimo" ;
|
||||
lin n8 =
|
||||
mkTal "ocho" "dieciocho" "ochenta" "ochocientos"
|
||||
"octavo" "decimoctavo" "octogésimo" "octingentésimo" ;
|
||||
lin n9 =
|
||||
mkTal "nueve" "diecinueve" "noventa" "novecientos"
|
||||
"noveno" "decimonoveno" "nonagésimo" "noningentésimo" ;
|
||||
-- digits
|
||||
n2 = let dois = mkTal "dois" "doze" "vinte" "duzentos"
|
||||
"segundo" "vigésimo" "duocentésimo"
|
||||
in {s =\\f,g => case <f, g> of {
|
||||
<unit, NCard Fem> => "duas" ;
|
||||
_ => dois.s ! f ! g
|
||||
}
|
||||
} ;
|
||||
n3 =
|
||||
mkTal "três" "treze" "trinta" "trezentos"
|
||||
"terceiro" "trigésimo" "tricentésimo" ;
|
||||
n4 =
|
||||
mkTal "quatro" (variants {"catorze" ; "quatorze"}) "quarenta"
|
||||
"quatrocentos" "quarto" "quadragésimo" "quadringentésimo" ;
|
||||
n5 =
|
||||
mkTal "cinco" "quinze" "cinquenta" "quinhentos"
|
||||
"quinto" "quinquagésimo" "guingentésimo" ;
|
||||
n6 =
|
||||
mkTal "seis" (variants {"dezesseis"; "dezasseis"})
|
||||
"sessenta" "seiscentos" "sexto" "sexagésimo" "sexcentésimo" ;
|
||||
n7 =
|
||||
mkTal "sete" (variants {"dezessete" ; "dezassete"}) "setenta"
|
||||
"setecentos" "sétimo" "septuagésimo" "septingentésimo" ;
|
||||
n8 =
|
||||
mkTal "oito" "dezoito" "oitenta" "oitocentos"
|
||||
"oitavo" "octogésimo" "octingentésimo" ;
|
||||
n9 =
|
||||
mkTal "nove" (variants {"dezenove" ; "dezanove"}) "noventa"
|
||||
"novecentos" "nono" "nonagésimo" "noningentésimo";
|
||||
|
||||
lin pot01 =
|
||||
let uno = (mkTal "uno" "once" "diez" "ciento" "primero" "undécimo"
|
||||
"décimo" "centésimo").s in
|
||||
{s =\\f,g => case <f,g> of {
|
||||
<ental pred,_> => [] ;
|
||||
<ental _, NCard Masc> => "un" ;
|
||||
<ental _, NCard Fem> => "una" ;
|
||||
<hundra False, NCard _> => "cien" ;
|
||||
<hundra True, NCard Fem> => "ciento" ;
|
||||
_ => uno ! f ! g
|
||||
} ;
|
||||
n = Sg
|
||||
} ;
|
||||
pot01 =
|
||||
let um = (mkTal "um" "onze" "dez" "cento" "primeiro"
|
||||
"décimo" "centésimo").s in
|
||||
{s =\\f,g => case <f,g> of {
|
||||
<unit, NCard Masc> => "um" ;
|
||||
<unit, NCard Fem> => "uma" ;
|
||||
_ => um ! f ! g
|
||||
} ;
|
||||
n = Sg
|
||||
} ;
|
||||
|
||||
lin pot0 d = {s = d.s ; n = Pl} ;
|
||||
lin pot110 = spl ((mkTal "diez" [] [] [] "decimo" [] [] []).s ! ental indip) ;
|
||||
lin pot111 = spl ((mkTal "once" [] [] [] "undécimo" [] [] []).s ! ental indip) ;
|
||||
lin pot1to19 d = spl (d.s ! ton) ;
|
||||
lin pot0as1 n = {s = n.s ! ental indip ; n = n.n} ;
|
||||
lin pot1 d = spl (d.s ! tiotal) ;
|
||||
lin pot1plus d e =
|
||||
{s = \\g => d.s ! tiotal ! g ++ y_CardOrd g ++ e.s ! ental indip ! g ; n = Pl} ;
|
||||
lin pot1as2 n = n ;
|
||||
lin pot2 d = spl (d.s ! hundra False) ;
|
||||
lin pot2plus d e =
|
||||
{s = \\g => d.s ! hundra True ! g ++ e.s ! g ; n = Pl} ;
|
||||
lin pot2as3 n = n ;
|
||||
lin pot3 n = spl (\\g => n.s ! NCard Masc ++ mil g) ;
|
||||
lin pot3plus n m = {s = \\g => n.s ! NCard Masc ++ mil g ++ m.s ! g ; n = Pl} ;
|
||||
pot0 d = {s = d.s ; n = Pl} ;
|
||||
pot110 = spl (pot01.s ! ten) ;
|
||||
pot111 = spl (pot01.s ! teen) ;
|
||||
pot1to19 d = spl (d.s ! teen) ;
|
||||
pot0as1 n = {s = n.s ! unit ; n = n.n} ;
|
||||
pot1 d = spl (d.s ! ten) ;
|
||||
pot1plus d e =
|
||||
{s = \\g => d.s ! ten ! g
|
||||
++ e_CardOrd g ++ e.s ! unit ! g ;
|
||||
n = Pl} ;
|
||||
pot1as2 n = n ;
|
||||
pot2 d =
|
||||
let n = case d.n of {
|
||||
Sg => mkTal [] [] [] "cem" [] [] "centésimo" ;
|
||||
_ => d
|
||||
}
|
||||
in spl (n.s ! hundred) ;
|
||||
pot2plus d e =
|
||||
{s = \\g => d.s ! hundred ! g
|
||||
++ e_CardOrd g ++ e.s ! g ;
|
||||
n = Pl} ;
|
||||
pot2as3 n = n ;
|
||||
pot3 n = spl (\\g => n.s ! NCard Masc ++ mil g) ;
|
||||
pot3plus n m = {s = \\g => n.s ! NCard Masc
|
||||
++ mil g ++ e_CardOrd g
|
||||
++ m.s ! g ;
|
||||
n = Pl} ;
|
||||
|
||||
oper
|
||||
mkTal : (x1,_,_,_,_,_,_,x8 : Str) -> {s : DForm => CardOrd => Str} =
|
||||
\due,dodici,venti,ducento,secondo,dodicesimo,ventesimo,ducentesimo ->
|
||||
{s = \\d,co => case <d,co> of {
|
||||
<ental _, NCard _> => due ;
|
||||
<ental _, NOrd g n> => pronForms (adjSolo secondo) g n ;
|
||||
<tiotal, NCard _> => venti ;
|
||||
<tiotal, NOrd g n> => regCard ventesimo g n ;
|
||||
<ton, NCard _> => dodici ;
|
||||
<ton, NOrd g n> => regCard dodicesimo g n ;
|
||||
<hundra _, NCard Masc> => ducento ;
|
||||
<hundra _, NCard Fem> => Predef.tk 2 ducento + "as" ;
|
||||
<hundra _, NOrd g n> => regCard ducentesimo g n
|
||||
}
|
||||
} ;
|
||||
oper
|
||||
mkTal : (_,_,_,_,_,_,_ : Str) -> {s : DForm => CardOrd => Str} =
|
||||
\dois,doze,vinte,duzentos,segundo,vigesimo,duocentesimo ->
|
||||
{s = \\d,co => case <d,co> of {
|
||||
<unit, NCard _> => dois ;
|
||||
<teen, NCard _> => doze ;
|
||||
<ten, NCard _> => vinte ;
|
||||
<hundred, NCard _> => duzentos ;
|
||||
<unit, NOrd g n> => (regCard segundo) g n ;
|
||||
<teen, NOrd g n> => (regCard "décimo") g n ++ (regCard segundo) g n ;
|
||||
<ten, NOrd g n> => regCard vigesimo g n ;
|
||||
<hundred, NOrd g n> => regCard duocentesimo g n
|
||||
}
|
||||
} ;
|
||||
|
||||
regCard : Str -> Gender -> Number -> Str = \ventesimo ->
|
||||
pronForms (adjSolo ventesimo) ;
|
||||
regCard : Str -> Gender -> Number -> Str = \vigesimo ->
|
||||
pronForms (adjPreto vigesimo) ;
|
||||
|
||||
spl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \s -> {
|
||||
s = s ;
|
||||
n = Pl
|
||||
} ;
|
||||
spl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \s -> {
|
||||
s = s ;
|
||||
n = Pl
|
||||
} ;
|
||||
|
||||
mil : CardOrd -> Str = \g ->
|
||||
(mkTal "mil" [] [] [] "milésimo" [] [] []).s ! ental indip ! g ;
|
||||
mil : CardOrd -> Str = \g ->
|
||||
(mkTal "mil" [] [] [] "milésimo" [] []).s ! unit ! g ;
|
||||
|
||||
y_CardOrd : CardOrd -> Str = \co -> case co of {
|
||||
NCard _ => "y" ;
|
||||
_ => []
|
||||
} ;
|
||||
|
||||
param
|
||||
DForm = ental Pred | ton | tiotal | hundra Bool ;
|
||||
Pred = pred | indip ;
|
||||
e_CardOrd : CardOrd -> Str = \co -> case co of {
|
||||
NCard _ => "e" ;
|
||||
_ => []
|
||||
} ;
|
||||
|
||||
param
|
||||
DForm = unit | teen | ten | hundred ;
|
||||
|
||||
---
|
||||
-- numerals as sequences of digits
|
||||
|
||||
lincat
|
||||
lincat
|
||||
Dig = TDigit ;
|
||||
|
||||
lin
|
||||
@@ -114,12 +126,12 @@ param
|
||||
IIDig d i = {
|
||||
s = \\o => d.s ! NCard Masc ++ BIND ++ i.s ! o ;
|
||||
n = Pl
|
||||
} ;
|
||||
} ;
|
||||
|
||||
D_0 = mkDig "0" ;
|
||||
D_1 = mk3Dig "1" "1:o" Sg ; ---- gender
|
||||
D_2 = mk2Dig "2" "2:o" ;
|
||||
D_3 = mk2Dig "3" "3:o" ;
|
||||
D_0 = mkDig "0" Sg ;
|
||||
D_1 = mkDig "1" Sg ;
|
||||
D_2 = mkDig "2" ;
|
||||
D_3 = mkDig "3" ;
|
||||
D_4 = mkDig "4" ;
|
||||
D_5 = mkDig "5" ;
|
||||
D_6 = mkDig "6" ;
|
||||
@@ -128,14 +140,27 @@ param
|
||||
D_9 = mkDig "9" ;
|
||||
|
||||
oper
|
||||
mk2Dig : Str -> Str -> TDigit = \c,o -> mk3Dig c o Pl ;
|
||||
mkDig : Str -> TDigit = \c -> mk2Dig c (c + ":o") ;
|
||||
|
||||
mk3Dig : Str -> Str -> Number -> TDigit = \c,o,n -> {
|
||||
s = table {NCard _ => c ; NOrd _ _ => o} ; ---- gender
|
||||
mk4Dig : Str -> Str -> Str -> Number -> TDigit = \c,o,a,n -> {
|
||||
s = table {
|
||||
NCard _ => c ;
|
||||
NOrd Masc _ => o ;
|
||||
NOrd Fem _ => a
|
||||
} ;
|
||||
n = n
|
||||
} ;
|
||||
|
||||
mk3Dig : Str -> Str -> Str -> TDigit =
|
||||
\c,mo,fo -> mk4Dig c mo fo Pl ;
|
||||
|
||||
mk2Dig : Str -> Number -> TDigit = \c,n -> mk1Dig c ** {n = n} ;
|
||||
|
||||
mk1Dig : Str -> TDigit = \c -> mk3Dig c (c + "º") (c + "ª") ;
|
||||
|
||||
mkDig = overload {
|
||||
mkDig : Str -> TDigit = mk1Dig ;
|
||||
mkDig : Str -> Number -> TDigit = mk2Dig ;
|
||||
} ;
|
||||
|
||||
TDigit = {
|
||||
n : Number ;
|
||||
s : CardOrd => Str
|
||||
|
||||
Reference in New Issue
Block a user