%% %% This is file `cuted-xetex-bidi.def', %% generated with the docstrip utility. %% %% The original source files were: %% %% bidi.dtx (with options: `cuted-xetex-bidi.def') %% %% ______________________________________ %% Copyright © 2009–2013 Persian TeX Group %% %% License information appended. %% %% \ProvidesFile{cuted-xetex-bidi.def}[2013/04/10 v0.3 bidi adaptations for cuted package for XeTeX engine] \def\RTL@outputdblcol{% \if@firstcolumn \global\@firstcolumnfalse \global\setbox\@leftcolumn \box\@outputbox \else \global\@firstcolumntrue \setbox\@outputbox \vbox {\hbox to\textwidth {% \hskip \columnwidth \hfil \vrule width\columnseprule \hfil \hbox to\columnwidth {\box\@leftcolumn \hss}% \hskip -\textwidth \hbox to\columnwidth{\box\@outputbox \hss}% \hskip \columnsep \hskip \columnwidth }}% \ifvoid\hold@viper \else \setbox\@outputbox \vbox to\textheight{% \box\hold@viper \box\@outputbox \vss }% \fi \@combinedblfloats \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn \@whilesw\if@fcolmade \fi {\@outputpage \@startdblcolumn }% \ifvoid\@viper \else \global\setbox\@viper\vbox{% \vskip-\stripsep \unvbox\@viper }% \@viperoutput \fi \endgroup \fi} \def\LTR@outputdblcol{% \if@firstcolumn \global \@firstcolumnfalse \global \setbox\@leftcolumn \box\@outputbox \else \global\@firstcolumntrue \setbox\@outputbox \vbox {% \hb@xt@\textwidth {% \hb@xt@\columnwidth {% \box\@leftcolumn \hss}% \hfil \vrule \@width\columnseprule \hfil \hb@xt@\columnwidth {% \box\@outputbox \hss}% }% }% \ifvoid\hold@viper \else \setbox\@outputbox \vbox to\textheight{% \box\hold@viper \box\@outputbox \vss }% \fi \@combinedblfloats \@outputpage \begingroup \@dblfloatplacement \@startdblcolumn \@whilesw\if@fcolmade \fi {\@outputpage \@startdblcolumn}% \ifvoid\@viper \else \global\setbox\@viper\vbox{% \vskip-\stripsep \unvbox\@viper }% \@viperoutput \fi \endgroup \fi } \def \@addviper {% \if@firstcolumn \@insertfalse \@reqcolroom .5\@pageht \ht@viper\@reqcolroom \advance \@reqcolroom \ht\@viper \advance \@reqcolroom \stripsep \ifvoid\hold@viper\@tempdima=\z@\else\@tempdima\ht\hold@viper\fi %% \@tempdimb \ht@viper \loop \setbox\v@aaa\copy\@holdpg \setbox\v@ccc\vbox to\@tempdimb{% \vsplit\v@aaa to\@tempdimb\vss\vsplit\v@aaa to\@tempdimb}% \wlog{Extra height:\the\ht\v@aaa\space when \the\@tempdimb}% \ifvoid\v@aaa \else \advance\@tempdimb 1pt \repeat \loop \setbox\v@aaa\copy\@holdpg \setbox\v@ccc\vbox to\@tempdimb{% \vsplit\v@aaa to\@tempdimb\vss}% \wlog{(2)Left:\the\ht\v@ccc\space Right:\the\ht\v@aaa\space Output:\the\@tempdimb}% \ifdim \ht\v@ccc<\ht\v@aaa \@tempdimb \the\ht\v@aaa \repeat \wlog{- LAST -^^JLeft:\the\ht\v@ccc^^JRight:\the\ht\v@aaa^^JOutput:\the\@tempdimb}% \setbox\v@ccc\vbox to\@tempdimb{% \vsplit\@holdpg to\@tempdimb\vss}% %% \setbox\@tempboxa \vbox {% \hb@xt@\textwidth {% \if@RTLmain% \hskip \columnwidth \hfil \vrule width\columnseprule \hfil \hb@xt@\columnwidth {% \vbox to\ht@viper{\box\v@ccc\vss} \hss}% \hskip -\textwidth \hb@xt@\columnwidth {% \vbox to\ht@viper{\box\@holdpg\vss} \hss}% \hskip \columnsep \hskip \columnwidth \else% \hb@xt@\columnwidth {% \vbox to\ht@viper{\box\v@ccc\vss} \hss}% \hfil \vrule \@width\columnseprule \hfil \hb@xt@\columnwidth {% \vbox to\ht@viper{\box\@holdpg\vss} \hss}% \fi}% }% \ifvoid\hold@viper \global\setbox\hold@viper \vbox {% \unvbox\@tempboxa \penalty\interlinepenalty \vskip\stripsep \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi \outputpenalty \z@ }% \else \global\setbox\hold@viper \vbox {% \unvbox\hold@viper \unvbox\@tempboxa \penalty\interlinepenalty \vskip\stripsep \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi \outputpenalty \z@ }% \fi \ifdim \@colroom>\@reqcolroom \global\setbox\hold@viper \vbox {% \unvbox\hold@viper \box\@viper \penalty\interlinepenalty \vskip\stripsep \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi \outputpenalty \z@ }% \@inserttrue \advance\@tempdima by-\ht\hold@viper \global \advance \@colht \@tempdima \ifdim \@colht<2.5\baselineskip \@latex@warning@no@line {Optional argument of \noexpand\twocolumn too tall on page \thepage (1 stulpelis)}% \@emptycol \if@firstcolumn \else \@emptycol \fi \global\@lastvipertrue \else \global \vsize \@colht \global \@colroom \@colht \check@floats \ifdim\@tempdima>\z@ \global\advance\@colroom by-\@tempdima \fi \ifdim\@colroom<\z@ \global\@colroom 1pt \ifdim\@tempdima>\@colht \@latex@warning@no@line {TOP ir/ar BOT FLOAT's netelpa lape \thepage (1 stulpelis)}% \fi \@emptycol \if@firstcolumn \else \@emptycol \fi \global\@lastvipertrue \fi \fi \fi \else \@insertfalse \@reqcolroom\@colht \advance\@reqcolroom \@pageht \ht@viper.5\@reqcolroom \@reqcolroom\ht@viper \advance \@reqcolroom \ht\@viper \advance \@reqcolroom \stripsep \if@flushend@auto@baselineskip \setbox\@tempboxa\vbox{\unvcopy\@leftcolumn \global\lastskip@d\lastskip \global\lastskip@b\lastskip \loop \global\lastskip@a\lastskip@b \unskip\unpenalty \global\lastskip@b\lastskip \global\advance\lastskip@d by\lastskip \ifdim\lastskip@b=-\lastskip@a \global\advance\lastskip@d by-\lastskip \else \repeat \ifdim\lastskip@b=-\lastskip@a \ifdim\lastskip@b=\z@ \setbox\lastbox@a\lastbox \global\advance\lastskip@d by\ht\lastbox@a \global\advance\lastskip@d by\lastskip \unskip\unpenalty \setbox\lastbox@a\lastbox \global\advance\lastskip@d by\dp\lastbox@a \else \global\lastskip@d\lastskip \global\advance\lastskip@d by\topskip \fi \fi \global\advance\lastskip@d by-\topskip }% \ifdim\ht\@holdpg>\@colht \global\setbox\@holdpg\vbox{\unvbox\@leftcolumn\unskip\unpenalty \par\eject \vbox to \@colht{\unvbox\@holdpg\unskip}% }% \else \global\setbox\@holdpg\vbox{% \unvbox\@leftcolumn\unskip\unpenalty \vskip\lastskip@d \the\At@ViperColsBreak \unvbox\@holdpg \unskip }% \fi \else \global\setbox\@holdpg\vbox{% \unvbox\@leftcolumn \setbox\@tempboxa\lastbox \on@stripcols@break \the\At@ViperColsBreak \unvbox\@holdpg }% \fi \global\At@ViperColsBreak{}% \ht@viper .5\ht\@holdpg \ifdim \ht@viper>\@colht \ht@viper \@colht \fi \ifvoid\hold@viper\@tempdima=\z@\else\@tempdima\ht\hold@viper\fi %% \@tempdimb \ht@viper \loop \setbox\v@aaa\copy\@holdpg \setbox\v@ccc\vbox to\@tempdimb{% \vsplit\v@aaa to\@tempdimb \vss \vsplit\v@aaa to\@tempdimb }% \wlog{Extra height:\the\ht\v@aaa\space when \the\@tempdimb}% \ifvoid\v@aaa \else \advance\@tempdimb 1\p@ \repeat \loop \setbox\v@aaa\copy\@holdpg \setbox\v@ccc\vbox to\@tempdimb{\vsplit\v@aaa to\@tempdimb\vss}% \wlog{(2)Left:\the\ht\v@ccc\space Right:\the\ht\v@aaa\space Output:\the\@tempdimb }% \ifdim\ht\v@ccc<\ht\v@aaa \@tempdimb \the\ht\v@aaa \repeat \wlog{- LAST -^^JLeft:\the\ht\v@ccc ^^JRight:\the\ht\v@aaa ^^JOutput:\the\@tempdimb }% \setbox\v@ccc\vbox to\@tempdimb{\vsplit\@holdpg to\@tempdimb\vss}% \setbox\@tempboxa\vbox{% \hb@xt@\textwidth {% \hb@xt@\columnwidth{\vbox to\ht@viper{\box\v@ccc\vss} \hss}% \hfil \vrule \@width\columnseprule \hfil \hb@xt@\columnwidth {\vbox to\ht@viper{\box\@holdpg\vss} \hss}% }% }% \ifvoid\hold@viper \global\setbox\hold@viper \vbox {% \unvbox\@tempboxa \penalty\interlinepenalty \vskip\stripsep \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi \outputpenalty \z@ }% \else \global\setbox\hold@viper \vbox {% \unvbox\hold@viper \unvbox\@tempboxa \penalty\interlinepenalty \vskip\stripsep \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi \outputpenalty \z@ }% \fi \ifdim \@colht>\@reqcolroom \global\setbox\hold@viper \vbox {% \unvbox\hold@viper \box\@viper \penalty\interlinepenalty \vskip\stripsep \ifnum\outputpenalty <-\@Mii \vskip -\parskip\fi \outputpenalty \z@ }% \@inserttrue \global\@firstcolumntrue \advance\@tempdima by-\ht\hold@viper \global \advance \@colht \@tempdima \ifdim \@colht<2.5\baselineskip \@latex@warning@no@line {Optional argument of \noexpand\twocolumn too tall on page \thepage (2 stulpelis)}% \@emptycol \if@firstcolumn \else \@emptycol \fi \global\@lastvipertrue \else \global \vsize \@colht \global \@colroom \@colht \check@floats \ifdim\@tempdima>\z@ \global\advance\@colroom by-\@tempdima \fi \ifdim\@colroom<\z@ \global\@colroom 1pt \ifdim\@tempdima>\@colht \@latex@warning@no@line {TOP ir/ar BOT FLOAT's netelpa lape \thepage (2 stulpelis)}% \fi \@emptycol \if@firstcolumn \else \@emptycol \fi \global\@lastvipertrue \fi \fi \fi \fi \if@insert \else \advance\@tempdima by-\ht\hold@viper \global \advance \@colht \@tempdima \global\setbox\hold@viper \vbox {% \unvbox\hold@viper \csname viper@top@hook\endcsname \vsplit\@viper to \@colht \vss }% \vbox{}% \global\@firstcolumnfalse \newpage \fi } %% %% Copyright © 2009–2013 Persian TeX Group %% %% It may be distributed and/or modified 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 Persian TeX Group. %% %% %% %% %% End of file `cuted-xetex-bidi.def'.