summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/sttools/midfloat.sty
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2012-10-18 22:33:43 +0000
committerKarl Berry <karl@freefriends.org>2012-10-18 22:33:43 +0000
commit34c48d9566089694027f919d621fec0e075d1b84 (patch)
tree0d9a5e32bd2805eb15ed9a7444b9dfead77d58d9 /Master/texmf-dist/tex/latex/sttools/midfloat.sty
parentb2af3a5c5a7adb196a11e1d049a2162b4dd34a45 (diff)
sttools (19oct12)
git-svn-id: svn://tug.org/texlive/trunk@28013 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/sttools/midfloat.sty')
-rw-r--r--Master/texmf-dist/tex/latex/sttools/midfloat.sty97
1 files changed, 40 insertions, 57 deletions
diff --git a/Master/texmf-dist/tex/latex/sttools/midfloat.sty b/Master/texmf-dist/tex/latex/sttools/midfloat.sty
index d9d11129ee7..93f6248a549 100644
--- a/Master/texmf-dist/tex/latex/sttools/midfloat.sty
+++ b/Master/texmf-dist/tex/latex/sttools/midfloat.sty
@@ -1,72 +1,55 @@
-%% midfloat.sty
-%% Copyright 1997 Sigitas Tolu\v sis
+%%
+%% This is file `midfloat.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% midfloat.dtx (with options: `package')
+%%
+%% Copyright (C) 1997-2012 by Sigitas Tolu\v{s}is <sigitas@vtex.lt>
%% VTeX Ltd., Akademijos 4, Vilnius, Lithuania
-%% e-mail sigitas@vtex.lt
%% http://www.vtex.lt/tex/download/macros/
+%% --------------------------------------------------------------------------
+%% This work may be distributed and/or modified under the
+%% conditions of the LaTeX Project Public License, either version 1.3
+%% of this license or (at your option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-project.org/lppl.txt
+%% and version 1.3 or later is part of all distributions of LaTeX
+%% version 2005/12/01 or later.
+%%
+%% PURPOSE: Insert some material in full-width on double-column page.
%%
-% This program can redistributed and/or modified under the terms
-% of the LaTeX Project Public License Distributed from CTAN
-% archives in directory macros/latex/base/lppl.txt; either
-% version 1 of the License, or (at your option) any later version.
-%
-% PURPOSE: Insert some material in full-width on double-column page.
-%
-% SHORT DESCRIPTION:
-%
-% It is denoted to place some material (from the left column)
-% in full-width at any place (but not at the top) on double-column
-% page (\twocolumn mode). Existing text remains as it was before
-% insert. Placement is restricted to one page. (It is some kind of
-% dbfloat intext).
-%
-% Provides new environment:
-%
-% \begin{strip}[#1/#2] ... \end{strip}
-% -----------------------------
-%
-% Puts \vbox{...} in full-width on double-column page.
-% Parameters #1 and #2 are optional.
-% By default #1=0pt and #2=0pt.
-% The material on the right column under strip is stretched down
-% by #1 and below strip is moved down by #2.
-%
-% It can be problems with floats and footnotes. In the case of
-% problems with footnotes it is possible to correct the situation
-% using commands \footnotemark and \footnotetext.
-%
-% \changes{1997/10/01}{some names}
-%
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{midfloat}
+ [2012/05/29 v1.1 Insert some material in full-width on double-column page]
\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{midfloat}[1997/10/01]
-%
\newif\if@vihproof \@vihprooftrue
-\newtoks\juo@sar \juo@sar={}
-\def\@ca#1#2#3#4{}
-\@ifundefined{stripsep}{\newskip\stripsep\stripsep 15pt}{}
-%
-\newskip\m@addvipersep
-\m@addvipersep\z@
-\newskip\c@addvipersep
-\c@addvipersep\z@
+\newtoks\juo@sar \juo@sar={}
+\@ifundefined{stripsep}{\newskip\stripsep \stripsep 15\p@}{}
+\newskip\m@addvipersep \m@addvipersep\z@
+\newskip\c@addvipersep \c@addvipersep\z@
\newdimen\ht@strip
\newdimen\right@cor
-\newdimen\cor@height \cor@height=0pt
+\newdimen\cor@height \cor@height=\z@
\newdimen\juo@pr
\newdimen\juo@ht
-\newbox\@viper
-\newcount\juo@sk
\newdimen\c@colht
+\newbox\@viper
\newbox\@rightcolumn
-
-\def\add@strip#1#2#3#4{\begingroup%
- \xdef\ex@{\global\noexpand\juo@sar{\the\juo@sar\noexpand\@ca{#1}{#2}{#3}{#4}}}\ex@%
-\endgroup}
-
+\newcount\juo@sk
+\def\@ca#1#2#3#4{}
+\def\add@strip#1#2#3#4{%
+ \begingroup
+ \xdef\ex@{\global\noexpand\juo@sar{\the\juo@sar\noexpand\@ca{#1}{#2}{#3}{#4}}}%
+ \ex@
+ \endgroup
+ }
\def\remove@strip#1{\ifx#1\@empty\global\juo@sk=0\else
\global\advance\juo@sk by-1\expandafter\next@item\the #1\@@#1\fi}
\def\next@item \@ca #1#2#3#4#5\@@#6{\global #6={#5}\global\juo@pr=#1\global\juo@ht=#2%
\global\cor@height=#3\global\m@addvipersep=#4}
-
\def\strip{\@ifnextsymb[{\@strip}{\@strip[0pt/0pt]}}
\def\@strip[#1/#2]{\global\@tempdima=#1\global\@tempdimb=#2%
\global \setbox\@viper\vbox\bgroup%
@@ -148,7 +131,7 @@
\global\advance\@colht by -\ht\@rightcolumn
\global\advance\@colht by\cor@height
\global\cor@height=0pt
- \else
+ \else
\global\advance\c@colht by-\ht\@rightcolumn
\global\@colht\c@colht
\fi
@@ -184,7 +167,6 @@
\fi
\fi
}
-
\def \@cflt{%
\let \@elt \@comflelt
\setbox\@tempboxa \vbox{}%
@@ -206,7 +188,6 @@
\xdef\@freelist{\@freelist\@toplist}%
\global\let\@toplist\@empty
}
-
\def\@ifnextsymb#1#2#3{%
\let\reserved@d=#1%
\def\reserved@a{#2}\def\reserved@b{#3}%
@@ -222,5 +203,7 @@
\fi
\fi
\reserved@c}
-
+%%
\endinput
+%%
+%% End of file `midfloat.sty'.