From 47852e5715e7c0374bb6bc173c1728908549e1ed Mon Sep 17 00:00:00 2001 From: Hans Hagen Date: Wed, 24 Jul 2019 13:08:53 +0200 Subject: 2019-07-24 11:24:00 --- metapost/context/base/mpiv/mp-luas.mpiv | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'metapost/context/base/mpiv/mp-luas.mpiv') diff --git a/metapost/context/base/mpiv/mp-luas.mpiv b/metapost/context/base/mpiv/mp-luas.mpiv index 1ba4a6dc9..235f713ba 100644 --- a/metapost/context/base/mpiv/mp-luas.mpiv +++ b/metapost/context/base/mpiv/mp-luas.mpiv @@ -307,3 +307,27 @@ fi ; vardef utflen(expr s) = lua.mp.utflen(s) enddef ; vardef utfsub(expr s,f,t) = lua.mp.utfsub(s,f,t) enddef ; + +if contextlmtxmode : + + newinternal mfid_getparameters ; mfid_getparameters := scriptindex "getparameters" ; + newinternal mfid_presetparameters ; mfid_presetparameters := scriptindex "presetparameters" ; + newinternal mfid_getparameter ; mfid_getparameter := scriptindex "getparameter" ; + newinternal mfid_getparametercount ; mfid_getparametercount := scriptindex "getparametercount" ; + newinternal mfid_getparameterentry ; mfid_getparameterentry := scriptindex "getparameterentry" ; + newinternal mfid_getparametersets ; mfid_getparametersets := scriptindex "getparametersets" ; + newinternal mfid_getparametersetcount ; mfid_getparametersetcount := scriptindex "getparametersetcount" ; + newinternal mfid_getparametersetentry ; mfid_getparametersetentry := scriptindex "getparametersetentry" ; + newinternal mfid_applyparameters ; mfid_applyparameters := scriptindex "applyparameters" ; + + def getparameters = runscript mfid_getparameters enddef ; + def presetparameters = runscript mfid_presetparameters enddef ; + def getparameter = runscript mfid_getparameter enddef ; + def getparametercount = runscript mfid_getparametercount enddef ; + def getparameterentry = runscript mfid_getparameterentry enddef ; + def getparametersets = runscript mfid_getparametersets enddef ; + def getparametersetcount = runscript mfid_getparametersetcount enddef ; + def getparametersetentry = runscript mfid_getparametersetentry enddef ; + def applyparameters = runscript mfid_applyparameters enddef ; + +fi ; -- cgit v1.2.3