diff options
Diffstat (limited to 'Master/texmf-dist/tex/context/base/core-fil.mkiv')
-rw-r--r-- | Master/texmf-dist/tex/context/base/core-fil.mkiv | 61 |
1 files changed, 10 insertions, 51 deletions
diff --git a/Master/texmf-dist/tex/context/base/core-fil.mkiv b/Master/texmf-dist/tex/context/base/core-fil.mkiv index daef176d2b0..263030a9b75 100644 --- a/Master/texmf-dist/tex/context/base/core-fil.mkiv +++ b/Master/texmf-dist/tex/context/base/core-fil.mkiv @@ -75,32 +75,10 @@ %D %D The implementation shows that nesting is supported. -\def\truefilename#1% +\def\truefilename#1% this will move to lua {\ifcsname\??fs#1\endcsname\expandafter\truefilename\csname\??fs#1\endcsname\else#1\fi} %D \macros -%D {makeshortfilename} -%D -%D To prevent cross platform problems with filenames, we -%D lowercase them as well as only use the first 8~characters. -%D -%D \starttyping -%D \def\domakeshortfilename[#1#2#3#4#5#6#7#8#9]% -%D {\lowercase{\edef\shortfilename{#1#2#3#4#5#6#7#8.}}% -%D \expandafter\beforesplitstring\shortfilename\at.\to\shortfilename} -%D -%D \def\makeshortfilename[#1]% -%D {\edef\fullfilename{#1.........}% -%D \expanded{\domakeshortfilename[\fullfilename]}} -%D \stoptyping -%D -%D In 2005 there is no need for the 8~character limit any more, so: - -\def\makeshortfilename[#1]% no need for further cleanup and shortening - {\lowercase{\edef\shortfilename{#1.}}% - \expandafter\beforesplitstring\shortfilename\at.\to\shortfilename} - -%D \macros %D {usemodule} %D %D Most of \CONTEXT is preloaded in the format file. Some very @@ -115,7 +93,7 @@ %D can \type {\end} in modules. \def\dodousemodules#1#2% - {\ctxlua{support.usemodules("#1","#2","\truefilename{#2}")}} + {\ctxcommand{usemodules("#1","#2","\truefilename{#2}")}} \def\usemodules {\dotripleempty\dousemodules} @@ -175,8 +153,8 @@ \fi \let\currentmoduleparameters\empty} -\def\moduleparameter #1#2{\executeifdefined{\??md:#1:#2}\s!empty} -\def\currentmoduleparameter#1{\executeifdefined{\??md:\currentmodule:#1}\s!empty} +\def\moduleparameter #1#2{\executeifdefined{\??md:#1:#2}{}} +\def\currentmoduleparameter#1{\executeifdefined{\??md:\currentmodule:#1}{}} \def\useluamodule [#1]{\ctxlua{dofile(resolvers.findctxfile("#1"))}} \def\luaenvironment #1 {\ctxlua{dofile(resolvers.findctxfile("#1"))}} @@ -215,28 +193,7 @@ %D We also support a singular call, which saves us for %D frustrations when we do a typo. -\let\usemodule=\usemodules - -% %D The definition shows that the language specific settings -% %D are activated after loading all the modules specified. - -%D \macros -%D {ifprotectbuffers, bufferprefix, -%D TEXbufferfile, MPgraphicfile} -%D -%D The next switch enables protection of temporary filenames, -%D which is needed when we process more files on one path at -%D the same time. - -\newif\ifprotectbuffers - -\def\bufferprefix{\ifprotectbuffers\jobname-\fi} - -% The following filenames are defined here: - -\def\TEXbufferfile #1{\bufferprefix#1.\f!temporaryextension} -\def\MPgraphicfile {\bufferprefix mp\ifMPrun run\else graph\fi} % not needed in luatex -\def\convertMPcolorfile{\bufferprefix metacmyk.tmp} +\let\usemodule\usemodules %D To save memory, we implement some seldomly used commands %D in a lazy way. Nota bene: such runtime definitions are @@ -255,13 +212,13 @@ \startreadingfile \startnointerference % \bgroup \cleanupfeatures % better \setnormalcatcodes / test first - \readfile{#2}\donothing\donothing + \readfile{#2.\mksuffix}\donothing\donothing \stopnointerference % \egroup \stopreadingfile \doglobal\setflag{#2}}% \ifx#1\undefined - \writestatus\m!systems{command \string#1 not found in file #2}% - \def#1{{\infofont[unknown command \string#1]}}% + \writestatus\m!system{command \string#1 not found in file #2}% + \gdef#1{{\infofont[unknown command \string#1]}}% \fi #1} @@ -281,4 +238,6 @@ %D This module will be perfected / changed / weeded. +\let\protectbufferstrue\relax % will go away ... now in cont-sys.tex + \protect \endinput |