From 8af94db0f33d572261193dd4033d25fa253853cf Mon Sep 17 00:00:00 2001
From: Tobias Ulmer <tu@emlix.com>
Date: Wed, 25 Jan 2017 17:39:52 +0100
Subject: [PATCH] Remove scm module

Signed-off-by: Tobias Ulmer <tu@emlix.com>
---
 local/Makefile |   2 +-
 local/scm.lua  | 140 -------------------------------------------------
 2 files changed, 1 insertion(+), 141 deletions(-)
 delete mode 100644 local/scm.lua

diff --git a/local/Makefile b/local/Makefile
index e2517b1..af2f130 100644
--- a/local/Makefile
+++ b/local/Makefile
@@ -28,7 +28,7 @@ LOCALLUATOOLS = e2-build e2-dlist e2-dsort e2-fetch-sources \
 		e2-build-numbers e2-cf e2-help
 
 LOCALLUALIBS= digest.lua e2build.lua e2tool.lua environment.lua \
-	      policy.lua scm.lua licence.lua chroot.lua project.lua \
+	      policy.lua licence.lua chroot.lua project.lua \
 	      source.lua sl.lua result.lua projenv.lua hash.lua cscache.lua
 LOCALTOOLS = $(LOCALLUATOOLS)
 
diff --git a/local/scm.lua b/local/scm.lua
deleted file mode 100644
index b6dd91b..0000000
--- a/local/scm.lua
+++ /dev/null
@@ -1,140 +0,0 @@
---- SCM Interface
--- @module local.scm
-
--- Copyright (C) 2007-2017 emlix GmbH, see file AUTHORS
---
--- This file is part of e2factory, the emlix embedded build system.
--- For more information see http://www.e2factory.org
---
--- e2factory is a registered trademark of emlix GmbH.
---
--- e2factory is free software: you can redistribute it and/or modify it under
--- the terms of the GNU General Public License as published by the
--- Free Software Foundation, either version 3 of the License, or (at your
--- option) any later version.
---
--- This program is distributed in the hope that it will be useful, but WITHOUT
--- ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
--- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for
--- more details.
-
-local scm = {}
-local err = require("err")
-local strict = require("strict")
-local source = require("source")
-
--- scm modules
-local scms = {}
-
--- scm interfaces
-local intf = {}
-
---- register a scm module
--- @param scmname string: scm name
--- @param mod the module
--- @return bool
--- @return an error object on failure
-function scm.register(scmname, mod)
-    local e, rc, re, func
-
-    e = err.new("error registering scm")
-    if scms[scmname] then
-        return false, e:append("scm with that name exists")
-    end
-    scms[scmname] = {}
-    for name,_ in pairs(intf) do
-        -- interface function may not exist in this particular module,
-        -- resulting in a generic error message if called.
-        if strict.islocked(mod) then
-            strict.unlock(mod)
-            func = mod[name]
-            strict.lock(mod)
-        else
-            func = mod[name]
-        end
-
-        if func then
-            rc, re = scm.register_function(scmname, name, func)
-            if not rc then
-                return false, e:cat(re)
-            end
-        end
-    end
-    return true
-end
-
---- register a new scm interface
--- @param name string: interface name
--- @return bool
--- @return an error object on failure
-function scm.register_interface(name)
-    local e = err.new("registering scm interface failed")
-    if intf[name] then
-        return false, e:append(
-        "interface with that name exists: %s", name)
-    end
-
-    local function func(info, sourcename, ...)
-        assert(info)
-        assert(sourcename)
-
-        local typ
-        local rc, re, e
-
-        e = err.new("calling scm operation failed")
-
-        typ = source.sources[sourcename]:get_type()
-        if not scms[typ] then
-            return false, e:append("no such source type: %s", tostring(typ))
-        end
-        local f = scms[typ][name]
-        if not f then
-            e:append("%s() is not implemented for source type: %s", name, typ)
-            return false, e
-        end
-        return f(info, sourcename, ...)
-    end
-
-    intf[name] = true
-
-    -- we have lots of calls like scm.<function>(...). Register the interface
-    -- function in the scm module to support those calls.
-    if strict.islocked(scm) then
-        strict.declare(scm, {name})
-    end
-    scm[name] = func
-
-    return true
-end
-
---- Register a new SCM function (accessible through the scm interface).
--- @param scmtype SCM type (string).
--- @param name string: interface name
--- @param func function: interface function
--- @return True on success, false on error.
--- @return Error object on failure.
-function scm.register_function(scmtype, name, func)
-    local e = err.new("registering scm function failed")
-    if not scms[scmtype] then
-        return false, e:append("no scm type by that name: %s", type)
-    end
-    if not intf[name] then
-        return false, e:append("no scm interface by that name: %s", name)
-    end
-    if scms[scmtype][name] then
-        return false, e:append("scm function exists: %s.%s", type, name)
-    end
-    if type(func) ~= "function" then
-        return false, e:append("scm function argument is not a function")
-    end
-
-    scms[scmtype][name] = func
-
-    return true
-end
-
-scm.register_interface("toresult")
-
-return strict.lock(scm)
-
--- vim:sw=4:sts=4:et:
-- 
2.39.5