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

(limited to 'old-lib/resource/swedish/DiffSwe.gf')

diff --git a/old-lib/resource/swedish/DiffSwe.gf b/old-lib/resource/swedish/DiffSwe.gf
deleted file mode 100644
index 97d9fa9cd..000000000
--- a/old-lib/resource/swedish/DiffSwe.gf
+++ /dev/null
@@ -1,98 +0,0 @@
-instance DiffSwe of DiffScand = open CommonScand, Prelude in {
-
--- Parameters.
-
-  param
-    Gender = Utr | Neutr ;
-
-  oper
-    utrum = Utr ; 
-    neutrum = Neutr ;
-
-    gennumN : Gender -> Number -> GenNum = \g,n -> Plg ; -----
-    gennum : Gender -> Number -> GenNum = \g,n ->
-{-
---- debugging Compute 9/11/2007
-      case n of {
-        Sg => case g of {
-          Utr => SgUtr ;
-          Neutr => SgNeutr
-          } ;
-        _  => Plg
-        } ;
--}
-      case <<g,n> : Gender * Number> of {
-        <Utr,Sg> => SgUtr ;
-        <Neutr,Sg> => SgNeutr ;
-        _  => Plg
-        } ;
-
-    detDef : Species = Def ;
-
-    Verb : Type = {
-      s : VForm => Str ;
-      part : Str ;
-      vtype : VType
-      } ;
-
-    hasAuxBe _ = False ;
-
-
--- Strings.
-
-    conjThat = "att" ;
-    conjThan = "än" ;
-    conjAnd = "och" ;
-    infMark  = "att" ;
-    compMore = "mera" ;
-
-    subjIf = "om" ;
-
-    artIndef : Gender => Str = table {
-      Utr => "en" ;
-      Neutr => "ett"
-      } ;
-
-    verbHave = 
-      mkVerb "ha" "har" "ha" "hade" "haft" "havd" "havt" "havda" ** noPart ;
-    verbBe = 
-      mkVerb "vara" "är" "var" "var" "varit" "varen" "varet" "varna" 
-      ** noPart ;
-    verbBecome = 
-      mkVerb "bli" "blir" "bli" "blev" "blivit" "bliven" "blivet" "blivna"
-      ** noPart ;
-
-    -- auxiliary
-    noPart = {part = []} ;
-
-    auxFut = "ska" ;      -- "skall" in ExtSwe
-    auxCond = "skulle" ;
-
-    negation : Polarity => Str = table {
-      Pos => [] ;
-      Neg => "inte"
-      } ;
-
-    genderForms : (x1,x2 : Str) -> Gender => Str = \all,allt -> 
-      table {
-        Utr => all ;
-        Neutr => allt
-        } ;
-
-    relPron : GenNum => RCase => Str = \\gn,c => case c of {
-      RNom | RPrep False => "som" ;
-      RGen  => "vars" ;
-      RPrep True => gennumForms "vilken" "vilket" "vilka" ! gn
-      } ;
-
-    pronSuch = gennumForms "sådan" "sådant" "sådana" ;
-
-    reflPron : Agr -> Str = \a -> case a of {
-      {gn = Plg ; p = P1} => "oss" ;
-      {gn = Plg ; p = P2} => "er" ;
-      {p = P1} => "mig" ;
-      {p = P2} => "dig" ;
-      {p = P3} => "sig"
-      } ;
-
-}
-- 
cgit v1.2.3