% arydshln.sty          v1.0 (April 1, 1993)
%       by Hiroshi NAKASHIMA (nakasima@kuis.kyoto-u.ac.jp)
%
% Dahsed horizontal/vertical line for LaTeX array/tabular environment.
%
%       \hdashline              dashed \hline
%       \cdashline              dashed \cline
%       `:' in preamble         dashed `|'
%
%       \hdashlinewidth         length of dash segment (default = 4pt)
%       \hdashlinegap           gap between dash segments (default = 4pt)
%
% Usage
%
%       \begin{array}{|l:c:r|}          % or \begin{tabular}/\begin{tabular*}
%           A&B&C\\\hdashline           % draw dashed \hline
%           AAA&BBB&CCC\\\cdashline{1-2}% draw dashed \cline
%           \multicolumn{2}{|l:}{AB}&C\\
%               \\hdashline\hdashline   % draw dashed \hline\hline
%       \end{array}
%
%               |
%               V
%
%       | A   :  B  :   C |
%       + - - + - - + - - +
%       | AAA : BBB : CCC |
%       + - - + - - +     |
%       | AB        :   C |
%       + - - + - - + - - +
%       + - - + - - + - - +
%
% Bugs
%
% 1. Since this style file strongly depends on the coding for array/tabular
%    of LaTeX Version 2.09, it may be in compatible with higher versions.
%
% 2. Processing speed for array/tabular will become slower, even if dashed
%    lines are not included.
%
% 3. `:' in preamble should not be followed by `|' nor `@'.
%
% 4. Gap size varies depending on the dash line length.

% Modification of LaTeX's array/tabular

\def\endarray{\hdl@endarray \egroup\egroup \hdl@arrayrestore}
\def\endtabular{\hdl@endarray \egroup\egroup \hdl@arrayrestore $\egroup}
\expandafter\let\csname endtabular*\endcsname = \endtabular

\def\@array[#1]#2{\setbox\@arstrutbox=\hbox{\vrule
                height\arraystretch \ht\strutbox
                depth\arraystretch \dp\strutbox
                width\z@}%
        \hdl@arrayinit
        \@mkpream{#2}\edef\@preamble{\halign \noexpand\@halignto
                \bgroup \tabskip\z@ \@arstrut \@preamble \tabskip\z@ \cr}%
        \let\@startpbox\@@startpbox \let\@endpbox\@@endpbox
        \hdl@preaminit
        \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi\fi
        \bgroup \let\par\relax
        \let\@sharp##\let\protect\relax \lineskip\z@\baselineskip\z@\@preamble}

\def\@xarraycr{\@ifnextchar[{\@argarraycr}{\ifnum0=`{\fi}${}\hdl@cr}}
\def\@xtabularcr{\@ifnextchar[{\@argtabularcr}{\ifnum0=`{\fi}\hdl@cr}}
\def\@xargarraycr#1{\@tempdima #1\advance\@tempdima \dp \@arstrutbox
        \vrule \@height\z@ \@depth\@tempdima \@width\z@
        \hdl@argcr\@tempdima}
\def\@yargarraycr#1{\hdl@argcr{#1}\noalign{\vskip #1}}

\def\multicolumn#1#2#3{\multispan{#1}\begingroup
        \def\hdl@arraydashrule{\ifnum\@lastchclass=6\relax
                        \@addtopreamble{\hdl@vdashrule{\hdl@currentcolumn}}%
                \else\@tempcnta#1\advance\@tempcnta\hdl@currentcolumn
                        \@addtopreamble{\hdl@vdashrule{\the\@tempcnta}}\fi}%
        \@mkpream{#2}%
        \def\@sharp{#3}\let\protect\relax
        \let\@startpbox\@@startpbox\let\@endpbox\@@endpbox
        \hdl@preaminit
        \@arstrut \@preamble\endgroup
        \global\advance\hdl@currentcolumn#1\ignorespaces}

\def\@addamp{\if@firstamp\@firstampfalse \else
        \edef\@preamble{\@preamble \global\advance\hdl@currentcolumn\@ne &}%
        \advance\hdl@columns\@ne \fi}
\let\hdl@mkpream\@mkpream

\def\@mkpream{\hdl@columns\@ne \let\hdl@vdashrule\relax \let\hdl@colhtdp\relax
        \hdl@mkpream}

\def\@arrayclassz{\ifcase \@lastchclass \@acolampacol \or \@ampacol \or
                \or \or \@addamp \or
                \@acolampacol \or \@firstampfalse \@acol \fi
        \edef\@preamble{\@preamble
                \ifcase \@chnum
                \hfil\hdl@putcolumn{$\relax\@sharp$}\hfil
                \or \hdl@putcolumn{$\relax\@sharp$}\hfil
                \or \hfil\hdl@putcolumn{$\relax\@sharp$}\fi}}
\def\@tabclassz{\ifcase \@lastchclass \@acolampacol \or \@ampacol \or
                \or \or \@addamp \or
                \@acolampacol \or \@firstampfalse \@acol \fi
        \edef\@preamble{\@preamble
        \ifcase \@chnum
                \hfil\hdl@putcolumn{\@sharp\unskip}\hfil
                \or \hdl@putcolumn{\@sharp\unskip}\hfil
                \or \hfil\hskip\z@ \hdl@putcolumn{\@sharp\unskip}\fi}}

\def\@testpach#1{\@chclass \ifnum \@lastchclass=\tw@ 4 \else
        \ifnum \@lastchclass=3 5 \else
                \z@ \if #1c\@chnum \z@ \else
                        \if #1l\@chnum \@ne \else
                        \if #1r\@chnum \tw@ \else
                \@chclass \if #1|\@ne \let\@arrayrule\hdl@arrayrule \else
                        \if #1:\@ne \let\@arrayrule\hdl@arraydashrule \else
                        \if #1@\tw@ \else
                        \if #1p3 \else \z@ \@preamerr 0\fi
        \fi  \fi  \fi  \fi  \fi  \fi  \fi \fi}

\def\hline{\noalign{\ifnum0=`}\fi \hrule\@height\arrayrulewidth
        \hdl@hline\arrayrulewidth
        \let\@tempb\hline\futurelet\@tempa\hdl@xhline}

\def\@@startpbox#1{\setbox\hdl@box\vtop\bgroup\hsize#1\@arrayparboxrestore}
\def\@@endpbox{\par\vskip\dp\@arstrutbox\egroup\hdl@colhtdp\box\hdl@box\hfil}

% Register declaration

\newdimen\hdashlinewidth \hdashlinewidth4pt %
\newdimen\hdashlinegap \hdashlinegap4pt %
\newif\ifhdl@drawing
\newif\ifhdl@doublerule
\newcount\hdl@totalheight \newcount\hdl@totalheightsave
\newcount\hdl@columns
\newcount\hdl@currentcolumn \newcount\hdl@currentcolumnsave
\newbox\hdl@box
\newdimen\hdl@height \newdimen\hdl@heightsave
\newdimen\hdl@depth \newdimen\hdl@depthsave

\gdef\hdl@vdashcolumn{}
\gdef\hdl@vdashcols{}

% \hdashline and \cdashline

\def\hdashline{\multispan{\hdl@columns}\unskip\hdl@hcline
        \noalign{\ifnum0=`}\fi
        \let\@tempb\hdashline\futurelet\@tempa\hdl@xhline}

\def\hdl@xhline{\ifx\@tempa\hline \hdl@ixhline\fi
        \ifx\@tempa\hdashline \hdl@ixhline\fi
        \ifnum0=`{\fi}}
\def\hdl@ixhline{\vskip\doublerulesep\hdl@hline\doublerulesep}

\def\hdl@hline#1{\@tempcnta#1
        \global\advance\hdl@totalheight\@tempcnta
        \xdef\hdl@vdashcols{\hdl@vdashcols
                (-1,-1,/\the\@tempcnta);}}

\def\hdl@hcline{\vrule\@height\arrayrulewidth\@width\hdashlinewidth
        \hskip.5\hdashlinegap
        \xleaders\hbox{\hskip.5\hdashlinegap
                \vrule\@height\arrayrulewidth\@width\hdashlinewidth
                \hskip.5\hdashlinegap}\hfill
        \hskip.5\hdashlinegap
        \vrule\@height\arrayrulewidth\@width\hdashlinewidth\cr
        \noalign{\vskip-\arrayrulewidth}}

\def\cdashline#1{\hdl@cline[#1]}
\def\hdl@cline[#1-#2]{\noalign{\global\@cla#1\relax
                \global\advance\@cla\m@ne
                \ifnum\@cla>0\global\let\@gtempa\hdl@clinea\else
                        \global\let\@gtempa\hdl@clineb\fi
                \global\@clb#2\relax
                \global\advance\@clb-\@cla}\@gtempa}

\def\hdl@clinea{\multispan\@cla&\multispan\@clb\unskip\hdl@hcline}
\def\hdl@clineb{\multispan\@clb\unskip\hdl@hcline}

% Initiation and preamble

\def\hdl@arrayinit{
        \hdl@totalheightsave\hdl@totalheight \global\hdl@totalheight\z@
        \hdl@currentcolumnsave\hdl@currentcolumn \global\hdl@currentcolumn\z@
        \hdl@heightsave\hdl@height \global\hdl@height\z@
        \hdl@depthsave\hdl@depth \global\hdl@depth\z@
        \edef\hdl@vdashcolumnsave{\hdl@vdashcolumn}\gdef\hdl@vdashcolumn{}%
        \edef\hdl@vdashcolssave{\hdl@vdashcols}\gdef\hdl@vdashcols{}}
\def\hdl@preaminit{\let\hdl@vdashrule\hdl@@vdashrule
        \let\hdl@colhtdp\hdl@@colhtdp}

\def\hdl@putcolumn#1{\setbox\hdl@box\hbox{#1}\hdl@colhtdp \box\hdl@box}
\def\hdl@@colhtdp{%
        \ifdim\hdl@height<\ht\hdl@box \global\hdl@height\ht\hdl@box \fi
        \ifdim\hdl@depth<\dp\hdl@box \global\hdl@depth\dp\hdl@box\fi}

\let\hdl@arrayrule\@arrayrule
\def\hdl@arraydashrule{\ifnum\@lastchclass=6\relax
                \@addtopreamble{\hdl@vdashrule{0}}%
        \else \@addtopreamble{\hdl@vdashrule{\the\hdl@columns}}\fi}

\def\hdl@@vdashrule#1{\xdef\hdl@vdashcolumn{\hdl@vdashcolumn#1,}}

% End of row

\def\hdl@cr{\cr\noalign{\hdl@@cr\z@}}
\def\hdl@argcr#1{\cr\noalign{\hdl@@cr{#1}}}
\def\hdl@@cr#1{
        \ifdim\hdl@height<\ht\@arstrutbox \hdl@height\ht\@arstrutbox\fi
        \ifdim\hdl@depth<\dp\@arstrutbox \hdl@depth\dp\@arstrutbox\fi
        \@tempcnta\hdl@height \advance\@tempcnta\hdl@depth
        \@tempdima#1\advance\@tempcnta\@tempdima
        \global\advance\hdl@totalheight\@tempcnta
        \xdef\hdl@vdashcols{\hdl@vdashcols
                (\hdl@vdashcolumn-1,-1,/\the\@tempcnta);}%
        \gdef\hdl@vdashcolumn{}\global\hdl@currentcolumn\z@
        \global\hdl@height\z@ \global\hdl@depth\z@}

% End of array/tabular

\def\hdl@endarray{\crcr \noalign{
        \ifdim\hdl@height=\z@
                \ifdim\hdl@depth=\z@ \else \hdl@@cr\z@ \fi
        \else \hdl@@cr\z@ \fi}\omit
        \def\hdl@vdrow{}\global\let\hdl@vd\relax
        \global\let\hdl@amp\relax \global\let\hdl@omit\relax
        \hdl@makevd
        \global\let\hdl@vd\hdl@@vd
        \global\let\hdl@amp\hdl@@amp \global\let\hdl@omit\hdl@@omit
        \hdl@vdrow\cr}
\def\hdl@arrayrestore{\global\hdl@totalheight\hdl@totalheightsave
        \global\hdl@currentcolumn\hdl@currentcolumnsave
        \global\hdl@height\hdl@heightsave
        \global\hdl@depth\hdl@depthsave
        \xdef\hdl@vdashcolumn{\hdl@vdashcolumnsave}%
        \xdef\hdl@vdashcols{\hdl@vdashcolssave}}
\def\hdl@@amp{&}
\def\hdl@@omit{\omit}

\def\hdl@makevd{\@tempcnta\hdl@totalheight \@tempcntb\hdl@totalheight
        \hdl@drawingfalse \def\@tempb{}%
        \hdl@doublerulefalse
        \expandafter\hdl@imakevd\hdl@vdashcols\@nil;%
        \ifhdl@drawing \hdl@drawvd \fi
        \edef\hdl@vdashcols{\@tempb}%
        \ifhdl@doublerule
                \edef\hdl@vdrow{\hdl@vdrow\hskip\doublerulesep}%
                \let\next\hdl@makevd
        \else
                \advance\hdl@currentcolumn\@ne
                \ifnum\hdl@currentcolumn>\hdl@columns \let\next\relax
                \else
                        \ifnum\hdl@currentcolumn=\@ne
                                \edef\hdl@vdrow{\hdl@vdrow\hfil}%
                        \else
                                \edef\hdl@vdrow{\hdl@vdrow
                                        \hdl@amp \hdl@omit \hfil}%
                        \fi
                        \let\next\hdl@makevd
        \fi\fi\next}
\def\hdl@imakevd#1;{\def\@tempa{#1}\ifx\@tempa\@nnil \let\next\relax
        \else \hdl@iimakevd#1\let\next\hdl@imakevd \fi \next}
\def\hdl@iimakevd(#1/#2){\hdl@iiimakevd#1\@nil
        \edef\@tempb{\@tempb(\@tempc/#2);}\advance\@tempcntb-#2}
\def\hdl@iiimakevd#1,#2,#3\@nil{%
        \ifnum#1<\z@\def\@tempc{-1,-1,}%
                \ifhdl@drawing \hdl@drawvd \hdl@drawingfalse \fi
        \else
                \ifnum#1=\hdl@currentcolumn \relax
                        \ifhdl@drawing \else
                                \@tempcnta\@tempcntb \hdl@drawingtrue
                        \fi
                        \def\@tempc{#2,#3}%
                        \ifnum#1=#2\relax \hdl@doubleruletrue \fi
                \else
                        \ifhdl@drawing \hdl@drawvd \hdl@drawingfalse \fi
                        \def\@tempc{#1,#2,#3}%
        \fi\fi}
\def\hdl@drawvd{\advance\@tempcnta-\@tempcntb
        \edef\hdl@vdrow{\hdl@vdrow \hdl@vd{\the\@tempcntb}{\the\@tempcnta}}}

\def\hdl@@vd#1#2{\vbox to\z@{\vss\hbox{\hskip-.5\arrayrulewidth
        \raise#1sp\vbox to#2sp{
                \hrule\@height.5\hdashlinewidth\@width\arrayrulewidth
                \vskip.5\hdashlinegap
                \xleaders\vbox{\vskip.5\hdashlinegap
                        \hrule\@height\hdashlinewidth\@width\arrayrulewidth
                        \vskip.5\hdashlinegap}\vfil
                \vskip.5\hdashlinegap
                \hrule\@height.5\hdashlinewidth\@width\arrayrulewidth}%
        \hskip-.5\arrayrulewidth}}}