1 files changed, 200 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/tests/mltextst.tex b/Build/source/texk/web2c/tests/mltextst.tex
new file mode 100644
index 00000000000..d7925fea208
--- /dev/null
+++ b/Build/source/texk/web2c/tests/mltextst.tex
@@ -0,0 +1,200 @@
+% This is MLTEXTST.TEX (Version 1.2) in text format, as of Dec 07, 1995.
+% Test file to check MLTeX implementations.
+%
+% Copyright (C) 1995 by B.Raichle; all rights are reserved.
+%
+% Usage:
+%
+%   Run iniTeX on this file.  Do not try to use plain-TeX or LaTeX.
+%   Needs the font metric files:  cmr10.tfm, cmti10.tfm
+%
+%
+% Changes:
+%
+%  95/12/05 v1.0
+%           - initial version
+%  95/12/06 v1.1
+%           - don't show tracing output
+%           - \nonstopmode and additional test for bug 2.
+%  95/12/07 v1.2
+%           - added MLTeX version numbers (and release dates)
+%           - added test for MLTeX version 2.2
+%
+%
+% History of MLTeX for TeX 3.x:
+%
+%  90/04/02 Version ??   (for TeX 3.0)
+%           \charsublist, \charsublistmax
+%  ??/??/?? Version 1.0
+%  92/02/03 Version 2    (for TeX 3.1--3.141)
+%           |effective_char| uses explicit font information
+%  93/10/29 Version 2.01
+%           fix \*leaders problem
+%  95/12/06 Version 2.2  (for TeX 3.14159)
+%           fix font loading bug
+%           fix invalid |font_info| access
+%  in work  Version 3.0
+%           complete re-implementation
+%
+%
+\catcode`\{=1 \catcode`\}=2 \catcode`\#=6
+%
+\immediate\write16{}
+\immediate\write16{Test for bugs in MLTeX (1995/12/07 v1.2 [br])}
+\immediate\write16{}
+%
+% check for plain-TeX:
+% we have to ensure that _no_ fonts are preloaded
+\expandafter\ifx\csname active\endcsname\relax \else
+  \message{Please (Ini)TeX this file, no plain-TeX, no LaTeX!}
+  \expandafter\endinput\expandafter\end\fi
+% check for MLTeX
+\expandafter\ifx\csname charsubdef\endcsname\relax
+  \message{This test file can only be used with MLTeX!}
+  \expandafter\endinput\fi
+%
+\nonstopmode
+%%%\tracingonline=1 \tracingoutput=1 \showboxbreadth=255
+%%%\tracinglostchars=100 \tracingcharsubdef=1
+\hsize=5in
+%
+%
+% 1. Check for bug accessing the wrong character metrics:
+%    (in versions before Feb 1992)
+%
+\font\tenrm=cmr10\relax
+%
+% The group is only necessary, if you want to use this
+% test in your own macros.  \charsubdefmax is saved
+% explicitly for very old versions of MLTeX which have
+% an additional bug when assigning this special integer.
+\begingroup
+  \count255=\charsubdefmax
+  \charsubdefmax=256 % enable all substitutions
+  % very old versions of MLTeX will
+  \charsubdef`\i=1 `\M % substitute "i" by "M"
+  \setbox0=\hbox{\tenrm i}% <-- here
+  \dimen0=\wd0 % get width of box (either "i" or "M")
+  % get width of "i"
+  \charsubdefmax=-1 % disable all substitutions
+  \setbox0=\hbox{\tenrm i}%
+  \dimen2=\wd0 % get width of box
+  % restore former value of \charsubdefmax
+  \charsubdefmax=\count255
+\expandafter\endgroup
+\ifdim\dimen0=\dimen2\relax
+  \immediate\write16{..... Ok, this is a newer MLTeX version (>= 2.0).}
+  \immediate\write16{}
+\else
+  \immediate\write16{%
+..... This is a very old version of MLTeX < 2.0 (released before Feb. 1992)}
+  \immediate\write16{%
+..... immediately update to the newest MLTeX version!}
+  \immediate\write16{}
+  \expandafter\endinput\expandafter\end
+\fi
+%
+%
+% 2. Check for font loading bug:
+%    (in versions before Dec 1995)
+%
+%    - Define a \charsubdef of an existing character with
+%      a non-existing base character
+%
+\charsubdef `A=`a 128
+%%%\message{now: \string\charsubdefmax=\number\charsubdefmax}
+%
+%    - now load font  (do not preload this font!!!!!!)
+%
+\immediate\write16{}
+\immediate\write16{..... If there will be an error "Bad metric (TFM) file",}
+\immediate\write16{..... please update to the newest MLTeX version!}
+\immediate\write16{}
+\font\test=cmti10\relax
+\begingroup
+  \setbox0=\hbox{\test A}
+\expandafter\endgroup
+\ifdim\wd0>0pt\relax \else
+  \immediate\write16{}
+  \immediate\write16{%
+..... This seems to be MLTeX version 2.0 or 2.01 (released before Dec. 1995)}
+  \immediate\write16{%
+..... this version has bugs,}
+  \immediate\write16{%
+..... please update to the newest MLTeX version!}
+  \immediate\write16{}
+  \expandafter\endinput\expandafter\end
+\fi
+\immediate\write16{..... Good, no "Bad metric (TFM) file" bug,}
+\immediate\write16{..... seems to be the a MLTeX version > 2.01.}
+%
+%
+% 3. Check for invalid |font_info| access:
+%
+\immediate\write16{}
+\font\tenrm=cmr10\relax
+%
+\setbox0=\hbox{\tenrm \char`a}\dimen1=\wd0
+\setbox0=\hbox{\tenrm \char`M}\dimen3=\wd0
+\setbox0=\hbox{\tenrm \char0}\dimen5=\wd0
+%
+\charsubdef 128=`a `a
+\setbox0=\hbox{\tenrm \char128}
+\dimen0=\wd0 % get width of `a
+%
+% Now the \charsubdef is changed using
+% an existing base character:
+\charsubdef 128=`a `M
+\setbox0=\hbox{\unhbox0}
+\dimen2=\wd0 % get width of `a or `M
+%
+% And then we remove it.  MLTeX will try to access the 128th
+% entry in the |char_base| array, which is the first entry in
+% the width index array.
+% For MLTeX 2.2 this was "fixed", now it will report a warning
+% "Missing char... no substitution for ..." and MLTeX will use
+% the first character of the font.
+\charsubdefmax=-1
+\setbox0=\hbox{\unhbox0}%
+\dimen4=\wd0
+%
+%%%\message{\the\dimen0-\the\dimen1-\the\dimen2-\the\dimen3-%
+%%%  \the\dimen4-\the\dimen5-}
+%
+\def\x#1\fi\fi{\fi\fi#1}
+\ifdim\dimen0=\dimen2\relax \ifdim\dimen0=\dimen4\relax
+  \immediate\write16{}
+  \immediate\write16{%
+...... Seems to be MLTeX version 3.x (unreleased),}
+  \immediate\write16{%
+...... from whom did you get this version? :-)}
+  \immediate\write16{}
+  \immediate\write16{%
+Congratulations, you have the best MLTeX version!}
+  \immediate\write16{}
+  \x{\endinput\csname end\endcsname}%
+\fi\fi
+%
+\def\x#1\fi{\fi#1}
+\ifdim\dimen4=\dimen5\relax \else
+  \immediate\write16{}
+  \immediate\write16{%
+..... Seems to be MLTeX version 2.0 or 2.01 (released before Dec. 1995)}
+  \immediate\write16{%
+..... this version has bugs,}
+  \immediate\write16{%
+..... please update to the newest MLTeX version!}
+  \immediate\write16{}
+  \expandafter\endinput\expandafter\end
+\fi
+%
+\immediate\write16{}
+\immediate\write16{%
+...... Seems to be MLTeX version 2.2 (released Dec. 1995).}
+\immediate\write16{}
+\immediate\write16{%
+Congratulations, you have a MLTeX version with all known bugs fixed.}
+\immediate\write16{}
+\end
+%
+%%% END OF FILE %%%