home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Text / OzTeX 1.9 / TeX-inputs / Tools / hhline.sty < prev    next >
Encoding:
Text File  |  1995-01-24  |  2.8 KB  |  78 lines  |  [TEXT/MPS ]
  1. %% 
  2. %% This is file `hhline.sty', generated 
  3. %% on <1995/1/24> with the docstrip utility (2.2i).
  4. %% 
  5. %% The original source files were:
  6. %% 
  7. %% hhline.dtx  (with options: `package')
  8. %% 
  9. %% IMPORTANT NOTICE: 
  10. %% This file is part of the `tools' bundle 
  11. %% in the LaTeX2e distribution. 
  12. %% 
  13. %% You are not allowed to distribute this file. 
  14. %% For distribution of the original source see 
  15. %% the copyright notice in the source file, and 
  16. %% in the file readme.txt distributed with the 
  17. %% tools bundle. 
  18. %% 
  19. %% File: hhline.dtx Copyright (C) 1991-1994 David Carlisle
  20. \NeedsTeXFormat{LaTeX2e}
  21. \ProvidesPackage{hhline}
  22.          [1994/05/23 v2.03 Table rule package (DPC)]
  23. \def\HH@box#1#2{\vbox{%
  24.   \hrule \@height \arrayrulewidth \@width #1
  25.   \vskip \doublerulesep
  26.   \hrule \@height \arrayrulewidth \@width #2}}
  27. \def\HH@add#1{\toks@\expandafter{\the\toks@#1}}
  28.  
  29. \def\HH@xexpast#1*#2#3#4\@@{%
  30.    \@tempcnta #2
  31.    \toks@={#1}\@temptokena={#3}%
  32.    \let\the@toksz\relax \let\the@toks\relax
  33.    \def\@tempa{\the@toksz}%
  34.    \ifnum\@tempcnta >0 \@whilenum\@tempcnta >0\do
  35.      {\edef\@tempa{\@tempa\the@toks}\advance \@tempcnta \m@ne}%
  36.        \let \@tempb \HH@xexpast \else
  37.        \let \@tempb \HH@xexnoop \fi
  38.    \def\the@toksz{\the\toks@}\def\the@toks{\the\@temptokena}%
  39.    \edef\@tempa{\@tempa}%
  40.    \expandafter \@tempb \@tempa #4\@@}
  41.  
  42. \def\HH@xexnoop#1\@@{}
  43. \def\hhline#1{\omit\@firstamptrue\@tempswafalse
  44. \global\setbox\@ne\HH@box\doublerulesep\doublerulesep
  45.   \xdef\@tempc{\ifx\extrarowheight\HH@undef\hskip-.5\arrayrulewidth\fi}%
  46.     \HH@xexpast\relax#1*0x\@@\toks@{}\expandafter\HH@let\@tempa`}
  47.  
  48. \def\HH@let#1{\futurelet\@tempb\HH@loop}
  49.  
  50. \def\HH@loop{%
  51.   \ifx\@tempb`\def\next##1{\the\toks@\cr}\else\let\next\HH@let
  52.   \ifx\@tempb|\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  53.           \HH@add{\@tempc\vline\@tempc}\else
  54.   \ifx\@tempb:\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  55.       \HH@add{\@tempc\HH@box\arrayrulewidth\arrayrulewidth\@tempc}\else
  56.   \ifx\@tempb##\if@tempswa\HH@add{\hskip\doublerulesep}\fi\@tempswatrue
  57.          \HH@add{\@tempc\vline\@tempc\copy\@ne\@tempc\vline\@tempc}\else
  58.   \ifx\@tempb~\@tempswafalse
  59.            \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  60.               \HH@add{\hfil}\else
  61.   \ifx\@tempb-\@tempswafalse
  62.            \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  63.               \HH@add{\leaders\hrule\@height\arrayrulewidth\hfil}\else
  64.   \ifx\@tempb=\@tempswafalse
  65.        \if@firstamp\@firstampfalse\else\HH@add{&\omit}\fi
  66.        \HH@add
  67.           {\rlap{\copy\@ne}\leaders\copy\@ne\hfil\llap{\copy\@ne}}\else
  68.   \ifx\@tempb t\HH@add{\rlap{\HH@box\doublerulesep\z@}}\else
  69.   \ifx\@tempb b\HH@add{\rlap{\HH@box\z@\doublerulesep}}\else
  70.   \PackageWarning{hhline}%
  71.       {\meaning\@tempb\space ignored in \noexpand\hhline argument%
  72.        \MessageBreak}%
  73.   \fi\fi\fi\fi\fi\fi\fi\fi\fi
  74.   \next}
  75. \endinput
  76. %% 
  77. %% End of file `hhline.sty'.
  78.