diff options
author | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-03-09 20:15:05 +0100 |
---|---|---|
committer | Context Git Mirror Bot <phg42.2a@gmail.com> | 2015-03-09 20:15:05 +0100 |
commit | dc98ffdc842271d05903846b460fab90d4d83739 (patch) | |
tree | 49603cd805408ebdde3a7eafc59c40279dc7e9ad /tex/context/base/syst-lua.mkiv | |
parent | 08128a9710f7a34e16f7487b3bccfe7feadb36f1 (diff) | |
download | context-dc98ffdc842271d05903846b460fab90d4d83739.tar.gz |
2015-03-09 19:29:00
Diffstat (limited to 'tex/context/base/syst-lua.mkiv')
-rw-r--r-- | tex/context/base/syst-lua.mkiv | 27 |
1 files changed, 20 insertions, 7 deletions
diff --git a/tex/context/base/syst-lua.mkiv b/tex/context/base/syst-lua.mkiv index c146b81b7..2a6bcdf6d 100644 --- a/tex/context/base/syst-lua.mkiv +++ b/tex/context/base/syst-lua.mkiv @@ -72,15 +72,28 @@ % which in fact we can do by defining write18 as macro instead of % primitive ... todo. -\unexpanded\def\write#1#% - {\syst_write{#1}} +% \unexpanded\def\write#1#% +% {\syst_write{#1}} +% +% \def\syst_write#1#2% +% {\ctxcommand{write(\number#1,\!!bs\normalunexpanded{#2}\!!es)}} +% +% \unexpanded\def\writeviatex#1#2% +% {\ifx\normalwrite\relax\else +% \normalwrite#1{#2}% +% \fi} + +% we have no way yet to pickup \immediate unless we redefine it +% we assume immediate execution -\def\syst_write#1#2% - {\ctxcommand{write(\number#1,\!!bs#2\!!es)}} +\def\syst_write_execute#1% + {\ctxcommand{execute(\!!bs#1\!!es)}} -\unexpanded\def\writeviatex#1#2% - {\ifx\normalwrite\relax\else - \normalwrite#1{#2}% +\unexpanded\def\write#1#% + {\ifnum#1=18 + \expandafter\syst_write_execute + \else + \normalwrite#1% \fi} \protect \endinput |