home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 4 / FreshFish_May-June1994.bin / useful / dist / text / tex / pastex / macros / latex / nfss2 / amstex.sty (.txt) < prev    next >
LaTeX Document  |  1993-08-05  |  53KB  |  1,386 lines
  1. %% This is file `amstex.sty', generated 
  2. %% on <1993/8/5> with the docstrip utility (2.1e).
  3. %% The original source files were:
  4. %% amstex.doc 
  5. %% IMPORTANT NOTICE 
  6. %% ---------------- 
  7. %% This file is part of AMS-LaTeX, as modified by Frank Mittelbach to 
  8. %% work with NFSS2 (New Font Selection Scheme Version 2). This file is 
  9. %% distributed together with NFSS2 until the AMS will change their 
  10. %% distribution to support NFSS2. You are not allowed to distribute this 
  11. %% file separately. 
  12. %%@texfile{%
  13. %% filename="amstex.sty",
  14. %% version="1.1",
  15. %% date="21-JUN-1991",
  16. %% filetype="AMS-LaTeX: option",
  17. %% copyright="Copyright (C) American Mathematical Society, all rights
  18. %%   reserved.  Copying of this file is authorized only if either:
  19. %%   (1) you make absolutely no changes to your copy, including name;
  20. %%   OR (2) if you do make changes, you first rename it to some other
  21. %%   name.",
  22. %% author="American Mathematical Society",
  23. %% address="American Mathematical Society,
  24. %%   Technical Support Group,
  25. %%   P. O. Box 6248,
  26. %%   Providence, RI 02940,
  27. %%   USA",
  28. %% telephone="401-455-4080 or (in the USA) 800-321-4AMS",
  29. %% email="Internet: Tech-Support@Math.AMS.com",
  30. %% checksumtype="line count",
  31. %% checksum="3421",
  32. %% codetable="ISO/ASCII",
  33. %% keywords="latex, amslatex, ams-latex, math, amstex, ams-tex",
  34. %% abstract="This file is part of the AMS-\LaTeX{} package, ver. 1.1.
  35. %%   It is a \LaTeX{} option file that adapts most of the mathematical
  36. %%   macros of AMS-\TeX{} for use in \LaTeX{}. It is one of the main
  37. %%   parts of a package called `AMS-\LaTeX{}'."
  38. \expandafter\ifx\csname amstex.sty\endcsname\relax
  39. \expandafter\def\csname amstex.sty\endcsname{}
  40. \else\message{---already loaded}\endinput\fi
  41. \def\filename{amstex.sty}
  42. \def\fileversion{1.1} \def\filedate{21-JUN-1991}
  43. \immediate\write16{%
  44. AMS-LaTeX option `\filename' (\fileversion, \filedate)}
  45. %%% end of file header
  46. \input{amstext.sty}          % AMS \text macro
  47. \input{amsfonts.sty}         % AMS font specific stuff
  48. \input{amsbsy.sty}           % AMS \boldsymbol
  49. \def\FN@{\futurelet\next}
  50. \def\DN@{\def\next@}
  51. \def\RIfM@{\relax\protect\ifmmode}
  52. \def\setboxz@h{\setbox\z@\hbox}
  53. \def\wdz@{\wd\z@}
  54. \def\boxz@{\box\z@}
  55. \def\setbox@ne{\setbox\@ne}
  56. \def\wd@ne{\wd\@ne}
  57. \def\relaxnext@{\let\next\relax}
  58. \def\iterate{\body\expandafter\iterate\else\fi}
  59. \long\def\@leftmark#1#2{#1}
  60. \long\def\@rightmark#1#2{#2}
  61. \long\def\@ifempty#1{%
  62.  \expandafter\ifx\@car#1@\@nil @\@empty
  63.   \expandafter\@leftmark\else\expandafter\@rightmark\fi}
  64. \long\def\@ifnotempty#1{\@ifempty{#1}{}}
  65. \def\err@#1#2{\iffirstchoice@
  66.   \edef\@tempc{#2}\errhelp\expandafter{\@tempc}%
  67.   \typeout{^^JAmS-LaTeX error:}%
  68.   \errmessage{#1}\fi}
  69. \def\nomath@env{\err@{\string\begin{\@currenvir}
  70.    allowed only in paragraph mode!}\@ehb}
  71. \def\Invalid@@{Invalid use of \string}
  72. \def\Invalid@#1{\def#1{\err@{\Invalid@@#1}\@eha}}
  73. \def\atdef@#1{\expandafter\def\csname\space @\string#1\endcsname}
  74. \begingroup \catcode`\@=\active
  75. \xdef @{\expandafter\noexpand\csname FN\string @\endcsname
  76.   \expandafter\noexpand\csname at\string @\endcsname}
  77. \endgroup
  78. \def\at@{\let\next@\at@@
  79.  \ifcat\noexpand\next a\else
  80.  \ifcat\noexpand\next0\else
  81.  \ifcat\noexpand\next\relax\else
  82.  \let\next@\at@@@\fi\fi\fi\next@}
  83. \def\at@@#1{\expandafter
  84.   \ifx\csname\space @\string#1\endcsname\relax
  85.     \DN@{\at@@@#1}%
  86.   \else
  87.     \DN@{\csname\space @\string#1\endcsname}%
  88.   \fi\next@}%
  89. \def\at@@@{\err@{\Invalid@@ @}{\the\athelp@}\char64\relax}
  90. \newhelp\athelp@
  91. {Only certain combinations beginning with @ make sense to me.^^J%
  92. I'll assume you wanted @@ for a printed @.}
  93. \atdef@ @{\char64\relax}% to define @@
  94. \def\makeatother{\catcode64\active}
  95. {\def\@makeother{\noexpand\@makeother\noexpand}
  96. \xdef\@sanitize{\@sanitize\@makeother\@}}
  97. {\def\do{\noexpand\do\noexpand}
  98. \xdef\dospecials{\dospecials\do\@}}
  99. \atdef@,{\RIfM@\mskip.1\thinmuskip\protect\else
  100.       \protect\nonmatherr@{@,}\protect\fi}
  101. \atdef@!{\RIfM@\mskip-.1\thinmuskip\protect\else
  102.       \protect\nonmatherr@{@!}\protect\fi}
  103. \let\ic@\/
  104. \def\/{\unskip\ic@}
  105. \def~{\unskip\nobreak\ \ignorespaces}
  106. \def\AmSTeX{\protect\AmS-\protect\TeX\@}
  107. \def\AmS{{\protect\the\textfont\tw@
  108.   A\kern-.1667em\lower.5ex\hbox{M}\kern-.125emS}}
  109. \def\nonmatherr@#1{\err@
  110.   {\string#1\space allowed only in math mode}\@ehd}
  111. \def\@lb{\RIfM@\lbrace\else$\m@th\lbrace$\fi}
  112. \def\@rb{\RIfM@\rbrace\else$\m@th\rbrace$\fi}
  113. \def\slash{\unskip/\penalty\exhyphenpenalty}
  114. \def\pr@m@s{\ifx'\next\DN@##1{\prim@s}\else\let\next@\egroup\fi\next@}
  115. \def\prime{{\null\prime@\null}}
  116. \mathchardef\prime@="0230
  117. \def\,{\RIfM@\mskip\thinmuskip\protect\else\kern.16667em\protect\fi}
  118. \def\!{\RIfM@\mskip-\thinmuskip\protect\else\kern-.16667em\protect\fi}
  119. \let\thinspace\,
  120. \let\negthinspace\!
  121. \def\medspace{\RIfM@\mskip\medmuskip
  122.   \protect\else\kern.222222em\protect\fi}
  123. \def\negmedspace{\RIfM@\mskip-\medmuskip
  124.   \protect\else\kern-.222222em\protect\fi}
  125. \def\;{\RIfM@\mskip\thickmuskip\protect\else\kern.27777em\protect\fi}
  126. \let\thickspace\;
  127. \def\negthickspace{\RIfM@\mskip-\thickmuskip\protect\else
  128.  \kern-.27777em\protect\fi}
  129. \def\And{\DOTSB\;\mathchar"3026 \;} %change%
  130. \def\implies{\DOTSB\;\Longrightarrow\;}
  131. \def\impliedby{\DOTSB\;\Longleftarrow\;}
  132. \def\frac{\protect\pfrac}
  133. \def\pfrac{\new@ifnextchar[\frac@{\frac@[\@empty]}}
  134. \def\frac@[#1]#2#3{\relax\ifx\@empty#1{#2\over#3}\else
  135.   {#2\above#1\relax#3}\fi}
  136. \def\fracwithdelims#1#2{\new@ifnextchar[{\fracwithdelims@#1#2}%
  137.   {\fracwithdelims@#1#2[\@empty]}}
  138. \def\fracwithdelims@#1#2[#3]#4#5{\relax
  139.   \ifx\@empty#3{#4\overwithdelims#1#2#5}\else
  140.   {#4\abovewithdelims#1#2#3\relax#5}\fi}
  141. \def\dfrac#1#2{{\displaystyle{#1\over#2}}}
  142. \def\tfrac#1#2{{\textstyle{#1\over#2}}}
  143. \def\binom#1#2{{#1\choose#2}}
  144. \def\dbinom#1#2{{\displaystyle{#1\choose#2}}}
  145. \def\tbinom#1#2{{\textstyle{#1\choose#2}}}
  146. \def\colon{\nobreak\mskip2mu\mathpunct{}\nonscript
  147.   \mkern-\thinmuskip{:}\mskip6muplus1mu\relax}
  148. \let\slimits@\displaylimits
  149. \DeclareMathSymbol\coprod@      {\mathop}{largesymbols}{"60}
  150. \DeclareMathSymbol\bigvee@      {\mathop}{largesymbols}{"57}
  151. \DeclareMathSymbol\bigwedge@    {\mathop}{largesymbols}{"56}
  152. \DeclareMathSymbol\biguplus@    {\mathop}{largesymbols}{"55}
  153. \DeclareMathSymbol\bigcap@      {\mathop}{largesymbols}{"54}
  154. \DeclareMathSymbol\bigcup@      {\mathop}{largesymbols}{"53}
  155. \DeclareMathSymbol\prod@        {\mathop}{largesymbols}{"51}
  156. \DeclareMathSymbol\sum@         {\mathop}{largesymbols}{"50}
  157. \DeclareMathSymbol\bigotimes@   {\mathop}{largesymbols}{"4E}
  158. \DeclareMathSymbol\bigoplus@    {\mathop}{largesymbols}{"4C}
  159. \DeclareMathSymbol\bigodot@     {\mathop}{largesymbols}{"4A}
  160. \DeclareMathSymbol\bigsqcup@    {\mathop}{largesymbols}{"46}
  161. \def\coprod{\DOTSB\coprod@\slimits@}
  162. \def\bigvee{\DOTSB\bigvee@\slimits@}
  163. \def\bigwedge{\DOTSB\bigwedge@\slimits@}
  164. \def\biguplus{\DOTSB\biguplus@\slimits@}
  165. \def\bigcap{\DOTSB\bigcap@\slimits@}
  166. \def\bigcup{\DOTSB\bigcup@\slimits@}
  167. \def\prod{\DOTSB\prod@\slimits@}
  168. \def\sum{\DOTSB\sum@\slimits@}
  169. \def\bigotimes{\DOTSB\bigotimes@\slimits@}
  170. \def\bigoplus{\DOTSB\bigoplus@\slimits@}
  171. \def\bigodot{\DOTSB\bigodot@\slimits@}
  172. \def\bigsqcup{\DOTSB\bigsqcup@\slimits@}
  173. \let\ilimits@\nolimits
  174. \def\int{\DOTSI\intop\ilimits@}
  175. \def\oint{\DOTSI\ointop\ilimits@}
  176. \def\intic@{%
  177.   \mathchoice{\hskip.5em}{\hskip.4em}{\hskip.4em}{\hskip.4em}}
  178. \def\negintic@{\mathchoice
  179.  {\hskip-.5em}{\hskip-.4em}{\hskip-.4em}{\hskip-.4em}}
  180. \def\intkern@{\mathchoice{\!\!\!}{\!\!}{\!\!}{\!\!}}
  181. \def\intdots@{\mathchoice{\@cdots}
  182.  {{\cdotp}\mkern1.5mu{\cdotp}\mkern1.5mu{\cdotp}}
  183.  {{\cdotp}\mkern1mu{\cdotp}\mkern1mu{\cdotp}}
  184.  {{\cdotp}\mkern1mu{\cdotp}\mkern1mu{\cdotp}}}
  185. \newcount\intno@
  186. \def\iint{\DOTSI\intno@\tw@\FN@\ints@}
  187. \def\iiint{\DOTSI\intno@\thr@@\FN@\ints@}
  188. \def\iiiint{\DOTSI\intno@4 \FN@\ints@}
  189. \def\idotsint{\DOTSI\intno@\z@\FN@\ints@}
  190. \def\ints@{\findlimits@\ints@@}
  191. \newif\iflimtoken@
  192. \newif\iflimits@
  193. \def\findlimits@{\limtoken@true\ifx\next\limits\limits@true
  194.  \else\ifx\next\nolimits\limits@false\else
  195.  \limtoken@false\ifx\ilimits@\nolimits\limits@false\else
  196.  \ifinner\limits@false\else\limits@true\fi\fi\fi\fi}
  197. \def\multint@{\int\ifnum\intno@=\z@\intdots@
  198.  \else\intkern@\fi
  199.  \ifnum\intno@>\tw@\int\intkern@\fi
  200.  \ifnum\intno@>\thr@@\int\intkern@\fi
  201.  \int}
  202. \def\multintlimits@{\intop\ifnum\intno@=