--- /dev/null
+%
+%
+\ifcat a\noexpand @\let\next\relax\else \def\next{%
+\documentclass{kluwer}\usepackage{doc}\MakePercentIgnore}\fi\next
+\def\filedate{1998/02/11}
+\def\filename{klutab.sty}
+%\DoNotIndex{\@M,\def,\c@secnumdepth,\baselineskip,\@pnumwidth,\else,\fi}
+%\DoNotIndex{\newcommand,\z@,\relax,\renewcommand,\ifnum,\csname,\endcsname}
+%\DoNotIndex{\baselineskip,\vskip,\hskip,\relax,\secdef,\gdef,\@cla,\@clb}
+%\DoNotIndex{\normalsize,\protect,\global,\setbox,\hbox,\vbox,\endinput}
+%\DoNotIndex{\egroup,\endgroup,\bgroup,\begingroup,\let}
+%\CodelineIndex
+%\changes{1997/02/12}{TH: Inserted definition of `array' to accomodate `hline'.}
+%\newcommand{\Bs}{$\backslash$}
+%\parindent=0pt
+%\parskip=3pt
+%\hfuzz=10pt
+%\MakeShortVerb{\|}
+%\setlength{\marginparwidth}{0in}
+%\addtolength{\textwidth}{4pc}
+%\begin{document}
+%\begin{opening}
+%\title{\filename}
+%\date{\filedate}
+%\author{Kluwer Academic Publishers\surname{}}
+%\institute{~}
+%\begin{abstract}
+% This internal stylefile takes care of tabulars.
+%\end{abstract}
+%\end{opening}
+%\tableofcontents
+%\section{Usage}
+%
+% All of this is quite simple code. What happens
+% is that some extra lines for use in tabulars are defined and
+% included in the original definition of |tabular| and
+% |tabular*|. These have a bit of extra vertical space which breaks
+% the use of vertical rules in tabular's, which is why the old
+% definitions are saved as |TABULAR| and |TABULAR*|.
+%
+% There are some variations on |\cline|. I moved internal commands out of the
+% definition of |tabular| so they could be used in |tabular*| easily. \\[6pt]
+% |\rcline| == hbox 3pt to the left\\
+% |\lcline| == hbox 3pt to the right\\
+% |\lrcline| == both \\
+% |\rlcline| == |\lrcline| (to provide symmetry)
+%
+% All of the environments have
+% been changed so that they also set the value of |\@tabwidth|, which
+% is needed by |klufloa.sty|.
+%
+% |tabular*| has been adjusted to flush out the excess space over all
+% columns instead of to the right of the last one. This is controlled
+% by the value of |\stretchtabsep|, whose default value equals |\hfil|
+%
+%\newpage\section{Implementation}
+% \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{klutab}[\filedate ]
+% \end{macrocode}
+% \subsection{Tabular}
+% First some needed values. The `array' things may not belong here,
+% but is also not save to put them somewhere else. After all, \LaTeX\
+% seems to think this is correct.
+% \begin{macrocode}
+\arraycolsep 6pt
+\tabcolsep 6pt
+\arrayrulewidth .4pt
+\doublerulesep 2pt
+% \end{macrocode}
+%
+% Internal versions of the rules check whether first arg $>1$, and assign
+% |\@tabklu@tmpa| accordingly. Next, execute |\@tabklu@tmpa| and
+% unskip vertical width of rule. (All three are similar)
+% \begin{macrocode}
+\def\@rcline[#1-#2]{%
+ \noalign{%
+ \global\@cla #1\relax
+ \global\advance\@cla\m@ne
+ \ifnum\@cla >0
+ \global\let\@tabklu@tmpa\@rclinea
+ \else
+ \global\let\@tabklu@tmpa\@rclineb
+ \fi
+ \global\@clb #2\relax
+ \global\advance\@clb-\@cla }%
+ \@tabklu@tmpa
+ \noalign{\vskip-\arrayrulewidth}%
+ }%
+\def\@rclinea{%
+ \multispan\@cla&\multispan\@clb
+ \hbox to 3pt{\hfil }%
+ \unskip
+ \leaders\hrule \@height \arrayrulewidth\hfill
+ \cr}%
+\def\@rclineb{%
+ \multispan\@clb
+ \hbox to 3pt{\hfil }%
+ \unskip
+ \leaders\hrule \@height \arrayrulewidth\hfill
+ \cr}%
+\def\@lcline[#1-#2]{%
+ \noalign{%
+ \global\@cla #1\relax
+ \global\advance\@cla\m@ne
+ \ifnum\@cla >0
+ \global\let\@tabklu@tmpa\@lclinea
+ \else
+ \global\let\@tabklu@tmpa\@lclineb
+ \fi
+ \global\@clb #2\relax
+ \global\advance\@clb-\@cla
+ }\@tabklu@tmpa
+ \noalign{\vskip-\arrayrulewidth}%
+}%
+\def\@lclinea{%
+ \multispan\@cla&\multispan\@clb
+ \unskip
+ \leaders\hrule \@height \arrayrulewidth\hfill
+ \hbox to 3pt{\hfil }\cr}%
+\def\@lclineb{%
+ \multispan\@clb
+ \unskip
+ \leaders\hrule \@height \arrayrulewidth\hfill
+ \hbox to 3pt{\hfil }\cr}%
+\def\@lrcline[#1-#2]{%
+ \noalign{%
+ \global\@cla #1\relax
+ \global\advance\@cla\m@ne
+ \ifnum\@cla>0
+ \global \let\@tabklu@tmpa\@lrclinea
+ \else
+ \global \let\@tabklu@tmpa\@lrclineb
+ \fi
+ \global \@clb #2\relax
+ \global \advance\@clb-\@cla
+ }%
+ \@tabklu@tmpa
+ \noalign{\vskip -\arrayrulewidth}%
+ }%
+\def\@lrclinea{%
+ \multispan\@cla&\multispan\@clb
+ \hbox to 3pt{\hfil }%
+ \unskip\leaders\hrule \@height \arrayrulewidth\hfill
+ \hbox to 3pt{\hfil }%
+ \cr}%
+\def\@lrclineb{%
+ \multispan\@clb
+ \hbox to 3pt{\hfil }%
+ \unskip\leaders\hrule \@height \arrayrulewidth\hfill
+ \hbox to 3pt{\hfil }%
+ \cr}%
+% \end{macrocode}
+% This is used for |tabular*|
+% \begin{macrocode}
+\newlength\stretchtabsep
+\setlength\stretchtabsep{0pt plus 1fil}
+% \end{macrocode}
+% |\hline| has been redefined to provide some extra vertical
+% space. Unforunately, we could not do the same for |\cline| and
+% friend, because there can be more than one in one row. The old value
+% of |\hline| is saved in |\savehline| in case you need it.
+%
+% |\arraystretch| is left to it's default value, but we did want extra
+% spacing, so |\strut| is redefined (indirectly) to give some.
+%
+% And then, the entire tabular is saved in a |\hbox| so we can measure
+% it up later. (See above for why we need to know this). There is a
+% grouping level added to stop definitions from running away, but
+% maybe this isn't needed. Not sure.
+% \begin{macrocode}
+\let\savehline\hline
+\def\tabular{\begingroup
+ \def\hline{\noalign{\vskip3pt}\savehline\noalign{\vskip3pt}}%
+ \def\rcline##1{\@rcline[##1]}%
+ \def\lcline##1{\@lcline[##1]}%
+ \def\lrcline##1{\@lrcline[##1]}%
+ \let\rlcline=\lrcline
+ \setbox\strutbox\hbox{\vrule height.8\baselineskip
+ depth.4\baselineskip width\z@}%
+ \setbox0=\hbox\bgroup\def\@halignto{}\@tabular}%
+% \end{macrocode}
+% |\endtabular| is quite straightforward.
+% \begin{macrocode}
+\def\endtabular{\crcr\egroup\egroup $\egroup
+ \egroup \tabwidth{\wd0}\unhbox0 \endgroup}%
+% \end{macrocode}
+%
+% Apparently we need to restore the definition of |\hline|
+% inside of array's. This is just a quick hack that 'fixes'
+% the problem.
+% \begin{macrocode}
+\let\klu@intarray\array
+\let\klu@intendarray\endarray
+\def\array{\begingroup \let\hline\savehline \klu@intarray }
+\def\endarray{\klu@intendarray \endgroup}
+% \end{macrocode}
+%
+% |tabular*| follows the same rules, except for redefining
+% |\@tabacol| to insert a |\hfil| value for |\tabskip| in the first
+% preamble-entry (and all following, but these don't count),
+% thereby stretching out all intercolumn space instead
+% of just the last (\LaTeX\ standard behaviour).
+% \begin{macrocode}
+\@namedef{tabular*}#1{%
+ \begingroup
+ \let\savehline\hline
+ \def\hline{\noalign{\vskip3pt}\savehline\noalign{\vskip3pt}}%
+ \def\rcline##1{\@rcline[##1]}%
+ \def\lcline##1{\@lcline[##1]}%
+ \def\lrcline##1{\@lrcline[##1]}%
+ \let\rlcline=\lrcline
+ \setbox\strutbox\hbox{\vrule height.8\baselineskip
+ depth.4\baselineskip width\z@}%
+ \setbox0=\hbox\bgroup\def\@halignto{to #1}%
+ \def\@tabacol{\edef\@preamble{\@preamble
+ \tabskip \stretchtabsep \hskip \tabcolsep}}\@tabular}
+\@namedef{endtabular*}{\endtabular}
+%
+% \end{macrocode}
+% \subsection{TABULAR}
+% This is just ordinary \LaTeX\ tabular, apart from the |\hbox|.
+% \begin{macrocode}
+\def\TABULAR{%
+ \let\savehline\hline %compatibility
+ \let\rcline\cline \let\lcline\cline
+ \let\lrcline\cline \let\rlcline\cline
+ \setbox0=\hbox\bgroup\def\@halignto{}\@tabular}%
+\def\endTABULAR{\crcr\egroup\egroup $\egroup
+ \egroup \tabwidth{\wd0}\unhbox0 }%
+\@namedef{TABULAR*}#1{%
+ \let\savehline\hline %compatibility
+ \let\rcline\cline \let\lcline\cline
+ \let\lrcline\cline \let\rlcline\cline
+ \setbox0=\hbox\bgroup\def\@halignto{to #1}\@tabular}%
+\@namedef{endTABULAR*}{\endtabular}
+\endinput
+% \end{macrocode}
+%\def\IndexParms{\hbadness=10000}
+%\PrintIndex
+%\end{document}
+% end of klutab.sty
projects / helm.git / blobdiff