summaryrefslogtreecommitdiff
path: root/macros/texsis/styles/Tablebod.txs
diff options
context:
space:
mode:
authorNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
committerNorbert Preining <norbert@preining.info>2019-09-02 13:46:59 +0900
commite0c6872cf40896c7be36b11dcc744620f10adf1d (patch)
tree60335e10d2f4354b0674ec22d7b53f0f8abee672 /macros/texsis/styles/Tablebod.txs
Initial commit
Diffstat (limited to 'macros/texsis/styles/Tablebod.txs')
-rw-r--r--macros/texsis/styles/Tablebod.txs91
1 files changed, 91 insertions, 0 deletions
diff --git a/macros/texsis/styles/Tablebod.txs b/macros/texsis/styles/Tablebod.txs
new file mode 100644
index 0000000000..6bebf965cb
--- /dev/null
+++ b/macros/texsis/styles/Tablebod.txs
@@ -0,0 +1,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 <<<