diff --git a/lib/next-resource/latin/ResLatin.gf b/lib/next-resource/latin/ResLatin.gf index 3f066f7b6..4b828914d 100644 --- a/lib/next-resource/latin/ResLatin.gf +++ b/lib/next-resource/latin/ResLatin.gf @@ -82,7 +82,7 @@ oper bella bella (bell + "orum") (bell + "is") Neutr ; --- smart paradigm +-- smart paradigm for declensions 1&2 noun12 : Str -> Noun = \verbum -> case verbum of { @@ -93,6 +93,21 @@ oper _ => Predef.error ("noun12 does not apply to" ++ verbum) } ; + noun3c : Str -> Str -> Gender -> Noun = \rex,regis,g -> + let + reg = Predef.tk 2 regis ; + regemes : Str * Str = case g of { + Neutr => ; + _ => + } ; + in + mkNoun + rex regemes.p1 (reg + "is") (reg + "i") (reg + "e") rex + regemes.p2 regemes.p2 (reg + "um") (reg + "ibus") + g ; + + + -- adjectives mkAdjective : (_,_,_ : Noun) -> Adjective = \bonus,bona,bonum -> {