1 files changed, 86 insertions, 0 deletions
diff --git a/tex/context/base/luat-lib.tex b/tex/context/base/luat-lib.tex
new file mode 100644
index 000000000..6c5c63227
--- /dev/null
+++ b/tex/context/base/luat-lib.tex
@@ -0,0 +1,86 @@
+%D \module
+%D   [       file=luat-lib,
+%D        version=2006.09.11,
+%D          title=\CONTEXT\ Lua Macros,
+%D       subtitle=Unicode Support,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright=PRAGMA]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+% \writestatus{loading}{Lua Support Macros (libs)}
+
+%D For the moment we only load this lib.
+
+%D This will move cq. become configurable. The XML like output is just
+%D an example.
+
+% todo \let\normaleverytoks\everytoks \newtoks\everytoke \normaleverytoks{\the\everytoks}
+
+\chardef\statuswidth=15
+\chardef\statuswrite=16
+
+\newtoks\everywritestring
+
+\def\writedirect  {\immediate\write\statuswrite}
+\def\writeline    {\writedirect{}}
+\def\writestring#1{\begingroup\the\everywritestring\writedirect{#1}\endgroup}
+
+\ifx\normalmessage    \undefined \let\normalmessage         \message               \fi
+\ifx\normalwritestatus\undefined \def\normalwritestatus#1#2{\writedirect{#1 : #2}} \fi
+
+% this will change once we have proper write overloads
+
+\registerctxluafile{l-string} {1.001}
+\registerctxluafile{l-boolean}{1.001}
+\registerctxluafile{l-number} {1.001}
+\registerctxluafile{l-math}   {1.001}
+\registerctxluafile{l-table}  {1.001}
+\registerctxluafile{l-md5}    {1.001}
+\registerctxluafile{l-aux}    {1.001}
+\registerctxluafile{l-io}     {1.001}
+\registerctxluafile{l-os}     {1.001}
+\registerctxluafile{l-file}   {1.001}
+\registerctxluafile{l-dir}    {1.001}
+\registerctxluafile{l-unicode}{1.001}
+\registerctxluafile{l-utils}  {1.001}
+\registerctxluafile{l-tex}    {1.001}
+\registerctxluafile{l-xml}    {1.001}
+\registerctxluafile{l-xmlctx} {1.001}
+
+\registerctxluafile{luat-cbk} {1.001}
+\registerctxluafile{luat-lib} {1.001}
+\registerctxluafile{luat-inp} {1.001}
+\registerctxluafile{luat-log} {1.001}
+\registerctxluafile{luat-zip} {1.001}
+\registerctxluafile{luat-tex} {1.001}
+
+\startruntimeluacode
+    \edef\asciia{\ctxlua{tex.sprint(input.logmode())}}
+    \edef\asciib{xml}
+    \ifx\asciia\asciib % brrr
+        \long\def\writebanner  #1{\writestring  {<m t='banner'>#1</m>}}
+        \long\def\writestatus#1#2{\writestring  {<m t='#1'>#2</m>}}
+        \long\def\message      #1{\normalmessage{<m t='message'>#1</m>}}
+    \else
+        \let\writebanner\writestring
+        \let\writestatus\normalwritestatus
+        \let\message    \normalmessage
+    \fi
+\stopruntimeluacode
+
+\registerctxluafile{luat-tmp}{1.001}
+\registerctxluafile{luat-crl}{1.001}
+\registerctxluafile{luat-exe}{1.001}
+\registerctxluafile{luat-iop}{1.001}
+
+% trace used files (only from trees)
+%
+% \ctxlua{input.register_stop_actions(function() input.save_used_files_in_trees(texmf.instance) end)}
+% \ctxlua{table.insert(input.stop_actions, function() input.save_used_files_in_trees(texmf.instance) end)}
+% \ctxlua{function input.stop_actions.trace_used_files() input.save_used_files_in_trees(texmf.instance) end}
+
+\endinput