1
0
forked from GitHub/gf-rgl

Italian nouns: special case for -ccia/-cce

This commit is contained in:
John J. Camilleri
2017-11-29 15:30:55 +01:00
parent fae112f5f5
commit 2aaecd8927

View File

@@ -54,13 +54,12 @@ oper
n = last vin
in
case vino of {
_ + "ico" => {s = numForms vino (vin + "i") -- amico -> amici
; g = Masc} ;
_ + "ccia" => {s = numForms vino (init vin + "e") -- doccia -> docce
; g = Fem} ;
_ + "o" => {s = case n of {
-- "c" | "g" => numForms vino (vin + "hi") ;
"c" => case last (init vin) of {
"i" => numForms vino (vin + "i") ; -- amico -> amici
_ => numForms vino (vin + "hi") -- attacco -> attacchi
} ;
"g" => numForms vino (vin + "hi") ;
"c" | "g" => numForms vino (vin + "hi") ;
"i" => numForms vino vin ;
_ => numForms vino (vin + "i")
} ; g = Masc} ;