GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-09 04:59:31 -06:00
Code Issues Packages Projects Releases Wiki Activity

cien-ciento in spanish

Browse Source
This commit is contained in:
aarne
2006-06-21 10:18:10 +00:00
parent ba12717ee1
commit fe0903a2e1
1 changed files with 8 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
lib/resource-1.0/spanish/NumeralSpa.gf
View File

@@ -41,7 +41,8 @@ lin pot01 =
{s =\\f,g => case <f,g> of {
<ental pred,_> => [] ;
<ental _, NCard Fem> => "una" ;
<hundra, NCard Fem> => "ciento" ;
<hundra False, NCard _> => "cien" ;
<hundra True, NCard Fem> => "ciento" ;
_ => uno ! f ! g
} ;
n = Pl
@@ -56,9 +57,9 @@ 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) ;
lin pot2 d = spl (d.s ! hundra False) ;
lin pot2plus d e =
{s = \\g => d.s ! hundra ! g ++ e.s ! g ; n = Pl} ;
{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} ;
@@ -73,9 +74,9 @@ oper
<tiotal, NOrd g n> => regCard ventesimo g n ;
<ton, NCard _> => venti ;
<ton, NOrd g n> => regCard ventesimo g n ;
<hundra, NCard Masc> => ducento ;
<hundra, NCard Fem> => Predef.tk 2 ducento + "as" ;
<hundra, NOrd g n> => regCard ducentesimo g n
<hundra _, NCard Masc> => ducento ;
<hundra _, NCard Fem> => Predef.tk 2 ducento + "as" ;
<hundra _, NOrd g n> => regCard ducentesimo g n
}
} ;
@@ -96,7 +97,7 @@ oper
} ;
param
DForm = ental Pred | ton | tiotal | hundra ;
DForm = ental Pred | ton | tiotal | hundra Bool ;
Pred = pred | indip ;
}