2016-01-12 16:26:00

1 files changed, 73 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/luat-exe.lua b/tex/context/base/mkiv/luat-exe.lua
new file mode 100644
index 000000000..d8d954a30
--- /dev/null
+++ b/tex/context/base/mkiv/luat-exe.lua
@@ -0,0 +1,73 @@
+if not modules then modules = { } end modules ['luat-exe'] = {
+    version   = 1.001,
+    comment   = "companion to luat-lib.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+if not sandbox then require("l-sandbox") require("util-sbx") end -- for testing
+
+local type = type
+
+local executers      = resolvers.executers or { }
+resolvers.executers  = executers
+
+local disablerunners = sandbox.disablerunners
+local registerbinary = sandbox.registerbinary
+local registerroot   = sandbox.registerroot
+
+local lpegmatch      = lpeg.match
+
+local sc_splitter    = lpeg.tsplitat(";")
+local cm_splitter    = lpeg.tsplitat(",")
+
+local execution_mode  directives.register("system.executionmode", function(v) execution_mode = v end)
+local execution_list  directives.register("system.executionlist", function(v) execution_list = v end)
+local root_list       directives.register("system.rootlist",      function(v) root_list      = v end)
+
+sandbox.initializer(function()
+    if execution_mode == "none" then
+        -- will be done later
+    elseif execution_mode == "list" then
+        if type(execution_list) == "string" then
+            execution_list = lpegmatch(cm_splitter,execution_list)
+        end
+        if type(execution_list) == "table" then
+            for i=1,#execution_list do
+                registerbinary(execution_list[i])
+            end
+        end
+    else
+        -- whatever else we have configured
+    end
+end)
+
+sandbox.initializer(function()
+    if type(root_list) == "string" then
+        root_list = lpegmatch(sc_splitter,root_list)
+    end
+    if type(root_list) == "table" then
+        for i=1,#root_list do
+            local entry = root_list[i]
+            if entry ~= "" then
+                registerroot(entry)
+            end
+        end
+    end
+end)
+
+sandbox.finalizer(function()
+    if execution_mode == "none" then
+        disablerunners()
+    end
+end)
+
+-- Let's prevent abuse of these libraries (built-in support still works).
+
+sandbox.finalizer(function()
+    mplib      = nil
+    epdf       = nil
+    zip        = nil
+    fontloader = nil
+end)