summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/context/base/regi-ini.tex
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-11-18 01:37:52 +0000
committerKarl Berry <karl@freefriends.org>2006-11-18 01:37:52 +0000
commit5c91b9f8a88e06f057a6a08b0a755a224d08e019 (patch)
tree57cfafb6bd6c146dcdfc911dbef8db622c6476bd /Master/texmf-dist/tex/context/base/regi-ini.tex
parent983736c2ab572e9a860c74f0f781b3decd282f13 (diff)
context 17nov06 update
git-svn-id: svn://tug.org/texlive/trunk@2449 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/context/base/regi-ini.tex')
-rw-r--r--Master/texmf-dist/tex/context/base/regi-ini.tex178
1 files changed, 158 insertions, 20 deletions
diff --git a/Master/texmf-dist/tex/context/base/regi-ini.tex b/Master/texmf-dist/tex/context/base/regi-ini.tex
index 679730d4059..3de73d90ab1 100644
--- a/Master/texmf-dist/tex/context/base/regi-ini.tex
+++ b/Master/texmf-dist/tex/context/base/regi-ini.tex
@@ -11,34 +11,172 @@
%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.
+\unprotect
-% also needed: message
+%D Messages (to be translated).
-\unprotect
+\startmessages dutch library: regimes
+ title: regime
+ 1: regime --
+ 2: regime -- wordt geladen
+ 3: onbekend regime --
+\stopmessages
-\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}}
+\startmessages english library: regimes
+ title: regime
+ 1: regime --
+ 2: regime -- is loaded
+ 3: unknown regime --
+\stopmessages
+
+\startmessages german library: regimes
+ title: Kodierung
+ 1: Kodierung --
+ 2: Kodierung -- ist geladen
+ 3: Unbekannte Kodierung --
+\stopmessages
+
+\startmessages czech library: regimes
+ title: kodovani
+ 1: kodovani --
+ 2: je nacteno kodovani --
+ 3: nezname kodovani --
+\stopmessages
+
+\startmessages italian library: regimes
+ title: codifica
+ 1: codifica --
+ 2: codifica -- caricata
+ 3: codifica sconosciuta --
+\stopmessages
+
+\startmessages norwegian library: regimes
+ title: koding
+ 1: koding --
+ 2: koding -- er lest inn
+ 3: ukjent koding --
+\stopmessages
+
+\startmessages romanian library: regimes
+ title: codificari
+ 1: codificarea --
+ 2: codificarea -- este Encarcata
+ 3: codificarea -- este necunoscuta
+\stopmessages
+
+\startmessages french library: regimes
+ title: encodage
+ 1: encodage --
+ 2: l'encodage -- est chargé
+ 3: encodage -- inconnu
+\stopmessages
+
+%D Variables.
+
+\def\@reg@{@r@eg@} % regime prefix
+
+%D \macros
+%D {currentregime}
+
+\let\currentregime\empty
+\let\defaultregime\s!default
+
+%D Plugin interface.
+
+\let\mkloadregime \gobbleoneargument
+\let\mkenableregime \gobbleoneargument
+\let\mkdisableregime\relax
+\let\mkshowregime \gobbleoneargument
+\let\mkwalkregime \gobbleoneargument
+\let\mkautosetregime\gobbletwoarguments
+
+%D Some low level inheritance stuff (mkii).
+
+\def\doautosetregime{\mkautosetregime}
+
+%D \macros
+%D {defineregimesynonym,trueregimename}
+
+\def\defineregimesynonym
+ {\dodoubleargument\dodefineregimesynonym}
+
+\def\dodefineregimesynonym[#1][#2]%
+ {\setevalue{\@reg@:s:#1}{#2}}
+
+\def\trueregimename#1%
+ {\executeifdefined{\@reg@:s:#1}{#1}}
+
+%D \macros
+%D {useregime}
\def\useregime[#1]%
{\processcommalist[#1]\douseregime}
-\fetchruntimecommand \showregime {regi-run}
+\def\douseregime#1%
+ {\doifundefined{\c!file\f!regimeprefix#1}%
+ {\letgvalue{\c!file\f!regimeprefix#1}\empty
+ \mkloadregime{#1}}}
+
+%D \macros
+%D {enableregime,disableregime}
+
+\let\enabledregime\empty
+
+\def\enableregime[#1]%
+ {\edef\currentregime{\trueregimename{#1}}%
+ \doifelsenothing\currentregime
+ {\disableregime}
+ {\douseregime\currentregime
+ \mkenableregime\currentregime}}
+
+\def\disableregime
+ {\let\currentregime\empty
+ \mkdisableregime}
+
+%D \macros
+%D {protectregime, settoletterunlessactive, settocodeunlessactive}
+%D
+%D The next boolean is used later on to prevent unwanted
+%D catcode changes. Use it with care.
+
+\newif\ifprotectregime \protectregimetrue
+
+\def\settoletterunlessactive#1%
+ {\ifprotectregime\ifnum\catcode#1=\active\else
+ \catcode#1\@@letter
+ \fi\else
+ \catcode#1\@@letter
+ \fi}
+
+\def\settootherunlessactive#1%
+ {\ifprotectregime\ifnum\catcode#1=\active\else
+ \catcode#1=\@@other
+ \fi\else
+ \catcode#1=\@@other
+ \fi}
+
+\def\settocodeunlessactive#1#2%
+ {\ifprotectregime\ifnum\catcode#1=\active\else
+ \catcode#1=#2\relax
+ \fi\else
+ \catcode#1=#2\relax
+ \fi}
+
+%D Sort related:
+
+\def\dowalkregime{\mkwalkregime} % #1
+
+%D \macros
+%D {showregime}
+
+\def\showregime
+ {\dosingleempty\doshowregime}
-\protect
+\def\doshowregime[#1]%
+ {\mkshowregime{#1}}
-% \useregime[def,uni,ibm,win,il1,mac]
-% \useregime[def,uni,iso-8858-1,iso-8858-2,cp1252,mac]
+%D Plugins.
-\useregime[def,uni,utf] % we load the rest runtime
+\loadmkfile{regi-ini}
-\endinput
+\protect \endinput