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

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

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

12
lib/src/italian/MorphoIta.gf
View File

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

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

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