msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

third declension in latin

Browse Source
This commit is contained in:
aarne
2008-09-15 16:19:08 +00:00
parent f3be339437
commit b782fa3ef2
1 changed files with 16 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
lib/next-resource/latin/ResLatin.gf
View File

@@ -82,7 +82,7 @@ oper
bella bella (bell + "orum") (bell + "is") bella bella (bell + "orum") (bell + "is")
Neutr ; Neutr ;
-- smart paradigm -- smart paradigm for declensions 1&2
noun12 : Str -> Noun = \verbum -> noun12 : Str -> Noun = \verbum ->
case verbum of { case verbum of {
@@ -93,6 +93,21 @@ oper
_ => Predef.error ("noun12 does not apply to" ++ verbum) _ => 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 -- adjectives
mkAdjective : (_,_,_ : Noun) -> Adjective = \bonus,bona,bonum -> { mkAdjective : (_,_,_ : Noun) -> Adjective = \bonus,bona,bonum -> {