GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-20 00:22:51 -06:00
Code Issues Packages Projects Releases Wiki Activity

fixes on italian/romance resource grammar

Browse Source
This commit is contained in:
gabpag
2009-09-27 13:33:25 +00:00
parent 2c57206b75
commit 4dff246697
5 changed files with 93 additions and 57 deletions
Download Patch File Download Diff File Expand all files Collapse all files

124
lib/src/italian/NumeralIta.gf
View File

@@ -2,66 +2,100 @@ concrete NumeralIta of Numeral = CatIta **
open CommonRomance, ResRomance, MorphoIta, Prelude in {
lincat
Digit = {s : DForm => CardOrd => Str} ;
Sub10 = {s : DForm => CardOrd => Str ; n : Number} ;
Digit = {s : DForm => CardOrd => Str ; isContr : Bool} ;
Sub10 = {s : DForm => CardOrd => Str ; n : Number ; isContr : Bool} ;
Sub100 = {s : CardOrd => Str ; n : Number} ;
Sub1000 = {s : CardOrd => Str ; n : Number} ;
Sub1000000 = {s : CardOrd => Str ; n : Number} ;
lin num x = x ;
lin n2 = mkTal "due" "dodici" "venti" "secondo" ;
lin n3 = mkTal "tre" "tredici" "trenta" "terzo" ;
lin n4 = mkTal "quattro" "quattordici" "quaranta" "quarto" ;
lin n5 = mkTal "cinque" "quindici" "cinquanta" "quinto" ;
lin n6 = mkTal "sei" "sedici" "sessanta" "sesto" ;
lin n7 = mkTal "sette" "diciassette" "settanta" "settimo" ; --- diciasettesimo?
lin n8 = mkTal "otto" "diciotto" "ottanta" "ottavo" ;
lin n9 = mkTal "nove" "diciannove" "novanta" "nono" ;
lin n2 = mkDigit (mkTal "due" "dodici" "venti" "secondo");
lin n3 = mkDigit (mkTal "tre" "tredici" "trenta" "terzo") ;
lin n4 = mkDigit (mkTal "quattro" "quattordici" "quaranta" "quarto") ;
lin n5 = mkDigit (mkTal "cinque" "quindici" "cinquanta" "quinto") ;
lin n6 = mkDigit (mkTal "sei" "sedici" "sessanta" "sesto") ;
lin n7 = mkDigit (mkTal "sette" "diciassette" "settanta" "settimo") ;
lin n8 = {s = (mkTal "otto" "diciotto" "ottanta" "ottavo").s ; isContr = True } ;
lin n9 = mkDigit (mkTal "nove" "diciannove" "novanta" "nono") ;
oper getRoot : Str -> Str = \due ->
case due of
{ _ + ("ue" | "o" | "te"| "ve") => init due;
_ => due
};
oper mkDigit : {s : DForm => CardOrd => Str} -> {s : DForm => CardOrd => Str ; isContr : Bool} = \ss->
{s = ss.s; isContr = False};
lin pot01 =
let uno = (mkTal "uno" "undici" "dieci" "primo").s in
let uno = (mkTal "uno" "undici" "dieci" "primo" ).s in
{s =\\f,g => case f of {
ental pred => [] ;
_ => case g of {
NCard Fem => "una" ;
_ => uno ! f ! g
}
ental t => case t of
{pred => case g of {
NCard Fem => "una" ;
_ => uno ! f ! g
};
indep => case g of
{ NCard _ => [] ;
_ => uno ! f ! g
}
};
_ => uno ! f ! g
} ;
n = Sg} ;
n = Sg; isContr = True
} ;
lin pot0 d = {s = d.s ; n = Pl} ;
lin pot110 = spl ((mkTal "dieci" [] [] "decimo").s ! ental indip) ;
lin pot111 = spl ((mkTal "undici" [] [] "undicesimo").s ! ental indip) ;
lin pot0 d = {s = d.s ; n = Pl; isContr = d.isContr} ;
lin pot110 = spl ((mkTall "dieci" [] [] "decimo" []).s ! ental pred) ;
lin pot111 = spl ((mkTall "undici" [] [] "undicesimo" []).s ! ental pred) ;
lin pot1to19 d = spl (d.s ! ton) ;
lin pot0as1 n = {s = n.s ! ental indip ; n = n.n} ;
lin pot0as1 n = {s = n.s ! ental pred ; n = n.n} ;
lin pot1 d = spl (d.s ! tiotal) ;
lin pot1plus d e =
{s = \\g => d.s ! tiotal ! NCard Masc ++ e.s ! ental indip ! g ; n = Pl} ;
let ss = if_then_Str e.isContr (d.s ! tiouno ! NCard Masc) (d.s ! tiotal ! NCard Masc)
in
{s = table {NCard g => ss ++ "&+" ++(e.s ! ental pred ! NCard Masc) ;
NOrd g n => ss ++ "&+" ++e.s ! ental indip ! NOrd g n};
n = Pl} ;
lin pot1as2 n = n ;
lin pot2 d = spl (\\co => d.s ! ental pred ! NCard Masc ++
(mkTal "cento" [] [] "centesimo").s ! ental indip ! co) ;
lin pot2 d = spl (\\co => d.s ! ental indip ! NCard Masc ++ "&+"++
(mkTall "cento" [] [] [] "cent").s ! ental indip ! co) ;
lin pot2plus d e =
{s = \\g => d.s ! ental pred ! NCard Masc ++ "cento" ++ e.s ! g ; n = Pl} ;
{s = table {NCard g => d.s ! ental indip ! NCard Masc ++ "&+" ++"cento" ++ "&+" ++e.s ! NCard Masc ;
NOrd g n => d.s ! ental indip ! NCard Masc ++ "&+" ++"cento" ++ "&+" ++ e.s ! NOrd g n};
n = Pl} ;
lin pot2as3 n = n ;
lin pot3 n = spl (\\co => n.s ! NCard Masc ++
(mkTal (mille ! n.n) [] [] "millesimo").s ! ental indip ! co) ;
lin pot3plus n m = {s = \\g => n.s ! NCard Masc ++ mille ! n.n ++ m.s ! g ; n = Pl} ;
lin pot3 n = spl (\\co => n.s ! NCard Masc ++ "&+" ++
(mkTall (mille ! n.n) [] [] [] "mill").s ! ental indip ! co ) ;
lin pot3plus n m = {s = \\g => n.s ! NCard Masc ++ "&+" ++ mille ! n.n ++ "e" ++ m.s ! g ; n = Pl} ;
oper
mkTal : (x1,_,_,x4 : Str) -> {s : DForm => CardOrd => Str} =
\due,dodici,venti,secondo -> {s = \\d,co => case <d,co> of {
mkTall : (x1,_,_,_,x5 : Str) -> {s : DForm => CardOrd => Str} =
\due,dodici,venti,secondo,du ->
{s = \\d,co => case <d,co> of {
<ental _, NCard _> => due ;
<ental _, NOrd g n> => pronForms (adjSolo secondo) g n ;
<ental indip, NOrd g n> => regOrdpred du g n ;
<ental pred, NOrd g n> => pronForms (adjSolo secondo) g n ;
<tiotal, NCard _> => venti ;
<tiotal, NOrd g n> => regCard venti g n ;
<ton, NCard _> => venti ;
<ton, NOrd g n> => regCard venti g n
}
<ton, NCard _> => dodici ;
<ton, NOrd g n> => regCard dodici g n ;
<tiouno, _> => init venti
}
} ;
mkTal : (x1,_,_,x4 : Str) -> {s : DForm => CardOrd => Str} = \due, dodici, venti, secondo ->
mkTall due dodici venti secondo (getRoot due) ;
regCard : Str -> Gender -> Number -> Str = \venti ->
pronForms (adjSolo (init venti + "esimo")) ;
regOrdpred (init venti) ;
regOrdpred : Str -> Gender -> Number -> Str = \sei ->
pronForms (adjSolo (sei + "esimo")) ;
spl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \s -> {
s = s ;
@@ -69,7 +103,7 @@ oper
} ;
oper mille : Number => Str = table {Sg => "mille" ; Pl => "mila"} ;
param DForm = ental Pred | ton | tiotal ;
param DForm = ental Pred | ton | tiotal | tiouno ;
param Pred = pred | indip ;
@@ -87,9 +121,9 @@ param Pred = pred | indip ;
} ;
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_1 = mk2Dig "1" Sg ; ---- gender
D_2 = mkDig "2" ;
D_3 = mkDig "3" ;
D_4 = mkDig "4" ;
D_5 = mkDig "5" ;
D_6 = mkDig "6" ;
@@ -98,11 +132,13 @@ param Pred = pred | indip ;
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
mkDig : Str -> TDigit = \c -> mk2Dig c Pl ;
mk2Dig : Str -> Number -> TDigit = \c,n -> {
s = table {NCard _ => c ;
NOrd Masc Sg => c + ":o" ; NOrd Fem Sg => c + ":a" ;
NOrd Masc Pl => c + ":i" ; NOrd Fem Pl => c + ":e"
} ;
n = n
} ;