%% %% This is file `bidipoem.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% bidi.dtx (with options: `bidipoem.sty') %% %% ______________________________________ %% Copyright © 2009–2013 Persian TeX Group %% %% 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 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 `bidipoem.sty'.