diff options
author | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2021-02-25 19:22:25 +0000 |
commit | ad547a6b5986815fda458221149728d9d9ab1d87 (patch) | |
tree | 16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/web2c/tests/mltextst.tex | |
parent | 947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff) |
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/tests/mltextst.tex')
-rw-r--r-- | Build/source/texk/web2c/tests/mltextst.tex | 200 |
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 %%% |