1 files changed, 38 insertions, 0 deletions
diff --git a/tex/context/base/syst-mes.mkiv b/tex/context/base/syst-mes.mkiv
new file mode 100644
index 000000000..310f21040
--- /dev/null
+++ b/tex/context/base/syst-mes.mkiv
@@ -0,0 +1,38 @@
+%D \module
+%D   [       file=syst-mes,
+%D        version=2010.06.03,
+%D          title=\CONTEXT\ System Macros,
+%D       subtitle=Messages,
+%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.
+
+\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}
+\let\writebanner   \writestring
+\let\message       \normalmessage
+
+\ifx\normalwritestatus\undefined \def\normalwritestatus#1#2{\writedirect{#1 : #2}} \fi
+
+% no xml logging in format generation
+
+\everyjob {% we can redefine at the lua end !
+    \doif {\ctxlua{tex.sprint(logs.get_method())}} {xml} {%
+        \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>}}%
+        \let\normalwritestatus\writestatus
+    }%
+}
+
+\endinput