summaryrefslogtreecommitdiff
path: root/tex/context/base/core-fil.tex
diff options
context:
space:
mode:
Diffstat (limited to 'tex/context/base/core-fil.tex')
-rw-r--r--tex/context/base/core-fil.tex24
1 files changed, 23 insertions, 1 deletions
diff --git a/tex/context/base/core-fil.tex b/tex/context/base/core-fil.tex
index c3a7c52d1..c84534ea6 100644
--- a/tex/context/base/core-fil.tex
+++ b/tex/context/base/core-fil.tex
@@ -173,6 +173,26 @@
\newconditional\moduleisloaded
+% \def\dododousemodules#1#2% no \unprotect/\protect when loading,
+% {\relax % since we need to use ? ! unprotected
+% \ifconditional\moduleisloaded % sometimes (see xtag-map)
+% \let\next\relax % or: \expandafter\gobbleoneargument
+% \else
+% \makeshortfilename[#1\truefilename{#2}]% beware: *- is not part of syn
+% \doifelseflagged\shortfilename
+% {\showmessage\m!systems7{#2 (line \number\inputlineno)}%
+% \settrue\moduleisloaded
+% \let\next\relax}
+% {\doglobal\setflag\shortfilename
+% \def\next
+% {\startreadingfile
+% \readsysfile\shortfilename
+% {\showmessage\m!systems5{#2}\settrue\moduleisloaded}
+% \donothing
+% \stopreadingfile}}%
+% \fi
+% \next}
+
\def\dododousemodules#1#2% no \unprotect/\protect when loading,
{\relax % since we need to use ? ! unprotected
\ifconditional\moduleisloaded % sometimes (see xtag-map)
@@ -188,7 +208,9 @@
{\startreadingfile
\readsysfile\shortfilename
{\showmessage\m!systems5{#2}\settrue\moduleisloaded}
- \donothing
+ {\readsysfile{\shortfilename.\mksuffix} % new
+ {\showmessage\m!systems5{#2 (\mksuffix)}\settrue\moduleisloaded}
+ \donothing}%
\stopreadingfile}}%
\fi
\next}