%%
%% This is file `eufrak.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% eufrak.dtx 
%% 
%%% ====================================================================
%%%  @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.",
%%%  }
%%% ====================================================================
\NeedsTeXFormat{LaTeX2e}
\@ifpackageloaded{amsfonts}{%
  \PackageWarning{eufrak}{The eufrak package is redundant if the
    amsfonts package is used}%
  \def\EuFrak{\mathfrak}% for bulletproofing
  \endinput
}{}%
\ProvidesPackage{eufrak}[1997/05/15 v2.2d Euler Fraktur fonts]
\DeclareMathAlphabet\EuFrak{U}{euf}{m}{n}
\SetMathAlphabet\EuFrak{bold}{U}{euf}{b}{n}
\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}{}%
}
\newcommand{\mathfrak}{\EuFrak}
\ProcessOptions
\endinput
%%
%% End of file `eufrak.sty'.
