diff options
| author | Marius <mariausol@gmail.com> | 2011-01-10 14:40:12 +0200 |
|---|---|---|
| committer | Marius <mariausol@gmail.com> | 2011-01-10 14:40:12 +0200 |
| commit | f71041e9e80a2233e1a87c6b95660ed9e369e0c2 (patch) | |
| tree | 9e44c22c5e6d56e47a0f2df200cdcc4b5d233dca /tex/context/base/core-sys.mkiv | |
| parent | 44af35b8124128f1d2343e033255985b0f533c27 (diff) | |
| download | context-f71041e9e80a2233e1a87c6b95660ed9e369e0c2.tar.gz | |
beta 2011.01.10 13:28
Diffstat (limited to 'tex/context/base/core-sys.mkiv')
| -rw-r--r-- | tex/context/base/core-sys.mkiv | 28 |
1 files changed, 15 insertions, 13 deletions
diff --git a/tex/context/base/core-sys.mkiv b/tex/context/base/core-sys.mkiv index cdca352bd..a620bf82f 100644 --- a/tex/context/base/core-sys.mkiv +++ b/tex/context/base/core-sys.mkiv @@ -35,20 +35,24 @@ %D End of lines to the output. \TEX\ will map this onto the platform specific %D line ending. I hate this mess. -%newlinechar=10 \def\outputnewlinechar{\rawcharacter{10}} -\newlinechar=10 \edef\outputnewlinechar{^^J} +\edef\operatingsystem {\ctxwrite {os.platform}} -\edef\operatingsystem {\ctxwrite {os.platform}} +\def \jobfilename {\ctxsprint{environment.jobfilename or ""}} +\def \jobfilesuffix {\ctxsprint{environment.jobfilesuffix or ""}} +\def \inputfilebarename{\ctxsprint{environment.inputfilebarename or ""}} +\def \inputfilesuffix {\ctxsprint{environment.inputfilesuffix or ""}} +\def \inputfilename {\ctxsprint{environment.inputfilename or ""}} +\def \outputfilename {\ctxsprint{environment.outputfilename or ""}} -\def\jobfilename {\ctxsprint{environment.jobfilename or ""}} -\def\jobfilesuffix {\ctxsprint{environment.jobfilesuffix or ""}} -\def\inputfilebarename{\ctxsprint{environment.inputfilebarename or ""}} -\def\inputfilesuffix {\ctxsprint{environment.inputfilesuffix or ""}} -\def\inputfilename {\ctxsprint{environment.inputfilename or ""}} -\def\outputfilename {\ctxsprint{environment.outputfilename or ""}} +\bgroup \permitcaretescape -\def\initializenewlinechar - {\bgroup\newlinechar=10\xdef\outputnewlinechar{^^J}\egroup} + \gdef\initializenewlinechar + {\bgroup + \newlinechar\newlineasciicode + \xdef\outputnewlinechar{^^J}% + \egroup} + +\egroup \newtoks \everysetupsystem @@ -106,8 +110,6 @@ {\let\jobfullname\empty} {\doif\jobfilesuffix\c!tex{\edef\jobfullname{\jobfilename.#1}}}} -\let\systemendofline\outputnewlinechar % will become obsolete - \def\systemparameter#1{\executeifdefined{\??sv#1}\empty} %D There are a couple of system states avaiable: |