%% %% This is file `array-bidi.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% bidi.dtx (with options: `array-bidi.def') %% %% __________________________________ %% Copyright © 2009 Vafa Khalighi %% %% License information appended. %% %% \def\@testpach{\@chclass \ifnum \@lastchclass=6 \@ne \@chnum \@ne \else \ifnum \@lastchclass=7 5 \else \ifnum \@lastchclass=8 \tw@ \else \ifnum \@lastchclass=9 \thr@@ \else \z@ \ifnum \@lastchclass = 10 \else \edef\@nextchar{\expandafter\string\@nextchar}% \@chnum \if \@nextchar c\z@ \else \if \@nextchar \if@RTLtab r\else l\fi\@ne \else \if \@nextchar \if@RTLtab l\else r\fi\tw@ \else \z@ \@chclass \if\@nextchar |\@ne \else \if \@nextchar !6 \else \if \@nextchar @7 \else \if \@nextchar <8 \else \if \@nextchar >9 \else 10 \@chnum \if \@nextchar m\thr@@\else \if \@nextchar p4 \else \if \@nextchar b5 \else \z@ \@chclass \z@ \@preamerr \z@ \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi \fi} \def\tabular{\gdef\@halignto{}\@tabular} \def\@tabular{\if@RTL\global\@RTLtabtrue\fi% \leavevmode \hbox\bgroup \if@RTLtab\beginR \fi $% \@tabularinit \@array } \renewcommand\@array[2][c]{% \@tempdima \ht \strutbox \advance \@tempdima by\extrarowheight \setbox \@arstrutbox \hbox{% \vrule \@height \arraystretch \@tempdima \@depth \arraystretch \dp \strutbox \@width \z@ }% \begingroup \@mkpream{#2}% \xdef\@preamble{% \noexpand \ialign \@halignto \bgroup \@arstrut \@preamble \tabskip \z@ \cr }% \endgroup \@arrayleft \if #1t\vtop \else \if#1b\vbox \else \vcenter \fi \fi \bgroup \@arrayinit \if@RTLtab\hbox\bgroup\beginR\vbox\bgroup\fi \@preamble % indent } %% environment body goes here \def\endtabular{% \crcr \egroup % \bgroup from \@preamble \if@RTLtab\egroup\endR\egroup\fi % \vbox\hbox \egroup \gdef\@preamble{}% $\if@RTLtab\endR\fi% \egroup % original \hbox \global\@RTLtabfalse} \def\@tabularinit{% \col@sep\tabcolsep \let \d@llarbegin \begingroup \let \d@llarend \endgroup } \def\@arrayinit{% \let \@sharp ## \let \protect \relax \lineskip \z@ \baselineskip \z@ \m@th \let \\ \@arraycr \let \tabularnewline \\% \let \par \@empty } %% %% Copyright © 2009 by Vafa Khalighi %% %% Distributable under the LaTeX Project Public License, %% version 1.3c or higher (your choice). The latest version of %% this license is at: http://www.latex-project.org/lppl.txt %% %% This work is "maintained" (as per LPPL maintenance status) %% by Vafa Khalighi. %% %% %% %% %% %% End of file `array-bidi.def'.