new package trivfloat (11jun07)

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

9 files changed, 474 insertions, 1 deletions

diff --git a/Build/tools/tpm-ctan-check b/Build/tools/tpm-ctan-check
index da857aa9468..6d81e13b33f 100755
--- a/Build/tools/tpm-ctan-check
+++ b/Build/tools/tpm-ctan-check
@@ -124,7 +124,8 @@ my @WorkingTPM = qw(
           textcase textfit textopo textpath textpos thesis-titlepage-fhac
           thumb thumbpdf ticket titlefoot titlesec titling tocbibind
           tocloft todo tokenizer toolbox tools totpages tracking
-          trajan trfsigns trsym tugboat tugboat-plain twoup Type1fonts
+          trajan trfsigns trivfloat
+          trsym tugboat tugboat-plain twoup Type1fonts
           typedref typogrid
         ucthesis uhrzeit uiucthesis ulsy umich-thesis uml umlaute
           umthesis underlin undertilde units unitsdef upquote ushort
diff --git a/Master/texmf-dist/doc/latex/trivfloat/README b/Master/texmf-dist/doc/latex/trivfloat/README
new file mode 100644
index 00000000000..386ecea746f
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/trivfloat/README
@@ -0,0 +1,13 @@
+The trivfloat package - Quick floats in LaTeX
+
+----------------------------------------------------------------
+Maintained by Joseph A. Wright
+E-mail: joseph.wright@morningstar2.co.uk
+Released under the GNU General Public License
+See http://www.gnu.org/licenses/gpl.txt
+----------------------------------------------------------------
+
+The trivfloat package provides a quick method for defining new
+float types in LaTeX.  A single command sets up a new float in
+the same style as the LaTeX kernel figure and table float
+types.
diff --git a/Master/texmf-dist/doc/latex/trivfloat/trivfloat.pdf b/Master/texmf-dist/doc/latex/trivfloat/trivfloat.pdf
new file mode 100644
index 00000000000..ef85cdc27ee
--- /dev/null
+++ b/Master/texmf-dist/doc/latex/trivfloat/trivfloat.pdf
diff --git a/Master/texmf-dist/source/latex/trivfloat/trivfloat.dtx b/Master/texmf-dist/source/latex/trivfloat/trivfloat.dtx
new file mode 100644
index 00000000000..77bce625633
--- /dev/null
+++ b/Master/texmf-dist/source/latex/trivfloat/trivfloat.dtx
@@ -0,0 +1,271 @@
+% \iffalse meta-comment
+%
+% Copyright (C) 2007 by
+%    Joseph Wright <joseph.wright@morningstar2.co.uk>
+%
+% Released under the GNU General Public License v2
+% See http://www.gnu.org/licenses/gpl.txt
+%
+% This work consists of the main source file chemextra.dtx
+% and the derived files
+%
+%<*driver>
+\documentclass{ltxdoc}
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+%\OnlyDescription
+\usepackage[T1]{fontenc}
+\usepackage[english,UKenglish]{babel}
+\usepackage{mathpazo,booktabs,array,url}
+\usepackage{\jobname}
+\begin{document}
+  \DocInput{\jobname.dtx}
+\end{document}
+%</driver>
+% \fi
+%
+% \CheckSum{107}
+%
+% \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         \~}
+%
+% \GetFileInfo{\jobname.sty}
+%
+% \changes{v1.0}{2007/06/09}{Initial public release}
+%
+% \DoNotIndex{\@eha,\@ne,\advance,\begingroup,\csname,\def,\edef}
+% \DoNotIndex{\else,\end,\endcsname,\endgroup,\expandafter,\fi}
+% \DoNotIndex{\ifcase,\jobname,\MakeLowercase,\MakeUppercase}
+% \DoNotIndex{\MessageBreak,\NeedsTeXFormat,\newcommand,\newcount}
+% \DoNotIndex{\noexpand,\or,\PackageError,\PackageInfo}
+% \DoNotIndex{\PackageWarning,\ProvidesPackage,\RequirePackage}
+% \DoNotIndex{\romannumeral,\x}
+%
+% \title{Quick floats in LaTeX}
+% \author{Joseph Wright%
+% \thanks{E-mail: joseph.wright@morningstar2.co.uk}}
+% \date{\filedate}
+%
+% \maketitle
+%
+% \begin{abstract}
+%
+% The |trivfloat| package provides a quick method for defining new
+% float types in LaTeX.  A single command sets up a new float in the
+% same style as the LaTeX kernel |figure| and |table| float types.
+%
+% \end{abstract}
+%
+% \section{Introduction}
+%
+% The LaTeX kernel provides the |figure| and |table| floating
+% environment, but does not provide an easy method for defining new
+% float types.  This problem is addressed by the |float| package,
+% which provides an array of commands to create new float types.
+% However, the one command missing is a quick-and-dirty one to
+% set up a new float type with no customisation.  This is addressed
+% by the |trivfloat| package.
+%
+% \section{Usage}
+%
+% \DescribeMacro{\trivfloat}
+% \DescribeMacro{\listoffloat-names}
+% The package provides a single command to produce the new float
+% type, |\trvifloat|.  This takes a single argument
+% \marg{float-name}, which will be the name of the new floating
+% environment.  The new environment can be used as normal; the new
+% floats should behave exactly the same as |figure| and |table|
+% environments.  The command |\listof|\meta{float-name}|s| is also
+% provided.
+%
+% \StopEventually{}
+%
+% \iffalse
+%<*package>
+% \fi
+%
+% \section{Implementation}
+%
+% \subsection{Setup code}
+%
+% The first part of the package is concerned with basic
+% identification and loading support packages.
+%    \begin{macrocode}
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{trivfloat}
+  [2007/06/09 v1.0 Quick floats in LaTeX]
+\RequirePackage{float}
+%    \end{macrocode}
+%
+% \subsection{Internal macros}
+%
+% \begin{macro}{\tfl@floatcount}
+% A new counter is needed to track how many floats have been
+% generated by |trivfloat|.
+%    \begin{macrocode}
+\newcount\tfl@floatcount%
+%    \end{macrocode}
+% \end{macro}
+% \begin{macro}{\tfl@genext}
+% \begin{macro}{\tfl@ext@i}
+% Each float type needs a list to store entries when generating
+% a contents listing.  Rather than try complex things with the
+% initial characters of the float name, an arbitrary file extension
+% is used.  Note that |lof|, |log| and |lot| are taken by default,
+% so we don't use them.  Also notice that if people try to make too
+% many new float types, then extension |xxx| will be used.  This is
+% very unlikely, but odd things might happen so we warn them.
+%    \begin{macrocode}
+\def\tfl@genext{%
+  \expandafter\def\csname tfl@ext@\romannumeral\tfl@floatcount%
+      \expandafter\endcsname{%
+    \ifcase\tfl@floatcount%
+      \PackageError{trivfloat}%
+        {Something's wrong here --- Contact the package author!}%
+      \@eha%
+    \or % 1
+      loa%
+    \or % 2
+      lob%
+    \or % 3
+      loc%
+    \or % 4
+      lod%
+    \or % 5
+      loe%
+    \or % 6
+      loh%
+    \or % 7
+      loi%
+    \or % 8
+      loj%
+    \or % 9
+      lok%
+    \or % 10
+      lol%
+    \or % 11
+      lom%
+    \or % 12
+      lon%
+    \or % 13
+      loo%
+    \or % 15
+      loq%
+    \or % 16
+      lor%
+    \or % 17
+      los%
+    \or % 18
+      lou%
+    \or % 19
+      lov%
+    \or % 20
+      low%
+    \or % 21
+      lox%
+    \or % 22
+      loy%
+    \or % 23
+      loz%
+    \else % 24 or more
+      \PackageWarning{trivfloat}%
+        {I've run out of extensions \MessageBreak%
+         I'm using \jobname.xxx to list all future floats}%
+      xxx%
+    \fi%
+  }%
+}%
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\tfl@gennamea}
+% \begin{macro}{\tfl@genname}
+% \begin{macro}{\tfl@name@i}
+% The conversion of the supplied float name to a form suitable for
+% using as a title is achieved here.  We strip off the first letter,
+% convert to uppercase, then convert the rest to lowercase. Thanks
+% to Martin Heller for the method to strip the first letter off.
+%    \begin{macrocode}
+\def\tfl@gennamea#1#2\end{%
+  \expandafter\def\csname tfl@name@\romannumeral\tfl@floatcount%
+      \expandafter\endcsname{%
+    \MakeUppercase{#1}%
+    \MakeLowercase{#2}%
+  }%
+}%
+\def\tfl@genname#1{%
+  \tfl@gennamea#1\end%
+}%
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \begin{macro}{\tfl@list}
+% \begin{macro}{\listoffloat-names}
+% An auxiliary function is needed to define the
+%|\listof\emph{float-name}s| macros.  This is to ensure that
+% expansion occurs properly.
+%    \begin{macrocode}
+\def\tfl@list#1#2#3{%
+  \newcommand*{#1}{\listof{#2}{#3}}%
+}%
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \subsection{User space macros}
+%
+% \begin{macro}{\trivfloat}
+% The only user-facing macro we need is |\trivfloat|. This does the
+% work of setting up the new float type. Thanks to Heiko Oberdiek for
+% the method to expand arguments correctly.  Notice that a single
+% command for the extension would work.  However, the float name does
+% need different commands for each float.  So for consistency, both
+% have numerals appended.
+%    \begin{macrocode}
+\newcommand*{\trivfloat}[1]{%
+  \advance\tfl@floatcount\@ne%
+  \tfl@genext%
+  \tfl@genname{#1}%
+  \PackageInfo{trivfloat}%
+    {Listing all floats of type #1 in \jobname.%
+     \csname tfl@ext@\romannumeral\tfl@floatcount\endcsname}%
+  \begingroup%
+    \edef\x{\endgroup%
+      \noexpand\newfloat{#1}{tbp}{%
+        \csname tfl@ext@\romannumeral\tfl@floatcount\endcsname%
+      }%
+      \noexpand\floatname{#1}{%
+        \expandafter\noexpand%
+        \csname tfl@name@\romannumeral\tfl@floatcount\endcsname%
+      }%
+      \noexpand\tfl@list{\csname listof#1s\endcsname}{#1}{%
+        List of \expandafter\noexpand%
+        \csname tfl@name@\romannumeral\tfl@floatcount\endcsname s%
+      }%
+    }%
+  \x%
+}%
+%    \end{macrocode}
+% \end{macro}
+%
+% \iffalse
+%</package>
+% \fi
+% \PrintChanges
+% \PrintIndex
+% \Finale
diff --git a/Master/texmf-dist/source/latex/trivfloat/trivfloat.ins b/Master/texmf-dist/source/latex/trivfloat/trivfloat.ins
new file mode 100644
index 00000000000..b2d91b3c316
--- /dev/null
+++ b/Master/texmf-dist/source/latex/trivfloat/trivfloat.ins
@@ -0,0 +1,32 @@
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+%
+% trivfloat is free software; you can redistribute it and/or modify
+% it under the terms of the GNU General Public License as published
+% by the Free Software Foundation; either version 2, or (at your
+% option) any later version.
+%
+% trivfloat is distributed in the hope that it will be useful, but
+% WITHOUT ANY WARRANTY; without even the implied warranty of
+% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+% GNU General Public License for more details.
+%
+% You should have received a copy of the GNU General Public License
+% along with this program; if not, write to the Free Software
+% Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
+%
+%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
+\input docstrip.tex
+\askonceonly
+\preamble
+ ----------------------------------------------------------------
+ The trivfloat package - Quick floats in LaTeX
+ Maintained by Joseph Wright
+ E-mail: joseph.wright@morningstar2.co.uk
+ Released under the GNU General Public License
+ See http://www.gnu.org/licenses/gpl.txt
+ ----------------------------------------------------------------
+\endpreamble
+\Msg{Generating trivfloat files:}
+\usedir{tex/latex/contib/trivfloat}
+\generate{\file{trivfloat.sty}{\from{trivfloat.dtx}{package}}}
+\endbatchfile
diff --git a/Master/texmf-dist/tex/latex/trivfloat/trivfloat.sty b/Master/texmf-dist/tex/latex/trivfloat/trivfloat.sty
new file mode 100644
index 00000000000..091b15752ff
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/trivfloat/trivfloat.sty
@@ -0,0 +1,117 @@
+%%
+%% This is file `trivfloat.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% trivfloat.dtx  (with options: `package')
+%%  ----------------------------------------------------------------
+%%  The trivfloat package - Quick floats in LaTeX
+%%  Maintained by Joseph Wright
+%%  E-mail: joseph.wright@morningstar2.co.uk
+%%  Released under the GNU General Public License
+%%  See http://www.gnu.org/licenses/gpl.txt
+%%  ----------------------------------------------------------------
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{trivfloat}
+  [2007/06/09 v1.0 Quick floats in LaTeX]
+\RequirePackage{float}
+\newcount\tfl@floatcount%
+\def\tfl@genext{%
+  \expandafter\def\csname tfl@ext@\romannumeral\tfl@floatcount%
+      \expandafter\endcsname{%
+    \ifcase\tfl@floatcount%
+      \PackageError{trivfloat}%
+        {Something's wrong here --- Contact the package author!}%
+      \@eha%
+    \or % 1
+      loa%
+    \or % 2
+      lob%
+    \or % 3
+      loc%
+    \or % 4
+      lod%
+    \or % 5
+      loe%
+    \or % 6
+      loh%
+    \or % 7
+      loi%
+    \or % 8
+      loj%
+    \or % 9
+      lok%
+    \or % 10
+      lol%
+    \or % 11
+      lom%
+    \or % 12
+      lon%
+    \or % 13
+      loo%
+    \or % 15
+      loq%
+    \or % 16
+      lor%
+    \or % 17
+      los%
+    \or % 18
+      lou%
+    \or % 19
+      lov%
+    \or % 20
+      low%
+    \or % 21
+      lox%
+    \or % 22
+      loy%
+    \or % 23
+      loz%
+    \else % 24 or more
+      \PackageWarning{trivfloat}%
+        {I've run out of extensions \MessageBreak%
+         I'm using \jobname.xxx to list all future floats}%
+      xxx%
+    \fi%
+  }%
+}%
+\def\tfl@gennamea#1#2\end{%
+  \expandafter\def\csname tfl@name@\romannumeral\tfl@floatcount%
+      \expandafter\endcsname{%
+    \MakeUppercase{#1}%
+    \MakeLowercase{#2}%
+  }%
+}%
+\def\tfl@genname#1{%
+  \tfl@gennamea#1\end%
+}%
+\def\tfl@list#1#2#3{%
+  \newcommand*{#1}{\listof{#2}{#3}}%
+}%
+\newcommand*{\trivfloat}[1]{%
+  \advance\tfl@floatcount\@ne%
+  \tfl@genext%
+  \tfl@genname{#1}%
+  \PackageInfo{trivfloat}%
+    {Listing all floats of type #1 in \jobname.%
+     \csname tfl@ext@\romannumeral\tfl@floatcount\endcsname}%
+  \begingroup%
+    \edef\x{\endgroup%
+      \noexpand\newfloat{#1}{tbp}{%
+        \csname tfl@ext@\romannumeral\tfl@floatcount\endcsname%
+      }%
+      \noexpand\floatname{#1}{%
+        \expandafter\noexpand%
+        \csname tfl@name@\romannumeral\tfl@floatcount\endcsname%
+      }%
+      \noexpand\tfl@list{\csname listof#1s\endcsname}{#1}{%
+        List of \expandafter\noexpand%
+        \csname tfl@name@\romannumeral\tfl@floatcount\endcsname s%
+      }%
+    }%
+  \x%
+}%
+\endinput
+%%
+%% End of file `trivfloat.sty'.
diff --git a/Master/texmf-dist/tpm/trivfloat.tpm b/Master/texmf-dist/tpm/trivfloat.tpm
new file mode 100644
index 00000000000..e2f7c360c24
--- /dev/null
+++ b/Master/texmf-dist/tpm/trivfloat.tpm
@@ -0,0 +1,30 @@
+<!DOCTYPE rdf:RDF SYSTEM "../../support/tpm.dtd">
+<rdf:RDF xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:TPM="http://texlive.dante.de/">
+  <rdf:Description about="http://texlive.dante.de/texlive/Package/trivfloat.zip">
+    <TPM:Name>trivfloat</TPM:Name>
+    <TPM:Type>Package</TPM:Type>
+    <TPM:Date>2007/06/09 21:59:00</TPM:Date>
+    <TPM:Version></TPM:Version>
+    <TPM:Creator>karl</TPM:Creator>
+    <TPM:Title>The trivfloat package.</TPM:Title>
+    <TPM:Description></TPM:Description>
+    <TPM:Author></TPM:Author>
+    <TPM:Size>99055</TPM:Size>
+    <TPM:License></TPM:License>
+    <TPM:Build/>
+    <TPM:RunFiles size="3750">
+texmf-dist/tex/latex/trivfloat/trivfloat.sty
+texmf-dist/tpm/trivfloat.tpm
+    </TPM:RunFiles>
+    <TPM:DocFiles size="87283">
+texmf-dist/doc/latex/trivfloat/README
+texmf-dist/doc/latex/trivfloat/trivfloat.pdf
+    </TPM:DocFiles>
+    <TPM:SourceFiles size="9098">
+texmf-dist/source/latex/trivfloat/trivfloat.dtx
+texmf-dist/source/latex/trivfloat/trivfloat.ins
+    </TPM:SourceFiles>
+    <TPM:Provides>Package/trivfloat</TPM:Provides>
+  </rdf:Description>
+</rdf:RDF>
+
diff --git a/Master/texmf/lists/trivfloat b/Master/texmf/lists/trivfloat
new file mode 100644
index 00000000000..d7a58041ad5
--- /dev/null
+++ b/Master/texmf/lists/trivfloat
@@ -0,0 +1,8 @@
+texmf-dist/doc/latex/trivfloat/README
+texmf-dist/doc/latex/trivfloat/trivfloat.pdf
+texmf-dist/source/latex/trivfloat/trivfloat.dtx
+texmf-dist/source/latex/trivfloat/trivfloat.ins
+texmf-dist/tex/latex/trivfloat/trivfloat.sty
+texmf-dist/tpm/trivfloat.tpm
+
+texmf/lists/trivfloat
diff --git a/Master/texmf/tpm/collection-latexextra.tpm b/Master/texmf/tpm/collection-latexextra.tpm
index 6accb3f7eae..01caeb3bbd3 100644
--- a/Master/texmf/tpm/collection-latexextra.tpm
+++ b/Master/texmf/tpm/collection-latexextra.tpm
@@ -500,6 +500,7 @@ A large collection of add-on packages for LaTeX.
       <TPM:Package name="totpages"/>
       <TPM:Package name="tracking"/>
       <TPM:Package name="trfsigns"/>
+      <TPM:Package name="trivfloat"/>
       <TPM:Package name="trsym"/>
       <TPM:Package name="twoup"/>
       <TPM:Package name="type1cm"/>