diff options
author | Hans Hagen <pragma@wxs.nl> | 2003-01-10 00:00:00 +0100 |
---|---|---|
committer | Hans Hagen <pragma@wxs.nl> | 2003-01-10 00:00:00 +0100 |
commit | 8de3b8a6a820ba65fe85f0cb83700b6282e61d71 (patch) | |
tree | dcc2e712bc7cd631ffeb9190bb8a6320e38617f3 /tex/context/base/core-sys.tex | |
parent | d66c6c7f5bf3b189c2b194ba167fb39f548742e5 (diff) | |
download | context-8de3b8a6a820ba65fe85f0cb83700b6282e61d71.tar.gz |
stable 2003.01.10
Diffstat (limited to 'tex/context/base/core-sys.tex')
-rw-r--r-- | tex/context/base/core-sys.tex | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/tex/context/base/core-sys.tex b/tex/context/base/core-sys.tex index d233225fa..1376030fa 100644 --- a/tex/context/base/core-sys.tex +++ b/tex/context/base/core-sys.tex @@ -18,10 +18,11 @@ \def\outputfilename{\@@svfile} \def\inputfilename {\@@svinputfile} +\let\jobfilesuffix\c!tex + \def\splitjobfilename - {\edef\ascii{\inputfilename}\convertcommand\ascii\to\ascii - %\beforesplitstring\ascii\at.\to\jobfilename - %\aftersplitstring \ascii\at.\to\jobfilesuffix + {\resetsystemmode{suffix-\jobfilesuffix}% + \edef\ascii{\inputfilename}\convertcommand\ascii\to\ascii \splitstring\ascii\at.\to\jobfilename\and\jobfilesuffix \lowercasestring\jobfilesuffix\to\jobfilesuffix \doifnothing\jobfilename {\let\jobfilename \jobname}% |