%%% ====================================================================
%%%  @LaTeX-file{
%%%     filename        = "eufrak.dtx",
%%%     version         = "2.2d",
%%%     date            = "1997/05/15",
%%%     time            = "11:20:12",
%%%     author          = "American Mathematical Society",
%%%     address         = "American Mathematical Society,
%%%                        Technical Support,
%%%                        Electronic Products and Services,
%%%                        P. O. Box 6248,
%%%                        Providence, RI 02940,
%%%                        USA",
%%%     telephone       = "401-455-4080 or (in the USA and Canada)
%%%                        800-321-4AMS (321-4267)",
%%%     FAX             = "401-331-3842",
%%%     checksum        = "65515 188 811 6907",
%%%     email           = "tech-support@ams.org (Internet)",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "latex, amslatex, ams-latex, amsfonts, eufm,
%%%                        euler, fraktur",
%%%     supported       = "yes",
%%%     abstract        = "This is part of the AMS-\LaTeX{} distribution.
%%%                        It is a \LaTeX{} package that sets up some
%%%                        font shape definitions to use the Euler
%%%                        Fraktur alphabet in math mode.",
%%%     docstring       = "The checksum field above contains a CRC-16
%%%                        checksum as the first value, followed by the
%%%                        equivalent of the standard UNIX wc (word
%%%                        count) utility output of lines, words, and
%%%                        characters.  This is produced by Robert
%%%                        Solovay's checksum utility.",
%%%  }
%%% ====================================================================
%
%\iffalse
%<*driver>
\documentclass{amsdtx}
\usepackage{eufrak}
\begin{document}
\title{The \pkg{eufrak} package}
\author{Frank Mittelbach\and Rainer Sch\"opf\and Michael Downes}
\date{Version \fileversion, \filedate}
\hDocInput{eufrak.dtx}
\end{document}
%</driver>
%\fi
%
% \maketitle
%
% \section{Introduction}
%
%    This package was written originally by Frank Mittelbach and Rainer
%    Sch\"opf; later it was moved into the AMS-\LaTeX{} distribution
%    with only minor modifications.
%
%    It sets up some font shape definitions to use the Euler
%    script symbols in math mode. These fonts are part of the AMS font
%    package which can be found on many \TeX{} servers. It is also
%    directly available from the AMS and from \TeX{} user groups.
%
%    The package does not require the \pkg{amstex} package.
%
% \DescribeMacro\EuFrak
%    To access the Euler Fraktur alphabet a \meta{math alphabet
%    identifier} called \cn{mathfrak} is provided. For example, the input
% \begin{verbatim}
% \[ \mathfrak{A} \neq \mathcal{A} \]
%\end{verbatim}
% will produce
% \[ \mathfrak{A} \neq \mathcal{A} \]
%
% Here is a complete table of the  beautiful letters drawn by Hermann
% Zapf:
% \begin{displaymath}
%   \newcommand{\E}[1]{\mathfrak{#1} &}
%   \begin{array}{*{10}c}
%     \E{A} \E{B} \E{C} \E{D} \E{E} \E{F} \E{G} \E{H} \E{I} \\
%     \E{J} \E{K} \E{L} \E{M} \E{N} \E{O} \E{P} \E{Q} \E{R} \\
%     \E{S} \E{T} \E{U} \E{V} \E{W} \E{X} \E{Y} \E{Z}
%   \end{array}
% \end{displaymath}
%
% \StopEventually{}
%
% \section{The Implementation}
%
%
%    \begin{macrocode}
\NeedsTeXFormat{LaTeX2e}
%    \end{macrocode}
%
%    If the \pkg{amsfonts} package is already loaded, it doesn't really
%    make sense to load \pkg{eufrak} as well.
%    \begin{macrocode}
\@ifpackageloaded{amsfonts}{%
  \PackageWarning{eufrak}{The eufrak package is redundant if the
    amsfonts package is used}%
  \def\EuFrak{\mathfrak}% for bulletproofing
  \endinput
}{}%
%    \end{macrocode}
%
%    \begin{macrocode}
\ProvidesPackage{eufrak}[1997/05/15 v2.2d Euler Fraktur fonts]
%    \end{macrocode}
%
%    The font shapes for the Euler Script medium and bold are defined
%    in the amsfonts.fdd file which comes with the AMS font package.
%    We repeat their default definition here for reference only.
%    \begin{verbatim}
% \DeclareFontFamily{U}{euf}{\skewchar\font'60}
% \DeclareFontShape{U}{euf}{m}{n}{
%     <5> <6> <7> <8> <9> gen * eufm
%    <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>eufm10}{}
% \DeclareFontShape{U}{euf}{b}{n}{
%     <5> <6> <7> <8> <9> gen * eufb
%    <10> <10.95> <12> <14.4> <17.28> <20.74> <24.88>eufb10}{}
%\end{verbatim}
%
% \begin{macro}{\EuFrak}
%    Now we define the \meta{math alphabet identifier} \cn{EuFrak}
%    both for the normal and the bold math version
%    \begin{macrocode}
\DeclareMathAlphabet\EuFrak{U}{euf}{m}{n}
\SetMathAlphabet\EuFrak{bold}{U}{euf}{b}{n}
%    \end{macrocode}
% \end{macro}
%
%    The `psamsfonts' option is intended to mean that the Y\&Y/Blue Sky
%    Research PostScript versions of the AMSFonts should be used. In
%    that font set, the only \fn{.tfm} files provided below size 10 are
%    5 and 7, rather than 5,6,7,8,9. See \fn{amsfonts.dtx} for more
%    discussion.
%    \begin{macrocode}
\DeclareOption{psamsfonts}{%
  \DeclareFontFamily{U}{euf}{}%
  \DeclareFontShape{U}{euf}{m}{n}{<-6>eufm5<6-8>eufm7<8->eufm10}{}%
  \DeclareFontShape{U}{euf}{b}{n}{<-6>eufb5<6-8>eufb7<8->eufb10}{}%
}
%    \end{macrocode}
%
%    Here is a table describing the action of the \pkg{eucal},
%    \pkg{euscript}, and \pkg{eufrak} packages.
% \begin{center}
% \begin{tabular}{lll}
%    Package&  Option&    Commands provided\\
%    \hline
%    eucal&    none&      \cn{mathcal}\\
%    eucal&    [mathcal]& \cn{mathcal}\\
%    eucal&    [mathscr]& \cn{mathscr} (\cn{mathcal} unchanged)\\
%    euscript& none&      \cn{EuScript} (obsolete)\\
%    euscript& [mathcal]& \cn{mathcal}\\
%    eufrak&   none&      \parbox[t]{12pc}{\cn{mathfrak} (as well as
%                         obsolete \cn{EuFrak} for compatibility)}
% \end{tabular}
% \end{center}
%
%    The preferred command name is \cn{mathfrak}, which for now just
%    calls the old command name \cn{EuFrak}.
%    \begin{macrocode}
\newcommand{\mathfrak}{\EuFrak}
%    \end{macrocode}
%
%    Process the package options.
%    \begin{macrocode}
\ProcessOptions
%    \end{macrocode}
%
%    The usual \cs{endinput} to ensure that random garbage at the end of
%    the file doesn't get copied by \fn{docstrip}.
%    \begin{macrocode}
\endinput
%    \end{macrocode}
%
% \changes{v2.1a}{93/12/12}{Update for LaTeX2e}
% \changes{v2.1c}{1994/05/08}{Changed to new documentation standards.}
% \changes{v2.1d}{1994/10/18}{Moved to AMS-LaTeX distribution (mjd)}
% \changes{v2.1d}{1994/10/19}{Added psamsfonts option}
% \changes{v2.1d}{1994/10/19}{Changed cmd name to mathfrak}
% \changes{v2.1d}{1994/10/21}{Some documentation cleanup}
% \changes{v2.2}{1995/01/06}{Moved to amsfonts distrib}
% \changes{v2.2a}{1997/03/20}{%
%    Removed dependency on mixed-case fd file names}
%
% \CheckSum{21}
% \Finale
