smartened Paradigms in Ita and Spa to recognize some more nouns as feminine

This commit is contained in:
aarne
2014-04-08 15:37:43 +00:00
parent 72b6d8da9c
commit 0d564c15ff
2 changed files with 8 additions and 5 deletions

View File

@@ -53,19 +53,21 @@ oper
vin = init vino ;
n = last vin
in
case o of {
"o" => {s = case n of {
case vino of {
_ + "o" => {s = case n of {
"c" | "g" => numForms vino (vin + "hi") ;
"i" => numForms vino vin ;
_ => numForms vino (vin + "i")
} ; g = Masc} ;
"a" => {s = case n of {
_ + "a" => {s = case n of {
"c" | "g" => numForms vino (vin + "he") ;
_ => numForms vino (vin + "e")
} ; g = Fem} ;
"e" => {s = numForms vino (vin + "i")
_ + ("ione" | "tudine") => {s = numForms vino (vin + "i")
; g = Fem} ;
_ + "e" => {s = numForms vino (vin + "i")
; g = Masc} ;
"à" | "ù" => {s = numForms vino vino
_ + "à" | "ù" => {s = numForms vino vino
; g = Fem} ;
_ => {s = numForms vino vino
; g = Masc}

View File

@@ -50,6 +50,7 @@ oper
_ + "a" => mkNoun (nomVino mec) Fem ;
_ + "z" => mkNounIrreg mec (init mec + "ces") Fem ;
_ + "ión" => mkNounIrreg mec (tk 2 mec + "ones") Fem ;
_ + "tud" => mkNounIrreg mec (mec + "es") Fem ;
_ + "án" => mkNounIrreg mec (tk 2 mec + "anes") Masc ;
_ + "én" => mkNounIrreg mec (tk 2 mec + "enes") Masc ;
_ + "ín" => mkNounIrreg mec (tk 2 mec + "ines") Masc ;