summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/plain/pitex/lua.ptx
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2011-12-03 16:26:10 +0000
committerKarl Berry <karl@freefriends.org>2011-12-03 16:26:10 +0000
commitc8e2fd77d9df2162ab806d3f1fe7d13c022fbc1e (patch)
tree8e905997159ce4216cba515437ebba860b6d4b99 /Master/texmf-dist/tex/plain/pitex/lua.ptx
parentb24179a148caa199dd234fe34f69365912b87bda (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.ptx26
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