(Fin) add internal table for the pronoun "kukin"

This commit is contained in:
Inari Listenmaa
2023-11-06 15:32:12 +01:00
parent 1d5b9d49e2
commit 12d7702a7d

View File

@@ -216,6 +216,21 @@ oper
}
} ;
kukinInt : MorphoFin.Number => MorphoFin.Case => Str =
let ku : Noun = nForms2N (dUkko "ku" "kun")
in table {
Sg => table {
Part => "kutakin" ;
Illat => "kuhunkin" ;
c => ku.s ! NCase Sg c + "kin"
} ;
Pl => table {
Gen => "kuidenkin" ;
Part => "kuitakin" ;
c => ku.s ! NCase Pl c + "kin"
}
} ;
kukaInt : MorphoFin.Number => (MorphoFin.Case) => Str =
let
kuka = snoun2nounBind (mkN "kuka" "kenen" "ketä" "kenä" "keneen"