%%
%% This is file `eucal.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% euscript.dtx  (with options: `eucal')
%% 
%%% ====================================================================
%%%  @LaTeX-file{
%%%     filename        = "euscript.dtx",
%%%     version         = "2.2c",
%%%     date            = "1997/05/15",
%%%     time            = "11:24:08",
%%%     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        = "29117 193 874 7484",
%%%     email           = "tech-support@ams.org (Internet)",
%%%     codetable       = "ISO/ASCII",
%%%     keywords        = "latex, amslatex, ams-latex, amsfonts, msam,
%%%                        msbm, eufm, blackboard bold",
%%%     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
%%%                        script symbols in math mode. These fonts are
%%%                        part of the AMSFonts font set.",
%%%     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}
\ProvidesPackage{eucal}[1995/01/06 v2.2 Euler Script fonts]
\DeclareMathAlphabet\EuScript{U}{eus}{m}{n}
\SetMathAlphabet\EuScript{bold}{U}{eus}{b}{n}
\newcommand{\CMcal}{}
\let\CMcal=\mathcal
\DeclareOption{psamsfonts}{%
  \DeclareFontFamily{U}{eus}{\skewchar\font'60}%
  \DeclareFontShape{U}{eus}{m}{n}{<-6>eusm5<6-8>eusm7<8->eusm10}{}%
  \DeclareFontShape{U}{eus}{b}{n}{<-6>eusb5<6-8>eusb7<8->eusb10}{}%
}
\DeclareOption{mathcal}{\renewcommand{\mathcal}{\EuScript}}
\DeclareOption{mathscr}{%
  \providecommand{\mathscr}{}\renewcommand{\mathscr}{\EuScript}%
  \let\mathcal=\CMcal
}
\ExecuteOptions{mathcal}
\ProcessOptions
\endinput
%%
%% End of file `eucal.sty'.
