blob: 6bebf965cbf079555c9711ea7bf3c2f30f914e61 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
|
%% Tablebod.txs (TeXsis version 2.16)
% $Revision: 16.0 $ : $Date: 1994/11/11 19:37:06 $ : $Author: myers $
%======================================================================*
% Old-style Figure macros - This file is a part of TeXsis
% (C) copyright 1991 by Eric Myers and Frank Paige.
%
% SIMPLE(R) RULED TABLES: \Tablebody
%
% The following macros make simple ruled tables with automatic spacing,
% i.e. no vertical struts are needed. Taken from TechRpt with modifications as
% in TeXsis 2.11. These are included for backward compatability
% and will eventually be phased out.
% \Tablebody actually begins the table body, with the \halign template.
% #1 is number of columns. \Tableskipsize is set by \singlespaced,
% \doublespaced, etc. in TXSmacs.
%======================================================================*
\catcode`@=11 % make @ a letter for this file
\def\Tablebody#1{% % #1 = no. columns
\hbox to \hsize\bgroup % start hbox for table
\hss $$ \vbox\bgroup % centered displaymath
\offinterlineskip % No interline glue
\def\tablerule{\noalign{\hrule}} % simple rule
\def\T@bleskip{\Tableskip{#1}{\Tableskipsize}} % nice skip
\def\T@blerule{\T@bleskip\tablerule\T@bleskip} % nice rule
\def\Cr{\cr\T@bleskip} % \cr and nice skip
\def\CR{\cr\T@blerule} % \cr and nice rule
\def\CRCR{\cr\T@bleskip\tablerule % \cr and nice double
\Tableskip{#1}{1pt}\tablerule\T@bleskip} % rule
\def~{\phantom{0}} % ~ is digit-width space
\halign\bgroup % start \halign
\vrule## % do leftmost vrule
&&\quad\hfil##\hfil\quad\strut % repeat for each column
&\vrule##\crcr % vrule on the right
\tablerule % hrule at top of table
\T@bleskip} % add some space
\def\tablebody{\Tablebody} % synonym
% \endTablebody closes \Tablebody.
\def\endTablebody{ %
\bottomrule % put rule at bottom
\crcr\egroup % close the \halign
\egroup $$ % close vbox, math
\hss\egroup} % close the hbox
\def\endtablebody{\endTablebody} % synonym
% \Tablebodyleft is just like \Tablebody except that the columns are
% set flush left.
\def\Tablebodyleft#1{% % #1 = no. columns
\hbox to \hsize\bgroup % start hbox for table
\hss $$ \vbox\bgroup % centered displaymath
\offinterlineskip % No interline glue
\def\tablerule{\noalign{\hrule}} % simple rule
\def\T@bleskip{\Tableskip{#1}{\Tableskipsize}} % nice skip
\def\T@blerule{\T@bleskip\tablerule\T@bleskip} % nice rule
\def\Cr{\cr\T@bleskip} % \cr and nice skip
\def\CR{\cr\T@blerule} % \cr and nice rule
\def\CRCR{\cr\T@bleskip\tablerule % \cr and nice double
\Tableskip{#1}{1pt}\tablerule\T@bleskip} % rule
\def~{\phantom{0}} % ~ is digit-width space
\halign\bgroup % start \halign
\vrule## % do leftmost vrule
&&\quad##\hfil\quad\strut % repeat for each column
&\vrule##\crcr % vrule on the right
\tablerule % hrule at top of table
\T@bleskip} % add some space
% \Tableskip#1#2 produces a vertical skip with rules of height #2 for
% a table with #1 columns.
% \tablerule produces just a rule.
% \Tablerule#1#2 produces a rule with a skip of dimen #2 on each side
% for a table with #1 columns.
\def\Tableskip#1#2{height #2 \global\mscount#1%
\gloop\ifnum\mscount>\z@ \Tsk@p\repeat\cr}
\def\Tsk@p{&\omit&\global\advance\mscount\m@ne}
\def\Tablerule#1#2{\Tableskip#1#2\tablerule\Tableskip#1#2}
% \bottomrule is a horizontal rule across the table. It is turned off
% by \nobottomrule (locally to the \halign)
\def\bottomrule{\tablerule}
\def\nobottomrule{\let\bottomrule=\relax}
%>>> EOF Tablebod.txs <<<
|
