From aee0b20b929ae7286d7bf6047168f93548da6e00 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Mon, 15 Sep 2008 16:19:08 +0000
Subject: [PATCH] third declension in latin

---
 next-resource/latin/ResLatin.gf | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

diff --git a/next-resource/latin/ResLatin.gf b/next-resource/latin/ResLatin.gf
index 3f066f7b..4b828914 100644
--- a/next-resource/latin/ResLatin.gf
+++ b/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 => <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 -> {