diff options
Diffstat (limited to 'tex/context/base/java-ini.tex')
| -rw-r--r-- | tex/context/base/java-ini.tex | 33 |
1 files changed, 17 insertions, 16 deletions
diff --git a/tex/context/base/java-ini.tex b/tex/context/base/java-ini.tex index 85f4a8876..7fdef5345 100644 --- a/tex/context/base/java-ini.tex +++ b/tex/context/base/java-ini.tex @@ -243,7 +243,8 @@ \setverbosecscharacter\4\setverbosecscharacter\5% \setverbosecscharacter\6\setverbosecscharacter\7% \setverbosecscharacter\8\setverbosecscharacter\9% - \setverbosecscharacter\/\setverbosecscharacter\s} + \setverbosecscharacter\n\setverbosecscharacter\s% + \setverbosecscharacter\/} \newif\ifdirectJScode @@ -362,13 +363,13 @@ {\dostartJSpreamble#1 } {\dostartJSpreamble#1 now #2 }} -\long\def\dostartJSpreamble#1 #2 #3\stopJSpreamble% +\long\def\dostartJSpreamble#1 #2 #3\stopJSpreamble {\processaction [#2] - [ later=>\chardef\JSstatus0,% - now=>\chardef\JSstatus1,% - \s!default=>\chardef\JSstatus2,% - \s!unknown=>\chardef\JSstatus2]% + [ later=>\chardef\JSstatus\zerocount,% + now=>\chardef\JSstatus\plusone ,% + \s!default=>\chardef\JSstatus\plustwo ,% + \s!unknown=>\chardef\JSstatus\plustwo ]% \presetJSfunctions #3function ()\end \long\setgvalue{\r!java\r!java#1}{#3}% \ifcase\JSstatus \else @@ -516,7 +517,7 @@ %D \type{TEX}. When followed by a space, this keyword is %D ignored, that is, filtered from the stream. Now we have: -\chardef\JSisTEX=0 +\chardef\JSisTEX =0 \chardef\JScomment=0 \newif\ifaddJSlinebreaks @@ -527,7 +528,7 @@ \or \aftergroup T\aftergroup E% \or \aftergroup T\aftergroup E\aftergroup X% \fi - \chardef\JSisTEX0 } + \chardef\JSisTEX\zerocount} \def\doJSlinebreak {\ifaddJSlinebreaks @@ -537,18 +538,18 @@ \def\dodoPSsanitizeJScode#1% % input stack>500 & TEX check {\if#1/% \ifnum\JScomment=0 - \chardef\JScomment1 + \chardef\JScomment\plusone \else\ifnum\JScomment=1 - \chardef\JScomment2 + \chardef\JScomment\plustwo \fi\fi \else \ifnum\JScomment=1 \aftergroup/% - \chardef\JScomment0 + \chardef\JScomment\zerocount \fi \ifnum\JScomment=2 \if#1\delcharacter - \chardef\JScomment0 + \chardef\JScomment\zerocount \fi \else \if#1\delcharacter @@ -560,13 +561,13 @@ \else\if#1;% \flushJSisTEX\aftergroup;\doJSlinebreak \else\if#1T% - \ifnum\JSisTEX=0 \chardef\JSisTEX1 \else\flushJSisTEX\aftergroup T\fi + \ifnum\JSisTEX=0 \chardef\JSisTEX\plusone \else\flushJSisTEX\aftergroup T\fi \else\if#1E% - \ifnum\JSisTEX=1 \chardef\JSisTEX2 \else\flushJSisTEX\aftergroup E\fi + \ifnum\JSisTEX=1 \chardef\JSisTEX\plustwo \else\flushJSisTEX\aftergroup E\fi \else\if#1X% - \ifnum\JSisTEX=2 \chardef\JSisTEX3 \else\flushJSisTEX\aftergroup X\fi + \ifnum\JSisTEX=2 \chardef\JSisTEX\plusthree \else\flushJSisTEX\aftergroup X\fi \else\if#1\normalspace - \ifnum\JSisTEX=3 \chardef\JSisTEX0 \else\flushJSisTEX\aftergroup#1\fi + \ifnum\JSisTEX=3 \chardef\JSisTEX\zerocount \else\flushJSisTEX\aftergroup#1\fi \else \flushJSisTEX\aftergroup\string\expandafter\aftergroup#1% \fi\fi\fi\fi\fi\fi\fi\fi |