From 42d825aefd032970dbbfe0ed7e840bb53999931d Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Sat, 24 Feb 2007 15:47:45 +0000
Subject: [PATCH] PartCN in ExtraFin

---
 lib/resource-1.0/finnish/ExtraFin.gf    | 15 ++++++++++++++-
 lib/resource-1.0/finnish/ExtraFinAbs.gf |  2 ++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/lib/resource-1.0/finnish/ExtraFin.gf b/lib/resource-1.0/finnish/ExtraFin.gf
index 715426e58..4d74797bc 100644
--- a/lib/resource-1.0/finnish/ExtraFin.gf
+++ b/lib/resource-1.0/finnish/ExtraFin.gf
@@ -1,7 +1,7 @@
 --# -path=.:abstract:common:prelude
 
 concrete ExtraFin of ExtraFinAbs = CatFin ** 
-  open ResFin, MorphoFin, Coordination, Prelude, StructuralFin in {
+  open ResFin, MorphoFin, Coordination, Prelude, NounFin, StructuralFin in {
 
   lin
     GenNP np = {
@@ -56,6 +56,19 @@ concrete ExtraFin of ExtraFinAbs = CatFin **
       n = Sg
     } ;
 
+    PartCN cn = 
+      let 
+        acn = DetCN (DetSg (SgQuant IndefArt) NoOrd) cn
+      in {
+        s = table {
+          NPCase Nom | NPAcc => acn.s ! NPCase Part ;
+          c => acn.s ! c
+          } ; 
+        a = acn.a ;
+        isPron = False
+        } ;
+
+
     vai_Conj = {s = "vai" ; n = Sg} ;
 
 } 
diff --git a/lib/resource-1.0/finnish/ExtraFinAbs.gf b/lib/resource-1.0/finnish/ExtraFinAbs.gf
index 861350308..07885c715 100644
--- a/lib/resource-1.0/finnish/ExtraFinAbs.gf
+++ b/lib/resource-1.0/finnish/ExtraFinAbs.gf
@@ -10,6 +10,8 @@ abstract ExtraFinAbs = Extra [
     i_implicPron : Pron ;                 -- (minä), minut, ...
     whatPart_IP : IP ;
 
+    PartCN : CN -> NP ;                   -- olutta
+
     vai_Conj : Conj ;                     -- minä vai sinä? ("or" in question)
 
     vai_Conj : Conj ;