You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
29 lines
1004 B
29 lines
1004 B
|
|
% NOPREFNT.TEX, ver. 1, September 1997, by Petr Olsak (Ol\v s\'ak)
|
|
%
|
|
% This file re-defines the TeX primitive \font by the following way.
|
|
%
|
|
% You write: The meaning:
|
|
% \font\preloaded=*[scaled \magstep?] .... ignore loading
|
|
% another cases ... the font is loaded
|
|
|
|
\ifx\ignoreload\undefined \else \expandafter\endinput \fi
|
|
|
|
\catcode`\{=1 % left brace is begin-group character
|
|
\catcode`\}=2 % right brace is end-group character
|
|
\catcode`\#=6 % hash mark is macro parameter character
|
|
|
|
\let\originalfont\font
|
|
\edef\tempb{\string\preloaded}
|
|
\def\font#1=#2 {\edef\tempa{\string#1}%
|
|
\ifx\tempa\tempb\let\next=\ignoreload
|
|
\else \def\next{\originalfont#1=#2 }%
|
|
\fi\next}
|
|
\long\def\ignoreload#1{\ifx#1s\let\next=\skipscaled
|
|
\else\long\def\next{#1}\fi\next}
|
|
\def\skipscaled #1\magstep#2{}
|
|
\def\restorefont{\let\font\originalfont \let\originalfont\undefined
|
|
\let\ignoreload\undefined \let\restorefont\undefined}
|
|
|
|
% end of file NOPREFNT.TEX
|
|
|
|
|