%%
%% This is file `altfont.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% altfont.dtx  (with options: `package')
%% 
%% altfont: A LaTeX2e package for using alternative fonts
%% Copyright (C) 1996 Sebastian Marius Kirsch <sebastian_kirsch@kl.maus.de>
%% 
%% This program is free software; you can redistribute it and/or modify
%% it under the terms of the GNU General Public License as published by
%% the Free Software Foundation; either version 2 of the License, or
%% (at your option) any later version.
%% 
%% This program is distributed in the hope that it will be useful,
%% but WITHOUT ANY WARRANTY; without even the implied warranty of
%% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
%% GNU General Public License for more details.
%% 
%% You should have received a copy of the GNU General Public License
%% along with this program; if not, write to the Free Software
%% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
%% 
\def\fileversion{1.1} % ^^A -*-latex-*-
\def\filedate{1996/07/02}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{altfont}%
  [\filedate\space v\fileversion\space loading alternative fonts]
\newif\ifrm@set\rm@setfalse
\newif\ifsf@set\sf@setfalse
\newif\iftt@set\tt@setfalse
\newcommand{\DefaultRMFont}[1]{\renewcommand{\def@rmfont}{#1}}
\newcommand{\DefaultSFFont}[1]{\renewcommand{\def@sffont}{#1}}
\newcommand{\DefaultTTFont}[1]{\renewcommand{\def@ttfont}{#1}}
\newcommand{\def@rmfont}{}
\newcommand{\def@sffont}{}
\newcommand{\def@ttfont}{}
\newcommand{\AvailableRMFont}[3][]{%
  \DeclareOption{#2}{%
    \ifrm@set\PackageError{altfont}{%
      \protect\rmfamily\space already defined as \rmdefault
      }{%
      You tried to load two roman families at the same time,\MessageBreak
      e.g. times and palatino}
    \else\renewcommand{\rmdefault}{#3}\rm@settrue
    #1
    \fi}
  }
\newcommand{\AvailableSFFont}[3][]{%
  \DeclareOption{#2}{%
    \ifsf@set\PackageError{altfont}{%
      \protect\sffamily\space already defined as \sfdefault
      }{%
      You tried to load two sans serif families at the same time,\MessageBreak
      e.g. gill and helvetica}
    \else\renewcommand{\sfdefault}{#3}\sf@settrue
    #1
    \fi}
  }
\newcommand{\AvailableTTFont}[3][]{%
  \DeclareOption{#2}{%
    \iftt@set\PackageError{altfont}{%
      \protect\ttfamily\space already defined as \ttdefault
      }{%
      You tried to load two typewriter families at the same time,\MessageBreak
      e.g. courier and typewriter}
    \else\renewcommand{\ttdefault}{#3}\tt@settrue
    #1
    \fi}
  }
\newcommand*{\AvailableFont}[5][]{%
  \DeclareOption{#2}{%
    \def\@temprm{#3}\def\@tempsf{#4}\def\@temptt{#5}
    \ifx\empty\@temprm\else
      \ifrm@set\PackageError{altfont}{%
        \protect\rmfamily\space already defined as \rmdefault
        }{%
        You tried to load two roman families at the same time,
        \MessageBreak e.g. times and palatino}
      \else\renewcommand{\rmdefault}{#3}\rm@settrue
      \fi
    \fi
    \ifx\empty\@tempsf\else
      \ifsf@set\PackageError{altfont}{%
        \protect\sffamily\space already defined as \sfdefault
        }{%
        You tried to load two sans serif families at the same time,
        \MessageBreak e.g. gill and helvetica}
      \else\renewcommand{\sfdefault}{#4}\sf@settrue
      \fi
    \fi
    \ifx\empty\@temptt\else
      \iftt@set\PackageError{altfont}{%
        \protect\ttfamily\space already defined as \ttdefault
        }{%
        You tried to load two typewriter families at the same time,
        \MessageBreak e.g. courier and typewriter}
      \else\renewcommand{\ttdefault}{#5}\tt@settrue
      \fi
    \fi
    #1
  }
}
\newcommand*{\altfontenc}[1]{\PassOptionsToPackage{#1}{fontenc}%
  \AtEndOfPackage{\RequirePackage{fontenc}}}
\InputIfFileExists{altfont.cfg}{}{%
  \PackageError{altfont}{%
    No local configuration file found
    }{%
    The altfont package was loaded without a local\MessageBreak
    configuration file, so it doesn't know which fonts\MessageBreak
    are available.}
  }
\DeclareOption{onlyps}{
  \ifrm@set\else
    \ifx\empty\def@rmfont
       \PackageWarning{altfont}{No default roman font defined!}
    \else\renewcommand{\rmdefault}{\def@rmfont}\fi
  \fi
  \ifsf@set\else
    \ifx\empty\def@sffont
       \PackageWarning{altfont}{No default sans serif font defined!}
    \else\renewcommand{\sfdefault}{\def@sffont}\fi
  \fi
  \iftt@set\else
    \ifx\empty\def@ttfont
       \PackageWarning{altfont}{No default typewriter font defined!}
    \else\renewcommand{\ttdefault}{\def@ttfont}\fi
  \fi
  }
\ProcessOptions
\endinput
%%
%% End of file `altfont.sty'.
