summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/mltex/mlltxchg.def
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/latex/contrib/mltex/mlltxchg.def
Initial commit
Diffstat (limited to 'macros/latex/contrib/mltex/mlltxchg.def')
-rw-r--r--macros/latex/contrib/mltex/mlltxchg.def265
1 files changed, 265 insertions, 0 deletions
diff --git a/macros/latex/contrib/mltex/mlltxchg.def b/macros/latex/contrib/mltex/mlltxchg.def
new file mode 100644
index 0000000000..eb927edeb1
--- /dev/null
+++ b/macros/latex/contrib/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'.