Current File : //data/old/usr/share/texlive/texmf-dist/tex/latex/mh/mathstyle.sty
%%
%% This is file `mathstyle.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% mathstyle.dtx (with options: `package')
%%
%% This is a generated file.
%%
%% Copyright (C) 1997-2003 by Michael J. Downes
%% Copyright (C) 2007-2011 by Morten Hoegholm et al
%%
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either
%% version 1.3 of this license or (at your option) any later
%% version. The latest version of this license is in
%% http://www.latex-project.org/lppl.txt
%% and version 1.3 or later is part of all distributions of
%% LaTeX version 2005/12/01 or later.
%%
%% This work has the LPPL maintenance status "maintained".
%%
%% This Current Maintainer of this work is
%% Lars Madsen, Will Robertson and Joseph Wright.
%%
%% This work consists of the main source file mathstyle.dtx
%% and the derived files
%% mathstyle.sty, mathstyle.pdf, mathstyle.ins, mathstyle.drv.
%%
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{mathstyle}
[2011/08/03 v0.90 Tracking mathstyle implicitly]
\providecommand\@saveprimitive[2]{%
\begingroup
\edef\@tempa{\string#1}\edef\@tempb{\meaning#1}%
\ifx\@tempa\@tempb \global\let#2#1%
\else
\edef\@tempb{\meaning#2}%
\ifx\@tempa\@tempb
\else \@saveprimitive@a#1#2%
\fi
\fi
\endgroup
}
\providecommand\@saveprimitive@a[2]{%
\begingroup
\def\@tempb##1#1##2{\edef\@tempb{##2}\@car{}}%
\@tempb\nullfont{select font nullfont}%
\topmark{\string\topmark:}%
\firstmark{\string\firstmark:}%
\botmark{\string\botmark:}%
\splitfirstmark{\string\splitfirstmark:}%
\splitbotmark{\string\splitbotmark:}%
#1{\string#1}%
\@nil % for the \@car
\edef\@tempa{\expandafter\strip@prefix\meaning\@tempb}%
\edef\@tempb{\meaning#1}%
\ifx\@tempa\@tempb \global\let#2#1%
\else
\PackageError{mathstyle}%
{Unable to properly define \string#2; primitive
\noexpand#1no longer primitive}\@eha
\fi
\fi
\endgroup
}
\everydisplay=\expandafter{\the\everydisplay\chardef\mathstyle\z@}
\chardef\mathstyle\@ne
\@saveprimitive\displaystyle\@@displaystyle
\@saveprimitive\textstyle\@@textstyle
\@saveprimitive\scriptstyle\@@scriptstyle
\@saveprimitive\scriptscriptstyle\@@scriptscriptstyle
\@saveprimitive\mathchoice\@@mathchoice
\@saveprimitive\over\@@over
\@saveprimitive\atop\@@atop
\@saveprimitive\above\@@above
\@saveprimitive\overwithdelims\@@overwithdelims
\@saveprimitive\atopwithdelims\@@atopwithdelims
\@saveprimitive\abovewithdelims\@@abovewithdelims
\DeclareRobustCommand{\displaystyle}{%
\@@displaystyle \chardef\mathstyle\z@}
\DeclareRobustCommand{\textstyle}{%
\@@textstyle \chardef\mathstyle\@ne}
\DeclareRobustCommand{\scriptstyle}{%
\@@scriptstyle \chardef\mathstyle\tw@}
\DeclareRobustCommand{\scriptscriptstyle}{%
\@@scriptscriptstyle \chardef\mathstyle\thr@@}
\begingroup \catcode`\^=7\relax \catcode`\_=8\relax % just in case
\lowercase{\endgroup
\let\@@superscript=^ \let\@@subscript=_
}%
\begingroup \catcode`\^=12\relax \catcode`\_=12\relax % just in case
\lowercase{\endgroup
\let\@@superscript@other=^ \let\@@subscript@other=_
}%
\def\subsupstyle{%
\ifnum\mathstyle<\tw@ \chardef\mathstyle\tw@
\else \chardef\mathstyle\thr@@
\fi
}
\let\mathsup=\@@superscript
\let\mathsub=\@@subscript
\def\sb#1{\mathsub{\protect\subsupstyle#1}}%
\def\sp#1{\mathsup{\protect\subsupstyle#1}}%
\def\mathchoice{%
\relax\ifcase\mathstyle
\expandafter\@firstoffour
\or
\expandafter\@secondoffour
\or
\expandafter\@thirdoffour
\else
\expandafter\@fourthoffour
\fi
}
\providecommand\@firstoffour[4]{#1}
\providecommand\@secondoffour[4]{#2}
\providecommand\@thirdoffour[4]{#3}
\providecommand\@fourthoffour[4]{#4}
\DeclareRobustCommand\genfrac[6]{%
{#1\fracstyle
{\begingroup #5\endgroup
\csname @@\ifx\maxdimen#4\maxdimen over\else above\fi
\if @#2@\else withdelims\fi\endcsname #2#3#4\relax
#6}%
}%
}
\renewcommand{\frac}{\genfrac{}{}{}{}}
\providecommand{\dfrac}{}
\providecommand{\tfrac}{}
\renewcommand{\dfrac}{\genfrac\displaystyle{}{}{}}
\renewcommand{\tfrac}{\genfrac\textstyle{}{}{}}
\providecommand{\binom}{}
\providecommand{\tbinom}{}
\providecommand{\dbinom}{}
\renewcommand{\binom}{\genfrac{}(){0pt}}
\renewcommand{\dbinom}{\genfrac\displaystyle(){0pt}}
\renewcommand{\tbinom}{\genfrac\textstyle(){0pt}}
\def\fracstyle{\ifcase\mathstyle
\chardef\mathstyle=\@ne
\or
\chardef\mathstyle=\tw@
\else
\chardef\mathstyle=\thr@@
\fi
}
\def\currentmathstyle{%
\ifcase\mathstyle
\@@displaystyle
\or
\@@textstyle
\or
\@@scriptstyle
\or
\@@scriptscriptstyle
\fi}
\DeclareOption{mathactivechars}{%
% \catcode`\^=12\relax
% \catcode`\_=12\relax
\AtBeginDocument{\catcode`\^=12\relax \catcode`\_=12\relax}%
}
\DeclareOption{activechars}{%
% \catcode`\^=13\relax
% \catcode`\_=13\relax
\AtBeginDocument{\catcode`\^=13\relax \catcode`\_=13\relax}%
}
\DeclareOption{noactivechars}{%
% \catcode`\^=7\relax
% \catcode`\_=8\relax
\AtBeginDocument{\catcode`\^=7\relax \catcode`\_=8\relax}%
}
\ExecuteOptions{mathactivechars}
\ProcessOptions\relax
\ifnum\catcode`\^=13\relax
\let^=\sp \let_=\sb
\else
\mathcode`\^="8000\relax
\mathcode`\_="8000\relax
\begingroup
\catcode`\^=\active
\catcode`\_=\active
\global\let^=\sp
\global\let_=\sb
\endgroup
\fi
\endinput
%%
%% End of file `mathstyle.sty'.
Mini Shell