From c8ceed08efcc0bdc1fcbd89bce643d9f52f0991b Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Wed, 9 Dec 2009 09:47:16 +0000
Subject: moving a few things to deprecated

---
 old-lib/resource/english/RelativeEng.gf | 54 ---------------------------------
 1 file changed, 54 deletions(-)
 delete mode 100644 old-lib/resource/english/RelativeEng.gf

(limited to 'old-lib/resource/english/RelativeEng.gf')

diff --git a/old-lib/resource/english/RelativeEng.gf b/old-lib/resource/english/RelativeEng.gf
deleted file mode 100644
index 1ec1fc10a..000000000
--- a/old-lib/resource/english/RelativeEng.gf
+++ /dev/null
@@ -1,54 +0,0 @@
-concrete RelativeEng of Relative = CatEng ** open ResEng in {
-
-  flags optimize=all_subs ;
-
-  lin
-
-    RelCl cl = {
-      s = \\t,a,p,_ => "such" ++ "that" ++ cl.s ! t ! a ! p ! ODir ; 
-      c = Nom
-      } ;
-
-    RelVP rp vp = {
-      s = \\t,ant,b,ag => 
-        let 
-          agr = case rp.a of {
-            RNoAg => ag ;
-            RAg a => a
-            } ;
-          cl = mkClause (rp.s ! RC (fromAgr agr).g Nom) agr vp
-        in
-        cl.s ! t ! ant ! b ! ODir ;
-      c = Nom
-      } ;
-
--- Pied piping: "at which we are looking". Stranding and empty
--- relative are defined in $ExtraEng.gf$ ("that we are looking at", 
--- "we are looking at").
-
-    RelSlash rp slash = {
-      s = \\t,a,p,agr => 
-          slash.c2 ++ rp.s ! RPrep (fromAgr agr).g ++ slash.s ! t ! a ! p ! ODir ;
-      c = Acc
-      } ;
-
-    FunRP p np rp = {
-      s = \\c => np.s ! Acc ++ p.s ++ rp.s ! RPrep (fromAgr np.a).g ;
-      a = RAg np.a
-      } ;
-
-    IdRP = 
-      let varr : Str -> Str = \x -> variants {x ; "that"} --- for bwc
-      in {
-      s = table {
-        RC _ Gen => "whose" ; 
-        RC Neutr _  => varr "which" ;
-        RC _ Acc    => varr "whom" ;
-        RC _ Nom    => varr "who" ;
-        RPrep Neutr => "which" ;
-        RPrep _     => "whom"
-        } ;
-      a = RNoAg
-      } ;
-
-}
-- 
cgit v1.2.3