Better smart paradigms for diphthong verbs ending in -er and nouns ending in n

In BeschSpa: Fixed bugs in regAlternV and added regAlternVEr. Now the two-place constructor mkN "mostrar" "muestro" now works also for verbs in -er conjugation. (Not for -ir though, they are more irregular.)
In MorphoSpa: Added smart paradigms for nouns with alternation "jardín" "jardines". Now they only need one form.
In LexiconSpa: Corrected Paris to París.
This commit is contained in:
inari.listenmaa
2013-03-05 15:55:27 +00:00
parent c77412d35b
commit dc56fedfa5
4 changed files with 103 additions and 16 deletions

View File

@@ -44,10 +44,15 @@ oper
mkNoun (numForms mec mecs) ;
mkNomReg : Str -> Noun = \mec ->
case last mec of {
"o" | "e" => mkNoun (nomVino mec) Masc ;
"a" => mkNoun (nomVino mec) Fem ;
"z" => mkNounIrreg mec (init mec + "ces") Fem ;
case mec of {
_ + "o" | "e" => mkNoun (nomVino mec) Masc ;
_ + "a" => mkNoun (nomVino mec) Fem ;
_ + "z" => mkNounIrreg mec (init mec + "ces") 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 ;
_ + "ón" => mkNounIrreg mec (tk 2 mec + "ones") Masc ;
_ + "ún" => mkNounIrreg mec (tk 2 mec + "unes") Masc ;
_ => mkNoun (nomPilar mec) Masc
} ;