%% %% 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 %% %% 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'.