new latex package ftnxtra (17oct09)

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

1 files changed, 153 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/ftnxtra/ftnxtra.sty b/Master/texmf-dist/tex/latex/ftnxtra/ftnxtra.sty
new file mode 100644
index 00000000000..3f31417969d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/ftnxtra/ftnxtra.sty
@@ -0,0 +1,153 @@
+%%
+%% This is file `ftnxtra.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% ftnxtra.dtx  (with options: `package')
+%% 
+%%   __________________________________
+%%   Copyright (C) 2009  Vafa Khalighi
+%% 
+%%   License information appended.
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{ftnxtra}%
+[2009/10/18 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 by Vafa Khalighi <vafa@users.berlios.de>
+%% 
+%% 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 Vafa Khalighi.
+%% 
+%% This work consists of the file  ftnxtra.dtx
+%%           and the derived files ftnxtra.sty,
+%%                                 ftnxtra.ins, and
+%%                                 ftnxtra.pdf.
+%% 
+%%
+%% End of file `ftnxtra.sty'.