Noun inflection |
regN: Str ->Cgender -> Noun = \w, g -> let wpl = case g of { G1=>case w of {“mwa” + _ => Predef.drop 2 w; “mwi” + _ => “e” + Predef.drop 3 w; _ => PrefixPlNom G1 + Predef.drop 2 w }; G2=>case w of {“mw” + _ => “my” + Predef.drop 2 w; _ => PrefixPlNom G2 + Predef.drop 2 w }; ……………………………………………….. _ => PrefixPlNom g + Predef.drop 2 w}; in iregN w wpl g;
compoundN: N -> N ->Cgender-> N = \mundu,muume,g -> { s = \\n,c => mundu.s! n! c ++ muume.s!n! c; g = g; lock_N = <> };
iregN: Str-> Str ->Cgender -> Noun= \man,men,g -> { s = table{Sg => table{Nom => man; Loc=> man + “ni” | men + “ni” }; Pl => table{Nom => men; Loc=> “”}}; g = g; }; |