msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

fixes in Dut Ita Spa numeral "one"

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/dutch/NumeralDut.gf
View File

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

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

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

1
lib/src/spanish/NumeralSpa.gf
View File

@@ -41,6 +41,7 @@ lin pot01 =
"décimo" "centésimo").s in "décimo" "centésimo").s in
{s =\\f,g => case <f,g> of { {s =\\f,g => case <f,g> of {
<ental pred,_> => [] ; <ental pred,_> => [] ;
<ental _, NCard Masc> => "un" ;
<ental _, NCard Fem> => "una" ; <ental _, NCard Fem> => "una" ;
<hundra False, NCard _> => "cien" ; <hundra False, NCard _> => "cien" ;
<hundra True, NCard Fem> => "ciento" ; <hundra True, NCard Fem> => "ciento" ;