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/romance/RelativeRomance.gf | 50 -----------------------------
 1 file changed, 50 deletions(-)
 delete mode 100644 old-lib/resource/romance/RelativeRomance.gf

(limited to 'old-lib/resource/romance/RelativeRomance.gf')

diff --git a/old-lib/resource/romance/RelativeRomance.gf b/old-lib/resource/romance/RelativeRomance.gf
deleted file mode 100644
index 40b83c1b3..000000000
--- a/old-lib/resource/romance/RelativeRomance.gf
+++ /dev/null
@@ -1,50 +0,0 @@
-incomplete concrete RelativeRomance of Relative = 
-  CatRomance ** open Prelude, CommonRomance, ResRomance in {
-
-  flags optimize=all_subs ;
-
-  lin
-
-    RelCl cl = {
-      s = \\ag,t,a,p,m => pronSuch ! ag ++ conjThat ++ 
-                          cl.s ! DDir ! t ! a ! p ! m ;
-      c = Nom
-      } ;
-
-    --- more efficient to compile than case inside mkClause; see log.txt
-    RelVP rp vp = case rp.hasAgr of {
-      True => {s = \\ag =>
-          (mkClause
-                    (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom) False
-                    {g = rp.a.g ; n = rp.a.n ; p = P3}
-                    vp).s ! DDir ; c = Nom} ;
-      False => {s = \\ag =>
-          (mkClause
-                    (rp.s ! False ! {g = ag.g ; n = ag.n} ! Nom) False
-                    ag
-                    vp).s ! DDir ; c = Nom
-         }
-      } ;
-
-    RelSlash rp slash = {
-      s = \\ag,t,a,p,m => 
-          let aag = {g = ag.g ; n = ag.n} 
-          in
-          slash.c2.s ++ 
-          rp.s ! False ! aag ! slash.c2.c ++ 
-          slash.s ! aag ! DDir ! t ! a ! p ! m ;    --- ragr
-      c = Acc
-      } ;
-
-    FunRP p np rp = {
-      s = \\_,a,c => np.s ! Ton Nom ++ p.s ++ rp.s ! True ! a ! p.c ;
-      a = {g = np.a.g ; n = np.a.n} ; 
-      hasAgr = True
-      } ;
-    IdRP = {
-      s = relPron ; 
-      a = {g = Masc ; n = Sg} ; 
-      hasAgr = False
-      } ;
-
-}
-- 
cgit v1.2.3