context (22apr16)

git-svn-id: svn://tug.org/texlive/trunk@40691 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 93 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/context/base/mkiv/grph-fil.lua b/Master/texmf-dist/tex/context/base/mkiv/grph-fil.lua
new file mode 100644
index 00000000000..e774d097e6e
--- /dev/null
+++ b/Master/texmf-dist/tex/context/base/mkiv/grph-fil.lua
@@ -0,0 +1,93 @@
+if not modules then modules = { } end modules ['grph-fil'] = {
+    version   = 1.001,
+    comment   = "companion to grph-fig.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files"
+}
+
+local type = type
+
+local trace_run  = false  trackers.register("graphic.runfile",function(v) trace_run = v end)
+local report_run = logs.reporter("graphics","run")
+
+local isfile        = lfs.isfile
+local replacesuffix = file.replacesuffix
+local addsuffix     = file.addsuffix
+local checksum      = file.checksum
+
+-- Historically running files is part of graphics processing, so this is why it
+-- sits here but is part of the job namespace.
+
+local allocate = utilities.storage.allocate
+
+local collected = allocate()
+local tobesaved = allocate()
+
+local jobfiles = {
+    collected = collected,
+    tobesaved = tobesaved,
+    forcerun  = false, -- maybe a directive some day
+}
+
+job.files = jobfiles
+
+local inputsuffix  = "tex"
+local resultsuffix = "pdf"
+
+local function initializer()
+    tobesaved = jobfiles.tobesaved
+    collected = jobfiles.collected
+end
+
+job.register('job.files.collected', tobesaved, initializer)
+
+function jobfiles.run(name,action)
+    local usedname    = addsuffix(name,inputsuffix) -- we assume tex if not set
+    local oldchecksum = collected[usedname]
+    local newchecksum = checksum(usedname)
+    local resultfile  = replacesuffix(usedname,resultsuffix)
+    if jobfiles.forcerun or not oldchecksum or oldchecksum ~= newchecksum or not isfile(resultfile) then
+        if trace_run then
+            report_run("processing file, changes in %a, processing forced",name)
+        end
+        local ta = type(action)
+        if ta == "function" then
+            action(name)
+        elseif ta == "string" and action ~= "" then
+            os.execute(action)
+        else
+            report_run("processing file, no action given for processing %a",name)
+        end
+    elseif trace_run then
+        report_run("processing file, no changes in %a, not processed",name)
+    end
+    tobesaved[name] = newchecksum
+end
+
+--
+
+local done = { }
+
+function jobfiles.context(name,options)
+    if type(name) == "table" then
+        local result = { }
+        for i=1,#name do
+            result[#result+1] = jobfiles.context(name[i],options)
+        end
+        return result
+    else
+        local result = replacesuffix(name,resultsuffix)
+        if not done[result] then
+            jobfiles.run(name,"context ".. (options or "") .. " " .. name)
+            done[result] = true
+        end
+        return result
+    end
+end
+
+interfaces.implement {
+    name      = "runcontextjob",
+    arguments = { "string", "string" },
+    actions   = { jobfiles.context, context }
+}