summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/rtkinenc
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-13 00:05:47 +0000
committerKarl Berry <karl@freefriends.org>2006-01-13 00:05:47 +0000
commit5f7de47ae183d1f9f893f43159e7ddc5a4401731 (patch)
treec54c388f26745a27c03e03058ae419e7a0d5ad0f /Master/texmf-dist/tex/latex/rtkinenc
parentd4c2ff1e318360cb705420c32d4159215539c3da (diff)
rtkinenc
git-svn-id: svn://tug.org/texlive/trunk@1288 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/rtkinenc')
-rw-r--r--Master/texmf-dist/tex/latex/rtkinenc/rtkinenc.sty235
1 files changed, 235 insertions, 0 deletions
diff --git a/Master/texmf-dist/tex/latex/rtkinenc/rtkinenc.sty b/Master/texmf-dist/tex/latex/rtkinenc/rtkinenc.sty
new file mode 100644
index 00000000000..17bd2f0dcb4
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/rtkinenc/rtkinenc.sty
@@ -0,0 +1,235 @@
+%%
+%% This is file `rtkinenc.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rtkinenc.dtx (with options: `pkg')
+%%
+%% This file may be distributed and/or modified under the conditions
+%% of the LaTeX Project Public License, either version 1.2 of this
+%% license or (at your option) any later version. The latest version
+%% of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.2 or later is part of all distributions of LaTeX
+%% version 1999/12/01 or later.
+%%
+%% This file may only be distributed together with a copy of the source
+%% file from which it was generated. You may distribute that source file
+%% without this generated file.
+%%
+\NeedsTeXFormat{LaTeX2e}[1995/12/01]
+\ProvidesPackage{rtkinenc}
+ [2000/01/24 v1.0 Rethinking input encoding package]
+\newcount\RIE@last@char
+\global\RIE@last@char=\m@ne
+\@ifundefined{RieC}{}{%
+ \PackageError{rtkinenc}{Redefining \protect\RieC}{%
+ I had expected \protect\RieC\space to be undefined.\MessageBreak
+ Since it wasn't, there's a chance I have\MessageBreak
+ broken something.\MessageBreak\@ehc
+ }
+}
+\def\RieC{%
+ \ifx \protect\@typeset@protect
+ \expandafter\RIE@char
+ \else
+ \noexpand\RieC
+ \fi
+}
+\let\RIE@text@char=\@secondoftwo
+\let\RIE@char=\RIE@text@char
+\def\RIE@code@char#1#2{%
+ \global\RIE@last@char=#1
+ #2%
+ \global\RIE@last@char=\m@ne
+}
+\@ifundefined{RieBC}{}{%
+ \PackageError{rtkinenc}{Redefining \protect\RieBC}{%
+ I had expected \protect\RieBC\space to be undefined.\MessageBreak
+ Since it wasn't, there's a chance I have\MessageBreak
+ broken something.\MessageBreak\@ehc
+ }
+}
+\def\RieBC{%
+ \ifx \protect\@typeset@protect
+ \expandafter\RIE@both@char
+ \else
+ \noexpand\RieBC
+ \fi
+}
+\def\RIE@both@char#1#2#3{%
+ \ifx \RIE@char\RIE@code@char
+ \global\RIE@last@char=#1
+ \fi
+ \ifmmode #3\else #2\fi
+ \ifx \RIE@char\RIE@code@char
+ \global\RIE@last@char=\m@ne
+ \fi
+}
+\def\@tempa{\@autoerr\TextSymbolUnavailable}
+\ifx \@tempa\TextSymbolUnavailable
+ \@autoerr\relax
+\fi
+\let\@@TextSymbolUnavailable=\TextSymbolUnavailable
+\def\TextSymbolUnavailable{%
+ \ifnum \m@ne<\RIE@last@char
+ \expandafter\RIE@symbol@unavailable \expandafter\RIE@last@char
+ \else
+ \expandafter\@@TextSymbolUnavailable
+ \fi
+}
+\PackageInfo{rtkinenc}{Redefining \protect\TextSymbolUnavailable}
+\newcommand\SetUnavailableAction{\def\RIE@symbol@unavailable##1##2}
+\SetUnavailableAction{%
+ \ifx #2\relax
+ \begingroup
+ \let\RIE@char=\RIE@text@char
+ \RIE@undefined{#1}%
+ \endgroup
+ \else
+ \@@TextSymbolUnavailable{#2}%
+ \fi
+}
+\def\RIE@undefined#1{%
+ \ifx \RIE@char\RIE@text@char
+ \PackageError{rtkinenc}{%
+ Input character #1 is undefined\MessageBreak
+ in inputencoding \RIE@encoding}\@eha
+ \else
+ \RIE@symbol@unavailable{#1}\relax
+ \fi
+}
+\newcommand\InputModeCode{\let\RIE@char=\RIE@code@char}
+\newcommand\InputModeText{\let\RIE@char=\RIE@text@char}
+\newcommand\IfInputModeCode{%
+ \ifx \RIE@char\RIE@code@char
+ \expandafter\@firstoftwo
+ \else
+ \expandafter\@secondoftwo
+ \fi
+}
+\expandafter\ifx \csname DeclareInputText\endcsname\relax
+ \begingroup
+ \catcode\z@=13
+ \gdef\DeclareInputText#1#2{%
+ \@inpenc@test
+ \begingroup
+ \uccode\z@=#1%
+ \uppercase{%
+ \endgroup
+ \expandafter\def \expandafter^^@%
+ }\expandafter{\expandafter\RieC \expandafter{\number#1}{#2}}%
+ }%
+ \endgroup
+\else
+ \PackageError{rtkinenc}{\protect\DeclareInputText\space
+ already defined}{\@ehd\MessageBreak
+ Likely cause: you are already using the inputenc package.}
+\fi
+\@ifundefined{DeclareInputMath}{%
+ \let\DeclareInputMath=\DeclareInputText
+}{%
+ \PackageError{rtkinenc}{\protect\DeclareInputMath\space
+ already defined}{\@ehd\MessageBreak
+ Likely cause: you are already using the inputenc package.}
+}
+\expandafter\ifx \csname DeclareInputBoth\endcsname\relax
+ \begingroup
+ \catcode\z@=13
+ \gdef\DeclareInputBoth#1#2#3{%
+ \@inpenc@test
+ \begingroup
+ \uccode\z@=#1%
+ \uppercase{%
+ \endgroup
+ \expandafter\def \expandafter^^@%
+ }\expandafter{\expandafter\RieBC \expandafter{\number#1}%
+ {#2}{#3}%
+ }%
+ }%
+ \endgroup
+\else
+ \PackageError{rtkinenc}{\protect\DeclareInputBoth\space
+ already defined}\@ehd
+\fi
+\def\inputencoding#1{%
+ \gdef\@inpenc@test{\global\let\@inpenc@test\relax}%
+ \protected@edef\RIE@encoding{#1}%
+ \ifvmode
+ \RIE@loop\^^A\^^H%
+ \RIE@loop\^^K\^^K%
+ \RIE@loop\^^N\^^_%
+ \RIE@loop\^^?\^^ff%
+ \input{#1.def}%
+ \fi
+ \ifx \@inpenc@test\relax \else
+ \PackageWarning{rtkinenc}%
+ {No characters defined\MessageBreak
+ by input encoding change to `#1'}%
+ \fi
+}
+\begingroup
+ \catcode\z@=\active
+ \gdef\RIE@loop#1#2{%
+ \@tempcnta=`#1\relax
+ \count@=\uccode\z@
+ \loop
+ \catcode\@tempcnta\active
+ \uccode\z@=\@tempcnta
+ \uppercase{%
+ \expandafter\def \expandafter^^@\expandafter{%
+ \expandafter\RIE@undefined\expandafter{\the\@tempcnta}%
+ }%
+ }%
+ \ifnum `#2>\@tempcnta
+ \advance \@tempcnta \@ne
+ \repeat
+ \uccode\z@=\count@
+ }
+\endgroup
+\newcommand\TypesetHexNumber[1]{%
+ \begingroup
+ \count@=#1\relax
+ \chardef\@tempa=\count@
+ \divide \count@ \sixt@@n
+ \ifcase\count@
+ 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or 9\or a\or b\or
+ c\or d\or e\else f%
+ \fi
+ \multiply \count@ -\sixt@@n
+ \advance \count@ \@tempa
+ \ifcase\count@
+ 0\or 1\or 2\or 3\or 4\or 5\or 6\or 7\or 8\or 9\or a\or b\or
+ c\or d\or e\else f%
+ \fi
+ \endgroup
+}
+\newcommand\TypesetOctalNumber[1]{%
+ \begingroup
+ \count@=#1\relax
+ \chardef\@tempa=\count@
+ \divide \count@ 64\relax
+ \the\count@
+ \multiply \count@ -64%
+ \advance \count@ \@tempa
+ \chardef\@tempa=\count@
+ \divide \count@ 8\relax
+ \the\count@
+ \multiply \count@ -8%
+ \advance \count@ \@tempa
+ \the\count@
+ \endgroup
+}
+\newcommand\verifycharcode[2]{%
+ \ifnum `#1=#2 \else
+ \PackageWarning{rtkinenc}{%
+ Input character with code \number#2\MessageBreak
+ should be the character with code \number`#1}%
+ \fi
+}
+\DeclareOption*{\inputencoding{\CurrentOption}}
+\ProcessOptions
+\endinput
+%%
+%% End of file `rtkinenc.sty'.