%%% ====================================================================
%%% @LaTeX-file{
%%%   filename        = "eufrak.dtx",
%%%   version         = "2.2e",
%%%   date            = "2001/10/01",
%%%   time            = "11:41:09 EDT",
%%%   checksum        = "52811 195 873 7580",
%%%   author          = "American Mathematical Society",
%%%   copyright       = "Copyright 2001 American Mathematical Society,
%%%                      all rights reserved.  Copying of this file is
%%%                      authorized only if either:
%%%                      (1) you make absolutely no changes to your copy,
%%%                      including name; OR
%%%                      (2) if you do make changes, you first rename it
%%%                      to some other name.",
%%%   address         = "American Mathematical Society,
%%%                      Technical Support,
%%%                      Publications Technical Group,
%%%                      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",
%%%   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 AMSFonts distribution.
%%%                      It is a \LaTeX{} package that sets up some
%%%                      font shape definitions to use the Euler
%%%                      Fraktur alphabet in math mode. These fonts are
%%%                      part of the AMSFonts font collection.",
%%%   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 is now part of the AMSFonts
%    distribution; it can be used with \LaTeXe{} with no dependency
%    on the \pkg{amsmath} package.
%
%    This file sets up some font shape definitions to use the Euler
%    Fraktur symbols in math mode. These fonts are part of the AMSFonts
%    collection which can be found on many \TeX{} servers. It is also
%    directly available from the AMS and from \TeX{} user groups.
%
% \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}% LaTeX 2.09 can't be used (nor non-LaTeX)
[1994/12/01]% LaTeX date must be December 1994 or later
%    \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}[2001/10/01 v2.2e Euler Fraktur fonts]
%    \end{macrocode}
%
%    The font shapes for the Euler Fraktur 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}
%    for both 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 \opt{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
%    \pkg{eucal}&    none&      \cn{mathcal}\\
%    \pkg{eucal}&    \opt{[mathcal]}& \cn{mathcal}\\
%    \pkg{eucal}&    \opt{[mathscr]}& \cn{mathscr} (\cn{mathcal} unchanged)\\
%    \pkg{euscript}& none&      \cn{EuScript} (obsolete)\\
%    \pkg{euscript}& \opt{[mathcal]}& \cn{mathcal}\\
%    \pkg{eufrak}&   none&      \parbox[t]{14pc}{\cn{mathfrak} (also
%                               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