Fresh Fonts 1/freshfonts1.bin/programs/amiga/pastex/macros/misc/ftnright.sty

LaTeX Document | 1994-05-20 | 5KB | 146 lines

%% This is file `ftnright.sty', generated
%% on <1994/5/20> with the docstrip utility (2.0r).
%% The original source files were:
%% ftnright.doc  (with options: `style')
%% Copyright (C) 1989-1992 by Frank Mittelbach. All rights reserved.
%% IMPORTANT NOTICE:
%% You are not allowed to change this file. You may however copy this
%% file to a file with a different name and then change the copy.
%% You are NOT ALLOWED to distribute this file alone. You are NOT
%% ALLOWED to take money for the distribution or use of this file (or a
%% changed version) except for a nominal charge for copying etc.
%% You are allowed to distribute this file under the condition that it is
%% distributed together with all files mentioned in readme.mz6.
%% If you receive only some of these files from someone, complain!
%% However, if these files are distributed by established suppliers as
%% part of a complete TeX distribution, and the structure of the
%% distribution would make it difficult to distribute the whole set of
%% files, *those parties* are allowed to distribute only some of the
%% files provided that it is made clear that the user will get a complete
%% distribution-set upon request to that supplier (not me). Notice that
%% this permission is not granted to the end user.
%% For error reports in case of UNCHANGED versions see readme files.
\def\filename{ftnright}
\def\fileversion{v1.0d}
\def\filedate{92/06/19}
\def\docdate {92/06/19}
%% \CheckSum{303}
%% \CharacterTable
%%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
%%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
%%   Digits        \0\1\2\3\4\5\6\7\8\9
%%   Exclamation   \!     Double quote  \"     Hash (number) \#
%%   Dollar        \$     Percent       \%     Ampersand     \&
%%   Acute accent  \'     Left paren    \(     Right paren   \)
%%   Asterisk      \*     Plus          \+     Comma         \,
%%   Minus         \-     Point         \.     Solidus       \/
%%   Colon         \:     Semicolon     \;     Less than     \<
%%   Equals        \=     Greater than  \>     Question mark \?
%%   Commercial at \@     Left bracket  \[     Backslash     \\
%%   Right bracket \]     Circumflex    \^     Underscore    \_
%%   Grave accent  \`     Left brace    \{     Vertical bar  \|
%%   Right brace   \}     Tilde         \~}
\wlog{Style Option: `\filename'
  \fileversion\space <\filedate> (FMi)}
\wlog{English Documentation
  \@spaces\@spaces\space <\docdate> (FMi)}
\def\preparefootins{%
  \global\rcol@footinsskip\skip\footins
  \global\skip\footins\z@
  \global\count\footins\z@
  \global\dimen\footins\textheight}
\newskip\rcol@footinsskip
\def\@outputdblcol{\if@firstcolumn
  \global\@firstcolumnfalse
  \global\setbox\@leftcolumn\box\@outputbox
  \global\count\footins\@m
  \global\skip\footins\rcol@footinsskip
 \else \preparefootins
  \global\@firstcolumntrue
  \setbox\@outputbox\vbox{\hbox to\textwidth
    {\hbox to\columnwidth
                  {\box\@leftcolumn\hss}%
     \hfil\vrule\@width\columnseprule\hfil
     \hbox to\columnwidth
                  {\box\@outputbox\hss}}}%
  \@combinedblfloats\@outputpage
  \begingroup
   \@dblfloatplacement\@startdblcolumn
   \@whilesw\if@fcolmade\fi
    {\@outputpage\@startdblcolumn}%
  \endgroup
 \fi}
\def\@startcolumn{%
 \ifx\@deferlist\@empty
   \global\@fcolmadefalse
   \global\@colroom\@colht
 \else
   \ifvoid\footins\else
     \ftn@amount\ht\footins
     \advance\ftn@amount\dp\footins
     \advance\ftn@amount\skip\footins
   \fi
   \global\advance\@colht-\ftn@amount
   \global\@colroom\@colht
   \@xstartcol
   \global\advance\@colht\ftn@amount
   \global\advance\@colroom\ftn@amount
 \if@fcolmade
  \setbox\@cclv\box\@outputbox
  \@makecol
 \else
   \ifvoid\footins\else
     \insert\footins{\unvbox\footins}\fi
 \fi}
\newdimen\ftn@amount
\def\@makecol{\if@firstcolumn
  \setbox\@outputbox\box\@cclv
  \if@twocolumn \else
    \ifvoid\footins \else
      \@latexerr
   {ftnright option used in one-column mode}%
   {The ftnright option was designed to
    work with LaTeX's standard^^Jtwocolumn
    option. It does *not* work with the
    multicol option.^^JSo please specify
    `twocolum' in the \noexpand\documentstyle
    command.}%
      \shipout\box\footins \fi\fi
 \else
  \ifvoid\footins
    \setbox\@outputbox\box\@cclv
  \else
    \setbox\@outputbox\vbox
      {\ifvoid\@cclv \else
         \unvbox\@cclv
         \vskip\skip\footins\fi
       \footnoterule\unvbox\footins}\fi
  \fi
  \xdef\@freelist{\@freelist\@midlist}%
  \gdef\@midlist{}\@combinefloats
  \setbox\@outputbox\vbox to\@colht
     {\boxmaxdepth\maxdepth
      \@texttop
      \@tempdima\dp\@outputbox
      \unvbox\@outputbox
      \vskip-\@tempdima
      \@textbottom}%
  \global\maxdepth\@maxdepth}
\ifcase \@ptsize
\def\footnotesize{\@setsize\footnotesize
   {9.9pt}\viiipt\@viiipt}
\def\footnotesize{\@setsize\footnotesize
   {11.1pt}\ixpt\@vixpt}
\def\footnotesize{\@setsize\footnotesize
   {12.3pt}\xpt\@xpt}
\let\footnoterule\@empty
{\normalsize
\global\footnotesep\ht\strutbox}
\long\def\@makefntext#1{\parindent 1em
  \noindent\hbox to 2em{}%
  \llap{$\@thefnmark.\;\;$}#1}
\skip\footins 10pt plus 5pt minus 3pt
\preparefootins
\endinput
%% End of file `ftnright.sty'.