summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/generic/enctex/noprefnt.tex
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