From 4fac60d85ade0f051d411be40d5502f360a28402 Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Sat, 3 May 2014 13:55:33 +0200
Subject: 2014-04-28 23:25:00

---
 tex/context/base/mlib-lua.lua | 185 ++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 185 insertions(+)
 create mode 100644 tex/context/base/mlib-lua.lua

(limited to 'tex/context/base/mlib-lua.lua')

diff --git a/tex/context/base/mlib-lua.lua b/tex/context/base/mlib-lua.lua
new file mode 100644
index 000000000..9c7a2e43a
--- /dev/null
+++ b/tex/context/base/mlib-lua.lua
@@ -0,0 +1,185 @@
+if not modules then modules = { } end modules ['mlib-pdf'] = {
+    version   = 1.001,
+    comment   = "companion to mlib-ctx.mkiv",
+    author    = "Hans Hagen, PRAGMA-ADE, Hasselt NL",
+    copyright = "PRAGMA ADE / ConTeXt Development Team",
+    license   = "see context related readme files",
+}
+
+-- This is very preliminary code!
+
+local type, tostring, select, loadstring = type, tostring, select, loadstring
+local formatters = string.formatters
+local find, gsub = string.find, string.gsub
+local concat = table.concat
+local lpegmatch = lpeg.match
+
+local report_luarun = logs.reporter("metapost","lua")
+
+local trace_luarun  = false  trackers.register("metapost.lua",function(v) trace_luarun = v end)
+local trace_enabled = true
+
+mp = mp or { } -- system namespace
+MP = MP or { } -- user namespace
+
+local buffer, n, max = { }, 0, 10 -- we reuse upto max
+
+function mp._f_()
+    if trace_enabled and trace_luarun then
+        local result = concat(buffer," ",1,n)
+        if n > max then
+            buffer = { }
+        end
+        n = 0
+        report_luarun("data: %s",result)
+        return result
+    else
+        if n == 0 then
+            return ""
+        end
+        local result
+        if n == 1 then
+            result = buffer[1]
+        else
+            result = concat(buffer," ",1,n)
+        end
+        if n > max then
+            buffer = { }
+        end
+        n = 0
+        return result
+    end
+end
+
+local f_pair      = formatters["(%s,%s)"]
+local f_triplet   = formatters["(%s,%s,%s)"]
+local f_quadruple = formatters["(%s,%s,%s,%s)"]
+
+function mp.print(...)
+    for i=1,select("#",...) do
+        n = n + 1
+        buffer[n] = tostring((select(i,...)))
+    end
+end
+
+function mp.pair(x,y)
+    n = n + 1
+    if type(x) == "table" then
+        buffer[n] = f_pair(x[1],x[2])
+    else
+        buffer[n] = f_pair(x,y)
+    end
+end
+
+function mp.triplet(x,y,z)
+    n = n + 1
+    if type(x) == "table" then
+        buffer[n] = f_triplet(x[1],x[2],x[3])
+    else
+        buffer[n] = f_triplet(x,y,z)
+    end
+end
+
+function mp.quadruple(w,x,y,z)
+    n = n + 1
+    if type(w) == "table" then
+        buffer[n] = f_quadruple(w[1],w[2],w[3],w[4])
+    else
+        buffer[n] = f_quadruple(w,x,y,z)
+    end
+end
+
+local replacer = lpeg.replacer("@","%%")
+
+function mp.format(fmt,...)
+    n = n + 1
+    if not find(fmt,"%%") then
+        fmt = lpegmatch(replacer,fmt)
+    end
+    buffer[n] = formatters[fmt](...)
+end
+
+function mp.quoted(fmt,s,...)
+    n = n + 1
+    if s then
+        if not find(fmt,"%%") then
+            fmt = lpegmatch(replacer,fmt)
+        end
+        buffer[n] = '"' .. formatters[fmt](s,...) .. '"'
+    else
+        buffer[n] = '"' .. fmt .. '"'
+    end
+end
+
+local f_code = formatters["%s return mp._f_()"]
+
+function metapost.runscript(code)
+    local f = loadstring(f_code(code))
+    if f then
+        return tostring(f())
+    else
+        return ""
+    end
+end
+
+local cache, n = { }, 0 -- todo: when > n then reset cache or make weak
+
+function metapost.runscript(code)
+    if trace_enabled and trace_luarun then
+        report_luarun("code: %s",code)
+    end
+    if n > 100 then
+        cache = nil -- forget about caching
+        local f = loadstring(f_code(code))
+        if f then
+            return tostring(f())
+        else
+            return ""
+        end
+    else
+        local f = cache[code]
+        if f then
+            return tostring(f())
+        else
+            f = loadstring(f_code(code))
+            if f then
+                n = n + 1
+                cache[code] = f
+                return tostring(f())
+            else
+                return ""
+            end
+        end
+    end
+end
+
+-- function metapost.initializescriptrunner(mpx)
+--     mp.numeric = function(s) return mpx:get_numeric(s) end
+--     mp.string  = function(s) return mpx:get_string (s) end
+--     mp.boolean = function(s) return mpx:get_boolean(s) end
+--     mp.number  = mp.numeric
+-- end
+
+local get_numeric = mplib.get_numeric
+local get_string  = mplib.get_string
+local get_boolean = mplib.get_boolean
+local get_number  = get_numeric
+
+-- function metapost.initializescriptrunner(mpx)
+--     mp.numeric = function(s) return get_numeric(mpx,s) end
+--     mp.string  = function(s) return get_string (mpx,s) end
+--     mp.boolean = function(s) return get_boolean(mpx,s) end
+--     mp.number  = mp.numeric
+-- end
+
+local currentmpx = nil
+
+mp.numeric = function(s) return get_numeric(currentmpx,s) end
+mp.string  = function(s) return get_string (currentmpx,s) end
+mp.boolean = function(s) return get_boolean(currentmpx,s) end
+mp.number  = mp.numeric
+
+function metapost.initializescriptrunner(mpx,trialrun)
+    currentmpx = mpx
+    trace_enabled = not trialrun
+end
-- 
cgit v1.2.3