1
0
forked from GitHub/gf-core

third declension in latin

This commit is contained in:
aarne
2008-09-15 16:19:08 +00:00
parent f3be339437
commit b782fa3ef2

View File

@@ -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 => <rex,reg + "a"> ;
_ => <reg + "em", reg + "es">
} ;
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 -> {