next-lib renamed to lib, lib to old-lib

1 files changed, 0 insertions, 91 deletions

diff --git a/next-lib/src/norwegian/DiffNor.gf b/next-lib/src/norwegian/DiffNor.gf
deleted file mode 100644
index 6cfdf6fa4..000000000
--- a/next-lib/src/norwegian/DiffNor.gf
+++ /dev/null
@@ -1,91 +0,0 @@
-instance DiffNor of DiffScand = open CommonScand, Prelude in {
-
--- Parameters.
-
-  param
-    Gender = Utr Sex | Neutr ;
-    Sex    = Masc | Fem ;
-
-  oper
-    utrum = Utr Masc ; 
-    neutrum = Neutr ;
-
-    gennum : Gender -> Number -> GenNum = \g,n ->
-      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 ;
-      isVaere : Bool
-      } ;
-
-    hasAuxBe v = v.isVaere ;
-
--- Strings.
-
-    conjThat = "at" ;
-    conjThan = "enn" ;
-    conjAnd = "og" ;
-    compMore = "mere" ;
-    infMark  = "å" ;
-
-    subjIf = "hvis" ;
-
-    artIndef : Gender => Str = table {
-      Utr Masc => "en" ;
-      Utr Fem  => "ei" ;
-      Neutr    => "et"
-      } ;
-    detIndefPl = "noen" ;
-
-    verbHave = 
-      mkVerb "ha" "har" "ha" "hadde" "hatt" "haven" "havet" "havne"
-      **       {part = [] ; isVaere = False} ;
-    verbBe = 
-      mkVerb "være" "er" "var" "var" "vært" "væren" "været" "værne" 
-      **       {part = [] ; isVaere = False} ;
-    verbBecome = 
-      mkVerb "bli" "blir" "bli" "ble" "blitt" "bliven" "blivet" "blivne" 
-      **       {part = [] ; isVaere = True} ;
-
-    -- auxiliary
-    noPart = {part = []} ;
-
-    auxFut = "vil" ;      -- "skal" in ExtNor
-    auxCond = "ville" ;
-
-    negation : Polarity => Str = table {
-      Pos => [] ;
-      Neg => "ikke"
-      } ;
-
-    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  => "hvis" ;
-      RPrep _ => gennumForms "hvilken" "hvilket" "hvilke" ! gn
-      } ;
-
-    pronSuch = gennumForms "sådan" "sådant" "sådanne" ;
-
-    reflPron : Agr -> Str = \a -> case a of {
-      {gn = Plg ; p = P1} => "oss" ;
-      {gn = Plg ; p = P2} => "jer" ;
-      {p = P1} => "meg" ;
-      {p = P2} => "deg" ;
-      {p = P3} => "seg"
-      } ;
-
-}