home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 3 / Meeting_Pearls_III.iso / Pearls / texmf / inputs / distribs / array / array.doc < prev    next >
Encoding:
Text File  |  1992-10-12  |  97.1 KB  |  2,532 lines
  1. % \iffalse meta-comment
  2. %
  3. % Copyright (C) 1989-1992 by Frank Mittelbach.  All rights reserved.
  4. % 
  5. % This file is part of the array package.
  6. % 
  7. % IMPORTANT NOTICE:
  8. % 
  9. % You are not allowed to change this file.  You may however copy
  10. % this file to a file with a different name and then change the copy
  11. % if you obey the restrictions on file changes described in
  12. % readme.mz.
  13. % 
  14. % You are NOT ALLOWED to distribute this file alone.  You are NOT
  15. % ALLOWED to take money for the distribution or use of this file (or
  16. % a changed version) except for a nominal charge for copying etc.
  17. % 
  18. % You are allowed to distribute this file under the condition that
  19. % it is distributed together with all files mentioned in readme.mz5.
  20. % 
  21. % If you receive only some of these files from someone, complain!
  22. % 
  23. % However, if these files are distributed by established suppliers
  24. % as part of a complete TeX distribution, and the structure of the
  25. % distribution would make it difficult to distribute the whole set
  26. % of files, *those parties* are allowed to distribute only some of
  27. % the files provided that it is made clear that the user will get a
  28. % complete distribution-set upon request to that supplier (not me).
  29. % Notice that this permission is not granted to the end user.
  30. % 
  31. % 
  32. % For error reports in case of UNCHANGED versions see readme.mz
  33. % 
  34. % \fi
  35.  
  36. \def\fileversion{v2.1b}
  37. \def\filedate{92/07/06}
  38. \def\docdate {92/09/12}
  39.  
  40. %% \CheckSum{1070}
  41. %% \CharacterTable
  42. %%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
  43. %%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
  44. %%   Digits        \0\1\2\3\4\5\6\7\8\9
  45. %%   Exclamation   \!     Double quote  \"     Hash (number) \#
  46. %%   Dollar        \$     Percent       \%     Ampersand     \&
  47. %%   Acute accent  \'     Left paren    \(     Right paren   \)
  48. %%   Asterisk      \*     Plus          \+     Comma         \,
  49. %%   Minus         \-     Point         \.     Solidus       \/
  50. %%   Colon         \:     Semicolon     \;     Less than     \<
  51. %%   Equals        \=     Greater than  \>     Question mark \?
  52. %%   Commercial at \@     Left bracket  \[     Backslash     \\
  53. %%   Right bracket \]     Circumflex    \^     Underscore    \_
  54. %%   Grave accent  \`     Left brace    \{     Vertical bar  \|
  55. %%   Right brace   \}     Tilde         \~}
  56. %%
  57. %
  58. %\iffalse   % this is a METACOMMENT !
  59. %
  60. %% Style-option `array' to use with LaTeX v2.09
  61. %% Copyright (C) 1989-1992 Frank Mittelbach, all rights reserved.
  62. %
  63. % \fi
  64. %
  65. % \changes{v1.0b}{87/06/04}{`@classi (faster),
  66. %                        `@classvi (new)   A in preamble means
  67. %                                         \&\& in `halign.}
  68. %
  69. % \changes{v1.1a}{87/07/05}{New concept:
  70. %                        preamblechar: c,l,r,C,L,R,A,p,t,|,@,!!}
  71. % \changes{v1.1b}{87/09/21}{Again p like original \LaTeX{} and z for
  72. %                        centered `parbox.}
  73. %
  74. % \changes{v1.2a}{87/09/27}{Completely new implementation.}
  75. % \changes{v1.2b}{87/10/06}{!| does no longer generate space at start
  76. %                        or end of the preamble. Otherwise `hline is
  77. %                        too long.}
  78. % \changes{v1.2b}{87/10/06}{Enlarged `@arstrutbox by 1pt (Test-Impl)
  79. %                         with dimen `@strutheight.}
  80. % \changes{v1.2c}{87/10/22}{New dimen parameter `extrarowheight
  81. %                        (default: 0pt).}
  82. % \changes{v1.2c}{87/10/22}{Enlarged `@arstrutbox by `extrarowheight.
  83. %                        Thus you may avoid large characters to
  84. %                        overprint a `hline.}
  85. % \changes{v1.2c}{87/10/22}{Introduced `m@th in `@array to allow
  86. %                         non-zero values of `mathsurround.}
  87. % \changes{v1.2d}{87/11/02}{Completed the documentation.}
  88. % \changes{v1.2e}{87/11/03}{Bug fixed: A at start of preamble resulted
  89. %                        in an error since `@mkpream generated
  90. %                        `@arstrut \& ... as a preamble.}
  91. % \changes{v1.2f}{87/11/09}{`@testpach documented.}
  92. %
  93. % \changes{v1.3a}{87/11/11}{Again a new implementation, with a new
  94. %                        concept (cf. the documentation).}
  95. % \changes{v1.3b}{88/03/17}{`@decl expands now into `@empty, i.e. it
  96. %                        disappears when the preamble is generated,
  97. %                        except when the user specifies A{} or
  98. %                        B{}.}
  99. %
  100. % \changes{v1.4a}{88/03/18}{Test implementation of use of token
  101. %                        registers in order to do without `protect.}
  102. % \changes{v1.4b}{88/03/19}{Changed erroneous class numbers:
  103. %                        5 -!> 6
  104. %                        6 -!> 7
  105. %                        7 -!> 5
  106. %                        Corresponding changes in the macros.}
  107. % \changes{v1.4c}{88/03/19}{Everything except p,z now works with token
  108. %                        registers.}
  109. %
  110. % \changes{v1.9a}{88/03/20}{Last (so I hope) major change: 1) Options
  111. %                        B,A now called !>,<.  These options now point
  112. %                        to the column they modify.}
  113. % \changes{v1.9a}{88/03/20}{2) `protect is no longer necessary. But
  114. %                           still the macro `@expast needs top be
  115. %                          modified. `multicolumn still does not work.}
  116. % \changes{v1.9b}{88/04/29}{inserted missing `fi in `@testpach.
  117. %                        Corrected \LaTeX bug in `@tfor.}
  118. % \changes{v1.9c}{88/05/07}{Re-introduced `@endpbox.
  119. %                        `multicolumn now works! Version number still
  120. %                        1.9 since the documentation is still not
  121. %                        finished.}
  122. % \changes{v1.9c}{88/05/07}{1) `def `the@toks {`the ...} remaining only
  123. %                        in `@mkpream.  2) Removed `@classiii and
  124. %                        replaced by `save@decl.}
  125. % \changes{v1.9c}{88/05/07}{3) `insert@column contains only `@tempcnta
  126. %                        and `count@ counters.  4) `@@startpbox and
  127. %                        `@@endpbox now totally obsolete.}
  128. % \changes{v1.9d}{88/05/10}{Replaced `number by `the where the `toks
  129. %                        registers' contents are used.}
  130. % \changes{v1.9e}{88/05/11}{Re-introduced `@xargarraycr and
  131. %                        `@yargarraycr, since `endtemplate seems to
  132. %                        be `outer.}
  133. % \changes{v1.9f}{88/05/20}{Small changes finally carried out:
  134. %                        1) `par!=`@empty.
  135. %                        2) {..ifnum0!=!`}...  $\to$ `bgroup and
  136. %                           analoguously `egroup.}
  137. % \changes{v1.9g}{88/02/24}{Inserted again {..ifnum0!=!`}..,
  138. %                        c.f. Appendix D of the \protect\TeX{}book.}
  139. % \changes{v1.9h}{88/06/28}{No longer necessary to read in the file
  140. %                        twice.}
  141. % \changes{v1.9i}{88/06/28}{Corrected typo in german version.}
  142. % \changes{v1.9j}{88/11/23}{In a `r' column an extra `kern`z@ is
  143. %                        needed.}
  144. % \changes{v1.9j}{88/11/23}{Otherwise the `hfil on the left side
  145. %                        will be removed by the `unskip in
  146. %                        `insert@column if the entry is empty.}
  147. % \changes{v1.9k}{88/06/28}{Corrected typo in german version.}
  148. % \changes{v1.9k}{89/01/16}{`begin{Macro} changed to `begin{macro} in
  149. %                        documentation.}
  150. %
  151. % \changes{v2.0a}{89/05/12}{{\tt\protect\bslash @thetoks} changed to
  152. %                          {\tt\protect\bslash the@toks}.}
  153. % \changes{v2.0a}{89/05/12}{source changed to reflect new doc.sty
  154. %                          conventions.}
  155. % \changes{v2.0a}{89/05/12}{t option renamed to p to be compatible to
  156. %                        the original.}
  157. % \changes{v2.0a}{89/05/12}{File renamed from arraye.sty to array.sty.}
  158. % \changes{v2.0b}{89/05/17}{Three forgotten end macro added.}
  159. % \changes{v2.0b}{89/05/17}{All lines shortened to 72 or less.}
  160. %
  161. % \DoNotIndex{\@depth,\@ehc,\@fortmp,\@height,\@ifnextchar,\@ifstar}
  162. % \DoNotIndex{\@ifundefined,\@latexerr,\@ne,\@nil,\@tempa,\@tempb}
  163. % \DoNotIndex{\@tempcnta,\@tempd,\@tempdima,\@whilenum,\@width,\\}
  164. % \DoNotIndex{\@tforloop}
  165. % \DoNotIndex{\advance}
  166. % \DoNotIndex{\baselineskip,\begingroup,\bgroup}
  167. % \DoNotIndex{\cr,\crcr,\csname}
  168. % \DoNotIndex{\def,\do,\docdate,\dp}
  169. % \DoNotIndex{\edef,\egroup,\else,\endcsname,\endinput,\expandafter}
  170. % \DoNotIndex{\fi,\filedate,\fileversion}
  171. % \DoNotIndex{\gdef}
  172. % \DoNotIndex{\hbox,\hfil,\hsize,\hskip,\ht}
  173. % \DoNotIndex{\if,\ifcase,\ifdim,\ifnum,\ifx,\ignorespaces}
  174. % \DoNotIndex{\kern}
  175. % \DoNotIndex{\leavevmode,\let,\lineskip}
  176. % \DoNotIndex{\m@ne,\multispan}
  177. % \DoNotIndex{\newcount,\newdimen,\noalign}
  178. % \DoNotIndex{\or}
  179. % \DoNotIndex{\relax}
  180. % \DoNotIndex{\setbox,\space,\strutbox}
  181. % \DoNotIndex{\tabskip,\thr@@,\the,\toks,\toks@,\tw@,\typeout}
  182. % \DoNotIndex{\unhcopy,\unskip}
  183. % \DoNotIndex{\vbox,\vcenter,\vline,\vrule,\vtop,\vskip}
  184. % \DoNotIndex{\xdef}
  185. % \DoNotIndex{\z@}
  186. %
  187. %
  188. % \title{A new implementation of \LaTeX's {\sf tabular}
  189. %        and {\sf array} environment\thanks{This file
  190. %        has version number \fileversion, last
  191. %        revised \filedate, documentation dated \docdate.}}
  192. % \author{Frank Mittelbach
  193. %         \and
  194. %         David Carlisle\thanks{David kindly agreed on the inclusion
  195. %         of the {\tt\string\newcolumntype} implementation, formerly in
  196. %         {\tt newarray.sty} into this style option}}
  197. %
  198. % \date{Printed \today}
  199. %
  200. % \maketitle
  201. %
  202. % \MakeShortVerb{\=}
  203. %
  204. % \begin{abstract}
  205. % This article describes a new implementation of the \LaTeX\
  206. % {\sf array}-- and {\sf tabular}--environments. The special merits of
  207. % this
  208. % implementation are further options to format columns and the fact
  209. % that fragile \LaTeX--commands don't have to be =\protect='ed any
  210. % more within those environments.
  211. %
  212. % At the same time it shows a new --- and in our opinion sensible ---
  213. % way of documenting \TeX\--macros: This article \underline{is the
  214. % style--file} that is to be used. All we need in addition to it is a
  215. % short \TeX--program which visualizes the comments and puts the
  216. % definitions in verbatim mode.
  217. % \end{abstract}
  218. %
  219. %
  220. %
  221. % \section{Introduction}
  222. %
  223. % This new implementation of the {\sf array}-- and {\sf
  224. % tabular}--environments is part of a larger project in which we are
  225. % trying to improve the \LaTeX\--code in some aspects and to make
  226. % \LaTeX\ even easier to handle.
  227. %
  228. % The reader should be familiar with the general structure of the
  229. % environments
  230. % mentioned above. Further information can be found in {\sc Lamport}
  231. % \cite{bk:lamport}. The additional options which can be used in the
  232. % preamble as well as those which now have a slightly different meaning
  233. % are described in table~\ref{tab:opt}.
  234. %
  235. % \DescribeMacro\extrarowheight
  236. % Additionally we introduce a new
  237. % parameter called =\extrarowheight=. If it takes a positive
  238. % length, the value of the parameter is added to the normal height of
  239. % every row of the table, while
  240. % the depth will remain the same. This is important for tables
  241. % with horizontal lines because those lines normally touch the
  242. % capital letters.
  243. % For example, we used =\setlength{\extrarowheight}{1pt}=
  244. % in table~\ref{tab:opt}.
  245. %
  246. % \begin{table}[t]
  247. % \begin{center}
  248. %    \setlength{\extrarowheight}{1pt}
  249. %    \begin{tabular}{|>{\tt}c|m{9cm}|}
  250. %       \hline
  251. %     \multicolumn{2}{|c|}{Unchanged options}\\
  252. %       \hline
  253. %       l             &  Left adjusted column. \\
  254. %       c             &  Centered adjusted column. \\
  255. %       r             &  Right adjusted column. \\
  256. %       p\{width\}    &  Equivalent to =\parbox[t]{width}=. \\
  257. %       @\{decl.\}    &  Suppresses inter-column space and inserts
  258. %                        {\tt decl.}\ instead. \\
  259. %       \hline
  260. %     \multicolumn{2}{|c|}{New options}\\
  261. %       \hline
  262. %       m\{width\}    &  Defines a column of width {\tt width}.
  263. %                        Every entry will be centered in proportion to
  264. %                        the rest of the line. It is somewhat like
  265. %                        =\parbox{width}=. \\
  266. %       \hline
  267. %       b\{width\}    &  Coincides with =\parbox[b]{width}=. \\
  268. %       \hline
  269. %       >\{decl.\}    &  Can be used before an {\tt l}, {\tt r},
  270. %                        {\tt c}, {\tt p}, {\tt m} or a {\tt b}
  271. %                        option. It inserts
  272. %                        {\tt decl.}\ directly in front of the entry of
  273. %                        the column.   \\
  274. %       \hline
  275. %       <\{decl.\}    &  Can be used after an {\tt l}, {\tt r},
  276. %                        {\tt c}, =p{..}=, =m{..}= or a
  277. %                        =b{..}= option.
  278. %                        It inserts {\tt decl.}\ right after the entry
  279. %                        of the column.   \\
  280. %       \hline
  281. %       |             &  Inserts a vertical line. The distance between
  282. %                        two columns will be enlarged by the width of
  283. %                        the line
  284. %                        in contrast to the original definition of
  285. %                        \LaTeX.  \\
  286. %       \hline
  287. %       !\{decl.\}    &  Can be used anywhere and corresponds with the
  288. %                        {\tt |} option. The difference is that
  289. %                        {\tt decl.} is inserted instead of a vertical
  290. %                        line, so this option doesn't suppress the
  291. %                        normally inserted space between columns in
  292. %                        contrast to =@{...}=.\\
  293. %       \hline
  294. %    \end{tabular}
  295. % \end{center}
  296. % \caption{The  preamble options.} \label{tab:opt}
  297. % \end{table}
  298. %
  299. %
  300. % We will discuss a few examples using the new preamble options before
  301. % dealing with the implementation.
  302. % \begin{itemize}
  303. %    \item
  304. %       If you want to use a special font (for example =\bf=) in a
  305. %       flushed left column, this can be done with =>{\bf}l=. You
  306. %       do not have to begin every entry of the column with  =\bf=
  307. %       any more.
  308. %    \item
  309. %       In columns which have been generated with {\tt p}, {\tt m}
  310. %       or {\tt b}, the default value of =\parindent= is
  311. %       {\sf 0pt}.
  312. %       This can be changed with \\
  313. %       =>{\setlength{\parindent}{1cm}}p=.
  314. %    \item
  315. %       The {\tt <}--option was originally developed for the following
  316. %       application:
  317. %       =>{$}c<{$}= generates a column in math mode in a
  318. %       {\sf tabular}--environment. If you use this type of a preamble
  319. %       in an
  320. %       {\sf array}--environment, you get a column in LR mode because
  321. %       the additional \$'s cancel the existing \$'s.
  322. %    \item
  323. %       One can also think of more complex applications. A problem
  324. %       which has
  325. %       been mentioned several times in \TeX{}hax can be solved with
  326. %       =>{\centerdots}c=\linebreak[0]=<{\endcenterdots}=.
  327. %       To center decimals at their
  328. %       decimal points you (only?) have to define the following macros:
  329. %       \begin{verbatim}
  330. %{\catcode`\.\active\gdef.{\egroup\setbox2\hbox\bgroup}}
  331. %\def\centerdots{\catcode`\.\active\setbox0\hbox\bgroup}
  332. %\def\endcenterdots{\egroup\ifvoid2 \setbox2\hbox{0}\fi
  333. %   \ifdim \wd0>\wd2 \setbox2\hbox to\wd0{\unhbox2\hfill}\else
  334. %     \setbox0\hbox to\wd2{\hfill\unhbox0}\fi
  335. %   \catcode`\.12 \box0.\box2}
  336. %\end{verbatim}
  337. %      Warning: The code is bad, it doesn't work with more than one
  338. %      dot in a cell and doesn't work when the tabular is used in the
  339. %      argument of some other command. A much better version is
  340. %      provided in the {\tt dcolumn.sty} by David Carlisle.
  341. %    \item
  342. %       Using =c!{\hspace{1cm}}c= you get space between two
  343. %       columns which is enlarged by one centimeter, while
  344. %       =c@{\hspace{1cm}}c= gives you exactly one centimeter
  345. %       space between two columns.
  346. % \end{itemize}
  347. %
  348. % \subsection{Defining new column specifiers}
  349. %
  350. % \DeleteShortVerb{\=}
  351. % \MakeShortVerb{\"}
  352. % \DescribeMacro{\newcolumntype}
  353. % Whilst it is handy to be able to type
  354. % \begin{quote}
  355. %   ">{"\meta{some declarations}"}{c}<{"\meta{some more
  356. %   declarations}"}"
  357. % \end{quote}
  358. % if you have a one-off column in a table, it is rather inconvenient
  359. % if you often use columns of this form. The new version allows you
  360. % to define a new column specifier, say {\tt x}, which will expand to
  361. % the primitives column specifiers.\footnote{This command was named
  362. % {\tt\string\newcolumn} in the {\tt newarray.sty} option. At the
  363. % moment {\tt\string\newcolumn} is still supported (but gives a
  364. % warning). In later releases it will vanish.} Thus we
  365. % may define
  366. % \begin{quote}
  367. %   "\newcolumntype{x}{>{"\meta{some declarations}"}{c}<{"\meta{some
  368. %   more declarations}"}}"
  369. % \end{quote}
  370. % One can then use the {\tt x} column specifier in the preamble
  371. % arguments of all {\tt array} or {\tt tabular} environments in which
  372. % you want columns of this form.
  373. %
  374. % It is common  to need math-mode and LR-mode columns in the same
  375. % alignment. If we define:
  376. % \begin{quote}
  377. %   "\newcolumntype{C}{>{$}c<{$}}" \\
  378. %   "\newcolumntype{L}{>{$}l<{$}}" \\
  379. %   "\newcolumntype{R}{>{$}r<{$}}"
  380. % \end{quote}
  381. % Then we can use {\tt C} to get centred LR-mode in an {\tt array}, or
  382. % centred math-mode in a {\tt tabular}.
  383. %
  384. % The example given above for `centred decimal points' could be
  385. % assigned to a {\tt d} specifier with the following command.
  386. % \begin{quote}
  387. % "\newcolumntype{d}{>{\centerdots}c<{\endcenterdots}}"
  388. % \end{quote}
  389. %
  390. % The above solution always centres the dot in the
  391. % column. This does not look too good if the column consists of large
  392. % numbers, but to only a few decimal places. An alternative definition
  393. % of a {\tt d} column is
  394. % \begin{quote}
  395. %   "\newcolumntype{d}[1]{>{\rightdots{#1}}r<{\endrightdots}}"
  396. % \end{quote}
  397. % where the appropriate macros in this case are:\footnote{The style {\tt
  398. % dcolumn.sty} contains more robust macros based on these ideas.}
  399. % \begin{verbatim}
  400. %   \def\coldot{.}% Or if you prefer, \def\coldot{\cdot}
  401. %   {\catcode`\.=\active
  402. %     \gdef.{$\egroup\setbox2=\hbox to \dimen0 \bgroup$\coldot}}
  403. %   \def\rightdots#1{%
  404. %     \setbox0=\hbox{$1$}\dimen0=#1\wd0
  405. %     \setbox0=\hbox{$\coldot$}\advance\dimen0 \wd0
  406. %     \setbox2=\hbox to \dimen0 {}%
  407. %     \setbox0=\hbox\bgroup\mathcode`\.="8000 $}
  408. %   \def\endrightdots{$\hfil\egroup\box0\box2}
  409. %\end{verbatim}
  410. % Note that "\newcolumntype" takes the same optional argument as
  411. % "\newcommand" which declares the number of arguments of the column
  412. % specifier being defined. Now we can specify "d{2}" in our preamble
  413. % for a column of figures to at most two decimal places.
  414. %
  415. % A rather different use of the "\newcolumntype" system takes
  416. % advantage of the fact that the replacement text in the
  417. % "\newcolumntype" command may refer to more than one column. Suppose
  418. % that a document contains a lot of {\tt tabular} environments that
  419. % require the same preamble, but you wish to experiment with different
  420. % preambles. Lamport's original definition allowed you to do the
  421. % following (although it was probably a mis-use of the system).
  422. % \begin{quote}
  423. %   "\newcommand{\X}{clr}"\\
  424. %   "\begin{tabular}{\X}" \ldots
  425. % \end{quote}
  426. % {\tt array.sty} takes great care {\bf not} to expand the preamble, and
  427. % so the above does not work with the new scheme. With the new version
  428. % this functionality is returned:
  429. % \begin{quote}
  430. % "\newcolumntype{X}{clr}"\\
  431. % "\begin{tabular}{X}" \ldots
  432. % \end{quote}
  433. %
  434. % The replacement text in a "\newcolumntype" command may refer to any of
  435. % the primitives of {\tt array.sty} see table \ref{tab:opt} on page
  436. % \pageref{tab:opt}, or to any new letters defined in other
  437. % "\newcolumntype" commands.
  438. %
  439. %
  440. % \DescribeMacro{\showcols}A list of all the currently active
  441. % "\newcolumntype" definitions is sent to the terminal and log file if
  442. % the "\showcols" command is given.
  443. %
  444. % \section{Final Comments}
  445. %
  446. % \subsection{Comparisons with older versions of {\tt array.sty}}
  447. %
  448. % There are some differences in the way version 2.1 treat incorrect
  449. % input, even if the source file does not appear to use any of the
  450. % extra features of the new version.
  451. % \begin{itemize}
  452. % \item A preamble of the form "{wx*{0}{abc}yz}" was treated by
  453. % versions prior to 2.1 as "{wx}". Version 2.1 treats it as "{wxyz}"
  454. % \item An incorrect positional argument such as {\tt [Q]} is treated as
  455. % {\tt [c]} by {\tt array.sty}, but is now treated as {\tt [t]}.
  456. % \item A preamble such as "{cc*{2}}" with an error in a
  457. % $*$-form will generate different errors in the new version. In both
  458. % cases the error message is not particularly helpful to the casual
  459. % user.
  460. % \item Repeated {\tt <} or {\tt >} constructions did generate an error
  461. %  in earlier versions, but are new allowed in this style.
  462. % ">{"\meta{decs1}"}>{"\meta{decs2}"}" is treated
  463. % the same as ">{"\meta{decs2}\meta{decs1}"}".
  464. % \item The "\extracolsep" command does not work with the old versions
  465. % of {\tt array.sty},
  466. % see the comments in {\tt array.bug}. With version 2.1
  467. % "\extracolsep" may again be used in {\tt@}-expressions as in standard
  468. % \LaTeX, and also in {\tt!}-expressions (but see the note below).
  469. % \end{itemize}
  470. %
  471. %
  472. % \subsection{Bugs and Features}
  473. %
  474. % \begin{itemize}
  475. % \item Error messages generated when parsing the column specification
  476. %   refer to the preamble argument {\bf after} it has been re-written
  477. %   by the "\newcolumntype" system, not to the preamble entered by the
  478. %   user.  This seems inevitable with any system based on
  479. %   pre-processing and so is classed as a {\bf feature}.
  480. %
  481. % \item The treatment of multiple {\tt<} or {\tt>} declarations may
  482. %   seem strange at first. Earlier implementations treated
  483. %   ">{"\meta{decs1}"}>{"\meta{decs2}"}" the same as
  484. %   ">{"\meta{decs1}\meta{decs2}"}". However this did not give the
  485. %   user the opportunity of overriding the settings of a
  486. %   "\newcolumntype" defined using these declarations. For example,
  487. %   suppose in an {\tt array} environment we use a {\tt C} column
  488. %   defined as above. The {\tt C} specifies a centred text column,
  489. %   however ">{\bf}C", which re-writes to ">{\bf}>{$}c<{$}" would not
  490. %   specify a bold column as might be expected, as the preamble would
  491. %   essentially expand to "\hfil$\bf$#$ $\hfil" and so the column
  492. %   entry would not be in the scope of the "\bf"\,! The present
  493. %   version switches the order of repeated declarations, and so the
  494. %   above example now produces a preamble of the form "\hfil$"
  495. %   "$\bf#$" "$\hfil", and the dollars cancel each other out without
  496. %   limiting the scope of the "\bf".
  497. %
  498. % \item The use of "\extracolsep" has been subject to the following
  499. %   two restrictions.  There must be at most one "\extracolsep"
  500. %   command per "@", or "!" expression and the command must be
  501. %   directly entered into the "@" expression, not as part of a macro
  502. %   definition. Thus "\newcommand{\ef}{\extracolsep{\fill}}" \ldots
  503. %   "@{\ef}" does not work with this style. However you can use
  504. %   something like
  505. %   "\newcolumntype{e}{@{\extracolsep{\fill}}" instead.
  506. % \end{itemize}
  507. %
  508. % \typeout{^^JEnd of the Introduction and Examples.}
  509. % \typein[\answer]%
  510. %   {Do you want an annotated listing of the macro definitions (y/n) ?}
  511. % \def\next{y}\ifx\answer\next\else\OnlyDescription\fi
  512. %
  513. %
  514. % \StopEventually{
  515. %
  516. %
  517. % \begin{thebibliography}{1}
  518. %    \bibitem{bk:knuth}  {\sc D. E. Knuth}.
  519. %       \newblock  The \TeX{}book (Computers \& Typesetting Volume A).
  520. %       \newblock
  521. %       Addison-Wesley, Reading, Massachusetts, 1986.
  522. %    \bibitem{cd:knuth}  {\sc D. E. Knuth}.
  523. %       \newblock
  524. %       The \TeX{}program (Computers \& Typesetting Volume B).
  525. %       \newblock
  526. %       Addison-Wesley, Reading, Massachusetts, 1986.
  527. %    \bibitem{bk:lamport} {\sc L. Lamport}.
  528. %       \newblock
  529. %       \LaTeX\ -- A Document Preparation System.
  530. %       \newblock
  531. %       Addison-Wesley, Reading, Massachusetts, 1986.
  532. %    \bibitem{cd:lamport} {\sc L. Lamport}.
  533. %       \newblock
  534. %       {\tt latex.tex}, Version 2.09 of $\left\langle
  535. %                                            \mbox{15. Sept. 87}
  536. %                                         \right\rangle  $.
  537. % \end{thebibliography}
  538. %
  539. % }   ^^A  end of \StopEventually
  540. %
  541. %
  542. % \section{The construction of the preamble}
  543. %
  544. % \DeleteShortVerb{\"}
  545. % \MakeShortVerb{\=}
  546. %
  547. % It is obvious that those environments will consist mainly of an
  548. % =\halign=, because \TeX\ typesets tables using this primitive.
  549. % That is why we will now take a look at the algorithm which determines
  550. % a preamble for a =\halign= starting with a given user preamble
  551. % using the options mentioned above.
  552. %
  553. %
  554. % First we will define the current version of this file:
  555. %    \begin{macrocode}
  556. %<*style>
  557. \@ifundefined{d@llarbegin}{}{\endinput}
  558. \typeout{Style-Option: `array' \fileversion 
  559.          \space\space <\filedate> (F.M.)}
  560. \typeout{English documentation dated \space <\docdate> (F.M.)}
  561. %    \end{macrocode}
  562. %
  563. % The most interesting macros of this implementation are without doubt
  564. % those
  565. % which are responsible for the construction of the preamble
  566. % for the =\halign=. The underlying algorithm was developed by
  567. % {\sc Lamport} (resp.\ {\sc Knuth}, see texhax V87\#??), and it has
  568. % been
  569. % extended and improved.
  570. %
  571. % The user preamble will be read {\sf token} by {\sf token}.
  572. % A {\sf token} is a single character like {\tt c} or a block enclosed
  573. % in
  574. % ={...}=. For example the preamble of
  575. % =\begin{tabular}=\linebreak[0]={lc||c@{\hspace{1cm}}}=
  576. % consists of the {\sf token}
  577. % {\tt l}, {\tt c}, {\tt |}, {\tt |}, {\tt @} and =\hspace{1cm}=.
  578. %
  579. % The currently used {\sf token} and the one, used before, are needed
  580. % to decide on how the construction of the preamble has to be
  581. % continued.
  582. % In the example mentioned above the {\tt l} causes the preamble
  583. % to begin with =\hskip\tabcolsep=. Furthermore
  584. % =# \hfil= would be appended to define a flush left column.
  585. % The next {\sf token} is a {\tt c}. Because it was preceded by an
  586. % {\tt l} it generates a new column. This is done with
  587. % =\hskip \tabcolsep & \hskip \tabcolsep=. The column which is to
  588. % be centered will be appended with =\hfil # \hfil=.
  589. % The {\sf token} {\tt |} would then add a space of
  590. % =\hskip \tabcolsep=
  591. % and a vertical line because the last
  592. % {\sf tokens} was a {\tt c}.
  593. % The following {\sf token} {\tt |} would only add a space
  594. % =\hskip \doublerulesep= because it was preceded by the
  595. % {\sf token} {\tt |}. We will not discuss our example further but
  596. %  rather take a look at the general case of constructing preambles.
  597. %
  598. % The example shows that the desired preamble for the
  599. % =\halign= can be constructed as soon as the action of all
  600. % combinations
  601. % of the preamble {\sf tokens} are specified. There are 18 such
  602. % {\sf tokens}
  603. % so we have $19 \cdot 18 \string= 342$ combinations if we count the
  604. % beginning of
  605. % the preamble as a special {\sf token}. Fortunately, there are many
  606. % combinations which generate the same spaces, so we can define
  607. % {\sf token} classes. We will identify a
  608. % {\sf token} within a class with a number, so we can insert the
  609. % formatting (for example of a column).
  610. % Table~\ref{tab:Klassen} lists all {\sf token} classes and
  611. % their corresponding numbers.
  612. % \begin{table}[ht]
  613. % \begin{center}
  614. %    \begin{tabular}[t]{>{\tt}ccc}
  615. %       {\sf token} & =\@chclass= & =\@chnum= \\[2mm]
  616. %       c   & 0  & 0 \\
  617. %       l   & 0  & 1 \\
  618. %       r   & 0  & 2 \\
  619. %       p-arg    & 0  & 3 \\
  620. %       t-arg    & 0  & 4 \\
  621. %       b-arg    & 0  & 5 \\
  622. %       |   & 1  & 0 \\
  623. %       !-arg    & 1  & 1 \\
  624. %       <-arg    & 2  & --- \\
  625. %       >-arg    & 3  & ---
  626. %    \end{tabular}
  627. %    \kern3mm \vrule \kern3mm%
  628. %    \begin{tabular}[t]{>{\tt}ccc}
  629. %       {\sf token} & =\@chclass= & =\@chnum= \\[2mm]
  630. %       Start    & 4  & --- \\
  631. %       @-arg    & 5  & --- \\
  632. %       !   & 6  & --- \\
  633. %       @   & 7  & --- \\
  634. %       <   & 8  & --- \\
  635. %       >   & 9  & --- \\
  636. %       p   & 10 & 3 \\
  637. %       t   & 10 & 4 \\
  638. %       b   & 10 & 5
  639. %    \end{tabular}
  640. % \end{center}
  641. % \caption{Classes of preamble {\sf tokens}}
  642. % \label{tab:Klassen}
  643. % \end{table}
  644. %
  645. %
  646. % \begin{macro}{\@chclass}
  647. % \begin{macro}{\@chnum}
  648. % \begin{macro}{\@lastchclass}
  649. %    The class and the number of the current {\sf token} are saved in
  650. %    the
  651. %    {\sf count} registers =\@chclass=
  652. %    and =\@chnum=, while the class of the previous
  653. %    {\sf token} is stored in the
  654. %    {\sf count} register =\@lastchclass=.
  655. %    All of the mentioned registers are already allocated in
  656. %    {\tt latex.tex},
  657. %    which is the reason why the following three lines of code are
  658. %    commented out.
  659. %    Later throughout the text I will not mention it again explicitely
  660. %    whenever I use a =%= sign. These parts are already defined in
  661. %    {\tt latex.tex}.
  662. %    \begin{macrocode}
  663. % \newcount \@chclass
  664. % \newcount \@chnum
  665. % \newcount \@lastchclass
  666. %    \end{macrocode}
  667. % \end{macro}
  668. % \end{macro}
  669. % \end{macro}
  670. %
  671. %
  672. %
  673. % \begin{macro}{\@addtopreamble}
  674. %    We will save the already constructed preamble for
  675. %    the =\halign=
  676. %    in the global macro =\@preamble=. This will then be
  677. %     enlarged with
  678. %    the command =\@addtopreamble=.
  679. %    \begin{macrocode}
  680. \def\@addtopreamble#1{\xdef\@preamble{\@preamble #1}}
  681. %    \end{macrocode}
  682. % \end{macro}
  683. %
  684. %
  685. %
  686. %
  687. %
  688. % \subsection{The character class of a {\sf token}}
  689. %
  690. % \begin{macro}{\@testpach}
  691. % \changes{v2.0a}{89/05/12}{p option renamed to m (middle).}
  692. % \changes{v2.0a}{89/05/12}{t option renamed to p to be compatible to
  693. %                         the original.}
  694. %    With the help of =\@lastchclass= we can now define a macro
  695. %    which determines the class and the number of a given preamble
  696. %    {\sf token}
  697. %    and assigns them to the registers
  698. %    =\@chclass= and =\@chnum=.
  699. % \changes{v2.0f}{92/02/29}{Argument removed since implicitly known}
  700. %    \begin{macrocode}
  701. \def\@testpach{\@chclass
  702. %    \end{macrocode}
  703. %    First we deal with the cases in which the {\sf token}
  704. %    (=#1=) is the argument of {\tt !}, {\tt @}, {\tt <} or
  705. %    {\tt >}. We can see this from the value of =\@lastchclass=:
  706. %    \begin{macrocode}
  707.  \ifnum \@lastchclass=6 \@ne \@chnum \@ne \else
  708.   \ifnum \@lastchclass=7 5 \else
  709.    \ifnum \@lastchclass=8 \tw@ \else
  710.     \ifnum \@lastchclass=9 \thr@@
  711. %    \end{macrocode}
  712. %    Otherwise we will assume that the {\sf token} belongs to the
  713. %    class $0$
  714. %    and assign the corresponding number to =\@chnum= if our
  715. %    assumption is correct.
  716. %    \begin{macrocode}
  717.    \else \z@
  718. %    \end{macrocode}
  719. %    If the last {\sf token} was a {\tt p}, {\tt m} or a {\tt b},
  720. %    =\@chnum= already has the right value. This is the reason for
  721. %    the
  722. %    somewhat curious choice of the {\sf token} numbers in class $10$.
  723. %    \begin{macrocode}
  724.    \ifnum \@lastchclass = 10 \else
  725. %    \end{macrocode}
  726. %    Otherwise we will check if =\@nextchar= is either a {\tt c}, {\tt
  727. %    l} or an {\tt r}.  Some applications change the catcodes of
  728. %    certain characters like ``{\tt@}'' in {\tt amstex.sty}. As a
  729. %    result the tests below would fail since they assume non-active
  730. %    character tokens. Therefore we evaluate =\@nextchar= once thereby
  731. %    turning the first token of its replacement text into a char. At
  732. %    this point here this should have been the only char present in
  733. %    =\@nextchar= which put into via a =\def=.
  734. % \changes{v2.0f}{92/02/29}{Ensure to test a char which is not active}
  735. %    \begin{macrocode}
  736.    \edef\@nextchar{\expandafter\string\@nextchar}%
  737.    \@chnum
  738.    \if \@nextchar c\z@ \else
  739.     \if \@nextchar l\@ne \else
  740.      \if \@nextchar r\tw@ \else
  741. %    \end{macrocode}
  742. %    If it is a different {\sf token}, we know that the class was
  743. %    not $0$. We assign the
  744. %    value $0$ to =\@chnum= because this value is needed for the
  745. %    {\tt |}--{\sf token}. Now we must check the remaining classes.
  746. %    Note that the value of =\@chnum= is insignificant here for
  747. %    most classes.
  748. %    \begin{macrocode}
  749.    \z@ \@chclass
  750.    \if\@nextchar |\@ne \else
  751.     \if \@nextchar !6 \else
  752.      \if \@nextchar @7 \else
  753.       \if \@nextchar <8 \else
  754.        \if \@nextchar >9 \else
  755. %    \end{macrocode}
  756. %    The remaining permitted {\sf tokens} are {\tt p}, {\tt m} and
  757. %    {\tt b} (class $10$).
  758. %    \begin{macrocode}
  759.   10
  760.   \@chnum
  761.   \if \@nextchar m\thr@@\else
  762.    \if \@nextchar p4 \else
  763.     \if \@nextchar b5 \else
  764. %    \end{macrocode}
  765. %    Now the only remaining possibility is a forbidden {\sf token},
  766. %    so we choose class $0$ and number $0$ and give an error message.
  767. %    Then we finish the macro by closing all =\if='s.
  768. %    \begin{macrocode}
  769.    \z@ \@chclass \z@ \@preamerr \z@ \fi \fi \fi \fi
  770.    \fi \fi  \fi  \fi  \fi  \fi  \fi \fi \fi \fi \fi \fi}
  771. %    \end{macrocode}
  772. % \end{macro}
  773. %
  774. %
  775. %
  776. %
  777. %
  778. % \subsection{Multiple columns ($*$--form)}
  779. %
  780. % \begin{macro}{\@xexpast}
  781. % \begin{macro}{\the@toks}
  782. % \begin{macro}{\the@toksz}
  783. %    \label{@xexpast}
  784. %    Now we discuss the macro that deletes all forms of type
  785. %    =*{={\it N\/}=}{={\it String\/}=}= from a user
  786. %    preamble and replaces them with {\it N} copies of {\it String}.
  787. %    Nested $*$--expressions are dealt with correctly, that means
  788. %    $*$--expressions are not substituted if they are in explicit
  789. %    braces, as in =@{*}=.
  790. %
  791. %    This macro is called via
  792. %    =\@xexpast=$\left\langle
  793. %                          \it preamble
  794. %                     \right\rangle$=*0x\@@=.
  795. %    The $*$--expression =*0x= is being used to terminate the
  796. %    recursion,
  797. %    as we shall see later, and =\@@= serves as an argument
  798. %    delimiter. =\@xexpast= has four arguments. The first
  799. %    one is the part of the
  800. %    user preamble before the first $*$--expression while the second
  801. %    and third ones are the arguments of the first $*$--expression
  802. %    (that is {\it N} and {\it String} in the notation mentioned
  803. %    above).
  804. %    The fourth argument is the rest of the preamble.
  805. %    \begin{macrocode}
  806. \def\@xexpast#1*#2#3#4\@@{%
  807. %    \end{macrocode}
  808. %    The number of copies of {\it String} (=#2=) that are to be
  809. %    produced will be saved in a {\sf count} register.
  810. %    \begin{macrocode}
  811.    \@tempcnta #2
  812. %    \end{macrocode}
  813. %    We save the part of the preamble which does not
  814. %    contain a $*$--form (=#1=)
  815. %    in a \PlainTeX\ {\sf token} register.
  816. %    We also save {\it String} (=#3=) using a \LaTeX\
  817. %    {\sf token} register.
  818. %    \begin{macrocode}
  819.    \toks@={#1}\@temptokena={#3}%
  820. %    \end{macrocode}
  821. %    Now we have to use a little trick to produce {\it N} copies of
  822. %    {\it String}.
  823. %    We could try =\def\@tempa{#1}= and then
  824. %    {\it N} times =\edef\@tempa{\@tempa#3}=. This would have the
  825. %    undesired effect that all macros within =#1= and =#3=
  826. %    would be expanded, although, for example, constructions like
  827. %    =@{..}= are not supposed to be changed.
  828. %    That is why we =\let= two control sequences to
  829. %    be equivalent to =\relax=.
  830. %    \begin{macrocode}
  831.    \let\the@toksz\relax \let\the@toks\relax
  832. %    \end{macrocode}
  833. %    Then we ensure that =\@tempa= contains
  834. %    ={\the@toksz\the@toks...\the@toks}= (the macro
  835. %    =\the@toks= exactly {\it N\/} times) as substitution text.
  836. %    \begin{macrocode}
  837.    \def\@tempa{\the@toksz}%
  838.    \ifnum\@tempcnta >0 \@whilenum\@tempcnta >0\do
  839.      {\edef\@tempa{\@tempa\the@toks}\advance \@tempcnta \m@ne}%
  840. %    \end{macrocode}
  841. %    If {\it N\/} was greater than zero we prepare for another call of
  842. %    =\@xexpast=. Otherwise we assume we have reached the end of
  843. %    the user preamble, because we had appended
  844. %    =*0x\@@= when we first called
  845. %     =\@xexpast=.
  846. %    In other words: if the user inserts
  847. %    =*{0}{..}= in his preamble, \LaTeX\ ignores the rest of it.
  848. %    \begin{macrocode}
  849.        \let \@tempb \@xexpast \else
  850.        \let \@tempb \@xexnoop \fi
  851. %    \end{macrocode}
  852. %    Now we will make sure that the part of the user preamble, which
  853. %    was already dealt with, will be saved again in =\@tempa=.
  854. %    \begin{macrocode}
  855.    \def\the@toksz{\the\toks@}\def\the@toks{\the\@temptokena}%
  856.    \edef\@tempa{\@tempa}%
  857. %    \end{macrocode}
  858. %    We have now evaluated the first $*$--expression, and the user
  859. %    preamble up to this point
  860. %    is saved in =\@tempa=. We will put the contents of
  861. %    =\@tempa= and the rest of the user preamble together and work
  862. %    on the result with =\@tempb=. This macro either corresponds
  863. %    to =\@xexpast=, so that the next
  864. %    $*$--expression is handled, or to the macro =\@xexnoop=,
  865. %    which only ends the recursion by deleting its argument.
  866. %    \begin{macrocode}
  867.    \expandafter \@tempb \@tempa #4\@@}
  868. %    \end{macrocode}
  869. % \end{macro}
  870. % \end{macro}
  871. % \end{macro}
  872. %
  873. % \begin{macro}{\@xexnoop}
  874. %    So the first big problem is solved. Now it is easy to
  875. %    specify =\@xexnoop=.
  876. %    Its argument is delimited by =\@@= and it simply expands to
  877. %    nothing.
  878. %    \begin{macrocode}
  879. %  \def\@xexnoop#1\@@{}
  880. %    \end{macrocode}
  881. % \end{macro}
  882. %
  883. %
  884. %
  885. %
  886. % \section{The insertion of declarations
  887. %           ({\tt >}, {\tt <}, {\tt !}, {\tt @})}
  888. %
  889. %
  890. % The preamble will be enlarged with the help of =\xdef=, but the
  891. % arguments of {\tt >}, {\tt <},~{\tt !}\ and {\tt @} are not supposed
  892. % to be expanded during the construction (we want an implementation
  893. % that doesn't need a =\protect=). So we have to find a way to
  894. % inhibit the expansion of those arguments.
  895. %
  896. % We will solve this problem with {\sf token} registers. We need one
  897. % register for every {\tt !}\ and {\tt @}, while we need two for every
  898. % {\tt c}, {\tt l}, {\tt r}, {\tt m}, {\tt p} or {\tt b}. This limits
  899. % the number of columns of a table because there are only 256
  900. % {\sf token} registers. But then, who needs tables with more
  901. % than 100 columns?
  902. %
  903. % One could also find a solution which only needs two or three
  904. % {\sf token} registers by proceeding similarly as in the macro
  905. % =\@xexpast= (see page \pageref{@xexpast}). The advantage of our
  906. % approach is the fact that we avoid some of the problems that arise
  907. % with the other method\footnote{Maybe there are also historical
  908. %  reasons.}.
  909. %
  910. % So how do we proceed? Let us assume that we had =!{foo}= in the
  911. % user preamble and say we saved {\tt foo} in
  912. % {\sf token} register $5$. Then we call
  913. % =\@addtopreamble{\the@toks5}= where
  914. % =\the@toks= is defined in a way that it does not expand
  915. % (for example it could be equivalent to =\relax=). Every
  916. % following call
  917. % of =\@addtopreamble= leaves =\the@toks5= unchanged in
  918. % =\@preamble=. If the construction of the preamble is completed
  919. % we change the definition of =\the@toks= to
  920. % =\the\toks= and expand =\@preamble= for the last time.
  921. % During this process all parts of the form
  922. %    =\the@toks=$\left\langle
  923. %                        \it Number
  924. %                     \right\rangle  $
  925. % will be substituted by the contents of the respective {\sf token}
  926. % registers.
  927. %
  928. % As we can see from this informal discussion the construction of the
  929. % preamble has to take place within a group, so that the
  930. % {\sf token} registers we use will be freed later on. For that reason
  931. % we keep all assignments to =\@preamble= global; therefore the
  932. % replacement text of this macro will remain the same after we leave
  933. % the group.
  934. %
  935. % \begin{macro}{\count@}
  936. %    We further need a {\sf count} register to remember which
  937. %    {\sf token} register is to be used next. This will be initialized
  938. %    with $-1$ if we want to begin with the
  939. %    {\sf token} register $0$. We use the
  940. %    \PlainTeX\ scratch register =\count@= because everything
  941. %    takes place locally. All we have to do is insert
  942. %    =\the@toks= =\the= =\count@= into the preamble.
  943. %    =\the@toks= will remain unchanged and
  944. %    =\the\count@= expands into the saved number.
  945. % \end{macro}
  946. %
  947. % \begin{macro}{\prepnext@tok}
  948. %    The macro =\prepnext@tok= is in charge of preparing the next
  949. %    {\sf token} register. For that purpose we increase
  950. %    =\count@= by $1$:
  951. %    \begin{macrocode}
  952. \def\prepnext@tok{\advance \count@ \@ne
  953. %    \end{macrocode}
  954. %    Then we locally delete any contents the
  955. %    {\sf token} register might have.
  956. %    \begin{macrocode}
  957.    \toks\count@{}}
  958. %    \end{macrocode}
  959. % \end{macro}
  960. %
  961. % \begin{macro}{\save@decl}
  962. %    During the construction of the preamble the current {\sf token} is
  963. %    always saved in the macro =\@nextchar= (see the definition
  964. %    of =\@mkpream= on page \pageref{@mkpream}). The macro
  965. %    =\save@decl= saves it into the next free
  966. %    {\sf token} register, i.e.\ in =\toks\count@=.
  967. % \changes{v2.0c}{90/08/14}{`relax removed and added elsewhere.}
  968. %    \begin{macrocode}
  969. \def\save@decl{\toks\count@ \expandafter{\@nextchar}}
  970. %    \end{macrocode}
  971. %    The reason for the  use of =\relax= is the following
  972. %    hypothetical situation in the preamble:
  973. %    \quad =..\the\toks1\the\toks2..= \quad \TeX\ expands
  974. %    =\the\toks2= first in order to find out if the digit =1=
  975. %    is followed by other digits. E.g.\ a =5= saved in the
  976. %    {\sf token} register $2$ would lead \TeX\ to insert the contents
  977. %    of {\sf token} register $15$ instead of $1$ later on.
  978. % 
  979. % The example above referred to an older version of =\save@decl= which
  980. % inserted a =\relex= inside the token register. This is now moved to
  981. % the places where the actual token registers are inserted (look for
  982. % =\the@toks=) because the old version would still make =@=
  983. % expressions to moving arguments since after expanding the second
  984. % register while looking for the end of the number the contents of the
  985. % token register is added so that later on the whole register will be
  986. % expanded.  This serious bug was found after nearly two years
  987. % international use of this style option by Johannes Braams.
  988. % \end{macro}
  989. %
  990. %
  991. %
  992. % How does the situation look like, if we want to add another column
  993. % to the preamble, i.e.\ if we have found a {\tt c}, {\tt l}, {\tt r},
  994. % {\tt p}, {\tt m} or {\tt b} in the user preamble~?
  995. % In this case we have the problem of the {\sf token} register from
  996. % =>{..}= and =<{..}= having to be inserted at this moment
  997. % because formating instructions like =\hfil= have to be set
  998. % around them. On the other hand it is not known yet, if any
  999. % =<{..}= instruction will appear in the user preamble at all.
  1000. %
  1001. % We solve this problem by adding two {\sf token} registers at a time.
  1002. % This explains, why we have freed the {\sf token} registers in
  1003. % =\prepnext@tok=.
  1004. %
  1005. % \begin{macro}{\insert@column}
  1006. % \begin{macro}{\@sharp}
  1007. %    We now define the macro =\insert@column= which will do
  1008. %    this work for us.
  1009. %    \begin{macrocode}
  1010. \def\insert@column{%
  1011. %    \end{macrocode}
  1012. %    Here, we assume that the {\sf count} register
  1013. %    =\@tempcnta= has saved the value $=\count@= - 1$.
  1014. %    \begin{macrocode}
  1015.    \the@toks \the \@tempcnta
  1016. %    \end{macrocode}
  1017. %    Next follows the =#= sign which specifies the place
  1018. %    where the text of the column shall be inserted. To avoid
  1019. %    errors during the expansions in
  1020. %    =\@addtopreamble= we hide this sign in the command
  1021. %    =\@sharp= which is temporarily occupied with
  1022. %    =\relax= during the build-up of the preamble.
  1023. %    To remove unwanted spaces before and after the column text, we set
  1024. %    an =\ignorespaces=  in front and a =\unskip= afterwards.
  1025. % \changes{v2.0e}{91/02/07}{Added {} around `@sharp for new ftsel}
  1026. % \changes{v2.0h}{92/06/22}{Removed {} again in favour of `d@llarbegin}
  1027. %    \begin{macrocode}
  1028.    \ignorespaces \@sharp \unskip
  1029. %    \end{macrocode}
  1030. %    Then the second {\sf token} register follows whose number should
  1031. %    be saved in =\count@=.
  1032. %    We make sure that there will be no further expansion after reading
  1033. %    the number, by finishing with =\relax=. The case above is not
  1034. %    critical since it is ended by =\ignorespaces=.
  1035. % \changes{v2.0c}{90/08/14}{`relax added to avoid problem 
  1036. %                           `the`toks0`the`toks1.}
  1037. %    \begin{macrocode}
  1038.    \the@toks \the \count@ \relax}
  1039. %    \end{macrocode}
  1040. % \end{macro}
  1041. % \end{macro}
  1042. %
  1043. %
  1044. %
  1045. %
  1046. % \subsection{The separation of columns}
  1047. %
  1048. % \begin{macro}{\@addamp}
  1049. %    In the preamble a =&= has to be inserted between any two
  1050. %    columns; before the first column there
  1051. %    should not be a =&=. As the user preamble may start with a
  1052. %    {\tt |} we have to remember somehow if we have already inserted a
  1053. %    =#= (i.e.\ a column). This is done with the boolean variable
  1054. %    =\if@firstamp= that we test in =\@addamp=,
  1055. %    the macro that inserts the =&=.
  1056. %    \begin{macrocode}
  1057. %    \newif \@iffirstamp
  1058. %    \def\@addamp{\if@firstamp \@firstampfalse
  1059. %                 \else \@addtopreamble &\fi}
  1060. %    \end{macrocode}
  1061. % \end{macro}
  1062. %
  1063. % \begin{macro}{\@acol}
  1064. % \begin{macro}{\@acolampacol}
  1065. % \begin{macro}{\col@sep}
  1066. %    We will now define some abbreviations for the extensions,
  1067. %    appearing most often in the preamble build-up.
  1068. %    Here =\col@sep= is a {\sf dimen} register which is set
  1069. %    equivalent to =\arraycolsep= in an {\sf array}--environment,
  1070. %    otherwise it is set equivalent to =\tabcolsep=.
  1071. %    \begin{macrocode}
  1072. \newdimen\col@sep
  1073. \def\@acol{\@addtopreamble{\hskip\col@sep}}
  1074. %    \def\@acolampacol{\@acol\@addamp\@acol}
  1075. %    \end{macrocode}
  1076. % \end{macro}
  1077. % \end{macro}
  1078. % \end{macro}
  1079. %
  1080. %
  1081. % \subsection{The macro {\tt \protect\bslash @mkpream}}
  1082. %
  1083. % \begin{macro}{\@mkpream}
  1084. % \begin{macro}{\the@toks}
  1085. %    \label{@mkpream}
  1086. %    Now we can define the macro which builds up the preamble for the
  1087. %    =\halign=.
  1088. %    First we initialize =\@preamble=, =\@lastchclass=
  1089. %    and the boolean variable =\if@firstamp=.
  1090. %    \begin{macrocode}
  1091. \def\@mkpream#1{\gdef\@preamble{}\@lastchclass 4 \@firstamptrue
  1092. %    \end{macrocode}
  1093. %    During the build-up of the preamble we cannot directly use the
  1094. %    =#= sign; this would lead to an error message in the next
  1095. %    =\@addtopreamble= call.
  1096. %    Instead, we use the command =\@sharp= at places where later
  1097. %    a =#= will be.
  1098. %    This command is at first given the meaning =\relax=;
  1099. %    therefore it will not be expanded when the preamble
  1100. %    is extended.
  1101. %    In the macro =\@array=, shortly before the =\halign=
  1102. %    is carried out, =\@sharp= is given its final meaning.
  1103. %
  1104. %    In a similar way,
  1105. %    we deal with the commands =\@startpbox= and
  1106. %    =\@endpbox=, although the reason is different here: these
  1107. %    macros expand in many {\sf tokens} which would delay the
  1108. %    build-up of the preamble.
  1109. %    \begin{macrocode}
  1110.    \let\@sharp\relax \let\@startpbox\relax \let\@endpbox\relax
  1111. %    \end{macrocode}
  1112. %    Now we remove possible  $*$-forms in the user preamble with the
  1113. %    command =\@xexpast=.  As we already know, this command saves
  1114. %    its result in the macro =\@tempa=.
  1115. %    \begin{macrocode}
  1116.    \@xexpast #1*0x\@@
  1117. %    \end{macrocode}
  1118. %    Afterwards we initialize all registers and macros, that we need
  1119. %    for the build-up of the preamble.
  1120. %    Since we want to start with the {\sf token} register $0$,
  1121. %    =\count@= has to contain the value $-1$.
  1122. %    \begin{macrocode}
  1123.    \count@\m@ne
  1124.    \let\the@toks\relax
  1125. %    \end{macrocode}
  1126. %    Then we call up =\prepnext@tok= in order to prepare the
  1127. %    {\sf token} register $0$ for use.
  1128. %    \begin{macrocode}
  1129.    \prepnext@tok
  1130. %    \end{macrocode}
  1131. %    To evaluate the user preamble (without stars) saved in
  1132. %    =\@tempa= we use the \LaTeX--macro =\@tfor=.
  1133. %    The strange appearing construction with =\expandafter= is
  1134. %    based on the fact that we have to put the replacement text of
  1135. %    =\@tempa= and not the macro =\@tempa= to this
  1136. %    \LaTeX--macro.
  1137. %    \begin{macrocode}
  1138.    \expandafter \@tfor \expandafter \@nextchar
  1139.     \expandafter :\expandafter =\@tempa \do
  1140. %    \end{macrocode}
  1141. %    The body of this loop (the group after the =\do=)
  1142. %    is executed for one {\sf token} at a time, whereas
  1143. %    the current {\sf token} is saved in =\@nextchar=.
  1144. %    At first we evaluate the current {\sf token} with the already
  1145. %    defined macro =\@testpach=, i.e.\ we assign to
  1146. %    =\@chclass= the character class and to =\@chnum=
  1147. %    the character number of this {\sf token}.
  1148. % \changes{v2.0f}{92/02/29}{`@testpach now without arg}
  1149. %    \begin{macrocode}
  1150.    {\@testpach
  1151. %    \end{macrocode}
  1152. %    Then we branch out depending on the value of =\@chclass= into
  1153. %    different macros that extend the preamble respectively.
  1154. %    \begin{macrocode}
  1155.    \ifcase \@chclass \@classz \or \@classi \or \@classii
  1156.      \or \save@decl \or \or \@classv \or \@classvi
  1157.      \or \@classvii \or \@classviii  \or \@classix
  1158.      \or \@classx \fi
  1159. %    \end{macrocode}
  1160. %    Two cases deserve our special attention:
  1161. %    Since the current {\sf token} cannot have the character class $4$
  1162. %    (start) we have skipped this possibility. If the character class
  1163. %    is $3$, only the content of =\@nextchar= has to be saved into
  1164. %    the current {\sf token} register; therefore we call up
  1165. %    =\save@decl= directly and save a macro name.
  1166. %    After the preamble has been extended we assign the
  1167. %    value of =\@chclass= to the counter =\@lastchclass= to
  1168. %    assure that this information will be available during the next run
  1169. %    of the loop.
  1170. %    \begin{macrocode}
  1171.    \@lastchclass\@chclass}%
  1172. %    \end{macrocode}
  1173. %    After the loop has been finished space must still be added to
  1174. %    the created preamble, depending on the last {\sf token}.
  1175. %    Depending on the value of =\@lastchclass= we perform
  1176. %    the necessary operations.
  1177. %    \begin{macrocode}
  1178.    \ifcase\@lastchclass
  1179. %    \end{macrocode}
  1180. %    If the last class equals $0$ we add a
  1181. %    =\hskip \col@sep=.
  1182. %    \begin{macrocode}
  1183.    \@acol \or
  1184. %    \end{macrocode}
  1185. %    If it equals $1$ we do not add any additional space so that the
  1186. %    horizontal lines do not exceed the vertical ones.
  1187. %    \begin{macrocode}
  1188.    \or
  1189. %    \end{macrocode}
  1190. %    Class $2$ is treated like class $0$ because a =<{...}=  can
  1191. %    only directly follow after class $0$.
  1192. %    \begin{macrocode}
  1193.    \@acol \or
  1194. %    \end{macrocode}
  1195. %    Most of the other possibilities can only appear if the user
  1196. %    preamble was defective. Class $3$ is not allowed since after
  1197. %    a =>{..}= there must always follow a {\tt c}, {\tt l},
  1198. %    { {\tt r}, {\tt p},\tt m} or  {\tt b}. We report an error
  1199. %    and ignore the declaration given by ={..}=.
  1200. %    \begin{macrocode}
  1201.    \@preamerr \thr@@ \or
  1202. %    \end{macrocode}
  1203. %    If =\@lastchclass= is $4$ the user preamble has been empty.
  1204. %    To continue, we insert a =#= in the preamble.
  1205. %    \begin{macrocode}
  1206.    \@preamerr \tw@ \@addtopreamble\@sharp \or
  1207. %    \end{macrocode}
  1208. %    Class $5$ is allowed again. In this case
  1209. %    (the user preamble ends with =@{..}=) we need not
  1210. %    do anything.
  1211. %    \begin{macrocode}
  1212.    \or
  1213. %    \end{macrocode}
  1214. %    Any other case means that the arguments to
  1215. %    =@=, {\tt !}, {\tt <}, {\tt >}, {\tt p}, {\tt m} or {\tt b}
  1216. %    have been forgotten. So we report an error and ignore the last
  1217. %    {\sf token}.
  1218. %    \begin{macrocode}
  1219.    \else  \@preamerr \@ne \fi
  1220. %    \end{macrocode}
  1221. %    Now that the build-up of the preamble is almost finished we can
  1222. %    insert the {\sf token} registers and therefore redefine
  1223. %    =\the@toks=. The actual insertion, though, is performed
  1224. %    later.
  1225. %    \begin{macrocode}
  1226.    \def\the@toks{\the\toks}}
  1227. %    \end{macrocode}
  1228. % \end{macro}
  1229. % \end{macro}
  1230. %
  1231. %
  1232. %
  1233. %  \section{The macros {\tt \protect
  1234. %       \bslash @classz} to {\tt \protect\bslash @classx}}
  1235. %
  1236. % The preamble is extended by the macros =\@classz= to
  1237. % =\@classx= which are called by =\@mkpream=
  1238. %  depending on =\@lastchclass=
  1239. % (i.e. the character class of the last {\sf token}).
  1240. % \begin{macro}{\@classx}
  1241. %    First we define =\@classx= because of its important r\^ole.
  1242. %    When it is called we find that the current
  1243. %    {\sf token} is {\tt p}, {\tt m} or {\tt b}.
  1244. %    That means that a new column has to start.
  1245. %    \begin{macrocode}
  1246. \def\@classx{%
  1247. %    \end{macrocode}
  1248. %    Depending on the value of =\@lastchclass= different actions
  1249. %    must take place:
  1250. %    \begin{macrocode}
  1251.   \ifcase \@lastchclass
  1252. %    \end{macrocode}
  1253. %    If the last character class was $0$ we separate the columns by
  1254. %    =\hskip\col@sep= followed by =&= and another
  1255. %    =\hskip\col@sep=.
  1256. %    \begin{macrocode}
  1257.   \@acolampacol \or
  1258. %    \end{macrocode}
  1259. %    If the last class was class $1$ --- that means that a vertical
  1260. %    line was
  1261. %    drawn, --- before this line a =\hskip\col@sep= was inserted.
  1262. %    Therefore there has to be only a =&= followed by
  1263. %    =\hskip\col@sep=. But this =&= may be inserted only
  1264. %    if this is not the first column. This process is controlled
  1265. %    by =\if@firstamp= in the macro =\addamp=.
  1266. %    \begin{macrocode}
  1267.   \@addamp \@acol \or
  1268. %    \end{macrocode}
  1269. %    Class $2$ is treated like class $0$ because =<{...}= can only
  1270. %    follow after class $0$.
  1271. %    \begin{macrocode}
  1272.   \@acolampacol \or
  1273. %    \end{macrocode}
  1274. %    Class $3$ requires no actions because all things necessary have
  1275. %    been done by the preamble {\sf token} {\tt >}.
  1276. %    \begin{macrocode}
  1277.   \or
  1278. %    \end{macrocode}
  1279. %    Class $4$ means that we are at the beginning of the preamble.
  1280. %    Therefore we start the preamble with =\hskip\col@sep= and
  1281. %    then call =\@firstampfalse=. This makes sure that a later
  1282. %    =\@addamp= inserts the character
  1283. %    =&= into the preamble.
  1284. %    \begin{macrocode}
  1285.   \@acol \@firstampfalse \or
  1286. %    \end{macrocode}
  1287. %    For class $5$ {\sf tokens} only the character =&= is inserted
  1288. %    as a column separator. Therefore we call =\@addamp=.
  1289. %    \begin{macrocode}
  1290.   \@addamp
  1291. %    \end{macrocode}
  1292. %    Other cases are impossible. For an example
  1293. %    $=\@lastchclass= \string= 6$---as it might appear in a
  1294. %    preamble of the form =...!p...=---{\tt p} would have
  1295. %    been taken as an  argument of {\tt !}\ by =\@testpach=.
  1296. %    \begin{macrocode}
  1297.   \fi}
  1298. %    \end{macrocode}
  1299. % \end{macro}
  1300. %
  1301. %
  1302. % \begin{macro}{\@classz}
  1303. %    If the character class of the last {\sf token} is $0$
  1304. %    we have {\tt c}, {\tt l}, {\tt r} or an argument of {\tt m},
  1305. %    {\tt b} or\ {\tt p}. In the first three cases the preamble must be
  1306. %    extended the same way as if we had class $10$. The remaining two
  1307. %    cases do not require any action because the space needed was
  1308. %    generated by the last {\sf token} (i.e.\ {\tt m}, {\tt b} or
  1309. %    {\tt p}). Since =\@lastchclass= has the value $10$ at
  1310. %    this point nothing happens when =\@classx= is called. So the
  1311. %    macro =\@chlassz= may start like this:
  1312. %    \begin{macrocode}
  1313. \def\@classz{\@classx
  1314. %    \end{macrocode}
  1315. %    According to the definition of =\insert@column= we must store
  1316. %    the number of the {\sf token} register in which a preceding
  1317. %    =>{..}= might have stored its argument into
  1318. %    =\@tempcnta=.
  1319. %    \begin{macrocode}
  1320.    \@tempcnta \count@
  1321. %    \end{macrocode}
  1322. %    To have $=\count@= \string= =\@tmpcnta= + 1$ we prepare
  1323. %    the next {\sf token} register.
  1324. %    \begin{macrocode}
  1325.    \prepnext@tok
  1326. %    \end{macrocode}
  1327. %    Now the preamble must be extended with the column whose format
  1328. %    can be determinated by =\@chnum=.
  1329. %    \begin{macrocode}
  1330.    \@addtopreamble{\ifcase \@chnum
  1331. %    \end{macrocode}
  1332. %    If =\@chnum= has the value $0$ a centered column has to be
  1333. %    generated.
  1334. %    So we begin with stretchable space.
  1335. %    \begin{macrocode}
  1336.       \hfil
  1337. %    \end{macrocode}
  1338. %    The command =\d@llarbegin= follows expanding into =\begingroup=
  1339. %    (in the {\sf tabular}--environment) or into =$=.  Doing this
  1340. %    (provided an appropriate setting of =\d@llarbegin=) we achieve
  1341. %    that the contents of the columns of an {\sf array}--environment
  1342. %    are set in math mode while those of a {\sf tabular}--environment
  1343. %    are set in LR mode.
  1344. %    \begin{macrocode}
  1345.       \d@llarbegin
  1346. %    \end{macrocode}
  1347. %    Now we insert the contents of the two {\sf token} registers
  1348. %    and the symbol
  1349. %    for the column entry (i.e.\ =#= or
  1350. %    more precise =\@sharp=) using =\insert@column=.
  1351. %    \begin{macrocode}
  1352.       \insert@column
  1353. %    \end{macrocode}
  1354. %    We end this case with =\d@llarend= and =\hfil= where =\d@llarend=
  1355. %    again is either =$= or =\endgroup=.
  1356. %    \begin{macrocode}
  1357.       \d@llarend \hfil \or
  1358. %    \end{macrocode}
  1359. %    The templates for {\tt l} and {\tt r} (i.e.\ =\@chnum= $1$
  1360. %    or $2$) are generated the same way. Since one  =\hfil= is
  1361. %    missing the text is moved to the relevant side.
  1362. %    The =\kern\z@= is needed in case of an empty column
  1363. %    entry. Otherwise
  1364. %    the =\unskip= in =\insert@column= removes the
  1365. %    =\hfil=.
  1366. %    \begin{macrocode}
  1367.       \d@llarbegin \insert@column \d@llarend \hfil \or
  1368.       \hfil\kern\z@ \d@llarbegin \insert@column \d@llarend \or
  1369. %    \end{macrocode}
  1370. %    The templates for {\tt p}, {\tt m} and {\tt b} mainly consist
  1371. %    of a {\sf box}. In case of {\tt m} it is generated by
  1372. %    =\vcenter=.
  1373. %    This command is allowed only in math mode. Therefore we start with
  1374. %    a~=$=.
  1375. %    \begin{macrocode}
  1376.    $\vcenter
  1377. %    \end{macrocode}
  1378. %    The part of the templates which is the same in all three cases
  1379. %    ({\tt p}, {\tt m} and {\tt b})
  1380. %    is built by the macros =\@startpbox= and
  1381. %    =\@endpbox=. =\@startpbox= has an argument:
  1382. %    the width of the column which is stored in the current
  1383. %    {\sf token} (i.e.\ =\@nextchar=).
  1384. %    Between these two macros we find the well known
  1385. %    =\insert@column=.
  1386. %    \begin{macrocode}
  1387.    \@startpbox{\@nextchar}\insert@column \@endpbox $\or
  1388. %    \end{macrocode}
  1389. %    The templates for {\tt p} and {\tt b} are generated in the same
  1390. %    way though we do not need the
  1391. %    =$= characters because we use =\vtop=
  1392. %    or =\vbox=.
  1393. %    \begin{macrocode}
  1394.    \vtop \@startpbox{\@nextchar}\insert@column \@endpbox \or
  1395.    \vbox \@startpbox{\@nextchar}\insert@column \@endpbox
  1396. %    \end{macrocode}
  1397. %    Other values for =\@chnum= are impossible. Therefore we
  1398. %    end the arguments to =\@addtopreamble= and =\ifcase=.
  1399. %    Before we come to the end of =\@classz= we have to
  1400. %    prepare the next {\sf token} register.
  1401. %    \begin{macrocode}
  1402.   \fi}\prepnext@tok}
  1403. %    \end{macrocode}
  1404. % \end{macro}
  1405. %
  1406. %
  1407. % \begin{macro}{\@classix}
  1408. %    In case of class $9$ ({\tt >}--{\sf token}) we first check
  1409. %    if the character class of the last
  1410. %    {\sf token} was $3$. In this case we have a
  1411. %    user preamble of the form =..>{...}>{...}..= which
  1412. %    is not allowed. We only give an error message and continue.
  1413. %    So the declarations defined by the first  =>{...}=
  1414. %    are ignored.
  1415. %    \begin{macrocode}
  1416. \def\@classix{\ifnum \@lastchclass = \thr@@
  1417.        \@preamerr \thr@@ \fi
  1418. %    \end{macrocode}
  1419. %    Furthermore, we call up =\@class10=
  1420. %    because afterwards always a new column is started by
  1421. %    {\tt c}, {\tt l}, {\tt r}, {\tt p}, {\tt m} or {\tt b}.
  1422. %    \begin{macrocode}
  1423.        \@classx}
  1424. %    \end{macrocode}
  1425. % \end{macro}
  1426. %
  1427. %
  1428. %
  1429. % \begin{macro}{\@classviii}
  1430. %    If the current {\sf token} is a {\tt <} the last
  1431. %    character class must be $0$. In this case it is not necessary to
  1432. %    extend the preamble. Otherwise we output an error message, set
  1433. %    =\@chclass= to $6$ and call =\@classvi=.
  1434. %    By doing this we achieve that {\tt <} is treated like {\tt !}.
  1435. %    \begin{macrocode}
  1436. \def\@classviii{\ifnum \@lastchclass >\z@
  1437.       \@preamerr 4\@chclass 6 \@classvi \fi}
  1438. %    \end{macrocode}
  1439. % \end{macro}
  1440. %
  1441. % \begin{macro}{\@arrayrule}
  1442. %    There is only one incompatibility with the original definition:
  1443. %    the definition of =\@arrayrule=. In the original a line
  1444. %    without width\footnote{So the space between {\tt cc} and {\tt c|c}
  1445. %                                  is equal.}
  1446. %    is created by multiple insertions of =\hskip .5\arrayrulewidth=.
  1447. %    We only insert a vertical line into the preamble.
  1448. %    This is done to prevent problems with \TeX's main
  1449. %    memory when generating
  1450. %    tables with many vertical lines in them (especially in the case of
  1451. %    {\sf floats}).
  1452. %    \begin{macrocode}
  1453. \def\@arrayrule{\@addtopreamble \vline}
  1454. %    \end{macrocode}
  1455. % \end{macro}
  1456. %
  1457. % \begin{macro}{\@classvii}
  1458. %    As a consequence it follows that in case of class $7$
  1459. %    (=@= {\sf token})  the preamble need not to be extended.
  1460. %    In the original definition $=\@lastchclass= \string= 1$
  1461. %    is treated by inserting =\hskip .5\arrayrulewidth=.
  1462. %    We only check if the last {\sf token} was of class $3$ which is
  1463. %    forbidden.
  1464. %    \begin{macrocode}
  1465. \def\@classvii{\ifnum \@lastchclass = \thr@@
  1466. %    \end{macrocode}
  1467. %    If this is true we output an error message and
  1468. %    ignore the declarations stored
  1469. %    by the last  =>{...}=, because these are overwritten
  1470. %    by the argument of {\tt @}.
  1471. %    \begin{macrocode}
  1472.    \@preamerr \thr@@ \fi}
  1473. %    \end{macrocode}
  1474. % \end{macro}
  1475. %
  1476. %
  1477. % \begin{macro}{\@classvi}
  1478. %    If the current {\sf token} is a regular {\tt !}\ and the last
  1479. %    class
  1480. %    was $0$ or $2$ we extend the preamble with =\hskip \col@sep=.
  1481. %    If the last {\sf token} was of class $1$ (for instance {\tt |})
  1482. %    we extend with =\hskip \doublerulesep= because the
  1483. %    construction =!{...}= has to be treated like {\tt |}.
  1484. %    \begin{macrocode}
  1485. \def\@classvi{\ifcase \@lastchclass
  1486.       \@acol \or
  1487.       \@addtopreamble{\hskip \doublerulesep}\or
  1488.       \@acol \or
  1489. %    \end{macrocode}
  1490. %    Now =\@preamerr...= should follow because a
  1491. %    user preamble of the form =..>{..}!..= is not allowed.
  1492. %    To save memory we call =\@classvii= instead which also
  1493. %    does what we want.
  1494. %    \begin{macrocode}
  1495.       \@classvii
  1496. %    \end{macrocode}
  1497. %    If =\@lastchclass= is $4$ or $5$ nothing has to be done.
  1498. %    Class $6$ to $10$ are not possible.
  1499. %    So we finish the macro.
  1500. %    \begin{macrocode}
  1501.       \fi}
  1502. %    \end{macrocode}
  1503. % \end{macro}
  1504. %
  1505. % \begin{macro}{\@classii}
  1506. % \begin{macro}{\@classiii}
  1507. %    In the case of character classes $2$ and $3$ (i.e.\ the argument
  1508. %    of {\tt <} or {\tt >}) we only have to store the current
  1509. %    {\sf token} (=\@nextchar=) into the corresponding
  1510. %    {\sf token} register since the preparation and
  1511. %    insertion of these registers
  1512. %    are done by the macro =\@classz=.
  1513. %    This is equivalent to calling =\save@decl= in the case of
  1514. %    class $3$. To save command identifiers we do this call up
  1515. %     in the macro =\@mkpream=.
  1516. %
  1517. %    Class $2$ exhibits a more complicated situation: the
  1518. %    {\sf token} registers have already been inserted by
  1519. %    =\@classz=. So the value of =\count@= is too high
  1520. %    by one. Therefore we decrease =\count@= by $1$.
  1521. %    \begin{macrocode}
  1522. \def\@classii{\advance \count@ \m@ne
  1523. %    \end{macrocode}
  1524. %    Next we store the current {\sf token} into the correct 
  1525. %    {\sf token} register by calling =\save@decl= and then
  1526. %    increase the value of =\count@= again. At this point we
  1527. %    can save memory once more (at the cost of time) if we use the
  1528. %     macro =\prepnext@tok=.
  1529. %    \begin{macrocode}
  1530.    \save@decl\prepnext@tok}
  1531. %    \end{macrocode}
  1532. % \end{macro}
  1533. % \end{macro}
  1534. %
  1535. %
  1536. % \begin{macro}{\@classv}
  1537. %    If the current {\sf token} is of class $5$ then it is an argument
  1538. %    of a {\tt @} {\sf token}. It must be stored into a
  1539. %    {\sf token} register.
  1540. %    \begin{macrocode}
  1541. \def\@classv{\save@decl
  1542. %    \end{macrocode}
  1543. %    We extend the preamble with a command which inserts this
  1544. %    {\sf token} register into the preamble when its construction is
  1545. %    finished. The user expects that this argument is worked out in
  1546. %    math mode if it was used in an {\sf array}--environment. Therefore
  1547. %    we surround it with =\d@llar...='s.
  1548. % \changes{v2.0c}{90/08/14}{`relax added to avoid problem 
  1549. %                           `the`toks0`the`toks1.}
  1550. %    \begin{macrocode}
  1551.    \@addtopreamble{\d@llarbegin\the@toks\the\count@\relax\d@llarend}%
  1552. %    \end{macrocode}
  1553. %    Finally we must prepare the next {\sf token} register.
  1554. %    \begin{macrocode}
  1555.    \prepnext@tok}
  1556. %    \end{macrocode}
  1557. % \end{macro}
  1558. %
  1559. % \begin{macro}{\@classi}
  1560. %    In the case of class $0$ we were able to generate the necessary
  1561. %    space between columns by using the macro =\@classx=.
  1562. %    Analogously the macro =\@classvi= can be used for class $1$.
  1563. %    \begin{macrocode}
  1564. \def\@classi{\@classvi
  1565. %    \end{macrocode}
  1566. %    Depending on =\@chnum= a vertical line
  1567. %    \begin{macrocode}
  1568.    \ifcase \@chnum \@arrayrule \or
  1569. %    \end{macrocode}
  1570. %    or (in case of =!{...}=) the current {\sf token} --- stored
  1571. %    in =\@nextchar= --- has to be inserted into the preamble.
  1572. %    This corresponds to calling =\@classv=.
  1573. %    \begin{macrocode}
  1574.       \@classv \fi}
  1575. %    \end{macrocode}
  1576. % \end{macro}
  1577. %
  1578. %
  1579. %
  1580. % \begin{macro}{\@startpbox}
  1581. %    In =\@classz=  the macro =\@startpbox= is used.
  1582. %    The width of the {\sf parbox} is passed as an argument.
  1583. %    =\vcenter=, =\vtop= or =\vbox= are already in the
  1584. %    preamble. So we start with the braces for the wanted box.
  1585. %    \begin{macrocode}
  1586. \def\@startpbox#1{\bgroup
  1587. %    \end{macrocode}
  1588. %    The argument is the width of the box. This information has to be
  1589. %    assigned to =\hsize=.
  1590. %    Then we assain default values to several parameters used in a
  1591. %    {\sf parbox}.
  1592. %    \begin{macrocode}
  1593.   \hsize #1 \@arrayparboxrestore
  1594. %    \end{macrocode}
  1595. %    Our main problem is to obtain the same distance between succeeding
  1596. %    lines of the {\sf parbox}.
  1597. %    We have to remember that the distance between two {\sf parboxes}
  1598. %    should be defined by =\@arstrut=. That means that it can be
  1599. %    greater than the distance in a {\sf parbox}.
  1600. %    Therefore it is not enough to set a =\@arstrut= at the
  1601. %    beginning and at the end of the {\sf parbox}. This would
  1602. %    dimension the distance
  1603. %    between first and second line and the distance between the two
  1604. %    last lines of the {\sf parbox} wrongly.
  1605. %    To prevent this we set an invisible rule of height
  1606. %    =\@arstrutbox=
  1607. %    at the beginning of the {\sf parbox}. This has no effect on the
  1608. %    depth of the first line. At the end of the {\sf parbox} we set
  1609. %    analogously another invisible rule which only affects the depth
  1610. %    of the last line.
  1611. %    \begin{macrocode}
  1612.    \vrule \@height \ht\@arstrutbox \@width \z@}
  1613. %    \end{macrocode}
  1614. % \end{macro}
  1615. %
  1616. % \begin{macro}{\@endpbox}
  1617. %    If there are any declarations defined by =>{...}=
  1618. %    and =<{...}=
  1619. %    they now follow in the macro =\@classz= --- the contents
  1620. %    of the column in between.
  1621. %    So the macro =\@endpbox= must insert the {\sf specialstrut}
  1622. %    mentioned earlier and then close the group opened by
  1623. %    =\@startpbox=.
  1624. %    \begin{macrocode}
  1625. \def\@endpbox{\vrule \@width \z@ \@depth \dp \@arstrutbox \egroup}
  1626. %    \end{macrocode}
  1627. % \end{macro}
  1628. %
  1629. %
  1630. % \section{Building and calling {\tt \protect\bslash halign}}
  1631. %
  1632. % \begin{macro}{\@array}
  1633. %    After we have discussed the macros needed for the evaluation
  1634. %    of the user preamble we can define the macro =\@array=
  1635. %    which uses these macros to create a =\halign=.
  1636. %    It has two arguments. The first one is a position argument
  1637. %    which can be {\tt t}, {\tt b} or {\tt c}; the
  1638. %    second one describes the wanted preamble,
  1639. %    e.g.\ it has the form =|c|c|c|=.
  1640. %    \begin{macrocode}
  1641. \def\@array[#1]#2{%
  1642. %    \end{macrocode}
  1643. %    First we define a {\sf strut} whose size basically corresponds
  1644. %     to a normal {\sf strut} multiplied by the factor
  1645. %    =\arraystretch=.
  1646. %    This {\sf strut} is then  inserted into every row and enforces
  1647. %     a minimal distance between two rows.
  1648. %    Nevertheless, when using horizontal lines, large letters
  1649. %    (like accented capital letters) still collide with such lines.
  1650. %    Therefore at first we add to the height of a normal {\sf strut}
  1651. %    the value of the parameter =\extrarowheight=.
  1652. %    \begin{macrocode}
  1653.   \@tempdima \ht \strutbox
  1654.   \advance \@tempdima by\extrarowheight
  1655.   \setbox \@arstrutbox \hbox{\vrule
  1656.              \@height \arraystretch \@tempdima
  1657.              \@depth \arraystretch \dp \strutbox
  1658.              \@width \z@}%
  1659. %    \end{macrocode}
  1660. %    Then we open a group, in which the user preamble is evaluated by
  1661. %    the macro =\@mkpream=. As we know this must happen locally.
  1662. %    This macro creates a preamble for a =\halign= and saves
  1663. %    its result globally in the control sequence =\@preamble=.
  1664. %    \begin{macrocode}
  1665.   \begingroup
  1666.   \@mkpream{#2}%
  1667. %    \end{macrocode}
  1668. %    We again redefine =\@preamble= so that a call up of
  1669. %    =\@preamble= now starts the =\halign=. Thus also the
  1670. %    arguments of {\tt >}, {\tt <}, {\tt @} and {\tt !}, saved in the
  1671. %    {\sf token} registers are inserted into the preamble.
  1672. %    The =\tabskip= at the beginning and end of the preamble
  1673. %    is set to {\sf 0pt} (in the beginning by the use of
  1674. %    =\ialign=). Also the command =\@arstrut= is build in,
  1675. %    which inserts the =\@arstrutbox=, defined above. Of course,
  1676. %    the opening brace after =\ialign= has to be implicit as it
  1677. %    will be closed in =\endarray= or another macro.
  1678. %    \begin{macrocode}
  1679.   \xdef\@preamble{\ialign \@halignto
  1680.                   \bgroup \@arstrut \@preamble
  1681.                           \tabskip \z@ \cr}%
  1682. %    \end{macrocode}
  1683. %    What we have not explained yet is the macro =\@halignto=
  1684. %    that was just used. Depending on its replacement text the
  1685. %    =\halign= becomes a =\halign= {\tt to} \meta{dimen}.
  1686. %    Now we close the group again. Thus
  1687. %    =\@startpbox= and =\@endpbox= as well as all
  1688. %    {\sf token} registers get their former meaning back.
  1689. %    \begin{macrocode}
  1690.   \endgroup
  1691. %    \end{macrocode}
  1692. %     To support the {\tt delarray.sty} style option we include a hook
  1693. %     into this part of the code which is a no-op in the main style.
  1694. % \changes{v2.1a}{92/07/03}{Hook for delarray added}
  1695. %    \begin{macrocode}
  1696.   \@arrayleft
  1697. %    \end{macrocode}
  1698. %    Now we decide depending on the position argument in which {\sf
  1699. %    box} the =\halign= is to be put. (=\vcenter= may be used
  1700. %    because we are in math mode.)
  1701. % \changes{v2.1a}{92/07/03}{Wrong spec is now equiv to [t]}
  1702. %    \begin{macrocode}
  1703.   \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi \fi
  1704. %    \end{macrocode}
  1705. %    Now another implicit opening brace appears; then definitions
  1706. %    which shall stay local follow. While constructing the
  1707. %    =\@preamble= in =\@mkpream= the =#= sign must be
  1708. %    hidden in the macro =\@sharp= which is =\let= to
  1709. %    =\relax= at that moment (see definition of =\@mkpream=
  1710. %    on page~\pageref{@mkpream}).
  1711. %    All these now get their actual meaning.
  1712. %    \begin{macrocode}
  1713.   \bgroup
  1714.   \let \@sharp ##\let \protect \relax
  1715. %    \end{macrocode}
  1716. %    With the above defined {\sf struts} we fix down the distance
  1717. %    between rows by setting =\lineskip= and =\baselineskip=
  1718. %    to {\sf 0pt}. Since there have to be set =$='s
  1719. %    around every column in the {\sf array}--environment
  1720. %     the parameter =\mathsurround= should
  1721. %    also be set to {\sf 0pt}. This prevents additional space between
  1722. %    the rows. The
  1723. %    \PlainTeX--macro =\m@th= does this.
  1724. %    \begin{macrocode}
  1725.   \lineskip \z@
  1726.   \baselineskip \z@
  1727.   \m@th
  1728. %    \end{macrocode}
  1729. %    Beside, we have to assign a special meaning (which we still have
  1730. %    to specify) to the line separator =\\=. We also have to
  1731. %    redefine the command =\par= in such a way that empty lines in
  1732. %    =\halign= cannot do any damage. We succeed in doing  so
  1733. %    by choosing something that will disappear when expanding.
  1734. %    After that we only have to call up =\@preamble= to
  1735. %    start the wanted =\halign=.
  1736. %    \begin{macrocode}
  1737.   \let\\ \@arraycr  \let\par\@empty \@preamble}
  1738. %    \end{macrocode}
  1739. % \end{macro}
  1740. %
  1741. %
  1742. % \begin{macro}{\extrarowheight}
  1743. %    The {\sf dimen} parameter used above also needs to be allocated.
  1744. %    As a default value we use {\sf 0pt}, to ensure compatibility with
  1745. %    standard \LaTeX.
  1746. %    \begin{macrocode}
  1747. \newdimen \extrarowheight
  1748. \extrarowheight=0pt
  1749. %    \end{macrocode}
  1750. % \end{macro}
  1751. %
  1752. % \begin{macro}{\@arstrut}
  1753. %    Now the insertion of =\@arstrutbox= through =\@arstut=
  1754. %    is easy since we know exactly in which mode \TeX\ is while working
  1755. %    on the =\halign= preamble.
  1756. %    \begin{macrocode}
  1757. \def\@arstrut{\unhcopy\@arstrutbox}
  1758. %    \end{macrocode}
  1759. % \end{macro}
  1760. %
  1761. %
  1762. % \section{The line separator {\tt\protect\bslash\protect\bslash}}
  1763. %
  1764. % \begin{macro}{\@arraycr}
  1765. %    In the macro =\@array= the line separator =\\= is
  1766. %    =\let= to the command =\@arraycr=.
  1767. %    Its definition starts with a special brace which I have directly
  1768. %    copied from the original definition. It is
  1769. %    necessary, because the =\futurlet= in =\@ifnextchar=
  1770. %    might
  1771. %    expand a  following =&= {\sf token} in a construction like
  1772. %    =\\ &=. This would otherwise end the alignment template at a
  1773. %    wrong time. For further information see
  1774. %    \cite[Appendix D]{bk:knuth}.
  1775. %    \begin{macrocode}
  1776. \def\@arraycr{{\ifnum 0=`}\fi
  1777. %    \end{macrocode}
  1778. %    Then we test whether the user is using the star form and ignore
  1779. %    a possible star (I also disagree with this procedure, because a
  1780. %    star does not make any sense here).
  1781. %    \begin{macrocode}
  1782.   \@ifstar \@xarraycr \@xarraycr}
  1783. %    \end{macrocode}
  1784. % \end{macro}
  1785. %
  1786. % \begin{macro}{\@xarraycr}
  1787. %    In the command =\@xarraycr= we test if an optional argument
  1788. %    exists.
  1789. %    \begin{macrocode}
  1790. \def\@xarraycr{\@ifnextchar [%
  1791. %    \end{macrocode}
  1792. %    If it does, we branch out into the macro =\@argarraycr= if
  1793. %    not we close the special brace (mentioned above) and end the row
  1794. %    of the =\halign= with a =\cr=.
  1795. %    \begin{macrocode}
  1796.   \@argarraycr {\ifnum 0=`{\fi}\cr}}
  1797. %    \end{macrocode}
  1798. % \end{macro}
  1799. %
  1800. %
  1801. % \begin{macro}{\@argarraycr}
  1802. %    If additional space is requested by the user this case is treated
  1803. %    in the macro =\@argarraycr=. First we close the special brace
  1804. %    and then we test if the additional space is positive.
  1805. %    \begin{macrocode}
  1806. \def\@argarraycr[#1]{\ifnum0=`{\fi}\ifdim #1>\z@
  1807. %    \end{macrocode}
  1808. %    If this is the case we create an invisible vertical rule with a
  1809. %    depth of $=\dp\@arstutbox=  + \left\langle
  1810. %                                         \it wanted\ space
  1811. %                                       \right\rangle  $.
  1812. %    Thus we achieve that all vertical lines specified
  1813. %    in the user preamble by a {\tt |} are now
  1814. %    generally drawn.
  1815. %    Then the row ends with a =\cr=.
  1816. %
  1817. %    If the space is negative we end the row at once with a =\cr=
  1818. %    and move back up with a =\vskip=.
  1819. %
  1820. %    While testing these macros I found out that the
  1821. %    =\endtemplate=
  1822. %    created by =\cr= and =&= is something like an
  1823. %    =\outer= primitive and therefore it should not appear in
  1824. %    incomplete =\if= statements. Thus the following solution was
  1825. %    chosen which hides the =\cr= in other macros when \TeX\
  1826. %    is skipping conditional text.
  1827. %    \begin{macrocode}
  1828.   \@xargarraycr{#1}\else \@yargarraycr{#1}\fi}
  1829. %    \end{macrocode}
  1830. % \end{macro}
  1831. %
  1832. % \begin{macro}{\@xargarraycr}
  1833. % \begin{macro}{\@yargarraycr}
  1834. %    The following macros were already explained above.
  1835. %    \begin{macrocode}
  1836. \def\@xargarraycr#1{\unskip
  1837.   \@tempdima #1\advance\@tempdima \dp\@arstrutbox
  1838.   \vrule \@depth\@tempdima \@width\z@ \cr}
  1839. \def\@yargarraycr#1{\cr\noalign{\vskip #1}}
  1840. %    \end{macrocode}
  1841. % \end{macro}
  1842. % \end{macro}
  1843. %
  1844. %
  1845. %
  1846. %
  1847. % \section{Spanning several columns}
  1848. %
  1849. % \begin{macro}{\multicolumn}
  1850. %    If several columns should be held together with a special format
  1851. %    the command =\multicolumn= must be used. It has three
  1852. %    arguments: the number of columns to be covered; the format for
  1853. %    the result column and the actual column entry.
  1854. %    \begin{macrocode}
  1855. \def\multicolumn#1#2#3{%
  1856. %    \end{macrocode}
  1857. %    First we combine the given number of columns into a single one;
  1858. %    then we start a new block so that the following definition is kept
  1859. %    local.
  1860. %    \begin{macrocode}
  1861.    \multispan{#1}\begingroup
  1862. %    \end{macrocode}
  1863. %    Since a =\multicolumn= should only describe the format of a
  1864. %    result column, we redefine =\@addamp= in such a way that one
  1865. %    gets an error message if one uses more than one
  1866. %    {\tt c}, {\tt l}, {\tt r}, {\tt p}, {\tt m} or {\tt b} in the
  1867. %    second argument. One should consider that this definition is local
  1868. %    to the build-up of the preamble; an {\sf array}-- or
  1869. %    {\sf tabular}--environment in the third argument of the
  1870. %    =\multicolumn= is therefore worked through correctly as well.
  1871. %    \begin{macrocode}
  1872.    \def\@addamp{\if@firstamp \@firstampfalse \else
  1873.                 \@preamerr 5\fi}%
  1874. %    \end{macrocode}
  1875. %    Then we evaluate the second argument with the help of
  1876. %    =\@mkpream=.
  1877. %    Now we still have to insert the contents of the {\sf token}
  1878. %    register into the =\@preamble=, i.e.\ we have to say
  1879. %    =\xdef\@preamble{\@preamble}=. This is achieved shorter by
  1880. %    writing:
  1881. %    \begin{macrocode}
  1882.    \@mkpream{#2}\@addtopreamble\@empty
  1883. %    \end{macrocode}
  1884. %    After the =\@preamble= is created we forget all local
  1885. %    definitions and occupations of the {\sf token} registers.
  1886. %    \begin{macrocode}
  1887.    \endgroup
  1888. %    \end{macrocode}
  1889. %    In the special situation of  =\multicolumn= =\@preamble=
  1890. %    is not needed as preamble for a =\halign= but it is directly
  1891. %    inserted into our table. Thus instead of =\sharp=
  1892. %    there has to be the column entry (=#3=) wanted by the user.
  1893. %    \begin{macrocode}
  1894.    \def\@sharp{#3}%
  1895. %    \end{macrocode}
  1896. %    Now we can pass the =\@preamble= to \TeX\ . For safety
  1897. %    we start with an =\@arstrut=. This should usually be in the
  1898. %    template for the first column however we do not know if this
  1899. %    template was overwritten by our =\multicolumn=.
  1900. %    \begin{macrocode}
  1901.    \@arstrut \@preamble \ignorespaces}
  1902. %    \end{macrocode}
  1903. % \end{macro}
  1904. %
  1905. %
  1906. %
  1907. %   \section{The Environment Definitions}
  1908. %
  1909. % After these preparations we are able to define the environments. They
  1910. % only differ in the initialisations of =\d@llar...=, =\col@sep=
  1911. %  and =\@halignto=.
  1912. %
  1913. % \begin{macro}{\@halignto}
  1914. % \begin{macro}{\d@llarbegin}
  1915. % \begin{macro}{\d@llarend}
  1916. %    In order to relieve the {\sf save stack} we assign the replacement
  1917. %    texts for =\@halignto= globally. =\d@llar= has to be local
  1918. %    since otherwise nested {\sf tabular} and {\sf array} environments 
  1919. %    (via =\multicolumn=) are impossible.
  1920. % \changes{v2.0g}{92/06/18}{`d@llarbegin defined on toplevel.}
  1921. %    When the new font selection scheme is in force we have to 
  1922. %    we surround all =\halign= entries 
  1923. %    with braces. See remarks in TUGboat 10\#2. Actually we are going
  1924. %    to use =\begingroup= and =\endgroup=. However, this is only
  1925. %    necessary when we are in text mode. In math the surrounding
  1926. %    dollar signs will already serve as the necessary extra grouping
  1927. %    level. Therefore we switch the settings of =\d@llarbegin= and
  1928. %    =\d@llarend= between groups and dollar signs.
  1929. %    \begin{macrocode}
  1930. \let\d@llarbegin\begingroup
  1931. \let\d@llarend\endgroup
  1932. %    \end{macrocode}
  1933. % \end{macro}
  1934. % \end{macro}
  1935. % \end{macro}
  1936. %
  1937. %
  1938. % \begin{macro}{\array}
  1939. %    Our new definition of =\array= then reads:
  1940. % \changes{v2.0d}{90/08/20}{`d@llar local to preamble.}
  1941. %    \begin{macrocode}
  1942. \def\array{\col@sep\arraycolsep
  1943.   \def\d@llarbegin{$}\let\d@llarend\d@llarbegin\gdef\@halignto{}%
  1944. %    \end{macrocode}
  1945. %    Since there might be an optional argument we call another
  1946. %    macro which is also used by the other environments.
  1947. %    \begin{macrocode}
  1948.   \@tabarray}
  1949. %    \end{macrocode}
  1950. % \end{macro}
  1951. %
  1952. % \begin{macro}{\@tabarray}
  1953. %    This macro tests for a optional bracket and then calls up
  1954. %    =\@array= or =\@array[c]= (as default).
  1955. %    \begin{macrocode}
  1956. \def\@tabarray{\@ifnextchar[{\@array}{\@array[c]}}
  1957. %    \end{macrocode}
  1958. % \end{macro}
  1959. %
  1960. %
  1961. % \begin{macro}{\tabular}
  1962. % \begin{macro}{\tabular*}
  1963. %    The environments {\sf tabular} and {\sf tabular$*$} differ
  1964. %    only in the initialisation of =\@halignto=. Therefore
  1965. %    we define
  1966. %    \begin{macrocode}
  1967. \def\tabular{\gdef\@halignto{}\@tabular}
  1968. %    \end{macrocode}
  1969. %     and analoguesly
  1970. %     \begin{macrocode}
  1971. \expandafter\def\csname tabular*\endcsname#1{%
  1972.       \gdef\@halignto{to#1}\@tabular}
  1973. %    \end{macrocode}
  1974. % \end{macro}
  1975. % \end{macro}
  1976. %
  1977. % \begin{macro}{\@tabular}
  1978. %    The rest of the job is carried out by the =\@tabular= macro:
  1979. %    \begin{macrocode}
  1980. \def\@tabular{%
  1981. %    \end{macrocode}
  1982. %    First of all we have to make sure that we start out in {\sf
  1983. %    hmode}.
  1984. %    Otherwise we might find our table dangling by itself on a line.
  1985. %    \begin{macrocode}
  1986.   \leavevmode
  1987. %    \end{macrocode}
  1988. %    It should be taken into consideration that the macro
  1989. %    =\@array=
  1990. %    must be called in math mode. Therefore we open a {\sf box}, insert
  1991. %    a =$= and then assign the correct values to =\col@sep=
  1992. %    and =\d@llar...=.
  1993. % \changes{v2.0d}{90/08/20}{`d@llar local to preamble.}
  1994. %    \begin{macrocode}
  1995.   \hbox \bgroup $\col@sep\tabcolsep \let\d@llarbegin\begingroup
  1996.                                     \let\d@llarend\endgroup
  1997. %    \end{macrocode}
  1998. %    Now everything {\sf tabular} specific is done and we are able to
  1999. %    call the =\@tabarray= macro.
  2000. %    \begin{macrocode}
  2001.   \@tabarray}
  2002. %    \end{macrocode}
  2003. % \end{macro}
  2004. %
  2005. % \begin{macro}{\endarray}
  2006. %    When the processing of {\sf array} is finished we have to
  2007. %    close the =\halign=
  2008. %    and afterwards the surrounding {\sf box} selected by
  2009. %    =\@array=. To save {\sf token} space we then redefine
  2010. %    =\@preamble=
  2011. %    because its replacement text isn't longer needed.
  2012. %    \begin{macrocode}
  2013. \def\endarray{\crcr \egroup \egroup \gdef\@preamble{}}
  2014. %    \end{macrocode}
  2015. % \end{macro}
  2016. %
  2017. % \begin{macro}{\endtabular}
  2018. % \begin{macro}{\endtabular*}
  2019. %    To end a {\sf tabular} or {\sf tabular$*$} environment we call up
  2020. %    =\endarray=, close the math mode and then the surrounding
  2021. %    =\hbox=.
  2022. %    \begin{macrocode}
  2023. \def\endtabular{\endarray $\egroup}
  2024. \expandafter\let\csname endtabular*\endcsname=\endtabular
  2025. %    \end{macrocode}
  2026. % \end{macro}
  2027. % \end{macro}
  2028. %
  2029. %
  2030. %
  2031. %   \section{Last minute definitions}
  2032. %
  2033. %
  2034. % If this file is used as a style file we should =\let= all macros
  2035. % to =\relax= that were used in the original but are no longer
  2036. %  necessary.
  2037. %    \begin{macrocode}
  2038. \let\@ampacol=\relax        \let\@expast=\relax
  2039. \let\@arrayclassiv=\relax   \let\@arrayclassz=\relax
  2040. \let\@tabclassiv=\relax     \let\@tabclassz=\relax
  2041. \let\@arrayacol=\relax      \let\@tabacol=\relax
  2042. \let\@tabularcr=\relax      \let\@@endpbox=\relax
  2043. \let\@argtabularcr=\relax   \let\@xtabularcr=\relax
  2044. %    \end{macrocode}
  2045. %
  2046. % \begin{macro}{\@preamerr}
  2047. %    We also have to redefine the error routine =\@preamerr= since
  2048. %    new kind of errors are possible.
  2049. %    The code for this macro is not perfect yet;
  2050. %    it still needs too much memory.
  2051. %    \begin{macrocode}
  2052. \def\@preamerr#1{\def\@tempd{{..} at wrong position: }%
  2053.    \@latexerr{%
  2054.    \ifcase #1 Illegal pream-token (\@nextchar): `c' used\or %0
  2055.     Missing arg: token ignored\or                           %1
  2056.     Empty preamble: `l' used\or                             %2
  2057.     >\@tempd token ignored\or                               %3
  2058.     <\@tempd changed to !{..}\or                            %4
  2059.     Only one column-spec. allowed.\fi}\@ehc}                %5
  2060. %    \end{macrocode}
  2061. % \end{macro}
  2062. %
  2063. % \begin{macro}{\@tfor}
  2064. %    Testing this implementation an error was found in the definition
  2065. %    of the \LaTeX{} macro =\@tfor=. It was not implemented
  2066. %    according to
  2067. %    its specification. The assignment to =\@fortmp= must not take
  2068. %    place
  2069. %    via =\xdef=. A =\def= has to be used because =#2= must
  2070. %    not be expanded. Since this mistake does not show up when
  2071. %    =\@tfor= is used in {\tt latex.tex}, it does not
  2072. %    seem to have been noticed.
  2073. %    \begin{macrocode}
  2074. \def\@tempa#1:=#2\do#3{\def\@fortmp{#2}\ifx\@fortmp\@empty
  2075.       \else\@tforloop#2\@nil\@nil\@@#1{#3}\fi}
  2076. \ifx\@tempa\@tfor
  2077. \else
  2078.   \errhelp{The bug fix for \@tfor was removed from
  2079.            array.sty because it was^^J%
  2080.            corrected in latex.tex <dec91>.^^J^^J%
  2081.            Please update to a newer LaTeX release.}
  2082.   \errmessage{Obsolete LaTeX release (older than Dec.91)}
  2083.   \let\@tfor\@tempa
  2084. \fi
  2085. \let\@tempa\@empty
  2086. %</style>
  2087. %    \end{macrocode}
  2088. % \end{macro}
  2089. %
  2090. %
  2091. % \section
  2092. %   [Defining your own column specifiers]
  2093. %   {Defining your own column specifiers\footnotemark}
  2094. %
  2095. % \footnotetext{The code and the documentation in this section was
  2096. %   written by David. So far only the code from newarray was plugged
  2097. %   into array so that some parts of the documentation still claim
  2098. %   that this is newarray and even worse, some parts of the code are
  2099. %   unnecessarily doubled. This will go away in a future release. For
  2100. %   the moment we thought it would be more important to bring both
  2101. %   styles together.}
  2102. % \changes{v2.1a}{92/07/03}{Newcolumn stuff added}
  2103. %
  2104. % \DeleteShortVerb{\=}
  2105. % \MakeShortVerb{\"}
  2106. %
  2107. %  \begin{macro}{\newcolumn}
  2108. %    In {\tt newarray.sty} the macro for specifying new columns was
  2109. %    named "\newcolumn". When the functionality was added to {\tt
  2110. %    array.sty} the name changed to "\newcolumntype". To allow
  2111. %    prcessing older sources that made use of {\tt newarray.sty} we
  2112. %    provide a definition for the old name.
  2113. %    \begin{macrocode}
  2114. \def\newcolumn{%
  2115.   \typeout{*** Obsolete command \string\newcolumn!
  2116.                Please use \noexpand\newcolumntype ***}%
  2117.   \newcolumntype
  2118. }
  2119. %    \end{macrocode}
  2120. %  \end{macro}
  2121. %
  2122. % \begin{macro}{\newcolumntype}
  2123. % \changes{v2.1b}{92/06/07}{Macro renamed from `newcolumn} As
  2124. % described above, the "\newcolumntype" macro gives users the chance
  2125. % to define letters, to be used in the same way as the primitive
  2126. % column specifiers, `c' `p' etc.
  2127. %    \begin{macrocode}
  2128. %<*ncols>
  2129. \def\newcolumntype#1{%
  2130. %    \end{macrocode}
  2131. % "\NC@char" was added in V2.01 so that active characters, like "@" in
  2132. % AMS\LaTeX\ may be used. This trick was stolen from {\tt array.sty}
  2133. % 2.0h. Note that we need to use the possibly active token,
  2134. % "#1", in several places, as that is the token that actually
  2135. % appears in the preamble argument.
  2136. %    \begin{macrocode}
  2137.   \edef\NC@char{\string#1}%
  2138. %    \end{macrocode}
  2139. % First we check whether there is already a definition for this column.
  2140. % Unlike "\newcommand" we give a warning rather than an error if it is
  2141. % defined. If it is a new column, add "\NC@do" \meta{column} to
  2142. % the list "\NC@list".
  2143. %    \begin{macrocode}
  2144.   \@ifundefined{NC@find@\NC@char}%
  2145.     {\@tfor\next:=<>clrmbp@!|\do{\if\next\NC@char
  2146.                     \@warning{Redefining primitive column \NC@char}\fi}%
  2147.      \NC@list\expandafter{\the\NC@list\NC@do#1}}%
  2148.     {\@warning{Column \NC@char\space is already defined}}%
  2149. %    \end{macrocode}
  2150. % Now we define a macro with an argument delimited by the new column
  2151. % specifier, this is used to find occurences of this specifier in the
  2152. % user preamble.
  2153. %    \begin{macrocode}
  2154.   \@namedef{NC@find@\NC@char}##1#1{\NC@{##1}}%
  2155. %    \end{macrocode}
  2156. % If an optional argument was not given, give a default argument of 0.
  2157. %    \begin{macrocode}
  2158.   \@ifnextchar[{\newcol@{\NC@char}}{\newcol@{\NC@char}[0]}}
  2159. %    \end{macrocode}
  2160. % \end{macro}
  2161. % \begin{macro}{\newcol@}
  2162. % We can now define the macro which does the rewriting,
  2163. % "\@reargdef" takes the same arguments as "\newcommand", but
  2164. % does not check that the command is new. For a column, say `D' with
  2165. % one argument, define a command "\NC@rewrite@D" with one
  2166. % argument, which recursively calls "\NC@find" on the user preamble
  2167. % after replacing the first token or group with the replacement text
  2168. % specified in the "\newcolumntype" command. "\NC@find" will find the
  2169. % next occurrence of `D' as it will be "\let" equal to
  2170. % "\NC@find@D" by "\NC@do".
  2171. %    \begin{macrocode}
  2172. \def\newcol@#1[#2]#3{\expandafter\@reargdef
  2173.      \csname NC@rewrite@#1\endcsname[#2]{\NC@find#3}}
  2174. %    \end{macrocode}
  2175. % \end{macro}
  2176. % \begin{macro}{\NC@}
  2177. % Having found an occurence of the new column, save the preamble
  2178. % before the column in "\@temptokena", then check to see if we
  2179. % are at the end of the preamble. (A dummy occurrence of the column
  2180. % specifier will be placed at the end of the preamble by "\NC@do".
  2181. %    \begin{macrocode}
  2182. \def\NC@#1{%
  2183.   \@temptokena\expandafter{\the\@temptokena#1}\futurelet\next\NC@ifend}
  2184. %    \end{macrocode}
  2185. % \end{macro}
  2186. % \begin{macro}{\NC@ifend}
  2187. % We can tell that we are at the end as "\NC@do" will place a "\relax"
  2188. % after the dummy column.
  2189. %    \begin{macrocode}
  2190. \def\NC@ifend{%
  2191. %    \end{macrocode}
  2192. % If we are at the end, do nothing. (The whole preamble will now be in
  2193. % "\@temptokena".)
  2194. %    \begin{macrocode}
  2195.   \ifx\next\relax
  2196. %    \end{macrocode}
  2197. % Otherwise set the flag "\if@tempswa", and rewrite the column.
  2198. % "\expandafter" introduced 1n V2.01
  2199. %    \begin{macrocode}
  2200.     \else\@tempswatrue\expandafter\NC@rewrite\fi}
  2201. %    \end{macrocode}
  2202. % \end{macro}
  2203. % \begin{macro}{\NC@do}
  2204. % If the user has specified `C' and `L' as new columns, the list of
  2205. % rewrites (in the token register "\NC@list") will look like
  2206. % "\NC@do *" "\NC@do C" "\NC@do L".
  2207. % So we need to define "\NC@do" as a one argument macro which
  2208. % initialises the rewriting of the specified column. Let us assume that
  2209. % `C' is the argument.
  2210. %    \begin{macrocode}
  2211. \def\NC@do#1{%
  2212. %    \end{macrocode}
  2213. % First we let "\NC@rewrite" and "\NC@find" be
  2214. % "\NC@rewrite@C" and "\NC@find@C" respectively.
  2215. %    \begin{macrocode}
  2216.   \expandafter\let\expandafter\NC@rewrite
  2217.     \csname NC@rewrite@\string#1\endcsname
  2218.   \expandafter\let\expandafter\NC@find
  2219.     \csname NC@find@\string#1\endcsname
  2220. %    \end{macrocode}
  2221. % Clear the token register "\@temptokena" after putting the present
  2222. % contents of the register in front of the token "\NC@find". At the
  2223. % end we place the tokens `"C\relax"' which "\NC@ifend" will use
  2224. % to detect the end of the user preamble.
  2225. %    \begin{macrocode}
  2226.   \expandafter\@temptokena\expandafter{\expandafter}%
  2227.         \expandafter\NC@find\the\@temptokena#1\relax}
  2228. %    \end{macrocode}
  2229. % \end{macro}
  2230. %
  2231. % \begin{macro}{\showcols}
  2232. % This macro is useful for debugging "\newcolumntype" specifications,
  2233. % it is the equivalent of the primitive "\show" command for macro
  2234. % definitions.  All we need to do is locally redefine "\NC@do" to take
  2235. % its argument (say `C') and then "\show" the (slightly modified)
  2236. % definition of "\NC@rewrite@C". Actually as the the list always
  2237. % starts off with "\NC@do *" and we do not want to print the
  2238. % definition of the $*$-form, define "\NC@do" to throw away the first
  2239. % item in the list, and then redefine itsef to print the rest of the
  2240. % definitions.
  2241. %    \begin{macrocode}
  2242. \def\showcols{{\def\NC@do##1{\let\NC@do\NC@show}\the\NC@list}}
  2243. %    \end{macrocode}
  2244. % \end{macro}
  2245. % \begin{macro}{\NC@show}
  2246. % If the column `C' is defined as above, then
  2247. % "\show\NC@rewrite@C" would output\\
  2248. % "\long macro: ->\NC@find >{$}c<{$}".
  2249. % We want to strip the "long macro: ->" and the "\NC@find". So first we
  2250. % use "\meaning" and then apply the macro "\NC@strip" to the tokens so
  2251. % produced and then "\typeout" the required string.
  2252. %    \begin{macrocode}
  2253. \def\NC@show#1{%
  2254.   \typeout{Column #1\expandafter\expandafter\expandafter\NC@strip
  2255.   \expandafter\meaning\csname NC@rewrite@#1\endcsname\@@}}
  2256. %    \end{macrocode}
  2257. % \end{macro}
  2258. % \begin{macro}{\NC@strip}
  2259. % Delimit the arguments to "\NC@strip" with `{\tt:}', `{\tt->}',
  2260. % a space, and "\@@" to pull out the required parts of the output from
  2261. % "\meaning".
  2262. %    \begin{macrocode}
  2263. \def\NC@strip#1:#2->#3 #4\@@{#2 -> #4}
  2264. %    \end{macrocode}
  2265. % \end{macro}
  2266. % \begin{macro}{\NC@list}
  2267. % Allocate the token register used for the rewrite list.
  2268. %    \begin{macrocode}
  2269. \newtoks\NC@list
  2270. %    \end{macrocode}
  2271. % \end{macro}
  2272. %
  2273. % \subsection{The $*$--form}
  2274. % We view the $*$-form as a slight generalisation of the system
  2275. % described in the previous subsection. The idea is to define a $*$
  2276. % column by a command of the form:
  2277. % \begin{verbatim}
  2278. % \newcolumntype{*}[2]{%
  2279. %    \count@=#1\ifnum\count@>0
  2280. %       \advance\count@ by -1 #2*{\count@}{#2}\fi}
  2281. % \end{verbatim}
  2282. % \begin{macro}{\NC@rewrite@*}\label{NC@rewrite@*}
  2283. % This does not work however as "\newcolumntype" takes great care not
  2284. % to expand anything in the preamble, and so the "\if" is never
  2285. % expanded. "\newcolumntype" sets up various other parts of the
  2286. % rewrite correctly though so we can define:
  2287. %    \begin{macrocode}
  2288. \newcolumntype{*}[2]{}
  2289. %    \end{macrocode}
  2290. % Now we must correct the definition of "\NC@rewrite@*". The
  2291. % following is probably more efficient than a direct translation of
  2292. % the idea sketched above, we do not need to put a $*$ in the preamble
  2293. % and call the rewrite recursively, we can just put "#1" copies of
  2294. % "#2" into "\@temptokena". (Nested $*$ forms will be expanded
  2295. % when the whole rewrite list is expanded again, see "\@mkpream")
  2296. %    \begin{macrocode}
  2297. \long\@namedef{NC@rewrite@*}#1#2{%
  2298. %    \end{macrocode}
  2299. % Store the number.
  2300. %    \begin{macrocode}
  2301.   \count@#1
  2302. %    \end{macrocode}
  2303. % Put "#1" copies of "#2" in the token register.
  2304. %    \begin{macrocode}
  2305.   \loop
  2306.   \ifnum\count@>\z@
  2307.   \advance\count@\m@ne
  2308.   \@temptokena\expandafter{\the\@temptokena#2}%
  2309.   \repeat
  2310. %    \end{macrocode}
  2311. % "\NC@do" will ensure that "\NC@find" is "\let" equal
  2312. % to "\NC@find@*".
  2313. %    \begin{macrocode}
  2314.   \NC@find}
  2315. %    \end{macrocode}
  2316. % \end{macro}
  2317. %
  2318. % \subsection{Modifications to internal macros of {\tt array.sty}}
  2319. %
  2320. % \begin{macro}{\@xexpast}
  2321. % \begin{macro}{\@xexnoop}
  2322. % These macros are used to expand $*$-forms in {\tt array.sty}. "\let"
  2323. % them to "\relax" to save space.
  2324. %    \begin{macrocode}
  2325. \let\@xexpast\relax
  2326. \let\@xexnoop\relax
  2327. %    \end{macrocode}
  2328. % \end{macro}
  2329. % \end{macro}
  2330. %
  2331. % \begin{macro}{\save@decl}
  2332. % We do not assume that the token register is free, we add the new
  2333. % declarations to the front of the register. This is to allow user
  2334. % preambles of the form, ">{foo}>{bar}..". Users are not encouraged to
  2335. % enter such expressions directly, but they may result from the
  2336. % rewriting of "\newcolumntype"'s.
  2337. %    \begin{macrocode}
  2338. \def\save@decl{\toks \count@ = \expandafter\expandafter\expandafter
  2339.                   {\expandafter\@nextchar\the\toks\count@}}
  2340. %    \end{macrocode}
  2341. % \end{macro}
  2342. % \begin{macro}{\@mkpream}
  2343. %    The main modification to "\@mkpream" is to replace the call to
  2344. %    "\@xexpast" (which expanded $*$-forms) by a loop which expands
  2345. %    all "\newcolumntype" specifiers.
  2346. %    \begin{macrocode}
  2347. \def\@mkpream#1{\gdef\@preamble{}\@lastchclass 4 \@firstamptrue
  2348.    \let\@sharp\relax \let\@startpbox\relax \let\@endpbox\relax
  2349. %    \end{macrocode}
  2350. %    Now we remove possible  $*$-forms and user-defined column
  2351. %    specifiers in the user preamble by repeatedly executing the list
  2352. %    "\NC@list" until the re-writes have no more effect. The
  2353. %    expanded preamble will then be in the token register
  2354. %    "\@temptokena". Actually we need to know at this point that
  2355. %    this is not "\toks0".
  2356. %    \begin{macrocode}
  2357.    \@temptokena{#1}\@tempswatrue
  2358.    \@whilesw\if@tempswa\fi{\@tempswafalse\the\NC@list}%
  2359. %    \end{macrocode}
  2360. %    Afterwards we initialize all registers and macros, that we need
  2361. %    for the build-up of the preamble.
  2362. %    \begin{macrocode}
  2363.    \count@\m@ne
  2364.    \let\the@toks\relax
  2365.    \prepnext@tok
  2366. %    \end{macrocode}
  2367. % Having expanded all tokens defined using "\newcolumntype" (including
  2368. % "*"), we evaluate the remaining tokens, which are saved in
  2369. % "\@temptokena".  We use the \LaTeX--macro "\@tfor" to inspect each
  2370. % token in turn.
  2371. %    \begin{macrocode}
  2372.    \expandafter \@tfor \expandafter \@nextchar
  2373.     \expandafter :\expandafter =\the\@temptokena \do
  2374. %    \end{macrocode}
  2375. % "\@testpatch" does not take an argument since {\tt array.sty} 2.0h.
  2376. %    \begin{macrocode}
  2377.    {\@testpach
  2378.    \ifcase \@chclass \@classz \or \@classi \or \@classii
  2379.      \or \save@decl \or \or \@classv \or \@classvi
  2380.      \or \@classvii \or \@classviii
  2381. %    \end{macrocode}
  2382. %    In {\tt newarray.sty} class 9 is equivalent to class 10.
  2383. %    \begin{macrocode}
  2384.      \or \@classx
  2385.      \or \@classx \fi
  2386.    \@lastchclass\@chclass}%
  2387.    \ifcase\@lastchclass
  2388.    \@acol \or
  2389.    \or
  2390.    \@acol \or
  2391.    \@preamerr \thr@@ \or
  2392.    \@preamerr \tw@ \@addtopreamble\@sharp \or
  2393.    \or
  2394.    \else  \@preamerr \@ne \fi
  2395.    \def\the@toks{\the\toks}}
  2396. %    \end{macrocode}
  2397. % \end{macro}
  2398. %
  2399. % \begin{macro}{\@classix}
  2400. %    {\tt array.sty} does not allow repeated {\tt>} declarations for the
  2401. %    same column. This is allowed in {\tt newarray.sty} as documented in
  2402. %    the introduction. Removing the test for this case makes class 9
  2403. %    equivalent to class 10, and so this macro is redundant. It is
  2404. %    "\let" to "\relax" to save space.
  2405. %    \begin{macrocode}
  2406. \let\@classix\relax
  2407. %    \end{macrocode}
  2408. % \end{macro}
  2409. %
  2410. % \begin{macro}{\@classviii}
  2411. %    In {\tt newarray.sty} explicitly allow class 2, as repeated {\tt<}
  2412. %    expressions are accepted by this style.
  2413. %    \begin{macrocode}
  2414. \def\@classviii{\ifnum \@lastchclass >\z@\ifnum\@lastchclass=\tw@\else
  2415.       \@preamerr 4\@chclass 6 \@classvi \fi\fi}
  2416. %    \end{macrocode}
  2417. % \end{macro}
  2418. %
  2419. % \begin{macro}{\@classv}
  2420. % Class 5 is {\tt@}-expressions (and is also called by class 1)
  2421. % This macro was incorrect in Version~1. Now we do not expand the
  2422. % "@"-expression, but instead explicitly replace an
  2423. % "\extracolsep" command by an assignment to "\tabskip" by a
  2424. % method similar to the "\newcolumntype" system described above.
  2425. % "\d@llarbegin" "\d@llarend" were introduced in V2.01 to match
  2426. % {\tt array.sty} 2.0h.
  2427. %    \begin{macrocode}
  2428. \def\@classv{\save@decl
  2429.    \expandafter\NC@ecs\@nextchar\extracolsep{}\extracolsep\@@@
  2430.    \@addtopreamble{\d@llarbegin\the@toks\the\count@\relax\d@llarend}%
  2431.    \prepnext@tok}
  2432. %    \end{macrocode}
  2433. % \end{macro}
  2434. %
  2435. % \begin{macro}{\NC@ecs}
  2436. % Rewrite the first occurrence of "\extracolsep{1in}" to
  2437. % "\tabskip1in\relax". As a side effect discard any tokens after a
  2438. % second "\extracolsep", there is no point in the user entering two of
  2439. % these commands anyway, so this is not really a restriction.
  2440. %    \begin{macrocode}
  2441. \def\NC@ecs#1\extracolsep#2#3\extracolsep#4\@@@{\def\@tempa{#2}%
  2442.   \ifx\@tempa\@empty\else\toks\count@={#1\tabskip#2\relax#3}\fi}
  2443. %</ncols>
  2444. %    \end{macrocode}
  2445. % \end{macro}
  2446. %
  2447. %
  2448. % \subsection{Support for the {\tt delarray.sty}}
  2449. %
  2450. % The {\tt delarray.sty} style option extends the array syntax by
  2451. % supporting the notation of delimiters. To this end we extend the
  2452. % array parsing mechanism to include a hook which can be used by this
  2453. % (or another) option to do some additional parsing.
  2454. %
  2455. % \begin{macro}{\@tabarray}
  2456. %    This macro tests for an optional bracket and then calls up
  2457. %    "\@@array" or "\@@array[c]" (as default).
  2458. %    \begin{macrocode}
  2459. %<*style>
  2460. \def\@tabarray{\@ifnextchar[{\@@array}{\@@array[c]}}
  2461. %    \end{macrocode}
  2462. % \end{macro}
  2463. % \begin{macro}{\@@array}
  2464. %    This macro tests could then test an optional delimiter before the
  2465. %    left brace of the main preamble argument. Here in the main style
  2466. %    it simply is let to be "\@array".
  2467. %    \begin{macrocode}
  2468. \let\@@array\@array
  2469. %    \end{macrocode}
  2470. % \end{macro}
  2471. %
  2472. % \begin{macro}{\endarray}
  2473. % \begin{macro}{\@arrayright}
  2474. %    We have to declare the hook we put into "\@array" above.
  2475. %    A similar hook `"\@arrayright"' will be inserted into the
  2476. %    "\endarray" to gain control. Both defaults to empty.
  2477. %    \begin{macrocode}
  2478. \def\endarray{\crcr \egroup \egroup \@arrayright \gdef\@preamble{}}
  2479. \let\@arrayleft\@empty
  2480. \let\@arrayright\@empty
  2481. %</style>
  2482. %    \end{macrocode}
  2483. % \end{macro}
  2484. % \end{macro}
  2485. %
  2486. %
  2487. %
  2488. %
  2489. % \section{The documentation driver file}
  2490. %
  2491. % The next bit of code contains the documentation driver file for
  2492. % \TeX{}, i.e., the file that will produce the documentation you are
  2493. % currently reading. It will be extracted from this file by the {\tt
  2494. % docstrip} program.
  2495. %    \begin{macrocode}
  2496. %<+driver>\documentstyle[array,doc]{article}
  2497. %<+driver>
  2498. %<+driver>% dimensions from ltugboat.sty:
  2499. %<+driver>
  2500. %<+driver>\setlength\textwidth{31pc} \setlength\textheight{54pc}
  2501. %<+driver>\setlength{\parindent}{0pt}
  2502. %<+driver>\setlength{\parskip}{2pt plus 1pt minus 1pt}
  2503. %<+driver>\setlength{\oddsidemargin}{8pc}
  2504. %<+driver>\setlength{\marginparwidth}{8pc}
  2505. %<+driver>\setlength{\topmargin}{-2.5pc} \setlength{\headsep}{20pt}
  2506. %<+driver>\setlength{\columnsep}{1.5pc} 
  2507. %<+driver>\setlength{\columnwidth}{18.75pc}
  2508. %<+driver>
  2509. %<+driver>% Allow large table at bottom
  2510. %<+driver>\renewcommand{\bottomfraction}{0.7} 
  2511. %<+driver>
  2512. %<+driver>\EnableCrossrefs         
  2513. %<+driver>%\DisableCrossrefs   % Say \DisableCrossrefs if index is ready
  2514. %<+driver>
  2515. %<+driver>\RecordChanges                  % Gather update information
  2516. %<+driver>
  2517. %<+driver>\CodelineIndex                  % Index code by line number
  2518. %<+driver>
  2519. %<+driver>%\OnlyDescription    % comment out for implementation details
  2520. %<+driver>%\OldMakeindex       % use if your MakeIndex is pre-v2.9
  2521. %<+driver>\begin{document}
  2522. %<+driver>   \DocInput{array.doc}
  2523. %<+driver>\end{document}
  2524. %    \end{macrocode}
  2525. %
  2526. % \PrintIndex
  2527. % \PrintChanges
  2528. %
  2529. % \Finale
  2530. %
  2531. \endinput
  2532.