1 files changed, 121 insertions, 48 deletions
diff --git a/tex/context/base/core-fil.tex b/tex/context/base/core-fil.tex
index d687fc552..27204558d 100644
--- a/tex/context/base/core-fil.tex
+++ b/tex/context/base/core-fil.tex
@@ -1,48 +1,121 @@
-% NOT YET DOCUMENTED !!
- 
-%D \module
-%D   [       file=core-fil,
-%D        version=1997.09.10,
-%D          title=\CONTEXT\ Core Macros,
-%D       subtitle=File Support,
-%D         author=Hans Hagen,
-%D           date=\currentdate,
-%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
-%C
-%C This module is part of the \CONTEXT\ macro||package and is
-%C therefore copyrighted by \PRAGMA. Non||commercial use is
-%C granted.
-
-\writestatus{loading}{Context Core Macros / File Support}
-
-\unprotect
-
-% Why does all tex's handle 8+3 different.
-
-\def\makeshortmodulename[#1#2#3#4#5#6#7#8#9]%
-  {\def\modulename{#1#2#3#4#5#6#7#8.}%
-   \expandafter\beforesplitstring\modulename\at.\to\modulename}
-
-\def\dodousemodules#1%
-  {\makeshortmodulename[m-#1........]%
-   \doifundefinedelse{\modulename\v!aan}
-     {\setgvalue{\modulename\v!aan}{}%
-      \readsysfile{\modulename}%
-        {\showmessage{\m!systems}{5}{#1}}%
-        {\showmessage{\m!systems}{6}{#1}}}
-     {\showmessage{\m!systems}{7}{#1}}}
-
-\def\dousemodules[#1]%
-  {\doifsomething{#1}
-     {\processcommalist[#1]\dodousemodules}}
-
-\def\usemodules%
-  {\dosingleargument\dousemodules}
-
-\def\usemodule%
-  {\usemodules}
-
-\protect
-
-\endinput
-
-\ No newline at end of file
+% NOT YET DOCUMENTED !!
+%
+% overal \normalinput 
+
+ 
+%D \module
+%D   [       file=core-fil,
+%D        version=1997.11.15,
+%D          title=\CONTEXT\ Core Macros,
+%D       subtitle=File Support,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA / Hans Hagen \& Ton Otten}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. Non||commercial use is
+%C granted.
+
+\writestatus{loading}{Context Core Macros / File Support}
+
+\unprotect
+
+%D \macros 
+%D   {definefilename}
+%D
+%D One of the problems with loading files is that their names 
+%D can depend on the interface language. We therefore need a 
+%D method to define filesynonyms. The actual synonyms are 
+%D defined elsewhere, but look like:
+%D 
+%D \starttypen
+%D \definefilesynonym  [chemic]   [chemie]
+%D \definefilesynonym  [einheit]  [eenheid]
+%D \definefilesynonym  [unit]     [eenheid]
+%D \stoptypen
+%D 
+%D So we can say in english:
+%D 
+%D \starttypen
+%D \usemodules[pictex,chemic,unit]
+%D \stoptypen
+%D 
+%D and in dutch:
+%D 
+%D \starttypen
+%D \usemodules[pictex,chemie,eenheid]
+%D \stoptypen
+
+\def\definefilesynonym%
+  {\dodoubleempty\dodefinefilesynonym}
+
+\def\dodefinefilesynonym[#1][#2]%
+  {\lowercase{\setevalue{\??fs#1}{#2}}}
+
+%D \macros 
+%D   {truefilename}
+%D
+%D At the system level such a filename can be called upon by 
+%D saying:
+%D 
+%D \starttypen
+%D \truefilename{filename/filesynonym}
+%D \stoptypen
+
+\def\truefilename#1%
+  {\ifundefined{\??fs#1}#1\else\getvalue{\??fs#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. 
+
+\def\domakeshortfilename[#1#2#3#4#5#6#7#8#9]%
+  {\lowercase{\edef\shortfilename{#1#2#3#4#5#6#7#8.}}%
+   \expandafter\beforesplitstring\shortfilename\at.\to\shortfilename}
+
+\def\makeshortfilename[#1]%
+  {\edef\fullfilename{#1.........}%
+   \expanded{\domakeshortfilename[\fullfilename]}}
+
+%D \macros
+%D   {usemodule}
+%D 
+%D Most of \CONTEXT is preloaded in the format file. Some very
+%D domain specific typesetting topics are however dealt with in
+%D separate modules, e.g. typesettingof chemical structure
+%D formulas. These modules are loaded by: 
+%D 
+%D \showsetup{\y!usemodule}
+%D 
+%D More information on the specific modules can be found in
+%D their dedicated manuals. 
+
+\def\dodousemodules#1%
+  {\makeshortfilename[\f!moduleprefix\truefilename{#1}]%
+   \doifundefinedelse{\shortfilename\v!aan}
+     {\setgvalue{\shortfilename\v!aan}{}%
+      \startreadingfile
+      \readsysfile{\shortfilename}%
+        {\showmessage{\m!systems}{5}{#1}}%
+        {\showmessage{\m!systems}{6}{#1}}%
+      \stopreadingfile}
+     {\showmessage{\m!systems}{7}{#1}}}
+
+\def\dousemodules[#1]%
+  {\doifsomething{#1}
+     {\processcommalist[#1]\dodousemodules}}
+
+\def\usemodules%
+  {\dosingleargument\dousemodules}
+
+%D We also support a singular call, which saves us for 
+%D frustrations when we do a typo.
+
+\def\usemodule%
+  {\usemodules}
+
+\protect
+
+\endinput