From 91b59bb4f8b33701c69e095841fe4cf57971ac20 Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Sat, 17 Aug 2019 14:26:12 +0200 Subject: 2019-08-17 11:54:00 --- tex/context/base/mkiv/mlib-scn.lua | 17 ++++++++++++++++- 1 file changed, 16 insertions(+), 1 deletion(-) (limited to 'tex/context/base/mkiv/mlib-scn.lua') diff --git a/tex/context/base/mkiv/mlib-scn.lua b/tex/context/base/mkiv/mlib-scn.lua index 6916f3f38..454f3e281 100644 --- a/tex/context/base/mkiv/mlib-scn.lua +++ b/tex/context/base/mkiv/mlib-scn.lua @@ -345,6 +345,8 @@ local function popparameters() end end +-- todo: + local function getparameter() local list, n = collectnames() local v = namespaces @@ -556,7 +558,6 @@ local function getparameteroption() return false end - metapost.registerscript("getparameters", getparameters) metapost.registerscript("applyparameters", applyparameters) metapost.registerscript("presetparameters", presetparameters) @@ -570,6 +571,20 @@ metapost.registerscript("getparameteroption", getparameteroption) metapost.registerscript("pushparameters", pushparameters) metapost.registerscript("popparameters", popparameters) +function metapost.getparameter(list) + local n = #list + local v = namespaces + for i=1,n do + local l = list[i] + local vl = v[l] + if vl == nil then + return + end + v = vl + end + return v +end + -- tex scanners local scanners = tokens.scanners -- cgit v1.2.3