From 0660bd37797f459a2ff56d5fd222f660c2d76c54 Mon Sep 17 00:00:00 2001
From: normundsg <normundsg@gmail.com>
Date: Wed, 1 May 2013 11:08:32 +0000
Subject: [PATCH] Latvian extra: added GenCN - similarly as in ExtraFin

---
 lib/src/latvian/ExtraLav.gf    | 6 ++++++
 lib/src/latvian/ExtraLavAbs.gf | 2 ++
 2 files changed, 8 insertions(+)

diff --git a/lib/src/latvian/ExtraLav.gf b/lib/src/latvian/ExtraLav.gf
index 885d3eeea..9859ab3a9 100644
--- a/lib/src/latvian/ExtraLav.gf
+++ b/lib/src/latvian/ExtraLav.gf
@@ -11,6 +11,12 @@ flags
   coding = utf8 ;
 
 lin
+  -- NP -> CN -> CN ;
+  GenCN np cn = {
+    s = \\d,n,c => np.s ! Gen ++ cn.s ! d ! n ! c ;
+    g = cn.g
+  } ;
+
   aiz_Prep = mkPrep "aiz" Gen Dat ;
   ap_Prep = mkPrep "ap" Acc Dat ;
   gar_Prep = mkPrep "gar" Acc Dat ;
diff --git a/lib/src/latvian/ExtraLavAbs.gf b/lib/src/latvian/ExtraLavAbs.gf
index 34ef447df..7ec2086f2 100644
--- a/lib/src/latvian/ExtraLavAbs.gf
+++ b/lib/src/latvian/ExtraLavAbs.gf
@@ -2,6 +2,8 @@
 
 abstract ExtraLavAbs = Extra ** open ResLav, Prelude in {
   fun
+    GenCN : NP -> CN -> CN ;
+
     aiz_Prep : Prep ;
     ap_Prep : Prep ;
     gar_Prep : Prep ;