summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/regi-ini.tex
blob: 679730d40598384957db8e8c74705efbbdb65625 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
%D \module
%D   [       file=regi-ini,
%D        version=2000.12.27, % 1998.12.03,
%D          title=\CONTEXT\ Regime Macros,
%D       subtitle=Initialization,
%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. See mreadme.pdf for
%C details.

%D For the moment regimes are implemented in \type
%D {enco-ini.tex} module, but some day we will move the
%D code here.

% also needed: message

\unprotect

\def\douseregime#1% nearly identical to encoding
  {\doifundefined{\c!file\f!regimeprefix#1}%
     {\setvalue{\c!file\f!regimeprefix#1}{}%
      \makeshortfilename[\truefilename{\f!regimeprefix#1}]%
      \startreadingfile
        \readsysfile\shortfilename
          {\showmessage\m!encodings2{#1}}
          {\showmessage\m!encodings3{#1}}%
      \stopreadingfile}}

\def\useregime[#1]%
  {\processcommalist[#1]\douseregime}

\fetchruntimecommand \showregime {regi-run}

\protect

% \useregime[def,uni,ibm,win,il1,mac]
% \useregime[def,uni,iso-8858-1,iso-8858-2,cp1252,mac]

\useregime[def,uni,utf] % we load the rest runtime

\endinput