2020-11-23 18:39:00

1 files changed, 0 insertions, 70 deletions

diff --git a/tex/context/base/mkiv/mlib-lmp.lmt b/tex/context/base/mkiv/mlib-lmp.lmt
deleted file mode 100644
index ff9682e87..000000000
--- a/tex/context/base/mkiv/mlib-lmp.lmt
+++ /dev/null
@@ -1,70 +0,0 @@
-if not modules then modules = { } end modules ['mlib-lmp'] = {
-    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",
-}
-
--- path relates stuff ... todo: use a stack (or numeric index to list)
-
-local type = type
-
-local aux       = mp.aux
-local mpnumeric = aux.numeric
-local mppair    = aux.pair
-
-local p = nil
-local n = 0
-
-local function mf_path_reset()
-    p = nil
-    n = 0
-end
-
-local scan       = mp.scan
-local scannumber = scan.number
-local scanpath   = scan.path
-
-local function mf_path_length()
-    p = scanpath()
-    n = p and #p or 1
-    mpnumeric(n)
-end
-
-local function mf_path_point()
-    local i = scannumber()
-    if i > 0 and i <= n then
-        local pi = p[i]
-        mppair(pi[1],pi[2])
-    end
-end
-
-local function mf_path_left()
-    local i = scannumber()
-    if i > 0 and i <= n then
-        local pi = p[i]
-        mppair(pi[5],pi[6])
-    end
-end
-
-local function mf_path_right()
-    local i = scannumber()
-    if i > 0 and i <= n then
-        local pn
-        if i == 1 then
-            pn = p[2] or p[1]
-        else
-            pn = p[i+1] or p[1]
-        end
-        mppair(pn[3],pn[4])
-    end
-end
-
-local registerscript = metapost.registerscript
-
-registerscript("pathreset",    mf_path_reset)
-registerscript("pathlengthof", mf_path_length)
-registerscript("pathpointof",  mf_path_point)
-registerscript("pathleftof",   mf_path_left)
-registerscript("pathrightof",  mf_path_right)