PWGPP/doc/comparison/amsgen.sty

   1 %%
   2 %% This is file `amsgen.sty',
   3 %% generated with the docstrip utility.
   4 %%
   5 %% The original source files were:
   6 %%
   7 %% amsgen.dtx
   8 %%
   9 %%% ====================================================================
  10 %%%  @LaTeX-file{
  11 %%%     filename  = "amsgen.dtx",
  12 %%%     version   = "2.0",
  13 %%%     date      = "1999/11/30",
  14 %%%     time      = "12:33:33 EST",
  15 %%%     author    = "American Mathematical Society",
  16 %%%     copyright = "Copyright 1995, 1999 American Mathematical Society,
  17 %%%                  all rights reserved.  Copying of this file is
  18 %%%                  authorized only if either:
  19 %%%                  (1) you make absolutely no changes to your copy,
  20 %%%                  including name; OR
  21 %%%                  (2) if you do make changes, you first rename it
  22 %%%                  to some other name.",
  23 %%%     address   = "American Mathematical Society,
  24 %%%                  Technical Support,
  25 %%%                  Electronic Products and Services,
  26 %%%                  P. O. Box 6248,
  27 %%%                  Providence, RI 02940,
  28 %%%                  USA",
  29 %%%     telephone = "401-455-4080 or (in the USA and Canada)
  30 %%%                  800-321-4AMS (321-4267)",
  31 %%%     FAX       = "401-331-3842",
  32 %%%     checksum  = "07569 396 1613 14368",
  33 %%%     email     = "tech-support@ams.org (Internet)",
  34 %%%     codetable = "ISO/ASCII",
  35 %%%     keywords  = "latex, amslatex, ams-latex",
  36 %%%     supported = "yes",
  37 %%%     abstract  = "This is part of the AMS-\LaTeX{} distribution.
  38 %%%                  It contains some general internal macros shared
  39 %%%                  by several different files in AMS-\LaTeX{}.",
  40 %%%     docstring = "The checksum field above contains a CRC-16
  41 %%%                  checksum as the first value, followed by the
  42 %%%                  equivalent of the standard UNIX wc (word
  43 %%%                  count) utility output of lines, words, and
  44 %%%                  characters.  This is produced by Robert
  45 %%%                  Solovay's checksum utility.",
  46 %%%  }
  47 %%% ====================================================================
  48 \NeedsTeXFormat{LaTeX2e}% LaTeX 2.09 can't be used (nor non-LaTeX)
  49 [1994/12/01]% LaTeX date must December 1994 or later
  50 \ProvidesFile{amsgen.sty}[1999/11/30 v2.0]
  51 \providecommand{\@saveprimitive}[2]{\begingroup\escapechar`\\\relax
  52   \edef\@tempa{\string#1}\edef\@tempb{\meaning#1}%
  53   \ifx\@tempa\@tempb \global\let#2#1%
  54   \else
  55     \edef\@tempb{\meaning#2}%
  56     \ifx\@tempa\@tempb
  57     \else
  58       \@latex@error{Unable to properly define \string#2; primitive
  59       \noexpand#1no longer primitive}\@eha
  60     \fi
  61   \fi
  62   \endgroup}
  63 \let\@xp=\expandafter
  64 \let\@nx=\noexpand
  65 \newtoks\@emptytoks
  66 \def\@oparg#1[#2]{\@ifnextchar[{#1}{#1[#2]}}
  67 \long\def\@ifempty#1{\@xifempty#1@@..\@nil}
  68 \long\def\@xifempty#1#2@#3#4#5\@nil{%
  69   \ifx#3#4\@xp\@firstoftwo\else\@xp\@secondoftwo\fi}
  70 \long\def\@ifnotempty#1{\@ifempty{#1}{}}
  71 \def\FN@{\futurelet\@let@token}
  72 \def\DN@{\def\next@}
  73 \def\RIfM@{\relax\ifmmode}
  74 \def\setboxz@h{\setbox\z@\hbox}
  75 \def\wdz@{\wd\z@}
  76 \def\boxz@{\box\z@}
  77 \def\relaxnext@{\let\@let@token\relax}
  78 \long\def\new@ifnextchar#1#2#3{%
  79   \let\reserved@d= #1%
  80   \def\reserved@a{#2}\def\reserved@b{#3}%
  81   \futurelet\@let@token\new@ifnch
  82 }
  83 \def\new@ifnch{%
  84   \ifx\@let@token\reserved@d \let\reserved@b\reserved@a \fi
  85   \reserved@b
  86 }
  87 \def\@ifstar#1#2{\new@ifnextchar *{\def\reserved@a*{#1}\reserved@a}{#2}}
  88 \@ifundefined{every@math@size}{%
  89 \let\every@math@size=\every@size
  90 \def\glb@settings{%
  91      \expandafter\ifx\csname S@\f@size\endcsname\relax
  92        \calculate@math@sizes
  93      \fi
  94      \csname S@\f@size\endcsname
  95       \ifmath@fonts
  96         \begingroup
  97           \escapechar\m@ne
  98           \csname mv@\math@version \endcsname
  99           \globaldefs\@ne
 100           \let \glb@currsize \f@size
 101           \math@fonts
 102         \endgroup
 103         \the\every@math@size
 104       \else
 105       \fi
 106 }
 107 \def\set@fontsize#1#2#3{%
 108     \@defaultunits\@tempdimb#2pt\relax\@nnil
 109     \edef\f@size{\strip@pt\@tempdimb}%
 110     \@defaultunits\@tempskipa#3pt\relax\@nnil
 111     \edef\f@baselineskip{\the\@tempskipa}%
 112     \edef\f@linespread{#1}%
 113     \let\baselinestretch\f@linespread
 114       \def\size@update{%
 115         \baselineskip\f@baselineskip\relax
 116         \baselineskip\f@linespread\baselineskip
 117         \normalbaselineskip\baselineskip
 118         \setbox\strutbox\hbox{%
 119           \vrule\@height.7\baselineskip
 120                 \@depth.3\baselineskip
 121                 \@width\z@}%
 122 %%%     \the\every@size
 123         \let\size@update\relax}%
 124   }
 125 }{}% end \@ifundefined test
 126 \newdimen\ex@
 127 \addto@hook\every@math@size{\compute@ex@}
 128 \def\compute@ex@{%
 129   \begingroup
 130   \dimen@-\f@size\p@
 131   \ifdim\dimen@<-20\p@
 132     \global\ex@ 1.5\p@
 133   \else
 134     \advance\dimen@10\p@ \multiply\dimen@\tw@
 135     \edef\@tempa{\ifdim\dimen@>\z@ -\fi}%
 136     \dimen@ \ifdim\dimen@<\z@ -\fi \dimen@
 137     \advance\dimen@-\@m sp % fudge factor
 138     \vfuzz\p@
 139     \def\do{\ifdim\dimen@>\z@
 140       \vfuzz=.97\vfuzz
 141       \advance\dimen@ -\p@
 142       \@xp\do \fi}%
 143     \do
 144     \dimen@\p@ \advance\dimen@-\vfuzz
 145     \global\ex@\p@
 146     \global\advance\ex@ \@tempa\dimen@
 147   \fi
 148   \endgroup
 149 }
 150 \def\@addpunct#1{\ifnum\spacefactor>\@m \else#1\fi}
 151 \def\frenchspacing{\sfcode`\.1006\sfcode`\?1005\sfcode`\!1004%
 152   \sfcode`\:1003\sfcode`\;1002\sfcode`\,1001 }
 153 \def\nomath@env{\@amsmath@err{%
 154   \string\begin{\@currenvir} allowed only in paragraph mode%
 155 }\@ehb% "You've lost some text"
 156 }
 157 \def\Invalid@@{Invalid use of \string}
 158 \endinput
 159 %%
 160 %% End of file `amsgen.sty'.