%% %% This is file `ftnxtra.sty', %% generated with the docstrip utility. %% %% The original source files were: %% %% ftnxtra.dtx (with options: `package') %% %% __________________________________ %% Copyright (C) 2009–2013 Persian TeX Group %% %% License information appended. %% \NeedsTeXFormat{LaTeX2e} \ProvidesPackage{ftnxtra}% [2013/04/04 footnote fixes for standard LaTeX] \newtoks\ftnxtra@p@ftn \let\FN@sf@@footnote\footnote \def\footnote{\ifx\protect\@typeset@protect \expandafter\FN@sf@@footnote \else \expandafter\FN@sf@gobble@opt \fi } \edef\FN@sf@gobble@opt{\noexpand\protect \expandafter\noexpand\csname FN@sf@gobble@opt \endcsname} \expandafter\def\csname FN@sf@gobble@opt \endcsname{% \@ifnextchar[%] \FN@sf@gobble@twobracket \@gobble } \def\FN@sf@gobble@twobracket[#1]#2{} \let\FN@sf@@footnotemark\footnotemark \def\footnotemark{\ifx\protect\@typeset@protect \expandafter\FN@sf@@footnotemark \else \expandafter\FN@sf@gobble@optonly \fi } \edef\FN@sf@gobble@optonly{\noexpand\protect \expandafter\noexpand\csname FN@sf@gobble@optonly \endcsname} \expandafter\def\csname FN@sf@gobble@optonly \endcsname{% \@ifnextchar[%] \FN@sf@gobble@bracket {}% } \def\FN@sf@gobble@bracket[#1]{} \def\@tabular{% \leavevmode \hbox \bgroup \let\@footnotetext\ftnxtra@p@ftntext $\let\@acol\@tabacol \let\@classz\@tabclassz \let\@classiv\@tabclassiv \let\\\@tabularcr\@tabarray} \def\endtabular{\crcr\egroup \egroup $\egroup \the\ftnxtra@p@ftn \global\ftnxtra@p@ftn{}% } \long\def\ftnxtra@p@ftntext#1{% \edef\@tempy{\the\ftnxtra@p@ftn\noexpand\footnotetext[\the\c@footnote]}% \global\ftnxtra@p@ftn\expandafter{\@tempy{#1}}}% \def\@xfloat #1[#2]{% \@nodocument \def \@captype {#1}% \def \@fps {#2}% \@onelevel@sanitize \@fps \def \reserved@b {!}% \ifx \reserved@b \@fps \@fpsadddefault \else \ifx \@fps \@empty \@fpsadddefault \fi \fi \ifhmode \@bsphack \@floatpenalty -\@Mii \else \@floatpenalty-\@Miii \fi \ifinner \@parmoderr\@floatpenalty\z@ \else \@next\@currbox\@freelist {% \@tempcnta \sixt@@n \expandafter \@tfor \expandafter \reserved@a \expandafter :\expandafter =\@fps \do {% \if \reserved@a h% \ifodd \@tempcnta \else \advance \@tempcnta \@ne \fi \fi \if \reserved@a t% \@setfpsbit \tw@ \fi \if \reserved@a b% \@setfpsbit 4% \fi \if \reserved@a p% \@setfpsbit 8% \fi \if \reserved@a !% \ifnum \@tempcnta>15 \advance\@tempcnta -\sixt@@n\relax \fi \fi }% \@tempcntb \csname ftype@\@captype \endcsname \multiply \@tempcntb \@xxxii \advance \@tempcnta \@tempcntb \global \count\@currbox \@tempcnta }% \@fltovf \fi \global \setbox\@currbox \color@vbox \normalcolor \vbox \bgroup \let\@footnotetext\ftnxtra@p@ftntext \hsize\columnwidth \@parboxrestore \@floatboxreset } \def \@endfloatbox{% \par\vskip\z@skip %% \par\vskip\z@ added 15 Dec 87 \@minipagefalse \outer@nobreak \egroup %% end of vbox \the\ftnxtra@p@ftn \global\ftnxtra@p@ftn{}% \color@endbox } %% %% Copyright (C) 2009–2013 by Persian TeX Group %% %% Distributable 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. %% %% This work consists of the file ftnxtra.dtx %% and the derived files ftnxtra.sty, %% ftnxtra.ins, and %% ftnxtra.pdf. %% %% %% End of file `ftnxtra.sty'.