%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-lpeg} {1.001} \registerctxluafile{l-boolean}{1.001} \registerctxluafile{l-number} {1.001} \registerctxluafile{l-set} {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-url} {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} \registerctxluafile{luat-tre} {1.001} \startruntimeluacode \edef\asciia{\ctxlua{tex.sprint(input.logmode())}} \edef\asciib{xml} \ifx\asciia\asciib % brrr \long\def\writebanner #1{\writestring {#1}} \long\def\writestatus#1#2{\writestring {#2}} \long\def\message #1{\normalmessage{#1}} \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