mltex

git-svn-id: svn://tug.org/texlive/trunk@1101 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 437 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/mltex/lo1enc.def b/Master/texmf-dist/tex/latex/mltex/lo1enc.def
new file mode 100644
index 00000000000..678afb69104
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/mltex/lo1enc.def
@@ -0,0 +1,437 @@
+%% 
+%% This is file `lo1enc.def'.
+%% Copyright (C) 1996,1997,1998,1999 Bernd Raichle.
+%%
+%% -----------------------------------------------------------------
+%% IMPORTANT NOTICE:
+%%
+%% This program can be redistributed and/or modified under the terms
+%% of the LaTeX Project Public License Distributed from CTAN
+%% archives in directory macros/latex/base/lppl.txt; either
+%% version 1 of the License, or any later version.
+%% -----------------------------------------------------------------
+%%
+%% CHANGES:
+%% 1997/01/14 0.9b
+%%    Formerly the \charsubdef assignments were done in a separate
+%%    file loaded before all \DeclareMath... declarations.  Because
+%%    this file was an almost exact copy of `LO1enc.def' I have
+%%    merged both files.
+%%    (Conceptually the separation in two files is the cleaner
+%%    solution but to do this for all possible MLTeX enhanced font
+%%    encodings we have to include the font encoding name into this
+%%    file's name. In practice a single file is simpler to maintain
+%%    and the additions are very short.)
+%% 1997/09/03 0.9c
+%% 1998/10/22 0.9d
+%%    Updated to `ot1enc.def' of <1998/06/01>: removed \aa, \AA, \SS.
+%% 1998/11/17 0.9e
+%%    Only final release changes.
+%%    Added new definition of \sh@ft from `plain.tex' 3.1415926
+%%    as \loONEsh@ft because the type of its argument has
+%%    changed from an integer to a length;
+%%    adapted the definitions of \b and \d accordingly.
+%% 1998/12/21 0.9f
+%%    Removed warning \message.
+%% 1999/03/08 0.9g
+%%    Included missing macro definition of \(loONE)getf@ctor
+%%    used for the accent macros \d and \b.
+%%    Changed licensing conditions to LPPL.
+%% 1999/03/09 0.9h
+%%    Changed `fontenc' to `mltex' in \PackageWarning*.
+%%
+%% ------------------------------------------------------------
+%%
+%\NeedsTeXFormat{LaTeX2e}[1994/12/01] % New \DeclareText...!
+\NeedsTeXFormat{LaTeX2e}[1996/12/01] % Need mono-case file names + \hb@xt@!
+%
+\ProvidesFile{lo1enc.def}[1999/03/09 v0.9h %
+            MLTeX/LaTeX fontenc definition: mLtex's Ot1 (br)]
+%
+\@ifundefined{DeclareFontDefinitionEncodingAlias}{%
+  \input{mlltxchg.def}}{}
+\@ifundefined{DeclareFontDefinitionEncodingAlias}{%
+  \@latex@error{File `mlltxchg.def' seems to be corrupted}%
+     {File `mlltxchg.def' has to define the new declaration
+      \noexpand\DeclareFontDefinitionEncodingAlias which is
+      not the case}%
+  }{}
+%%
+%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% ===== BEGIN -- OT1enc.def:
+%%
+%% The following declarations are copied from
+%% file `OT1enc.def' resp. `ot1enc.def'
+%% replacing "OT1" by "LO1":
+%% 
+\DeclareFontEncoding{LO1}{}{}
+%
+% Make LaTeX read OT1*.fd files for encoding LO1:
+\DeclareFontDefinitionEncodingAlias{LO1}{OT1}
+%
+\DeclareTextAccent{\"}{LO1}{127}
+\DeclareTextAccent{\'}{LO1}{19}
+\DeclareTextAccent{\.}{LO1}{95}
+\DeclareTextAccent{\=}{LO1}{22}
+\DeclareTextAccent{\^}{LO1}{94}
+\DeclareTextAccent{\`}{LO1}{18}
+\DeclareTextAccent{\~}{LO1}{126}
+\DeclareTextAccent{\H}{LO1}{125}
+\DeclareTextAccent{\u}{LO1}{21}
+\DeclareTextAccent{\v}{LO1}{20}
+\DeclareTextAccent{\r}{LO1}{23}
+%% from `plain.tex' upto 3.151592 and LaTeX <1998/06/01>:
+%\def\sh@ft#1{\dimen@.00#1ex\multiply\dimen@\fontdimen1\font
+%  \kern-.0156\dimen@} % compensate for slant in lowered accents
+%% from `plain.tex' 3.1415926 (with slightly changes):
+\begingroup \catcode`P=12 \catcode`T=12 \lccode`P=`p \lccode`T=`t
+\lowercase{\endgroup \def\loONEgetf@ctor#1PT}{#1}%
+\def\loONEsh@ft#1{\dimen@#1%
+  \kern\expandafter\loONEgetf@ctor\the\fontdimen1\font
+  \dimen@} % kern by #1 times the current slant
+\DeclareTextCommand{\b}{LO1}[1]%    \sh@ft{29}
+   {{\o@lign{\relax#1\crcr\hidewidth\loONEsh@ft{-3ex}%
+     \vbox to.2ex{\hbox{\char22}\vss}\hidewidth}}}
+\DeclareTextCommand{\c}{LO1}[1]
+   {\leavevmode\setbox\z@\hbox{#1}\ifdim\ht\z@=1ex\accent24 #1%
+    \else{\ooalign{\unhbox\z@\crcr\hidewidth\char24\hidewidth}}\fi}
+\DeclareTextCommand{\d}{LO1}[1]%    \sh@ft{10}
+   {{\o@lign{\relax#1\crcr\hidewidth\loONEsh@ft{-1ex}.\hidewidth}}}
+\DeclareTextSymbol{\AE}{LO1}{29}
+\DeclareTextSymbol{\OE}{LO1}{30}
+\DeclareTextSymbol{\O}{LO1}{31}
+\DeclareTextSymbol{\ae}{LO1}{26}
+\DeclareTextSymbol{\i}{LO1}{16}
+\DeclareTextSymbol{\j}{LO1}{17}
+\DeclareTextSymbol{\oe}{LO1}{27}
+\DeclareTextSymbol{\o}{LO1}{28}
+\DeclareTextSymbol{\ss}{LO1}{25}
+\DeclareTextSymbol{\textemdash}{LO1}{124}
+\DeclareTextSymbol{\textendash}{LO1}{123}
+\DeclareTextSymbol{\textexclamdown}{LO1}{60}
+\DeclareTextSymbol{\textquestiondown}{LO1}{62}
+\DeclareTextSymbol{\textquotedblleft}{LO1}{92}
+\DeclareTextSymbol{\textquotedblright}{LO1}{`\"}
+\DeclareTextSymbol{\textquoteleft}{LO1}{`\`}
+\DeclareTextSymbol{\textquoteright}{LO1}{`\'}
+%\DeclareTextCommand{\aa}{LO1}
+%   {{\accent23a}}
+%-%%--> \newcommand{\aa}{\r a}
+\DeclareTextCommand{\L}{LO1}
+   {\leavevmode\setbox\z@\hbox{L}\hb@xt@\wd\z@{\hss\@xxxii L}}
+\DeclareTextCommand{\l}{LO1}
+   {{\@xxxii l}}
+%\DeclareTextCommand{\AA}{LO1}
+%   {\leavevmode\setbox\z@\hbox{h}\dimen@\ht\z@\advance\dimen@-1ex%
+%    \rlap{\raise.67\dimen@\hbox{\char23}}A}
+%-%%--> \newcommand{\AA}{\r A}
+%\DeclareTextCommand{\SS}{OT1}
+%   {SS}
+%-%%--> only declared in `t1enc.def' for T1
+\DeclareTextCommand{\textdollar}{LO1}{{%
+   \ifdim \fontdimen\@ne\font >\z@
+      \slshape
+   \else
+      \upshape
+   \fi
+   \char`\$}}
+\DeclareTextCommand{\textsterling}{LO1}{{%
+   \ifdim \fontdimen\@ne\font >\z@
+      \itshape
+   \else
+      \fontshape{ui}\selectfont
+   \fi
+   \char`\$}}
+%%
+%% ===== END -- OT1enc.def.
+%% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%% ===== BEGIN -- MLTeX specific definitions:
+%%
+%% %%%%%%%%%% 1) MLTeX?
+%%
+%% Exists \charsubdef, i.e. are we using MLTeX?
+%% (The group construction keeps \charsubdef undefined.)
+%%
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname charsubdef\endcsname\relax
+  \PackageWarningNoLine{mltex}%
+    {Encoding `LO1' assumes the use of MLTeX,\MessageBreak
+     but this TeX does not have the MLTeX extensions.\MessageBreak
+     I will proceed as if `LO1' are equal to `OT1'}%
+  \expandafter\endinput
+\fi
+%%
+%% %%%%%%%%%% 2) Additional declarations:
+%%
+%% Now declare
+%%  - all character substitution definitions using \charsubdef
+%%    (if not yet done)
+%%  - all additional font encoding definitions
+%%
+%% ========== original MLTeX file "compatible.tex":
+%%
+%% \i \j \aa                          -- OT1enc.def
+%% \' \` \v \u \= \^ \. \H \~ \" \c   -- OT1enc.def
+%% \^^_ \^^S \^^D                     -- removed
+%%
+%%
+%% ========== original MLTeX file "extdef.tex":
+%%
+%% \aa \AA \ae \AE \oe \OE \o \O \ss  -- OT1enc.def
+%% copyright sterling ^^E             -- removed
+%%
+%% \catcode, \lccode, \uccode assignments are not necessary
+%%                            or are done in `inputenc'.
+%%
+%% \charsubdef assignments are done only if not yet done
+%%
+%%
+%% `LO1enc.def' already loaded once, i.e. \charsubdef
+%% declarations already done?  (Exists \@@charsubdef?)
+%%
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname @@charsubdef\endcsname\relax
+\newcommand{\ml@DCT}[3]{%
+  % (a) assign \charsubdef using LO1/OT1 accent glyph codes
+  \global\charsubdef #3=%
+    % accent glyph:
+         \ifnum`#1=`\`18 %
+    \else\ifnum`#1=`\'19 %
+    \else\ifnum`#1=`\^94 %
+    \else\ifnum`#1=`\"127 %
+    \else\ifnum`#1=`\~126 %
+    \else\ifnum`#1=`\v20 %
+    \else\ifnum`#1=`\u21 %
+    \else\ifnum`#1=`\r23 %
+    \else\ifnum`#1=`\c24 %
+    \else\ifnum`#1=`\.95 %
+    \else\ifnum`#1=`\H125 %
+    \else 256 \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+    % base character glyph:
+         \ifx#2\i16%
+    \else\ifnum`#2=`\i16%
+    \else `#2\fi\fi\relax
+  % (b) assign \lccode, if \lccode = 0
+  % (necessary for hyphenation!)
+  \ifnum\lccode#3>\z@
+  \else
+    \begingroup \count@=#3\relax
+      % majuscule: 128-159 and 192-223
+      % minuscule: 160-191 and 224-255
+      % delta: +/- 32:
+      \ifnum\count@<224
+        \ifnum\count@>191
+          \advance\count@ 32\relax
+        \else \ifnum\count@<160
+          \advance\count@ 32\relax
+        \fi\fi
+      \fi
+      \def\x##1{\endgroup \lccode#3=##1\relax}%
+    \expandafter\x\expandafter{\number\count@}%
+  \fi
+  % (c) \DeclareTextComposite for font encoding LO1
+  \DeclareTextComposite{#1}{LO1}{#2}{#3}}
+\else
+\newcommand{\ml@DCT}[3]{%
+  % (a) assign \lccode, if \lccode = 0
+  % (necessary for hyphenation!)
+  \ifnum\lccode#3>\z@
+  \else
+    \begingroup \count@=#3\relax
+      % majuscule: 128-159 and 192-223
+      % minuscule: 160-191 and 224-255
+      % delta: +/- 32:
+      \ifnum\count@<224
+        \ifnum\count@>191
+          \advance\count@ 32\relax
+        \else \ifnum\count@<160
+          \advance\count@ 32\relax
+        \fi\fi
+      \fi
+      \def\x##1{\endgroup \lccode#3=##1\relax}%
+    \expandafter\x\expandafter{\number\count@}%
+  \fi
+  % (b) \DeclareTextComposite for font encoding LO1
+  \DeclareTextComposite{#1}{LO1}{#2}{#3}}
+\fi
+%
+%
+% ---------- `a 'a ^a ~a "a \u{a} \r{a}
+%
+\ml@DCT{\`}{A}{192}
+\ml@DCT{\'}{A}{193}
+\ml@DCT{\^}{A}{194}
+\ml@DCT{\~}{A}{195}
+\ml@DCT{\"}{A}{196}
+\ml@DCT{\`}{a}{224}
+\ml@DCT{\'}{a}{225}
+\ml@DCT{\^}{a}{226}
+\ml@DCT{\~}{a}{227}
+\ml@DCT{\"}{a}{228}
+%
+\ml@DCT{\u}{A}{128}
+\ml@DCT{\u}{a}{160}
+\ml@DCT{\r}{A}{197}
+\ml@DCT{\r}{a}{229}
+%
+% ---------- \c{c} 'c \v{c}
+%
+\ml@DCT{\c}{C}{199}
+\ml@DCT{\c}{c}{231}
+%
+\ml@DCT{\'}{C}{130}
+\ml@DCT{\v}{C}{131}
+\ml@DCT{\'}{c}{162}
+\ml@DCT{\v}{c}{163}
+%
+% ---------- \v{D}  (\v{d} = d'!)
+%
+\ml@DCT{\v}{D}{132}
+%
+% ---------- `e 'e ^e "e \v{e}
+%
+\ml@DCT{\`}{E}{200}
+\ml@DCT{\'}{E}{201}
+\ml@DCT{\^}{E}{202}
+\ml@DCT{\"}{E}{203}
+\ml@DCT{\`}{e}{232}
+\ml@DCT{\'}{e}{233}
+\ml@DCT{\^}{e}{234}
+\ml@DCT{\"}{e}{235}
+%
+\ml@DCT{\v}{E}{133}
+\ml@DCT{\v}{e}{165}
+%
+% ---------- \u{g}
+%
+\ml@DCT{\u}{G}{135}
+\ml@DCT{\u}{g}{167}
+%
+% ---------- `i 'i ^i "i .i
+%
+\ml@DCT{\`}{I}{204}
+\ml@DCT{\'}{I}{205}
+\ml@DCT{\^}{I}{206}
+\ml@DCT{\"}{I}{207}
+\ml@DCT{\`}{i}{236}
+\ml@DCT{\`}{\i}{236}
+\ml@DCT{\'}{i}{237}
+\ml@DCT{\'}{\i}{237}
+\ml@DCT{\^}{i}{238}
+\ml@DCT{\^}{\i}{238}
+\ml@DCT{\"}{i}{239}
+\ml@DCT{\"}{\i}{239}
+%
+\ml@DCT{\.}{I}{157}
+\DeclareTextComposite{\.}{LO1}{i}{`\i}
+\DeclareTextComposite{\.}{LO1}{\i}{`\i}
+%
+% ---------- (\v{L} \v{l} => L' l'!)
+%
+% ---------- ~n 'n \v{n}
+%
+\ml@DCT{\~}{N}{209}
+\ml@DCT{\~}{n}{241}
+%
+\ml@DCT{\'}{N}{139}
+\ml@DCT{\v}{N}{140}
+\ml@DCT{\'}{n}{171}
+\ml@DCT{\v}{n}{172}
+%
+% ---------- `o 'o ^o ~o "o \H{o}
+%
+\ml@DCT{\`}{O}{210}
+\ml@DCT{\'}{O}{211}
+\ml@DCT{\^}{O}{212}
+\ml@DCT{\~}{O}{213}
+\ml@DCT{\"}{O}{214}
+\ml@DCT{\`}{o}{242}
+\ml@DCT{\'}{o}{243}
+\ml@DCT{\^}{o}{244}
+\ml@DCT{\~}{o}{245}
+\ml@DCT{\"}{o}{246}
+%
+\ml@DCT{\H}{O}{142}
+\ml@DCT{\H}{O}{174}
+%
+% ---------- 'r \v{r}
+%
+\ml@DCT{\'}{R}{143}
+\ml@DCT{\v}{R}{144}
+\ml@DCT{\'}{r}{175}
+\ml@DCT{\v}{r}{176}
+%
+% ---------- 's \v{s} \c{s}
+%
+\ml@DCT{\'}{S}{145}
+\ml@DCT{\v}{S}{146}
+\ml@DCT{\c}{S}{147}
+\ml@DCT{\'}{s}{177}
+\ml@DCT{\v}{s}{178}
+\ml@DCT{\c}{s}{179}
+%
+% ---------- \v{T} \c{t}  (v{t} = t'!)
+%
+\ml@DCT{\v}{T}{148}
+\ml@DCT{\c}{T}{149}
+\ml@DCT{\c}{t}{181}
+%
+% ---------- `u 'u ^u "u \H{u} \r{u}
+%
+\ml@DCT{\`}{U}{217}
+\ml@DCT{\'}{U}{218}
+\ml@DCT{\^}{U}{219}
+\ml@DCT{\"}{U}{220}
+\ml@DCT{\`}{u}{249}
+\ml@DCT{\'}{u}{250}
+\ml@DCT{\^}{u}{251}
+\ml@DCT{\"}{u}{252}
+%
+\ml@DCT{\H}{U}{150}
+\ml@DCT{\r}{U}{151}
+\ml@DCT{\H}{u}{182}
+\ml@DCT{\r}{u}{183}
+%
+% ---------- 'y "y
+%
+\ml@DCT{\'}{Y}{221}
+\ml@DCT{\'}{y}{253}
+%
+\ml@DCT{\"}{Y}{152}
+\ml@DCT{\"}{y}{184}
+%
+% ---------- 'z \v{z} .z
+%
+\ml@DCT{\'}{Z}{153}
+\ml@DCT{\v}{Z}{154}
+\ml@DCT{\.}{Z}{155}
+\ml@DCT{\'}{z}{185}
+\ml@DCT{\v}{z}{186}
+\ml@DCT{\.}{z}{187}
+%
+%
+\let\ml@DCT=\undefined
+%%
+%%
+%% %%%%%%%%%% 3) Switch off \charsubdef
+%%
+\newcommand{\@@charsubdef}{}
+\let\@@charsubdef=\charsubdef % save primitive meaning
+%%
+\renewcommand{\charsubdef}{%
+  \PackageWarning{mltex}%
+    {\string\charsubdef\space declarations should not be\MessageBreak
+     changed in the midst of a document.\MessageBreak
+     I will proceed as if you haven't used\MessageBreak
+     this declaration}%
+  % Redefine \charsubdef <charnum> [=] <charnum> <charnum>
+  % to read all three <charnum>:
+  \begingroup \afterassignment\char@subdef \count@=}
+\newcommand{\char@subdef}{%
+  \afterassignment\char@@subdef \count@}
+\newcommand{\char@@subdef}{%
+  \afterassignment\endgroup \count@=}
+%%
+\endinput
+%% 
+%% End of file `lo1enc.def'.