bidipagegrid (12jul14)

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

6 files changed, 490 insertions, 2 deletions

diff --git a/Master/texmf-dist/doc/xelatex/bidipagegrid/bidipagegrid-doc.pdf b/Master/texmf-dist/doc/xelatex/bidipagegrid/bidipagegrid-doc.pdf
new file mode 100644
index 00000000000..4a1411d9ded
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/bidipagegrid/bidipagegrid-doc.pdf
diff --git a/Master/texmf-dist/doc/xelatex/bidipagegrid/bidipagegrid-doc.tex b/Master/texmf-dist/doc/xelatex/bidipagegrid/bidipagegrid-doc.tex
new file mode 100755
index 00000000000..9433b86de56
--- /dev/null
+++ b/Master/texmf-dist/doc/xelatex/bidipagegrid/bidipagegrid-doc.tex
@@ -0,0 +1,41 @@
+\documentclass{ltxdoc}
+\usepackage{holtxdoc}
+\begin{document}
+\title{The \xpackage{bidipagegrid} package}
+\author{Vafa Khalighi\\\xemail{persian-tex@tug.org}}
+\maketitle
+\vskip 0pt plus 3fill
+\fbox{%
+\begin{minipage}{\dimexpr(\textwidth-2\fboxsep-2\fboxrule)}
+If you want to report any bugs or typos and corrections in the documentation,
+or ask for any new features, or suggest any improvements, or ask any questions
+about the package, then please do not send any direct email to me; I will not 
+answer any direct email. Instead please use the issue tracker:
+
+\medskip
+  \centerline{\url{https://github.com/vafa/bidipagegrid/issues}}
+
+\medskip
+In doing so, please always explain your issue well enough, always include
+a minimal working example showing the issue, and always choose the appropriate
+label for your query (i.e. if you are reporting any bugs, choose `Bug' label). 
+\end{minipage}
+}
+\tableofcontents
+\section{Introduction}
+The \xpackage{pagegrid} package of Heiko Oberdiek, prints page grid in the background. Unfortunately, this package does not play nicely with \xpackage{bidi} package.
+The \xpackage{bidipagegrid} package modifies \xpackage{pagegrid} package to allow bidirectional (both right to left and left to right) page grid in the background. 
+
+\section{Documentation}
+The \xpackage{bidipagegrid} package provides all the options and user commands of \xpackage{pagegrid} package; in addition, it provides an option for the direction of the page grid, namely \texttt{direction} (for entire document). There are only two values for this option, \texttt{RTL}, and \texttt{LTR}. By default, \texttt{RTL} is active. If you want LTR page grid, you will load the package in this way:
+\begin{verbatim}
+\usepackage[direction=LTR]{bidipagegrid}
+\end{verbatim}
+
+
+The following two commands are also provided:
+\begin{description}
+\item[\cs{setLTRpagegrid}] sets the direction of the page grid to LTR.
+\item[\cs{setRTLpagegrid}] sets the direction of the page grid to RTL.
+\end{description}
+\end{document}
\ No newline at end of file
diff --git a/Master/texmf-dist/tex/xelatex/bidipagegrid/bidipagegrid.sty b/Master/texmf-dist/tex/xelatex/bidipagegrid/bidipagegrid.sty
new file mode 100755
index 00000000000..2cbd0367d61
--- /dev/null
+++ b/Master/texmf-dist/tex/xelatex/bidipagegrid/bidipagegrid.sty
@@ -0,0 +1,446 @@
+%%
+%% This is file `bidipagegrid.sty'.
+%% 
+%%   __________________________________________________
+%%   Copyright © 2014  Vafa Khalighi <persian-tex@tug.org>
+%% 
+%%   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 “author-maintained” (as per LPPL maintenance status)
+%%   by Vafa Khalighi.
+%% 
+%% 
+\begingroup\catcode61\catcode48\catcode32=10\relax%
+  \catcode13=5 % ^^M
+  \endlinechar=13 %
+  \catcode35=6 % #
+  \catcode39=12 % '
+  \catcode44=12 % ,
+  \catcode45=12 % -
+  \catcode46=12 % .
+  \catcode58=12 % :
+  \catcode64=11 % @
+  \catcode123=1 % {
+  \catcode125=2 % }
+  \expandafter\let\expandafter\x\csname ver@bidipagegrid.sty\endcsname
+  \ifx\x\relax % plain-TeX, first loading
+  \else
+    \def\empty{}%
+    \ifx\x\empty % LaTeX, first loading,
+      % variable is initialized, but \ProvidesPackage not yet seen
+    \else
+      \expandafter\ifx\csname PackageInfo\endcsname\relax
+        \def\x#1#2{%
+          \immediate\write-1{Package #1 Info: #2.}%
+        }%
+      \else
+        \def\x#1#2{\PackageInfo{#1}{#2, stopped}}%
+      \fi
+      \x{bidipagegrid}{The package is already loaded}%
+      \aftergroup\endinput
+    \fi
+  \fi
+\endgroup%
+\begingroup\catcode61\catcode48\catcode32=10\relax%
+  \catcode13=5 % ^^M
+  \endlinechar=13 %
+  \catcode35=6 % #
+  \catcode39=12 % '
+  \catcode40=12 % (
+  \catcode41=12 % )
+  \catcode44=12 % ,
+  \catcode45=12 % -
+  \catcode46=12 % .
+  \catcode47=12 % /
+  \catcode58=12 % :
+  \catcode64=11 % @
+  \catcode91=12 % [
+  \catcode93=12 % ]
+  \catcode123=1 % {
+  \catcode125=2 % }
+  \expandafter\ifx\csname ProvidesPackage\endcsname\relax
+    \def\x#1#2#3[#4]{\endgroup
+      \immediate\write-1{Package: #3 #4}%
+      \xdef#1{#4}%
+    }%
+  \else
+    \def\x#1#2[#3]{\endgroup
+      #2[{#3}]%
+      \ifx#1\@undefined
+        \xdef#1{#3}%
+      \fi
+      \ifx#1\relax
+        \xdef#1{#3}%
+      \fi
+    }%
+  \fi
+\expandafter\x\csname ver@bidipagegrid.sty\endcsname
+\ProvidesPackage{bidipagegrid}%
+  [2014/07/12 v0.1 Print bidi page grid in background]%
+\begingroup\catcode61\catcode48\catcode32=10\relax%
+  \catcode13=5 % ^^M
+  \endlinechar=13 %
+  \catcode123=1 % {
+  \catcode125=2 % }
+  \catcode64=11 % @
+  \def\x{\endgroup
+    \expandafter\edef\csname bidipagegrid@AtEnd\endcsname{%
+      \endlinechar=\the\endlinechar\relax
+      \catcode13=\the\catcode13\relax
+      \catcode32=\the\catcode32\relax
+      \catcode35=\the\catcode35\relax
+      \catcode61=\the\catcode61\relax
+      \catcode64=\the\catcode64\relax
+      \catcode123=\the\catcode123\relax
+      \catcode125=\the\catcode125\relax
+    }%
+  }%
+\x\catcode61\catcode48\catcode32=10\relax%
+\catcode13=5 % ^^M
+\endlinechar=13 %
+\catcode35=6 % #
+\catcode64=11 % @
+\catcode123=1 % {
+\catcode125=2 % }
+\def\TMP@EnsureCode#1#2{%
+  \edef\bidipagegrid@AtEnd{%
+    \bidipagegrid@AtEnd
+    \catcode#1=\the\catcode#1\relax
+  }%
+  \catcode#1=#2\relax
+}
+\TMP@EnsureCode{9}{10}% (tab)
+\TMP@EnsureCode{10}{12}% ^^J
+\TMP@EnsureCode{33}{12}% !
+\TMP@EnsureCode{34}{12}% "
+\TMP@EnsureCode{36}{3}% $
+\TMP@EnsureCode{38}{4}% &
+\TMP@EnsureCode{39}{12}% '
+\TMP@EnsureCode{40}{12}% (
+\TMP@EnsureCode{41}{12}% )
+\TMP@EnsureCode{42}{12}% *
+\TMP@EnsureCode{43}{12}% +
+\TMP@EnsureCode{44}{12}% ,
+\TMP@EnsureCode{45}{12}% -
+\TMP@EnsureCode{46}{12}% .
+\TMP@EnsureCode{47}{12}% /
+\TMP@EnsureCode{58}{12}% :
+\TMP@EnsureCode{59}{12}% ;
+\TMP@EnsureCode{60}{12}% <
+\TMP@EnsureCode{62}{12}% >
+\TMP@EnsureCode{63}{12}% ?
+\TMP@EnsureCode{91}{12}% [
+\TMP@EnsureCode{93}{12}% ]
+\TMP@EnsureCode{94}{7}% ^ (superscript)
+\TMP@EnsureCode{95}{8}% _ (subscript)
+\TMP@EnsureCode{96}{12}% `
+\TMP@EnsureCode{124}{12}% |
+\edef\bidipagegrid@AtEnd{\bidipagegrid@AtEnd\noexpand\endinput}
+\RequirePackage{tikz}
+\RequirePackage{atbegshi}[2009/12/02]
+\RequirePackage{kvoptions}[2009/07/17]
+\begingroup\expandafter\expandafter\expandafter\endgroup
+\expandafter\ifx\csname stockwidth\endcsname\relax
+  \def\bidipagegrid@width{\paperwidth}%
+  \def\bidipagegrid@height{\paperheight}%
+\else
+  \def\bidipagegrid@width{\stockwidth}%
+  \def\bidipagegrid@height{\stockheight}%
+\fi
+\SetupKeyvalOptions{%
+  family=bidipagegrid,%
+  prefix=bidipagegrid@,%
+}
+\def\bidipagegrid@init{%
+  \let\bidipagegrid@origin@a\@empty
+  \let\bidipagegrid@origin@b\@empty
+  \let\bidipagegrid@init\relax
+}
+\let\bidipagegrid@@init\bidipagegrid@init
+\def\bidipagegrid@origin@a{%
+    \ifnum\bidipagegrid@direction=\z@%
+        bl%
+    \else%
+        \ifnum\bidipagegrid@direction=\@ne%
+            br%
+        \fi%
+    \fi%
+}
+\def\bidipagegrid@origin@b{%
+    \ifnum\bidipagegrid@direction=\z@%
+        tr%
+    \else%
+        \ifnum\bidipagegrid@direction=\@ne%
+            tl%
+        \fi%
+    \fi%
+}
+\def\bidipagegrid@SetOrigin#1{%
+  \bidipagegrid@init
+  \ifx\bidipagegrid@origin@a\@empty
+    \def\bidipagegrid@origin@a{#1}%
+  \else
+    \ifx\bidipagegrid@origin@b\@empty
+    \else
+      \let\bidipagegrid@origin@a\bidipagegrid@origin@b
+    \fi
+    \def\bidipagegrid@origin@b{#1}%
+  \fi
+}
+\def\bidipagegrid@temp#1{%
+  \DeclareVoidOption{#1}{\bidipagegrid@SetOrigin{#1}}%
+  \@namedef{bidipagegrid@N@#1}{#1}%
+}
+\bidipagegrid@temp{bl}
+\bidipagegrid@temp{br}
+\bidipagegrid@temp{tl}
+\bidipagegrid@temp{tr}
+\def\bidipagegrid@temp#1#2{%
+  \DeclareVoidOption{#2}{\bidipagegrid@SetOrigin{#1}}%
+}%
+\bidipagegrid@temp{bl}{lb}
+\bidipagegrid@temp{br}{rb}
+\bidipagegrid@temp{tl}{lt}
+\bidipagegrid@temp{tr}{rt}
+\bidipagegrid@temp{bl}{bottom-left}
+\bidipagegrid@temp{br}{bottom-right}
+\bidipagegrid@temp{tl}{top-left}
+\bidipagegrid@temp{tr}{top-right}
+\bidipagegrid@temp{bl}{left-bottom}
+\bidipagegrid@temp{br}{right-bottom}
+\bidipagegrid@temp{tl}{left-top}
+\bidipagegrid@temp{tr}{right-top}
+\DeclareBoolOption[true]{enable}
+\DeclareComplementaryOption{disable}{enable}
+\DeclareBoolOption{foreground}
+\newlength{\bidipagegrid@step}
+\define@key{bidipagegrid}{step}{%
+  \setlength{\bidipagegrid@step}{#1}%
+}
+\DeclareStringOption[red]{firstcolor}
+\DeclareStringOption[blue]{secondcolor}
+\DeclareBoolOption[true]{arrows}
+\newlength\bidipagegrid@arrowlength
+\bidipagegrid@arrowlength=\z@
+\define@key{bidipagegrid}{arrowlength}{%
+  \setlength{\bidipagegrid@arrowlength}{#1}%
+}
+\define@key{bidipagegrid}{double}[true]{%
+  \@ifundefined{bidipagegrid@double@#1}{%
+    \PackageWarning{bidipagegrid}{%
+      Unsupported value `#1' for option `double'.\MessageBreak
+      Known values are:\MessageBreak
+      `false', `first', `last', `true'.\MessageBreak
+      Now `false' is used%
+    }%
+    \chardef\bidipagegrid@double\z@
+  }{%
+    \chardef\bidipagegrid@double\csname bidipagegrid@double@#1\endcsname\relax
+  }%
+}
+\@namedef{bidipagegrid@double@false}{0}
+\@namedef{bidipagegrid@double@first}{1}
+\@namedef{bidipagegrid@double@last}{2}
+\@namedef{bidipagegrid@double@true}{2}
+\chardef\bidipagegrid@double\z@
+
+\define@key{bidipagegrid}{direction}[RTL]{%
+  \@ifundefined{bidipagegrid@direction@#1}{%
+    \PackageWarning{bidipagegrid}{%
+      Unsupported value `#1' for option `direction'.\MessageBreak
+      Known values are:\MessageBreak
+      `LTR', `RTL'.\MessageBreak
+      Now `RTL' is used%
+    }%
+    \chardef\bidipagegrid@direction\@ne
+  }{%
+    \chardef\bidipagegrid@direction\csname bidipagegrid@direction@#1\endcsname\relax
+  }%
+}
+\@namedef{bidipagegrid@direction@LTR}{0}
+\@namedef{bidipagegrid@direction@RTL}{1}
+\chardef\bidipagegrid@direction\@ne
+
+\newcommand*{\bidipagegridsetup}{%
+  \let\bidipagegrid@init\bidipagegrid@@init
+  \setkeys{bidipagegrid}%
+}
+\bidipagegridsetup{%
+  step=1mm%
+}
+\InputIfFileExists{bidipagegrid.cfg}{}%
+\ProcessKeyvalOptions*\relax
+\AtBeginDocument{%
+  \ifdim\bidipagegrid@arrowlength>\z@
+  \else
+    \bidipagegrid@arrowlength=10\bidipagegrid@step
+  \fi
+}
+\def\bidipagegridShipoutDoubleBegin{%
+  \begingroup
+  \let\newlabel\@gobbletwo
+  \let\zref@newlabel\@gobbletwo
+  \let\@writefile\@gobbletwo
+  \let\select@language\@gobble
+}
+\def\bidipagegridShipoutDoubleEnd{%
+  \endgroup
+}
+\def\bidipagegrid@WriteDouble#1#2{%
+  \immediate\write#1{%
+    \@backslashchar csname %
+    bidipagegridShipoutDouble#2%
+    \@backslashchar endcsname%
+  }%
+}
+\def\bidipagegrid@ShipoutDouble#1{%
+  \begingroup
+    \if@filesw
+      \bidipagegrid@WriteDouble\@mainaux{Begin}%
+      \ifx\@auxout\@partaux
+        \bidipagegrid@WriteDouble\@partaux{Begin}%
+        \def\bidipagegrid@temp{%
+          \bidipagegrid@WriteDouble\@mainaux{End}%
+          \bidipagegrid@WriteDouble\@partaux{End}%
+        }%
+      \else
+        \def\bidipagegrid@temp{%
+          \bidipagegrid@WriteDouble\@mainaux{End}%
+        }%
+      \fi
+    \else
+      \def\bidipagegrid@temp{}%
+    \fi
+    \let\protect\noexpand
+    \AtBeginShipoutOriginalShipout\copy#1\relax
+    \bidipagegrid@temp
+  \endgroup
+}
+
+{\catcode`t=12\catcode`p=12\gdef\noPT#1pt{#1}}
+\def\bidipagegrid@rem@pt#1{\expandafter\noPT\the#1}
+
+\newcommand*{\bidipagegrid@x@coordinate}{%
+    \ifnum\bidipagegrid@direction=\z@%
+        0%
+    \else%
+        \ifnum\bidipagegrid@direction=\@ne%
+            \bidipagegrid@rem@pt\textwidth%
+        \fi%
+    \fi%
+}
+         
+\newcommand*{\setLTRpagegrid}{\chardef\bidipagegrid@direction\z@}
+\newcommand*{\setRTLpagegrid}{\chardef\bidipagegrid@direction\@ne}
+
+\AtBeginShipout{%
+  \ifdim\bidipagegrid@step>\z@
+  \else
+    \bidipagegrid@enablefalse
+  \fi
+  \ifbidipagegrid@enable
+    \ifnum\bidipagegrid@double=\@ne
+      \bidipagegrid@ShipoutDouble\AtBeginShipoutBox
+    \else
+      \ifnum\bidipagegrid@double=\tw@
+        \@ifundefined{bidipagegrid@DoubleBox}{%
+          \newbox\bidipagegrid@DoubleBox
+        }{}%
+        \setbox\bidipagegrid@DoubleBox=\copy\AtBeginShipoutBox
+      \fi
+    \fi
+    \ifbidipagegrid@foreground
+      \expandafter\AtBeginShipoutUpperLeftForeground
+    \else
+      \expandafter\AtBeginShipoutUpperLeft
+    \fi
+    {%
+      \put(\bidipagegrid@x@coordinate,0){%
+        \makebox(0,0)[lt]{%
+          \begin{tikzpicture}[%
+            bl/.style={},%
+            br/.style={xshift=\bidipagegrid@width,xscale=-1},%
+            tl/.style={yshift=\bidipagegrid@height,yscale=-1},%
+            tr/.style={xshift=\bidipagegrid@width,%
+                       yshift=\bidipagegrid@height,scale=-1}%
+          ]%
+            \useasboundingbox
+              (0mm,\bidipagegrid@height) rectangle (0mm,\bidipagegrid@height);%
+            \draw[%
+              \bidipagegrid@origin@a,%
+              step=\bidipagegrid@step,%
+              style=help lines,%
+              ultra thin%
+            ] (0mm,0mm) grid (\bidipagegrid@width,\bidipagegrid@height);%
+            \ifx\bidipagegrid@origin@b\@empty
+            \else
+              \draw[%
+                \bidipagegrid@origin@b,%
+                step=10\bidipagegrid@step,%
+                {\bidipagegrid@secondcolor},%
+                very thin%
+              ] (0mm,0mm) grid (\bidipagegrid@width,\bidipagegrid@height);%
+            \fi
+            \draw[%
+               \bidipagegrid@origin@a,%
+               step=10\bidipagegrid@step,%
+               {\bidipagegrid@firstcolor},%
+               very thin%
+            ] (0mm,0mm) grid (\bidipagegrid@width,\bidipagegrid@height);%
+            \ifx\bidipagegrid@origin@b\@empty
+            \else
+              \draw[%
+                \bidipagegrid@origin@b,%
+                step=50\bidipagegrid@step,%
+                {\bidipagegrid@secondcolor},%
+                thick%
+              ] (0mm,0mm) grid (\bidipagegrid@width,\bidipagegrid@height);%
+            \fi
+            \draw[%
+              \bidipagegrid@origin@a,%
+              step=50\bidipagegrid@step,%
+              {\bidipagegrid@firstcolor},%
+              thick%
+            ] (0mm,0mm) grid (\bidipagegrid@width,\bidipagegrid@height);%
+            \ifbidipagegrid@arrows
+              \ifx\bidipagegrid@origin@b\@empty
+              \else
+                \draw[%
+                  \bidipagegrid@origin@b,%
+                  {\bidipagegrid@secondcolor},%
+                  stroke,%
+                  line width=1pt,%
+                  line cap=round%
+                ] (0mm,0mm) %
+                -- (\bidipagegrid@arrowlength,\bidipagegrid@arrowlength) %
+                   (\bidipagegrid@arrowlength,.5\bidipagegrid@arrowlength) %
+                -- (\bidipagegrid@arrowlength,\bidipagegrid@arrowlength) %
+                -- (.5\bidipagegrid@arrowlength,\bidipagegrid@arrowlength);%
+              \fi
+              \draw[%
+                \bidipagegrid@origin@a,%
+                {\bidipagegrid@firstcolor},%
+                stroke,%
+                line width=1pt,%
+                line cap=round%
+              ] (0mm,0mm) %
+              -- (\bidipagegrid@arrowlength,\bidipagegrid@arrowlength) %
+                 (\bidipagegrid@arrowlength,.5\bidipagegrid@arrowlength) %
+              -- (\bidipagegrid@arrowlength,\bidipagegrid@arrowlength) %
+              -- (.5\bidipagegrid@arrowlength,\bidipagegrid@arrowlength);%
+            \fi
+          \end{tikzpicture}%
+        }%
+      }%
+    }%
+    \ifnum\bidipagegrid@double=\tw@
+      \bidipagegrid@ShipoutDouble\bidipagegrid@DoubleBox
+    \fi
+  \fi
+}
+\bidipagegrid@AtEnd%
+\endinput
+%%
+%% End of file `bidipagegrid.sty'.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index e1cfaaa73ef..a6809f7c31a 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -88,8 +88,8 @@ my @TLP_working = qw(
     bibleref bibleref-french bibleref-german bibleref-lds bibleref-mouth
     bibleref-parse
     biblist bibtex bibtopic
-    bibtopicprefix bibexport bibunits 
-    bidi bigfoot bigints binomexp biocon bitelist bizcard
+    bibtopicprefix bibexport bibunits
+    bidi bidipagegrid bigfoot bigints binomexp biocon bitelist bizcard
     blacklettert1 blindtext blkarray block blockdraw_mp bloques blowup
     bodegraph bohr boisik bold-extra
     boites boldtensors bondgraph bookest bookhands booklet
diff --git a/Master/tlpkg/tlpsrc/bidipagegrid.tlpsrc b/Master/tlpkg/tlpsrc/bidipagegrid.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/bidipagegrid.tlpsrc
diff --git a/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc b/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc
index 3e69a57b009..96a45256df5 100644
--- a/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-xetex.tlpsrc
@@ -6,6 +6,7 @@ longdesc http://tug.org/xetex.
 depend collection-basic
 #
 depend arabxetex
+depend bidipagegrid
 depend euenc
 depend fixlatvian
 depend fontbook