bidi (17sep13)

git-svn-id: svn://tug.org/texlive/trunk@31682 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 393 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/xelatex/bidi/cuted-xetex-bidi.def b/Master/texmf-dist/tex/xelatex/bidi/cuted-xetex-bidi.def
new file mode 100644
index 00000000000..58006bf61ae
--- /dev/null
+++ b/Master/texmf-dist/tex/xelatex/bidi/cuted-xetex-bidi.def
@@ -0,0 +1,393 @@
+%%
+%% This is file `cuted-xetex-bidi.def'.
+%% 
+%%   ______________________________________
+%%   Copyright © 2009–2013  Vafa Khalighi
+%% 
+%%   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  Vafa Khalighi <vafakh@me.com>
+%% 
+%% 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 Vafa Khalighi.
+%% 
+%% 
+%% 
+%%
+%% End of file `cuted-xetex-bidi.def'.