diff options
author | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2019-09-02 13:46:59 +0900 |
commit | e0c6872cf40896c7be36b11dcc744620f10adf1d (patch) | |
tree | 60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/plain/contrib/pitex/lua.ptx |
Initial commit
Diffstat (limited to 'macros/plain/contrib/pitex/lua.ptx')
-rw-r--r-- | macros/plain/contrib/pitex/lua.ptx | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/macros/plain/contrib/pitex/lua.ptx b/macros/plain/contrib/pitex/lua.ptx new file mode 100644 index 0000000000..b41c5af338 --- /dev/null +++ b/macros/plain/contrib/pitex/lua.ptx @@ -0,0 +1,26 @@ +\def\inputluafile#1 {\directlua{dofile(kpse.find_file("#1"))}} + +\inputluafile base.ptxlua + +\def\ptx@lua{\directlua name {Internal PiTeX chunk}} + +\newcatcodetable\luacatcodes{\#\%\^^M\~=12} +\newtoks\ptx@luacode_list +\newif\ifptx@luacode_store +% Mimicks a block (\newblock isn't defined yet +% and anyway it wouldn't be very useful). +\def\luacode{% + \begingroup + \catcodetable\luacatcodes + \ifnext[ + {\ptx@luacode_store} + {\ptx@luacode_store[]}} +\bgroup +\setcatcodes{\^^M=12}% +\long\gdef\ptx@luacode_store[#1]^^M#2\luacode/{% So line count is right. + \endgroup% + \ifemptystring{#1}% + {\ptx@lua{#2}}% + {\def#1{#2}}% + }% +\egroup |