diff options
Diffstat (limited to 'Master/texmf-dist/tex/latex/bidi/bidipoem.sty')
-rw-r--r-- | Master/texmf-dist/tex/latex/bidi/bidipoem.sty | 298 |
1 files changed, 0 insertions, 298 deletions
diff --git a/Master/texmf-dist/tex/latex/bidi/bidipoem.sty b/Master/texmf-dist/tex/latex/bidi/bidipoem.sty deleted file mode 100644 index 5138a034db8..00000000000 --- a/Master/texmf-dist/tex/latex/bidi/bidipoem.sty +++ /dev/null @@ -1,298 +0,0 @@ -%% -%% This is file `bidipoem.sty', -%% generated with the docstrip utility. -%% -%% The original source files were: -%% -%% bidi.dtx (with options: `bidipoem.sty') -%% -%% ______________________________________ -%% Copyright © 2009–2013 Vafa Khalighi -%% -%% License information appended. -%% -%% -\NeedsTeXFormat{LaTeX2e} -\ProvidesPackage{bidipoem}% -[2012/12/12 v0.4 Environments for typesetting Persian traditional and modern poems] -\def\poemcolsepskip{.1\versewidth plus .1\versewidth minus .05\versewidth} -\def\poemmarginskip{1em plus 1fil minus 1em} -\def\poemextrabaselineskip{0\baselineskip} -\def\poemskip{\medskip} -\newcommand{\bidipoem@openbox}{\leavevmode - \hbox to.77778em{% - \hfil\vrule - \vbox to.675em{\hrule width.6em\vfil\hrule}% - \vrule\hfil}} -\def\poemblocksep{\quad\hbox{\bidipoem@openbox}} -\newdimen\versewidth -\newtoks\bidipoem@p@ftn -\def\poem@verse#1{% -\ifdim\wd#1>\new@poem@width -\xdef\new@poem@width{\the\wd#1}% -\ifdim\new@poem@width>\poem@width -\xdef\poem@width{\new@poem@width}% -\global\let\poem@needrun\relax -\fi -\fi -\hbox to\poem@width{\unhbox#1}% -\global\bidipoem@p@ftn\expandafter{\expandafter}\the\bidipoem@p@ftn% -} -\def\poem@linebegin{\vadjust{}\hskip\@flushglue\hskip\poemmarginskip\relax} -\def\poem@lineend{\nobreak\hskip\poemmarginskip\hskip\@flushglue\vadjust{}} -\def\poem@lineversesep{% -\nobreak -\hskip\z@ plus 1filll% -\penalty600% -\hskip\poemcolsepskip -\hskip\z@ plus -2filll% -\vadjust{}% -\nobreak -\hskip\z@ plus 1filll% -} -\def\poem@lineparsebegin{% -\halign\bgroup -\global\setbox\verse@i=\hbox{% -\let\@footnotetext\bidipoem@p@ftntext% -\let\@LTRfootnotetext\bidipoem@p@LTRftntext% -\let\@RTLfootnotetext\bidipoem@p@RTLftntext% -\let\@xfootnotenext\bidipoem@p@xftntext% -\let\@xfootnote\bidipoem@p@xfootnote% -\let\@xLTRfootnotenext\bidipoem@p@xLTRftntext% -\let\@xLTRfootnote\bidipoem@p@xLTRfootnote% -\let\@xRTLfootnotenext\bidipoem@p@xRTLftntext% -\let\@xRTLfootnote\bidipoem@p@xRTLfootnote% -\ignorespaces##\unskip}&& -\global\setbox\verse@ii=\hbox{% -\let\@footnotetext\bidipoem@p@ftntext% -\let\@LTRfootnotetext\bidipoem@p@LTRftntext% -\let\@RTLfootnotetext\bidipoem@p@RTLftntext% -\let\@xfootnotenext\bidipoem@p@xftntext% -\let\@xfootnote\bidipoem@p@xfootnote% -\let\@xLTRfootnotenext\bidipoem@p@xLTRftntext% -\let\@xLTRfootnote\bidipoem@p@xLTRfootnote% -\let\@xRTLfootnotenext\bidipoem@p@xRTLftntext% -\let\@xRTLfootnote\bidipoem@p@xRTLfootnote% -\ignorespaces##\unskip} -\cr -} -\def\poem@lineparseend{% -\crcr\egroup -\vskip-\baselineskip -} -\def\oldpoem@cr{% - \cr\poem@line -} -\newbox\verse@i -\newbox\verse@ii -\newif\ifpoem@started - -\def\poem@line{% -\poem@lineparseend -\ifdim\wd\verse@i>\z@\global\poem@startedtrue\fi -\ifdim\wd\verse@ii>\z@\global\poem@startedtrue\fi -\ifpoem@started - \ifdim\wd\verse@ii>\z@\else - \nopagebreak[3] - \fi - \leavevmode - \poem@linebegin - \poem@verse\verse@i - \ifdim\wd\verse@ii>\z@ - \poem@lineversesep - \poem@verse\verse@ii - \fi - \poem@lineend - \nopagebreak - \endgraf - \vskip\poemextrabaselineskip -\fi -\poem@lineparsebegin -} -\def\@traditionalpoem{% -\stepcounter{poem@no} - \ifnum\max@poem@no<\number\c@poem@no% -\xdef\poem@width{\z@}% - \else -\xdef\poem@width{\poem@prop{poem@width}}% -\fi -\xdef\new@poem@width{\z@}% -\global\versewidth=\poem@width -\poemskip\leavevmode\par -\begingroup -\tabskip=\z@ -\parskip=\z@ -\parindent=\z@ -\parfillskip=\z@ -\rightskip=\z@ -\leftskip=\z@ -\widowpenalty=10000% No break between verses of the same line. -\clubpenalty=10000% Same as above. Not really needed. -\def\newblock{\hfil\poemblocksep\hfil\null}% -\def\par{\oldpoem@cr}% Redefine \par for possible \obeylines -\def\\{\global\poem@startedtrue\oldpoem@cr}% -\global\poem@startedfalse -\csname poem@obeylines\endcsname -\let\poem@obeylines\relax -\poem@lineparsebegin -} -\def\@endtraditionalpoem{% -\cr -\ifdim\wd\verse@i>\z@\poem@line\else\ifdim\wd\verse@ii>\z@\poem@line\else -\noalign{% -\skip0=\poemextrabaselineskip -\vskip-\skip0 -\vskip-\baselineskip -}% -\fi\fi -\poem@lineparseend -\endgroup -\par -\vskip\baselineskip -\poemskip -\ifdim\new@poem@width<\poem@width -\global\let\poem@needrun\relax -\fi - \poem@write@aux{poem@width@\romannumeral\c@poem@no}{\new@poem@width}% -\ifx\AtEndDocument\undefined\poem@finish\fi -} - -\long\def\bidipoem@p@ftntext#1{% - \edef\@tempx{\the\bidipoem@p@ftn\noexpand\footnotetext[\the\csname c@\@mpfn\endcsname]}% - \global\bidipoem@p@ftn\expandafter{\@tempx{#1}}}% -\long\def\bidipoem@p@LTRftntext#1{% - \edef\@tempxi{\the\bidipoem@p@ftn\noexpand\LTRfootnotetext[\the\csname c@\@mpfn\endcsname]}% - \global\bidipoem@p@ftn\expandafter{\@tempxi{#1}}}% -\long\def\bidipoem@p@RTLftntext#1{% - \edef\@tempxii{\the\bidipoem@p@ftn\noexpand\RTLfootnotetext[\the\csname c@\@mpfn\endcsname]}% - \global\bidipoem@p@ftn\expandafter{\@tempxii{#1}}}% - -\long\def\bidipoem@p@xftntext[#1]#2{% - \global\bidipoem@p@ftn\expandafter{\the\bidipoem@p@ftn\footnotetext[#1]{#2}}} - -\long\def\bidipoem@p@xLTRftntext[#1]#2{% - \global\bidipoem@p@ftn\expandafter{\the\bidipoem@p@ftn\LTRfootnotetext[#1]{#2}}} - -\long\def\bidipoem@p@xRTLftntext[#1]#2{% - \global\bidipoem@p@ftn\expandafter{\the\bidipoem@p@ftn\RTLfootnotetext[#1]{#2}}} - -\def\bidipoem@p@xfootnote[#1]{% - \begingroup - \csname c@\@mpfn\endcsname #1\relax - \unrestored@protected@xdef\@thefnmark{\thempfn}% - \endgroup - \@footnotemark\bidipoem@p@xftntext[#1]} - -\def\bidipoem@p@xLTRfootnote[#1]{% - \begingroup - \csname c@\@mpfn\endcsname #1\relax - \unrestored@protected@xdef\@thefnmark{\thempfn}% - \endgroup - \@footnotemark\bidipoem@p@xLTRftntext[#1]} - -\def\bidipoem@p@xRTLfootnote[#1]{% - \begingroup - \csname c@\@mpfn\endcsname #1\relax - \unrestored@protected@xdef\@thefnmark{\thempfn}% - \endgroup - \@footnotemark\bidipoem@p@xRTLftntext[#1]} - -\newenvironment{traditionalpoem}{\@traditionalpoem}{\@endtraditionalpoem} -\expandafter\def\csname traditionalpoem*\endcsname{\let\poem@obeylines=\obeylines\traditionalpoem} -\expandafter\def\csname endtraditionalpoem*\endcsname{\endtraditionalpoem} -\def\poem@finish{% -\poem@write@aux{max@poem@no}{\number\c@poem@no}% -\ifx\poem@needrun\relax -\PackageWarning{bidipoem}{Unjustified poem. Rerun XeLaTeX to get poem right}% -\global\let\poem@needrun\undefined -\fi -} -\ifx\AtEndDocument\undefined\else\AtEndDocument\poem@finish\fi -\newcounter{poem@no}\setcounter{poem@no}{\z@} -\ifx\max@poem@no\undefined - \def\max@poem@no{0}% -\fi -\newcommand{\poem@prop}[1]{\@nameuse{#1@\romannumeral\c@poem@no}} -\newcommand{\poem@write@aux}[2]{% - \def\@x{\immediate\write\@auxout{\global\noexpand\@namedef{#1}{#2}}}% - \@x -} -\def\@modernpoem{% -\par -\begingroup -\parskip=\z@ -\parindent=\z@ -\def\[{\@settab\@tabplus\ignorespaces}% -\def\]{\@tabminus\ignorespaces}% -\def\newblock{\poemblocksep}% -\let\newpoem@tabcr\@tabcr -\def\par{% Redefine \par for possible \obeylines - \ifpoem@started\else - \ifdim\wd\@curline>\z@\global\poem@startedtrue\else - \@stopfield - \ifdim\wd\@curfield>\z@\global\poem@startedtrue\fi - \@contfield - \fi - \fi - \ifpoem@started\newpoem@tabcr\fi}% -\def\@tabcr{\global\poem@startedtrue\newpoem@tabcr}% -\global\poem@startedfalse -\csname poem@obeylines\endcsname -\let\poem@obeylines\relax -\begin{tabbing}% -} -\def\@endmodernpoem{% -\global\poem@startedfalse -\ifdim\wd\@curline>\z@\global\poem@startedtrue\else - \@stopfield - \ifdim\wd\@curfield>\z@\global\poem@startedtrue\fi - \@contfield -\fi -\ifpoem@started\else\let\@stopline\@stopfield\fi -\end{tabbing}% -\endgroup -\par -} -\newenvironment{modernpoem}{\@modernpoem}{\@endmodernpoem} -\expandafter\def\csname modernpoem*\endcsname{\let\poem@obeylines=\obeylines\modernpoem} -\expandafter\def\csname endmodernpoem*\endcsname{\endmodernpoem} -\gdef\@startfield{% -\global\setbox\@curfield\hbox\bgroup% -\let\@footnotetext\bidipoem@p@ftntext% -\let\@LTRfootnotetext\bidipoem@p@LTRftntext% -\let\@RTLfootnotetext\bidipoem@p@RTLftntext% -\let\@xfootnotenext\bidipoem@p@xftntext% -\let\@xfootnote\bidipoem@p@xfootnote% -\let\@xLTRfootnotenext\bidipoem@p@xLTRftntext% -\let\@xLTRfootnote\bidipoem@p@xLTRfootnote% -\let\@xRTLfootnotenext\bidipoem@p@xRTLftntext% -\let\@xRTLfootnote\bidipoem@p@xRTLfootnote% -\color@begingroup} -\gdef\@stopfield{% - \color@endgroup\egroup\global\bidipoem@p@ftn\expandafter{\expandafter}\the\bidipoem@p@ftn} -\gdef\@contfield{% -\global\setbox\@curfield\hbox\bgroup% -\let\@footnotetext\bidipoem@p@ftntext% -\let\@LTRfootnotetext\bidipoem@p@LTRftntext% -\let\@RTLfootnotetext\bidipoem@p@RTLftntext% -\let\@xfootnotenext\bidipoem@p@xftntext% -\let\@xfootnote\bidipoem@p@xfootnote% -\let\@xLTRfootnotenext\bidipoem@p@xLTRftntext% -\let\@xLTRfootnote\bidipoem@p@xLTRfootnote% -\let\@xRTLfootnotenext\bidipoem@p@xRTLftntext% -\let\@xRTLfootnote\bidipoem@p@xRTLfootnote% -\color@begingroup\unhbox\@curfield} -%% -%% Copyright © 2009–2013 Vafa Khalighi <vafa[dot]kgh[at]gmail[dot]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 “author-maintained” (as per LPPL maintenance status) -%% by Vafa Khalighi. -%% -%% -%% -%% -%% End of file `bidipoem.sty'. |