From c5b963769539c8a7c9bd154585686d263c7d6d8a Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 22 Dec 2010 14:11:55 +0000
Subject: removed GF/deprecated

---
 deprecated/old-lib/resource/finnish/RelativeFin.gf | 50 ----------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 deprecated/old-lib/resource/finnish/RelativeFin.gf

(limited to 'deprecated/old-lib/resource/finnish/RelativeFin.gf')

diff --git a/deprecated/old-lib/resource/finnish/RelativeFin.gf b/deprecated/old-lib/resource/finnish/RelativeFin.gf
deleted file mode 100644
index 9aab4e869..000000000
--- a/deprecated/old-lib/resource/finnish/RelativeFin.gf
+++ /dev/null
@@ -1,50 +0,0 @@
-concrete RelativeFin of Relative = CatFin ** open Prelude, ResFin, MorphoFin in {
-
-  flags optimize=all_subs ;
-
-  lin
-
-    RelCl cl = {
-      s = \\t,a,p,_ => "siten" ++ "että" ++ cl.s ! t ! a ! p ! SDecl ;
-      ---- sellainen
-      c = NPCase Nom
-      } ;
-
-    RelVP rp vp = {
-      s = \\t,ant,b,ag => 
-        let 
-          agr = case rp.a of {
-            RNoAg => ag ;
-            RAg a => a
-            } ;
-          cl = mkClause 
-             (subjForm {s = rp.s ! agr.n ; 
-                        a = agr ; isPron = False} vp.sc) agr vp
-        in
-        cl.s ! t ! ant ! b ! SDecl ;
-      c = NPCase Nom
-      } ;
-
-    RelSlash rp slash = {
-      s = \\t,a,p,ag => 
-            let 
-              cls = slash.s ! t ! a ! p ;
-              who = appCompl True p slash.c2 (rp2np ag.n rp)
-            in
-            who ++ cls ;
-      c = slash.c2.c
-      } ;
-
-    FunRP p np rp = {
-      s = \\n,c => appCompl True Pos p (rp2np n rp) ++ np.s ! c ; --- is c OK?
-      a = RAg np.a
-      } ;
-
-    IdRP = {
-      s = \\n,c => relPron ! n ! npform2case n c ;
-      a = RNoAg
-      } ;
-
-
-
-}
-- 
cgit v1.2.3