diff options
| author | Hans Hagen <pragma@wxs.nl> | 2021-06-29 23:24:45 +0200 |
|---|---|---|
| committer | Context Git Mirror Bot <phg@phi-gamma.net> | 2021-06-29 23:24:45 +0200 |
| commit | ed04388261fdd19e6cc5661225439df6e042bf41 (patch) | |
| tree | 8266ef63cfd71f6ebe06180f0e69695664010f5b /metapost | |
| parent | 070c533456efeba3c0c97908ab9930f00ae7b61c (diff) | |
| download | context-ed04388261fdd19e6cc5661225439df6e042bf41.tar.gz | |
2021-06-29 23:13:00
Diffstat (limited to 'metapost')
| -rw-r--r-- | metapost/context/base/mpxl/mp-luas.mpxl | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/metapost/context/base/mpxl/mp-luas.mpxl b/metapost/context/base/mpxl/mp-luas.mpxl index 0fea462ff..69474b354 100644 --- a/metapost/context/base/mpxl/mp-luas.mpxl +++ b/metapost/context/base/mpxl/mp-luas.mpxl @@ -275,6 +275,15 @@ permanent getparameters, presetparameters, hasparameter, hasoption, getparameter getparametercount, getmaxparametercount, getparameterpath, getparameterpen, getparametertext, % getparameteroption, applyparameters, pushparameters, popparameters ; +newscriptindex mfun_newrecord ; mfun_newrecord := scriptindex "newrecord" ; +newscriptindex mfun_getrecord ; mfun_getrecord := scriptindex "getrecord" ; + +def newrecord = runscript mfun_newrecord ; enddef ; % semicolon prevents lookahead +def getrecord = runscript mfun_getrecord enddef ; + +permanent + newrecord, getrecord ; + % No vardef's because we need to scan for an assignment too and we'll see % an endgroup otherwise. |