Adjective inflection |
regA:Str -> {s: AForm => Str} = \seo -> {s = table { AAdj G1 Sg=>case Predef.take 1 seo of { “a”|”e”|”i”|”o” => “mw” + seo; “u” => “m” + seo; _ => ConsonantAdjprefix G1 Sg + seo }; ………………………………………………………….. AComp g Sg=>let af: Str = case Predef.take 1 seo of { “i” => “mw” + seo; “a” => “my” + seo; “u” => “m” + seo; _ => ConsonantAdjprefix g Sg + seo }; in init af + “ang” + last af } }; |