diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/oberdiek/tabularht.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/oberdiek/tabularht.sty | 109 |
1 files changed, 56 insertions, 53 deletions
diff --git a/Master/texmf-dist/tex/latex/oberdiek/tabularht.sty b/Master/texmf-dist/tex/latex/oberdiek/tabularht.sty index dfdb6d5e2f2..402148bf4d8 100644 --- a/Master/texmf-dist/tex/latex/oberdiek/tabularht.sty +++ b/Master/texmf-dist/tex/latex/oberdiek/tabularht.sty @@ -8,7 +8,8 @@ %% %% This is a generated file. %% -%% Copyright (C) 2005, 2006 by Heiko Oberdiek <oberdiek@uni-freiburg.de> +%% Copyright (C) 2005, 2006, 2007 by +%% Heiko Oberdiek <oberdiek@uni-freiburg.de> %% %% This work may be distributed and/or modified under the %% conditions of the LaTeX Project Public License, either @@ -29,7 +30,7 @@ %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{tabularht}% - [2006/12/22 v2.3 Tabular with height specification (HO)] + [2007/04/11 v2.5 Tabular with height specification (HO)] \let\@toarrayheight\@empty \let\tabH@array@init\@empty @@ -190,8 +191,10 @@ \endinput }{}% \endgroup -\newcounter{tabH@unique} -\setcounter{tabH@unique}{0} +\begingroup + \let\@addtoreset\@gobbletwo + \newcounter{tabH@unique}% +\endgroup \let\tabH@currenttab\@empty \def\tabH@array@init{% @@ -258,10 +261,10 @@ \tabH@aux@vrule{#1}{\tabH@lastxpos}% }% \fi - } + }% - \def\tabH@lastxpos{\the\pdflastxpos} - \def\tabH@lastypos{\the\pdflastypos} + \def\tabH@lastxpos{\the\pdflastxpos}% + \def\tabH@lastypos{\the\pdflastypos}% % The .aux file contains three commands: % \tabH@aux@vrule{tabular id}{x position} @@ -277,7 +280,7 @@ \let\tabH@aux@done\@empty \if@filesw \immediate\write\@mainaux{% - \@percentchar\@percentchar BeginProlog: tabularht + \@percentchar\@percentchar BeginProlog: tabularht% }% % items in the aux file are executed, % if tabularht is loaded @@ -299,10 +302,10 @@ }% }% \immediate\write\@mainaux{% - \@percentchar\@percentchar EndProlog: tabularht + \@percentchar\@percentchar EndProlog: tabularht% }% \fi - } + }% % the x positions of vrules are stored in % \tabH@<tabcount>list with distinct values @@ -324,7 +327,7 @@ }% \endgroup }% - } + }% \def\tabH@do@add#1{% \ifx\y\@undefined \ifnum#1<\x\space @@ -336,7 +339,7 @@ \fi \fi \noexpand\do{#1}% - } + }% \def\tabH@vspace@start#1{% \if@filesw @@ -385,7 +388,7 @@ \tabH@aux@vstop{\tabH@lastypos}% }% \fi - } + }% \def\tabH@do@set#1{% \hbox to \z@{% \hskip \dimexpr #1sp - \x sp\relax @@ -393,7 +396,7 @@ \@depth\dimexpr \y sp\relax \hss }% - } + }% \def\tabH@do@filter{% \@tempswafalse \advance\count@\@ne @@ -407,20 +410,20 @@ \else \expandafter\@gobble \fi - } + }% \protected\def\tabH@aux@vstart#1#2#3#4{% \def\tabH@current@vstart{{#1}{#2}{#3}{#4}}% - } + }% \protected\def\tabH@aux@vstop{% \expandafter\tabH@aux@v\tabH@current@vstart - } + }% \def\tabH@aux@v#1#2#3#4#5{% \expandafter\gdef\csname tabH@#1row#2x\endcsname{#3}% \expandafter\xdef\csname tabH@#1row#2y\endcsname{% \the\numexpr #4 - #5\relax }% - } + }% \csname fi\endcsname \endinput @@ -464,7 +467,7 @@ % thus simulate a large motion \kern1in\relax \tabH@literalps{% - #1 tabH.vrule + #1 tabH.vrule % Resolution neg 0 translate% }% \vrule#3\arrayrulewidth @@ -494,13 +497,13 @@ } \tabH@headerps{% - userdict begin - /tabH.list 10 dict def - /tabH.job [] def + userdict begin% + /tabH.list 10 dict def% + /tabH.job [] def % end% /tabH.vrule{% 10 string cvs cvn dup tabH.list exch known{% - tabH.list exch dup [ exch tabH.list exch get + tabH.list exch dup [ exch tabH.list exch get % currentpoint pop round exch true exch{% % tabH.list key [ ... x true i % tabH.list key [ ... false i @@ -508,32 +511,32 @@ % ... [ ... x i 2 copy lt{false}{% 2 copy eq{pop false}{exch true}ifelse% - }ifelse - }{false}ifelse - }forall + }ifelse% + }{false}ifelse% + }forall % pop% ]put% }{% - tabH.list exch[currentpoint pop round]put - }ifelse - }bind def + tabH.list exch[currentpoint pop round]put% + }ifelse% + }bind def% % <tab num> <cols array> <ytop> <ybottom> <rulewidth[sp]> /tabH.vspace{% - userdict begin - 10 dict dup begin - exch 65536 div Resolution mul 72.27 div + userdict begin % + 10 dict dup begin % + exch 65536 div Resolution mul 72.27 div % % dvips uses a poor man's ceil function % see dopage.c before "drawrule": (int)(... + 0.9999999) 0.9999999 add truncate% - /rulewidth exch def - exch/ybottom exch def - exch/ytop exch def - exch/cols exch def - exch/tabkey exch 10 string cvs cvn def - end - /tabH.job exch[exch userdict/tabH.job get aload pop]def + /rulewidth exch def % + exch/ybottom exch def % + exch/ytop exch def % + exch/cols exch def % + exch/tabkey exch 10 string cvs cvn def % + end% + /tabH.job exch[exch userdict/tabH.job get aload pop]def % end% - }bind def + }bind def % % Now we do the work at the end of the page. % Unhappily "eop-hook" cannot be used, because "eop" % executes "restore" before, so that all data are lost. @@ -543,12 +546,12 @@ {% tabH.job{% begin% - /colarray - tabH.list tabkey known{tabH.list tabkey get}{[]}ifelse - def + /colarray % + tabH.list tabkey known{tabH.list tabkey get}{[]}ifelse % + def % cols length 0 eq not{% /colarray[% - cols{1 sub + cols{1 sub % dup 0 lt{pop}{% dup colarray length ge{pop}{% colarray exch get% @@ -556,18 +559,18 @@ }ifelse% }forall% ]def% - }if + }if % colarray{% % (rulewidth) == rulewidth == % debug - Resolution sub - ytop rulewidth ytop ybottom sub v - }forall - end - }forall + Resolution sub % + ytop rulewidth ytop ybottom sub v% + }forall % + end% + }forall% % tabH.list{== ==}forall % debug - }bind aload pop - TeXDict /eop get aload pop - ]cvx def + }bind aload pop % + TeXDict /eop get aload pop% + ]cvx def % end% } \endinput |