diff options
Diffstat (limited to 'Master/texmf-dist')
-rw-r--r-- | Master/texmf-dist/tex/latex/mltex/lo1enc.def | 437 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/mltex/mlltxchg.def | 265 | ||||
-rw-r--r-- | Master/texmf-dist/tex/latex/mltex/mltex.sty | 72 |
3 files changed, 774 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'. diff --git a/Master/texmf-dist/tex/latex/mltex/mlltxchg.def b/Master/texmf-dist/tex/latex/mltex/mlltxchg.def new file mode 100644 index 00000000000..eb927edeb1e --- /dev/null +++ b/Master/texmf-dist/tex/latex/mltex/mlltxchg.def @@ -0,0 +1,265 @@ +%% +%% This is file `mlltxchg.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/09/03 0.1a +%% Changes for LaTeX Kernel <1997/06/01>. +%% 1998/10/21 0.1b +%% Checked changes for LaTeX Kernel <1998/06/01>. +%% 1998/11/17 0.9a +%% Final release changes: +%% Renamed file from ``mlltxchg.def'' to ``mlltxchg.def''. +%% Added \Fd@<alias> to map from an alias to the original +%% font encoding (needed for \mlfontencoding). +%% 1998/12/21 0.9b +%% Removed warning \message; added \GenericInfo that some +%% NFSS kernel macros has to be changed. +%% 1999/03/08 0.9c +%% Changed licensing conditions to LPPL. +%% +%% ------------------------------------------------------------ +%% +\NeedsTeXFormat{LaTeX2e}[1996/12/01] % Need mono-case file names! + +\ProvidesFile{mlltxchg.def}% + [1999/03/08 v0.9c % + MLTeX/LaTeX changes of LaTeX Kernel (NFSS) (br)] +\GenericInfo{(mlltxchg)}% + {MLTeX Support Info: Have to change NFSS kernel macros} + +%% Provide the new NFSS declaration +%% +%% \DeclareFontDefinitionEncodingAlias +%% {<alias-fontenc>}{<fontenc>} +%% +%% which declares that for the font encoding <alias-fontenc> +%% NFSS should access and use the fd files of <fontenc>. +%% This can only be done if the fonts in font encoding <fontenc> +%% are only subsets of the fonts in font encoding <alias-fontenc>. +%% +\newcommand{\DeclareFontDefinitionEncodingAlias}[2]{% + \expandafter\ifx\csname T@#2\endcsname\relax + \@font@warning{Font encoding #1 undefined % + (used for fd encoding alias)}% + \else + \expandafter\ifx\csname T@#1\endcsname\relax + \else + \@font@info{Redeclaring font def. encoding alias for #1}% + \fi + \expandafter\xdef\csname fD@#1\endcsname{#2}% + \expandafter\xdef\csname Fd@#2\endcsname{#1}% + \fi} +\@onlypreamble\DeclareFontDefinitionEncodingAlias + + +%% Load the .fd file of the FD Encoding Alias if it exists. +%% +%% From file: ``ltfssbas.dtx'' +%% +%% .fd file has not to be loaded if +%% - encoding+family was already loaded +%% - an fd encoding alias was defined and +%% the aliased encoding+family was already loaded +%% + +%% Original definition from <1996/06/01> +%\def\try@load@fontshape{% +% \expandafter +% \ifx\csname \f@encoding+\f@family\endcsname\relax +% \@font@info{Try loading font information for +% \f@encoding+\f@family}% +% \global\expandafter\let +% \csname\f@encoding+\f@family\endcsname\@empty +% \makeatletter +% \nfss@catcodes +% \@input@{\f@encoding\f@family.fd}% +% \fi +%} +%% Original definition from <1995/12/01>...<1998/06/01> +%\def\try@load@fontshape{% +% \expandafter +% \ifx\csname \f@encoding+\f@family\endcsname\relax +% \@font@info{Try loading font information for +% \f@encoding+\f@family}% +% \global\expandafter\let +% \csname\f@encoding+\f@family\endcsname\@empty +% % \makeatletter +% \nfss@catcodes +% \let\nfss@catcodes\relax +% \edef\reserved@a{% +% \lowercase{% +% \noexpand\InputIfFileExists{\f@encoding\f@family.fd}}}% +% \reserved@a\relax +% {\@input@{\f@encoding\f@family.fd}}% +% \fi} + +\def\ml@try@load@fontshape#1{% + \@font@info{Try loading font information for + \f@encoding+\f@family}% + \global\expandafter\let + \csname\f@encoding+\f@family\endcsname\@empty +%-br%% following line from <1995/12/01>...<1997/06/01>, needed? +%-br% \makeatletter + \nfss@catcodes + \let\nfss@catcodes\relax + \edef\reserved@a{% + \lowercase{% + \noexpand\InputIfFileExists{#1\f@family.fd}}}% + \reserved@a\relax + {\@input@{#1\f@family.fd}}% + } +\def\try@load@fontshape{% + \expandafter + \ifx\csname \f@encoding+\f@family\endcsname\relax + \expandafter + \ifx\csname fD@\f@encoding\endcsname\relax + \ml@try@load@fontshape\f@encoding + \else + \expandafter + \ifx\csname \csname fD@\f@encoding\endcsname+\f@family\endcsname\relax + \expandafter\ml@try@load@fontshape\csname fD@\f@encoding\endcsname + \fi + \fi + \fi} + + +%% Access the FD Encoding Alias as font encoding if it exists: +%% +%% From file: ``ltfssbas.dtx'' +%% + +%% Original definition from <1994/06/01>...<1998/06/01> +%\def\curr@fontshape{\f@encoding/\f@family/\f@series/\f@shape} + +\def\curr@fontshape{% + \expandafter\ifx\csname fD@\f@encoding\endcsname\relax + \f@encoding + \else + \csname fD@\f@encoding\endcsname + \fi /\f@family/\f@series/\f@shape} + + +%% When NFSS is checking defaults, use FD Encoding Alias it it exists: +%% +%% From file: ``ltfssdcl.dtx'' +%% + +%% Original definition from <1994/06/01>...<1998/06/01> +%\def\process@table{% +% \def\cdp@elt##1##2##3##4{% +% \@font@info{Checking defaults for +% ##1/##2/##3/##4}% +% \expandafter +% \ifx\csname##1/##2/##3/##4\endcsname\relax +% \begingroup +% \def\f@encoding{##1}\def\f@family{##2}% +% \try@load@fontshape +% \endgroup +% \fi +% \expandafter +% \ifx\csname##1/##2/##3/##4\endcsname\relax +% \@latex@error{This NFSS system isn't set up properly}% +% {For encoding scheme ##1 the defaults +% ##2/##3/##4 do not form a valid font shape}% +% \else +% \@font@info{... okay}% +% \fi}% +% \cdp@list +% \begingroup +% \escapechar\m@ne +% \error@fontshape +% \expandafter\ifx\csname \curr@fontshape\endcsname\relax +% \begingroup +% \try@load@fontshape +% \endgroup +% \fi +% \expandafter\ifx\csname \curr@fontshape\endcsname\relax +% \@latex@error{This NFSS system isn't set up properly}% +% {The system maintainer forgot to specify a suitable +% substitution +% font shape using the \noexpand\DeclareErrorFont +% command}% +% \fi +% \endgroup +% \let\select@group\document@select@group +% \fontencoding{\encodingdefault}% +% \fontfamily{\familydefault}% +% \fontseries{\seriesdefault}% +% \fontshape{\shapedefault}% +% \everyjob{}% +%} + +\def\process@table{% + \def\cdp@elt##1##2##3##4{% + \@font@info{Checking defaults for + ##1/##2/##3/##4}% + \expandafter + \ifx\csname##1/##2/##3/##4\endcsname\relax + \begingroup + \def\f@encoding{##1}\def\f@family{##2}% + \try@load@fontshape + \endgroup + \fi +%br% new - begin (uses \ifnum 0<0[1]\relax ... trick!) + \ifnum 0<0% +%br% new - end + \expandafter + \ifx\csname##1/##2/##3/##4\endcsname\relax +%br% new - begin + \expandafter + \ifx\csname fD@##1\endcsname\relax + 1% + \else + \expandafter + \ifx\csname \csname fD@##1\endcsname + /##2/##3/##4\endcsname\relax + 1% + \fi + \fi + \fi \relax +%br% new - end + \@latex@error{This NFSS system isn't set up properly}% + {For encoding scheme ##1 the defaults + ##2/##3/##4 do not form a valid font shape}% + \else + \@font@info{... okay}% + \fi}% + \cdp@list + \begingroup + \escapechar\m@ne + \error@fontshape + \expandafter\ifx\csname \curr@fontshape\endcsname\relax + \begingroup + \try@load@fontshape + \endgroup + \fi + \expandafter\ifx\csname \curr@fontshape\endcsname\relax + \@latex@error{This NFSS system isn't set up properly}% + {The system maintainer forgot to specify a suitable + substitution + font shape using the \noexpand\DeclareErrorFont + command}% + \fi + \endgroup + \let\select@group\document@select@group + \fontencoding{\encodingdefault}% + \fontfamily{\familydefault}% + \fontseries{\seriesdefault}% + \fontshape{\shapedefault}% + \everyjob{}% +} +\@onlypreamble\process@table + +\endinput +%% +%% End of file `mlltxchg.def'. diff --git a/Master/texmf-dist/tex/latex/mltex/mltex.sty b/Master/texmf-dist/tex/latex/mltex/mltex.sty new file mode 100644 index 00000000000..53a80be1318 --- /dev/null +++ b/Master/texmf-dist/tex/latex/mltex/mltex.sty @@ -0,0 +1,72 @@ +%% +%% This is file `mltex.sty'. +%% 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: +%% 1998/11/17 0.9a +%% New file; only final release changes. +%% 1998/12/21 0.9b +%% Removed warning \message. +%% 1999/03/08 0.9c +%% Added \selectfont after \fontencoding to force switching +%% accent defs from OT1 to LO1. +%% Changed licensing conditions to LPPL. +%% +%% ------------------------------------------------------------ +%% +%% <1994/12/01> needed for \DeclareText... +\NeedsTeXFormat{LaTeX2e}[1994/12/01] % Update your LaTeX version! + +\ProvidesPackage{mltex}[1999/08/03 v0.9c % + MLTeX/LaTeX package (br)] + +\input{lo1enc.def} + +\@ifundefined{mlfontencoding}{}{% + \PackageError{mltex}% + {Package was loaded twice}% + {This package will probably not work if loaded twice.}% +} + +%% save original definition of \fontencoding +\newcommand{\origfontencoding}{}% +\let\origfontencoding=\fontencoding + +%% provide \mlfontencoding +\newcommand{\mlfontencoding}[1]{% + \expandafter\ifx\csname Fd@#1\endcsname\relax + \origfontencoding{#1}% + \else + \expandafter\origfontencoding + \expandafter{\csname Fd@#1\endcsname}% + \fi}% + +\newif\if@mltexreplace +\DeclareOption{switchonly}{\@mltexreplacefalse} +\DeclareOption{replace}{\@mltexreplacetrue} + +\ExecuteOptions{replace} +\ProcessOptions\relax + +\if@mltexreplace + \PackageInfo{mltex}{Redefining \noexpand\fontencoding!}% + \let\fontencoding=\mlfontencoding + \expandafter\fontencoding\expandafter{\f@encoding}\selectfont +\else + \PackageInfo{mltex}{Switch to `LO1' font encoding only.}% + \fontencoding{LO1}\selectfont% + \renewcommand\encodingdefault{LO1}% +\fi + +\endinput +%% +%% End of file `mltex.sty'. |