diff options
author | Marius <mariausol@gmail.com> | 2010-10-18 12:40:11 +0300 |
---|---|---|
committer | Marius <mariausol@gmail.com> | 2010-10-18 12:40:11 +0300 |
commit | 8009e0ec2449002df344f784da9fe6846abc774f (patch) | |
tree | cd39782dfd7bbf7a3a30f157ba763bfd9425043c /tex/context/base/core-sys.mkiv | |
parent | 406cef06476f30c68f58cb5074efb10f79de129f (diff) | |
download | context-8009e0ec2449002df344f784da9fe6846abc774f.tar.gz |
beta 2010.10.18 11:11
Diffstat (limited to 'tex/context/base/core-sys.mkiv')
-rw-r--r-- | tex/context/base/core-sys.mkiv | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/tex/context/base/core-sys.mkiv b/tex/context/base/core-sys.mkiv index 7b1f2825a..f5bb45e35 100644 --- a/tex/context/base/core-sys.mkiv +++ b/tex/context/base/core-sys.mkiv @@ -38,14 +38,14 @@ %newlinechar=10 \def\outputnewlinechar{\rawcharacter{10}} \newlinechar=10 \edef\outputnewlinechar{^^J} -\edef\operatingsystem {\ctxlua{tex.write(os.platform)}} - -\def\jobfilename {\ctxlua{tex.sprint(tex.texcatcodes,environment.jobfilename or "")}} -\def\jobfilesuffix {\ctxlua{tex.sprint(tex.texcatcodes,environment.jobfilesuffix or "")}} -\def\inputfilebarename{\ctxlua{tex.sprint(tex.texcatcodes,environment.inputfilebarename or "")}} -\def\inputfilesuffix {\ctxlua{tex.sprint(tex.texcatcodes,environment.inputfilesuffix or "")}} -\def\inputfilename {\ctxlua{tex.sprint(tex.texcatcodes,environment.inputfilename or "")}} -\def\outputfilename {\ctxlua{tex.sprint(tex.texcatcodes,environment.outputfilename or "")}} +\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\initializenewlinechar {\bgroup\newlinechar=10\xdef\outputnewlinechar{^^J}\egroup} |