diff options
author | Hans Hagen <pragma@wxs.nl> | 2021-07-06 19:34:30 +0200 |
---|---|---|
committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-07-06 19:34:30 +0200 |
commit | 8d02589abdbd8d4f476ac951d99d4081319fce35 (patch) | |
tree | dc1caec6c912e0b38d83ea97c73da006bce0b7d8 /metapost/context/base/mpxl/mp-luas.mpxl | |
parent | c6ae1bb6230894346094364eb08d3aca0efdea9a (diff) | |
download | context-8d02589abdbd8d4f476ac951d99d4081319fce35.tar.gz |
2021-07-06 18:47:00
Diffstat (limited to 'metapost/context/base/mpxl/mp-luas.mpxl')
-rw-r--r-- | metapost/context/base/mpxl/mp-luas.mpxl | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl index 8a4e369b0..04526c061 100644 --- a/metapost/context/base/mpxl/mp-luas.mpxl +++ b/metapost/context/base/mpxl/mp-luas.mpxl @@ -112,8 +112,12 @@ vardef MP@#(text t) = mlib_luas_lualist("MP." & str @#,t) enddef ; -def message expr t = - lua.mp.report(tostring(t)) ; +% todo: runner + +newscriptindex mfun_message ; mfun_message := scriptindex("message") ; + +def message text t = + runscript mfun_message tostring(t) ; % todo: scananything enddef ; permanent newscriptindex, scriptindex, luacall, lua, lualist, mp, MP ; @@ -171,6 +175,8 @@ permanent setmacro, setdimen, setcount, settoks, setglobalmacro, setglobaldimen, setglobalcount, setglobaltoks ; +% todo: mfid_ + vardef positionpath (expr name) = lua.mp.positionpath (name) enddef ; vardef positioncurve (expr name) = lua.mp.positioncurve (name) enddef ; vardef positionxy (expr name) = lua.mp.positionxy (name) enddef ; @@ -279,7 +285,9 @@ newscriptindex mfun_newrecord ; mfun_newrecord := scriptindex "newrecord" ; newscriptindex mfun_setrecord ; mfun_setrecord := scriptindex "setrecord" ; newscriptindex mfun_getrecord ; mfun_getrecord := scriptindex "getrecord" ; -let record = runscript ; % We need to use "let" because we don't expand! +% let record = runscript ; % We need to use "let" because we don't expand! + +def record = newinternal numeric runscript enddef ; def newrecord = runscript mfun_newrecord ; enddef ; % semicolon prevents lookahead def setrecord = runscript mfun_setrecord ; enddef ; |