%%
%% This file is part of the MicroPress Fast package.
%%
%% Copyright (c) 1997-1999 by MicroPress, Inc.
%% All Rights Reserved.
%%
%------------------------------------------------------
%  History:
%
%  08/25/1999 - rewritten by Alex Kostin at MicroPress
%
%------------------------------------------------------
%
% This guarantees that `fast.tex' can't be loaded twice.
% Also `fast-tex' can be used to identify that Fast has been included.
%
\expandafter\ifx\csname fast-tex\endcsname\relax
   \expandafter\gdef\csname fast-tex\endcsname{}%
\else
   \expandafter\endinput
\fi

\edef\fasTsaveAt{\the\catcode`\@}
\catcode`\@=11

\expandafter\ifx\csname @ifundefined\endcsname\relax
  \long\def\@ifundefined#1#2#3{\expandafter\ifx\csname #1\endcsname\relax
     #2\else #3\fi}
\fi

\@ifundefined{@nameuse}{\def\@nameuse#1{\csname #1\endcsname}}{}
\@ifundefined{unitlength}{\@nameuse{newdimen}\unitlength\unitlength\p@}{}
\@ifundefined{@picht}{\@nameuse{newdimen}\@picht}{}
\@ifundefined{@picbox}{\@nameuse{newbox}\@picbox}{}
\@ifundefined{picture}{\long\gdef\picture#1{\pictur@#1}}{}
\@ifundefined{pictur@}{%
  \gdef\pictur@(#1){\@ifnextchar({\@picture(#1)}{\@picture(#1)(0,0)}}}{}
\@ifundefined{@ifnextchar}{%
\long\def\@ifnextchar#1#2#3{%
  \let\reserved@d=#1%
  \def\reserved@a{#2}%
  \def\reserved@b{#3}%
  \futurelet\@let@token\@ifnch}
\def\@ifnch{%
  \ifx\@let@token\@sptoken
    \let\reserved@c\@xifnch
  \else
    \ifx\@let@token\reserved@d
      \let\reserved@c\reserved@a
    \else
      \let\reserved@c\reserved@b
    \fi
  \fi
  \reserved@c}
}{}
\@ifundefined{mbox}{\long\def\mbox#1{\leavevmode\hbox{#1}}}{}

\newif\if@ignore
\newif\if@endpe

\@ifundefined{begin}{%
%
\def\begin#1%
{%
   \@ifundefined{#1}%
   {%
      \def\@tempa{\errmessage{Environment #1 undefined}}%
   }%
   {%
      \def\@tempa{\def\@currenvir{#1}\csname #1\endcsname}%
   }%
   \global\@ignorefalse
   \begingroup
      \@endpefalse
      \@tempa
}%
\def\latex@end#1%
{%
      \csname end#1\endcsname
      \@checkend{#1}%
      \expandafter
   \endgroup
   \if@endpe
      \@doendpe
   \fi
   \if@ignore
      \global\@ignorefalse
      \ignorespaces
   \fi
}%
%
\@ifundefined{vtex@orig@end}{\let\vtex@orig@end\end}{}
%
\def\mplot@checkbrace
{%
   \catcode`\^^M=5
   \ifx\@tempa\bgroup
      \expandafter\latex@end
   \else
      \expandafter\vtex@orig@end
   \fi
}%
\def\end
{%
   \catcode`\^^M=13
   \futurelet\@tempa\mplot@checkbrace
}%
\def\@checkend#1%
{%
   \def\@tempa{#1}%
   \ifx\@tempa\@currenvir
   \else
      \errmessage{\string\begin{\@currenvir} ended by \string\end{#1}}%
   \fi
}%
}{}

\input fast.sty

\catcode`\@=\fasTsaveAt\relax
\endinput
%%
%% End of file `fast.tex'.
