diff options
author | Karl Berry <karl@freefriends.org> | 2011-12-03 16:26:10 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2011-12-03 16:26:10 +0000 |
commit | c8e2fd77d9df2162ab806d3f1fe7d13c022fbc1e (patch) | |
tree | 8e905997159ce4216cba515437ebba860b6d4b99 /Master/texmf-dist/tex/plain/pitex/lua.ptx | |
parent | b24179a148caa199dd234fe34f69365912b87bda (diff) |
pitex (18nov11)
git-svn-id: svn://tug.org/texlive/trunk@24731 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/plain/pitex/lua.ptx')
-rw-r--r-- | Master/texmf-dist/tex/plain/pitex/lua.ptx | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/plain/pitex/lua.ptx b/Master/texmf-dist/tex/plain/pitex/lua.ptx new file mode 100644 index 00000000000..b41c5af338e --- /dev/null +++ b/Master/texmf-dist/tex/plain/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 |