%%

%% This is file `ltxutil.sty',

%% generated with the docstrip utility.

%%

%% The original source files were:

%%

%% ltxutil.dtx  (with options: `ltxutil,ltxutil-krn')

%% 

%% This is a generated file;

%% altering it directly is inadvisable;

%% instead, modify the original source file.

%% See the URL in the file 00readme.txt.

%% 

%% Copyright notice.

%% 

%%    These files are distributed

%%    WITHOUT ANY WARRANTY; without even the implied warranty of

%%    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.

%% 

%%%  @LaTeX-file{

%%%     filename        = "ltxutil.dtx",

%%%     version         = "1.0rc5b",

%%%     date            = "2001/07/31",

%%%     time            = "12:23:00 GMT+8",

%%%     checksum        = "3641",

%%%     author          = "Arthur Ogawa (mailto:ogawa@teleport.com),

%%%                        commissioned by the American Physical Society.

%%%                        ",

%%%     copyright       = "Copyright (C) 1999 Arthur Ogawa,

%%%                        distributed under the terms of the

%%%                        LaTeX Project Public License, see

%%%                        ftp://ctan.tug.org/macros/latex/base/lppl.txt

%%%                        ",

%%%     address         = "Arthur Ogawa,

%%%                        USA",

%%%     telephone       = "",

%%%     FAX             = "",

%%%     email           = "ogawa@teleport.com",

%%%     codetable       = "ISO/ASCII",

%%%     keywords        = "latex, utility, kernel",

%%%     supported       = "yes",

%%%     abstract        = "package to add utilties to LaTeX",

%%%     docstring       = "The checksum field above generated by ltxdoc",

%%%  }

\NeedsTeXFormat{LaTeX2e}[1995/12/01]%

\ProvidesFile{ltxutil.sty}%

 [2001/07/31 1.0rc5b utilities package]% \fileversion

\def\package@name{ltxutil}%

\expandafter\PackageInfo\expandafter{\package@name}{%

 Utility macros for \protect\LaTeXe,

 by A. Ogawa (ogawa@teleport.com)%

}%

\typeout{%

 ltxutil: portions licensed from W. E. Baxter (web@superscript.com)%

}%

\def\class@err#1{\ClassError{\class@name}{#1}\@eha}%

\def\class@warn#1{\ClassWarningNoLine{\class@name}{#1}}%

\def\class@info#1{\ClassInfo{\class@name}{#1}}%

\def\obsolete@command#1{%

 \class@warn@end{Command \string#1\space is obsolete.^^JPlease remove from your document}%

 \global\let#1\@empty

 #1%

}%

\def\replace@command#1#2{%

 \class@warn@end{Command \string#1\space is obsolete;^^JUse \string#2\space instead}%

 \global\let#1#2%

 #1%

}%

\def\replace@environment#1#2{%

 \class@warn@end{Environment #1 is obsolete;^^JUse #2 instead}%

 \glet@environment{#1}{#2}%

 \@nameuse{#1}%

}%

\def\incompatible@package#1{%

 \@ifpackageloaded{#1}{%

  \def\@tempa{I cannot continue. You must remove the \string\usepackage\ statement that caused that package to be loaded.}%

  \ClassError{\class@name}{The #1 package cannot be used with \class@name}%

  \@tempa\stop

 }{%

  \class@info{#1 was not loaded (OK!)}%

 }%

}%

\def\class@warn@end#1{%

 \gappdef\class@enddocumenthook{\class@warn{#1}}%

}%

\AtEndOfClass{%

 \@ifxundefined\class@name{\def\class@name{Generic Class}}{}%

}%

\def\t@{to}%

\dimendef\dimen@iii\thr@@

\def\halignt@{\halign\t@}%

\chardef\f@ur=4\relax

\chardef\cat@letter=11\relax

\chardef\other=12\relax

\def\let@environment#1#2{%

 \expandafter\let

 \csname#1\expandafter\endcsname\csname#2\endcsname

 \expandafter\let

 \csname end#1\expandafter\endcsname\csname end#2\endcsname

}%

\def\glet@environment#1#2{%

 \global\expandafter\let

 \csname#1\expandafter\endcsname\csname#2\endcsname

 \global\expandafter\let

 \csname end#1\expandafter\endcsname\csname end#2\endcsname

}%

\newcommand\tracingplain{%

 \tracingonline\z@\tracingcommands\z@\tracingstats\z@

 \tracingpages\z@\tracingoutput\z@\tracinglostchars\@ne

 \tracingmacros\z@\tracingparagraphs\z@\tracingrestores\z@

 \showboxbreadth5\showboxdepth3\relax %\errorstopmode

 }%

\newcommand\traceoutput{%

 \appdef\@resetactivechars{\showoutput}%

}%

\newcommand\say[1]{\typeout{<\noexpand#1=\meaning#1>}}%

\newcommand\saythe[1]{\typeout{<\noexpand#1=\the#1>}}%

\def\fullinterlineskip{\prevdepth\z@}%

\countdef\count@i\@ne

\countdef\count@ii\tw@

\long\def\prepdef#1#2{%

 \@ifxundefined#1{\toks@{}}{\toks@\expandafter{#1}}%

 \toks@ii{#2}%

 \edef#1{\the\toks@ii\the\toks@}%

}%

\long\def\appdef#1#2{%

 \@ifxundefined#1{\toks@{}}{\toks@\expandafter{#1}}%

 \toks@ii{#2}%

 \edef#1{\the\toks@\the\toks@ii}%

}%

\long\def\gappdef#1#2{%

 \@ifxundefined#1{\toks@{}}{\toks@\expandafter{#1}}%

 \toks@ii{#2}%

 \global\edef#1{\the\toks@\the\toks@ii}%

}%

\long\def\appdef@val#1#2{%

 \appdef#1{{#2}}%

}%

\long\def\appdef@e#1#2{%

 \expandafter\appdef

 \expandafter#1%

 \expandafter{#2}%

}%

\long\def\appdef@eval#1#2{%

 \expandafter\appdef@val

 \expandafter#1%

 \expandafter{#2}%

}%

\toksdef\toks@ii=\tw@

\long\def\@ifxundefined#1{\@ifx{\undefined#1}}%

\long\def\@ifnotrelax#1#2#3{\@ifx{\relax#1}{#3}{#2}}%

\long\def\@argswap#1#2{#2#1}%

\long\def\@argswap@val#1#2{#2{#1}}%

\def\@ifxundefined@cs#1{\expandafter\@ifx\expandafter{\csname#1\endcsname\relax}}%

\def\@boolean#1#2{%

  \long\def#1{%

    #2% \if<something>

      \expandafter\true@sw

    \else

      \expandafter\false@sw

    \fi

  }%

}%

\def\@boole@def#1#{\@boolean{#1}}% Implicit #2

\def\@booleantrue#1{\let#1\true@sw}%

\def\@booleanfalse#1{\let#1\false@sw}%

\@boole@def\@ifx#1{\ifx#1}%

\@boole@def\@ifx@empty#1{\ifx\@empty#1}%

\@boole@def\@if@empty#1{\if!#1!}%

\def\@if@sw#1#2{#1\expandafter\true@sw\else\expandafter\false@sw#2}%

\@boole@def\@ifdim#1{\ifdim#1}%

\@boole@def\@ifeof#1{\ifeof#1}%

\@boole@def\@ifhbox#1{\ifhbox#1}%

\@boole@def\@ifhmode{\ifhmode}%

\@boole@def\@ifinner{\ifinner}%

\@boole@def\@ifmmode{\ifmmode}%

\@boole@def\@ifnum#1{\ifnum#1}%

\@boole@def\@ifodd#1{\ifodd#1}%

\@boole@def\@ifvbox#1{\ifvbox#1}%

\@boole@def\@ifvmode{\ifvmode}%

\@boole@def\@ifvoid#1{\ifvoid#1}%

\long\def\true@sw#1#2{#1}%

\long\def\false@sw#1#2{#2}%

\long\def\loopuntil#1{#1{}{\loopuntil{#1}}}%

\long\def\loopwhile#1{#1{\loopwhile{#1}}{}}%

\def\@provide#1{%

 \@ifx{\undefined#1}{\true@sw}{\@ifx{\relax#1}{\true@sw}{\false@sw}}%

 {\def#1}{\def\j@nk}%

}%

\prepdef\document{%

 \endgroup

 \init@documenthook

 \set@typesize@hook

 \normalsize

 \set@pica@hook

 \true@sw{}%

}%

\def\init@documenthook{}%

\AtBeginDocument{%

 \class@documenthook

}%

\AtEndDocument{%

 \class@enddocumenthook

}%

\def\class@documenthook{}%

\def\class@enddocumenthook{}%

\def\set@typesize@hook{}%

\def\set@pica@hook{}%

\def\enddocument{%

 \@enddocumenthook

 \@checkend{document}%

 \clear@document

 \check@aux

 \deadcycles\z@

 \@@end

}%

\def\clear@document{\clearpage}%

\def\check@aux{\do@check@aux}%

\def\do@check@aux{%

 \@if@sw\if@filesw\fi{%

  \immediate\closeout\@mainaux

  \let\@setckpt\@gobbletwo

  \let\@newl@bel\@testdef

  \@tempswafalse

  \makeatletter

  \input\jobname.aux\relax

 }{}%

 \@dofilelist

 \@ifdim{\font@submax >\fontsubfuzz\relax}{%

  \@font@warning{%

   Size substitutions with differences\MessageBreak

   up to \font@submax\space have occured.\@gobbletwo

  }%

 }{}%

 \@defaultsubs

 \@refundefined

 \@if@sw\if@filesw\fi{%

  \@ifx{\@multiplelabels\relax}{%

   \@if@sw\if@tempswa\fi{%

    \@latex@warning@no@line{%

     Label(s) may have changed.

     Rerun to get cross-references right

    }%

   }{}%

  }{%

    \@multiplelabels

  }%

 }{}%

}%

\def\flushing{%

  \let\\\@normalcr

  \leftskip\z@skip

  \rightskip\z@skip

  \@rightskip\z@skip

  \parfillskip\@flushglue

}%

\def\eqnarray@LaTeX{%

   \stepcounter{equation}%

   \def\@currentlabel{\p@equation\theequation}%

   \global\@eqnswtrue

   \m@th

   \global\@eqcnt\z@

   \tabskip\@centering

   \let\\\@eqncr

   $$\everycr{}\halign\t@\displaywidth\bgroup

       \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel

      &\global\@eqcnt\@ne\hskip \tw@\arraycolsep \hfil${##}$\hfil

      &\global\@eqcnt\tw@ \hskip \tw@\arraycolsep

         $\displaystyle{##}$\hfil\tabskip\@centering

      &\global\@eqcnt\thr@@ \hb@xt@\z@\bgroup\hss##\egroup

         \tabskip\z@skip

      \cr

}

\long\def\eqnarray@fleqn@fixed{%

 \stepcounter{equation}\def\@currentlabel{\p@equation\theequation}%

 \global\@eqnswtrue\m@th\global\@eqcnt\z@

 \tabskip\mathindent

 \let\\=\@eqncr

 \setlength\abovedisplayskip{\topsep}%

 \ifvmode\addtolength\abovedisplayskip{\partopsep}\fi

 \addtolength\abovedisplayskip{\parskip}%

 \setlength\belowdisplayskip{\abovedisplayskip}%

 \setlength\belowdisplayshortskip{\abovedisplayskip}%

 \setlength\abovedisplayshortskip{\abovedisplayskip}%

 $$%

 \everycr{}%

 \halignt@\linewidth\bgroup

  \hskip\@centering$\displaystyle\tabskip\z@skip{##}$\@eqnsel

  &\global\@eqcnt\@ne

   \hskip\tw@\eqncolsep

   \hfil${{}##{}}$\hfil

  &\global\@eqcnt\tw@

   \hskip\tw@\eqncolsep

   $\displaystyle{##}$\hfil\tabskip\@centering

  &\global\@eqcnt\thr@@\hb@xt@\z@\bgroup\hss##\egroup

   \tabskip\z@skip

  \cr

}%

\@ifx{\eqnarray\eqnarray@LaTeX}{%

 \class@info{Repairing broken LaTeX eqnarray}%

 \let\eqnarray\eqnarray@fleqn@fixed

 \newlength\eqncolsep

 \setlength\eqncolsep\z@

 \let\eqnarray@LaTeX\relax

 \let\eqnarray@fleqn@fixed\relax

}{}%

\def\mathindent{\@centering}%

\def\set@eqnarray@skips{}%

\def\footnote{%

 \@ifnextchar[\@xfootnote{\@yfootnote\@footnotetext}%

}%

\def\footnotemark{%

 \@ifnextchar[\@xfootnotemark{\@yfootnote}%

}%

\def\@xfootnote[#1]{%

 \@xfootnotemark[#1]%

 \@footnotetext

}%

\def\@xfootnotemark@ltx[#1]{%

 \begingroup

   \csname c@\@mpfn\endcsname #1\relax

   \unrestored@protected@xdef\@thefnmark{\thempfn}%

 \endgroup

 \H@@footnotemark

}%

\def\@yfootnote{%

 \stepcounter\@mpfn

 \protected@xdef\@thefnmark{\thempfn}%

 \H@@footnotemark

}%

\appdef\class@documenthook{%

 \@ifxundefined\H@@footnotemark{%

  \let\H@@footnotemark\@footnotemark

 }{}%

 \let\@xfootnotemark\@xfootnotemark@ltx

}%

\long\def\@footnotetext{%

 \insert\footins\bgroup

  \make@footnotetext

}%

\long\def\@mpfootnotetext{%

 \minipagefootnote@pick

  \make@footnotetext

}%

\def\make@footnotetext#1{%

  \reset@font\footnotesize

  \interlinepenalty\interfootnotelinepenalty

  \splittopskip\footnotesep

  \splitmaxdepth\dp\strutbox

  \set@footnotewidth

  \@parboxrestore

  \protected@edef\@currentlabel{%

   \csname p@footnote\endcsname\@thefnmark

  }%

  \color@begingroup

   \@makefntext{%

    \rule\z@\footnotesep\ignorespaces#1\@finalstrut\strutbox

   }%

  \color@endgroup

 \minipagefootnote@drop

}%

\def\set@footnotewidth{%

 \hsize\columnwidth

 \linewidth\hsize

}%

\def\set@footnotewidth@ii{%

 \hsize\textwidth

 \advance\hsize\columnsep

 \divide\hsize\tw@

 \advance\hsize-\columnsep

 \linewidth\hsize

}%

\def\addtocontents#1#2{%

 \protected@write\@auxout{%

  \let \label \@gobble \let \index \@gobble \let \glossary \@gobble

  \def\({\string\(}%

  \def\){\string\)}%

  \def\\{\string\\}%

 }{\string \@writefile {#1}{#2}}%

}%

\def\addcontentsline#1#2#3{%

 \addtocontents{#1}{%

  \protect\contentsline{#2}{#3}{\thepage}{}%

 }%

}%

\def\contentsline#1#2#3#4{%

 \csname l@#1\endcsname{#2}{#3}%

}%

\def\label#1{%

 \@bsphack

  \protected@write\@auxout{}{%

   \string\newlabel{#1}{{\@currentlabel}{\thepage}{}{}{}}%

  }%

 \@esphack

}%

\appdef\class@documenthook{%

 \prepdef\caption{\minipagefootnote@here}%

}%

\def\minipagefootnote@init{%

 \setbox\@mpfootins\box\voidb@x

}%

\def\minipagefootnote@pick{%

 \global\setbox\@mpfootins\vbox\bgroup

  \unvbox\@mpfootins

}%

\def\minipagefootnote@drop{%

 \egroup

}%

\def\minipagefootnote@here{%

    \par

    \@ifvoid\@mpfootins{}{%

      \vskip\skip\@mpfootins

      \fullinterlineskip

      \@ifinner{%

       \vtop{\unvcopy\@mpfootins}%

       {\setbox\z@\lastbox}%

      }{}%

      \unvbox\@mpfootins

    }%

}%

\def\minipagefootnote@foot{%

 \@ifvoid\@mpfootins{}{%

  \insert\footins\bgroup\unvbox\@mpfootins\egroup

 }%

}%

\def\endminipage{%

    \par

    \unskip

    \minipagefootnote@here

    \@minipagefalse   %% added 24 May 89

  \color@endgroup

  \egroup

  \expandafter\@iiiparbox\@mpargs{\unvbox\@tempboxa}%

}%

\let\@xfloat@LaTeX\@xfloat

\def\@xfloat#1[#2]{%

  \@xfloat@prep

  \@nameuse{fp@proc@#2}%

  \@ifxundefined\floats@sw{\global\@booleantrue\floats@sw}{}%

  \floats@sw{\@xfloat@LaTeX{#1}[#2]}{\@xfloat@anchored{#1}[]}%

}%

\def\@xfloat@prep{%

  \let\footnote\footnote@latex

  \def\@mpfn{mpfootnote}%

  \def\thempfn{\thempfootnote}%

  \c@mpfootnote\z@

  \let\@footnotetext\@mpfootnotetext

  \let\H@@footnotetext\@mpfootnotetext

  \let\@makefntext\@mpmakefntext

}%

\appdef\class@documenthook{%

 \let\footnote@latex\footnote

}%

\def\@xfloat@anchored#1[#2]{%

 \def\@captype{#1}%

 \begin@float@pagebreak

  \let\end@float\end@float@anchored

  \let\end@dblfloat\end@float@anchored

        \hsize\columnwidth

        \@parboxrestore

        \@floatboxreset

  \minipagefootnote@init

}%

\def\end@float@anchored{%

  \minipagefootnote@here

  \par\vskip\z@skip      %% \par\vskip\z@ added 15 Dec 87

 \par

 \end@float@pagebreak

}%

\def\begin@float@pagebreak{\par\addvspace\intextsep}%

\def\end@float@pagebreak{\par\addvspace\intextsep}%

\def\@mpmakefntext#1{%

 \parindent=1em

 \noindent

 \hb@xt@1em{\hss\@makefnmark}%

 #1%

}%

\def\do@if@floats#1#2{%

 \@ifxundefined\floats@sw{\global\@booleantrue\floats@sw}{}%

 \floats@sw{}{%

  \expandafter\newwrite

              \csname#1write\endcsname

  \expandafter\def

              \csname#1@stream\endcsname{\jobname#2}%

  \expandafter\immediate

  \expandafter\openout

              \csname#1write\endcsname

              \csname#1@stream\endcsname\relax

  \@ifxundefined\@float@LaTeX{%

   \let\@float@LaTeX\@float

   \let\@dblfloat@LaTeX\@dblfloat

   \let\@float\write@float

   \let\@dblfloat\write@floats

  }{}%

  \let@environment{#1@float}{#1}%

  \let@environment{#1@floats}{#1*}%

  \@ifxundefined@cs{#1@write}{}{%

   \let@environment{#1}{#1@write}%

  }%

 }%

}%

\def\triggerpar{\leavevmode\@@par}%

\def\oneapage{\def\begin@float@pagebreak{\newpage}\def\end@float@pagebreak{\newpage}}%

\def\print@float#1#2{%

 \@ifxundefined@cs{#1write}{}{%

  \begingroup

   \@booleanfalse\floats@sw

   #2%

   \raggedbottom

   \def\array@default{v}% floats must

   \let\@float\@float@LaTeX

   \let\@dblfloat\@dblfloat@LaTeX

   \let\trigger@float@par\triggerpar

   \let@environment{#1}{#1@float}%

   \let@environment{#1*}{#1@floats}%

   \expandafter\prepdef\csname#1\endcsname{\trigger@float@par}%

   \expandafter\prepdef\csname#1*\endcsname{\trigger@float@par}%

   \@namedef{fps@#1}{h!}%

   \expandafter\immediate

   \expandafter\closeout

               \csname#1write\endcsname

   \everypar{%

    \global\let\trigger@float@par\relax

    \global\everypar{}\setbox\z@\lastbox

    \@ifxundefined@cs{#1sname}{}{%

     \begin@float@pagebreak

     \expandafter\section

     \expandafter*%

     \expandafter{%