fixes in Dut Ita Spa numeral "one"

This commit is contained in:
aarne
2015-09-18 06:15:31 +00:00
parent f4197a374f
commit dcd634f92e
3 changed files with 6 additions and 5 deletions

View File

@@ -23,7 +23,7 @@ lin
pot01 = {
s = \\f => table {
NCard g _ => "een" ; ---- "één" ;
NCard g _ => "één" ; --- een
NOrd af => (regAdjective "eerst").s ! Posit ! af
} ;
n = Sg ;

View File

@@ -1,5 +1,5 @@
concrete NumeralIta of Numeral = CatIta [Numeral,Digits] **
open CommonRomance, ResRomance, MorphoIta, Prelude in {
open CommonRomance, ResRomance, MorphoIta, PhonoIta, Prelude in {
lincat
Digit = {s : DForm => CardOrd => Str ; isContr : Bool} ;
@@ -32,9 +32,9 @@ lin pot01 =
{s =\\f,g => case f of {
ental t => case t of
{pred => case g of {
NCard Fem => "una" ;
_ => uno ! f ! g
};
NCard Fem => elision "una" "un'" "una" ;
_ => pre {"un" ; "uno" / sImpuro}
} ;
indip => case g of
{ NCard _ => [] ;
_ => uno ! f ! g

View File

@@ -41,6 +41,7 @@ lin pot01 =
"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" ;