From b7708dc90fecc2f976e42ac9196a1cc890a4a156 Mon Sep 17 00:00:00 2001
From: aarne <unknown>
Date: Wed, 10 Aug 2005 14:06:25 +0000
Subject: [PATCH] added ExistOne in Fin

---
 lib/resource/finnish/RulesFin.gf | 21 ++++++++++-----------
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/lib/resource/finnish/RulesFin.gf b/lib/resource/finnish/RulesFin.gf
index 6b5934e63..d6a887f69 100644
--- a/lib/resource/finnish/RulesFin.gf
+++ b/lib/resource/finnish/RulesFin.gf
@@ -56,7 +56,7 @@ lin
   NoNum = noNum ;
 
   UseA = adj2adjPhrase ;
-  ComplA2 = complAdj ;
+-----  ComplA2 = complAdj ;
 
 ----  ComplAV av vpi = {s = \\_,a => av.s ! a ++ vpi.s ! VIInfinit} ;
 ----  ComplObjA2V av obj vpi = {s = \\_,a => av.s ! a ++ obj.s ! complCase
@@ -193,18 +193,17 @@ lin
 
   OnePhr p = p ;
   ConsPhr = cc2 ;
-{-
+
 -----------------------
 -- special constructions
 
-  OneNP = nameNounPhrase (nameReg "one" human) ;
+----  OneNP = nameNounPhrase (nameReg "one" human) ;
+
+  ExistCN cn = 
+    sats2clause (
+      mkSatsCopula impersNounPhrase ("olemassa" ++ (singularNounPhrase cn).s ! NPCase Nom)
+      ) ;
+
+----  ExistNumCN nu cn = nounPhraseNum False cn
 
-  ExistCN A = predBeGroup
-                (nameNounPhrase (nameReg "there" Neutr))
-                (complNounPhrase (indefNounPhrase singular A)) ;
-  ExistNumCN nu A = 
-              predBeGroup 
-                (nameNounPhrasePl (nameReg "there" Neutr))
-                (complNounPhrase (indefNounPhraseNum plural nu A)) ;
--}
 } ;