diff options
| author | Hans Hagen <pragma@wxs.nl> | 2002-12-20 00:00:00 +0100 |
|---|---|---|
| committer | Hans Hagen <pragma@wxs.nl> | 2002-12-20 00:00:00 +0100 |
| commit | d66c6c7f5bf3b189c2b194ba167fb39f548742e5 (patch) | |
| tree | 23d545dc0956f461418b7e738a018fe046077c32 /tex/context/base/core-sys.tex | |
| parent | d4d7f62e436c20b5ea3ee7f8c9fc3bbacd5dda43 (diff) | |
| download | context-d66c6c7f5bf3b189c2b194ba167fb39f548742e5.tar.gz | |
stable 2002.12.20
Diffstat (limited to 'tex/context/base/core-sys.tex')
| -rw-r--r-- | tex/context/base/core-sys.tex | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/tex/context/base/core-sys.tex b/tex/context/base/core-sys.tex index 942f0c310..d233225fa 100644 --- a/tex/context/base/core-sys.tex +++ b/tex/context/base/core-sys.tex @@ -23,8 +23,10 @@ %\beforesplitstring\ascii\at.\to\jobfilename %\aftersplitstring \ascii\at.\to\jobfilesuffix \splitstring\ascii\at.\to\jobfilename\and\jobfilesuffix + \lowercasestring\jobfilesuffix\to\jobfilesuffix \doifnothing\jobfilename {\let\jobfilename \jobname}% - \doifnothing\jobfilesuffix{\let\jobfilesuffix\c!tex}} + \doifnothing\jobfilesuffix{\let\jobfilesuffix\c!tex}% + \setsystemmode{suffix-\jobfilesuffix}} \appendtoks \splitjobfilename \to \everyjob @@ -35,7 +37,7 @@ \let\outputresolution\@@svresolutie \splitjobfilename} -\def\setupsystem% +\def\setupsystem {\dosingleargument\dosetupsystem} \def\setuprandomize[#1]% @@ -66,15 +68,15 @@ \def\dostartglobaldefs#1#2% {\edef\!!stringa{\the\globaldefs}% \ifnum\globaldefs#10 - \globaldefs=-\globaldefs + \globaldefs-\globaldefs \fi - \advance\globaldefs by #21 + \advance\globaldefs #21 \setevalue{@gd@\the\globaldefs}{\!!stringa}} -\def\dostopglobaldefs% +\def\dostopglobaldefs {\doifdefinedelse{@gd@\the\globaldefs} - {\globaldefs=\getvalue{@gd@\the\globaldefs}\relax} - {\globaldefs=0\relax}} + {\globaldefs\getvalue{@gd@\the\globaldefs}\relax} + {\globaldefs\zerocount}} \def\startlocal {\dostartglobaldefs>-} \def\stoplocal {\dostopglobaldefs} @@ -84,8 +86,8 @@ \def\complexstart[#1]{\bgroup\getvalue{\e!start#1}} \def\complexstop [#1]{\getvalue{\e!stop #1}\egroup} -\def\simplestart{\bgroup} -\def\simplestop {\egroup} +\let\simplestart\bgroup +\let\simplestop \egroup \definecomplexorsimple\start \definecomplexorsimple\stop @@ -107,7 +109,7 @@ {\getvalue{\??be#1\c!voor}% \bgroup \getvalue{\??be#1\c!commandos}% - \dostartattributes{\??be#1}\c!letter\c!kleur{}}% + \dostartattributes{\??be#1}\c!letter\c!kleur\empty}% \setvalue{\e!stop#1}% {\dostopattributes \egroup @@ -161,7 +163,7 @@ \def\complexdefinieer[#1]#2#3% {\ifx#2\undefined \else - \showmessage{\m!systems}{4}{\string#2}% + \showmessage\m!systems4{\string#2}% \fi \ifcase0#1\def#2{#3}% \or\def#2##1{#3}% @@ -183,7 +185,7 @@ \def\gebruikcommandos#1% {\bgroup - \def\docommando##1{\setbox0=\hbox{\getvalue{\string##1}##1}}% + \def\docommando##1{\setbox0\hbox{\getvalue{\string##1}##1}}% \processcommalist[#1]\docommando \egroup} |