blob: f251ee812bc1ed3914508ddbf0c746eafb773737 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
% 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
|
