]>
Commit | Line | Data |
---|---|---|
20552425 | 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'. |