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

1 files changed, 0 insertions, 77 deletions

diff --git a/next-lib/src/finnish/ExtraFin.gf b/next-lib/src/finnish/ExtraFin.gf
deleted file mode 100644
index 2cb86d506..000000000
--- a/next-lib/src/finnish/ExtraFin.gf
+++ /dev/null
@@ -1,77 +0,0 @@
---# -path=.:abstract:common:prelude
-
-concrete ExtraFin of ExtraFinAbs = CatFin ** 
-  open ResFin, MorphoFin, Coordination, Prelude, NounFin, StructuralFin in {
-
-  lin
-    GenNP np = {
-      s1,sp = \\_,_ => np.s ! NPCase Gen ;
-      s2 = [] ;
-      isNum  = False ;
-      isPoss = False ;
-      isDef  = True  --- "Jussin kolme autoa ovat" ; thus "...on" is missing
-      } ;
-
-
-  lincat
-    VPI   = {s : Str} ;
-    [VPI] = {s1,s2 : Str} ;
-  lin
-    BaseVPI = twoSS ;
-    ConsVPI = consrSS comma ;
-
-    MkVPI vp = {s = infVP (NPCase Nom) Pos (agrP3 Sg) vp Inf1} ;
-    ConjVPI = conjunctDistrSS ;
-    ComplVPIVV vv vpi = 
-      insertObj (\\_,_,_ => vpi.s) (predV vv) ;
-
-    AdvExistNP adv np = 
-      mkClause (\_ -> adv.s) np.a (insertObj 
-        (\\_,b,_ => np.s ! NPCase Nom) (predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}))) ;
-
-    RelExistNP prep rp np = {
-      s = \\t,ant,bo,ag => 
-      let cl = 
-        mkClause 
-          (\_ -> appCompl True Pos prep (rp2np ag.n rp))
-          np.a 
-          (insertObj 
-            (\\_,b,_ => np.s ! NPCase Nom) 
-            (predV (verbOlla ** {sc = NPCase Nom ; qp = "ko"}))) ;
-      in 
-      cl.s ! t ! ant ! bo ! SDecl ;
-      c = NPCase Nom
-      } ;
-
-    AdvPredNP  adv v np =
-      mkClause (\_ -> adv.s) np.a (insertObj 
-        (\\_,b,_ => np.s ! NPCase Nom) (predV v)) ;
-
-    i_implicPron = mkPronoun [] "minun" "minua" "minuna" "minuun" Sg P1 ;
-    whatPart_IP = {
-      s = table {
-        NPCase Nom | NPAcc => "mitä" ;
-        c => whatSg_IP.s ! c
-        } ;
-      n = Sg
-    } ;
-
-    PartCN cn = 
-      let 
-        acn = DetCN (DetQuant IndefArt NumSg) cn
-      in {
-        s = table {
-          NPCase Nom | NPAcc => acn.s ! NPCase Part ;
-          c => acn.s ! c
-          } ; 
-        a = acn.a ;
-        isPron = False
-        } ;
-
-    vai_Conj = {s1 = [] ; s2 = "vai" ; n = Sg} ;
-
-    CompPartAP ap = {
-      s = \\agr => ap.s ! False ! NCase agr.n Part
-      } ;
-
-}