mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-15 14:12:51 -06:00
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:
@@ -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
|
||||
} ;
|
||||
|
||||
|
||||
Reference in New Issue
Block a user