diff options
Diffstat (limited to 'tex/context/base/core-fil.tex')
-rw-r--r-- | tex/context/base/core-fil.tex | 63 |
1 files changed, 30 insertions, 33 deletions
diff --git a/tex/context/base/core-fil.tex b/tex/context/base/core-fil.tex index 4bfdff2c0..cb8f0ed1d 100644 --- a/tex/context/base/core-fil.tex +++ b/tex/context/base/core-fil.tex @@ -62,40 +62,34 @@ %D method to define filesynonyms. The actual synonyms are %D defined elsewhere, but look like: %D -%D \starttyping +%D \starttypen %D \definefilesynonym [chemic] [chemie] -%D \definefilesynonym [einheit] [unit] -%D \definefilesynonym [unit] [unit] -%D \stoptyping +%D \definefilesynonym [einheit] [eenheid] +%D \definefilesynonym [unit] [eenheid] +%D \stoptypen %D %D So we can say in english: %D -%D \starttyping +%D \starttypen %D \usemodules[pictex,chemic,unit] -%D \stoptyping +%D \stoptypen %D %D and in dutch: %D -%D \starttyping -%D \usemodules[pictex,chemie,unit] -%D \stoptyping +%D \starttypen +%D \usemodules[pictex,chemie,eenheid] +%D \stoptypen \def\definefilesynonym {\dodoubleempty\dodefinefilesynonym} -% \def\dodefinefilesynonym[#1][#2]% -% {\doifdefined{\??fs#1} -% {\doifnotvalue{\??fs#1}{#2} -% {\showmessage\m!files1{#1 (#2),\getvalue{\??fs#1}}}}% -% \doifelse{#1}{#2} -% {\letbeundefined{\??fs#1}{#2}} -% {\setevalue{\??fs#1}{#2}}} - \def\dodefinefilesynonym[#1][#2]% - {\ifundefined{\??fs#1}\else - \doifnotvalue{\??fs#1}{#2}{\showmessage\m!files1{#1 (#2),\getvalue{\??fs#1}}}% - \fi - \doifelse{#1}{#2}{\letbeundefined{\??fs#1}{#2}}{\setevalue{\??fs#1}{#2}}} + {\doifdefined{\??fs#1} + {\doifnotvalue{\??fs#1}{#2} + {\showmessage\m!files1{#1 (#2),\getvalue{\??fs#1}}}}% + \doifelse{#1}{#2} + {\letbeundefined{\??fs#1}{#2}} + {\setevalue{\??fs#1}{#2}}} %D \macros %D {truefilename} @@ -103,14 +97,18 @@ %D At the system level such a filename can be called upon by %D saying: %D -%D \starttyping +%D \starttypen %D \truefilename{filename/filesynonym} -%D \stoptyping +%D \stoptypen %D %D The implementation shows that nesting is supported. \def\truefilename#1% - {\ifundefined{\??fs#1}#1\else\truefilename{\csname\??fs#1\endcsname}\fi} + {\ifundefined{\??fs#1}% + #1% + \else + \truefilename{\getvalue{\??fs#1}}% + \fi} %D \macros %D {makeshortfilename} @@ -223,9 +221,9 @@ %D in a lazy way. Nota bene: such runtime definitions are %D global. %D -%D \starttyping +%D \starttypen %D \fetchruntimecommand\showaccents{\f!encodingprefix ...} -%D \stoptyping +%D \stoptypen \def\fetchruntimecommand#1#2% {\def#1{\dofetchruntimecommand#1{#2}}} @@ -241,21 +239,20 @@ \stopreadingfile \doglobal\setflag{#2}}% \ifx#1\undefined - \writestatus\m!systems{command \string#1 not found in file #2}% + \writestatus{\m!systems}{command \string#1 not found in file #2}% \def#1{{\infofont[unknown command \string#1]}}% \fi #1} %D To be documented and probably moved -\def\documentresources{\@@erurl} - -\def\setupexternalresources +\def\stelexternebronnenin {\dodoubleargument\getparameters[\??er]} -\setupexternalresources - [url=] +\def\documentresources{\@@erurl} + +\stelexternebronnenin[url=] %D This module will be perfected / changed / weeded. -\protect \endinput +\protect \endinput
\ No newline at end of file |