trunk/Master/texmf-dist/source/latex/rccol

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

2 files changed, 813 insertions, 0 deletions

diff --git a/Master/texmf-dist/source/latex/rccol/rccol.dtx b/Master/texmf-dist/source/latex/rccol/rccol.dtx
new file mode 100644
index 00000000000..cc631baeb63
--- /dev/null
+++ b/Master/texmf-dist/source/latex/rccol/rccol.dtx
@@ -0,0 +1,807 @@
+% \iffalse META-COMMENT
+%
+% The rccol package for use with TeX / LaTeX
+% Copyright 2000-2004
+% Eckhart Guthoehrlein
+% e-mail <e_w_g@web.de>
+%
+% This program may be distributed and/or modified under the
+% conditions of the LaTeX Project Public License, either version 1.2
+% 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.2 or later is part of all distributions of LaTeX
+% version 1999/12/01 or later.
+%
+% This program consists of the files 'rccol.dtx', 'rccol.ins'
+% and 'readme_rccol.txt'.
+%
+% The package provides a special column type for tables.
+% Numbers are centered to the title and flush right to each other,
+% as well as rounded to a given accuracy. It needs the
+% array package (sould be part of your LaTeX-distribution)
+% and the fltpoint package (by the author, available from CTAN, 
+% directory /tex-archive/macros/latex/contrib/supported/fltpoint).
+%
+% Run TeX over rccol.ins to produce the docstripped version
+% of the file. The documentation can be typeset by running
+% LaTeX over rccol.dtx. You can use the docstrip utility
+% with option 'driver' to generate a separate file for the
+% generation of the user guide.
+%
+% Comments and bug-reports are welcome under the above
+% e-mail address.
+%
+%                 E.W.G.
+%
+%
+% \fi ^^A end meta-comment
+% \CheckSum{408}
+% \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         \~}
+%
+% 
+% ^^A The often-used and not very interesting example table...
+% \newcommand{\tabexample}{%
+%  \hline
+%  \multicolumn{1}{c}{Value 1} & \multicolumn{1}{c}{Value 2} &
+%  \multicolumn{1}{c}{Value 3}\tabularnewline
+%  \hline
+%  2345,765 & 1,6 & 21   \tabularnewline
+%    45,130 & 0,2 &  1,65\tabularnewline 
+%   543,99  & 2   &  9,9 \tabularnewline
+%  \hline 
+%  \end{tabular}}
+%
+%
+% \DoNotIndex{\def,\edef,\xdef,\gdef,\let,\global,\if,\ifx,\else,\fi,
+%  \loop,\repeat,\noexpand,\expandafter,\newtoks,\newif,\ignorespaces,
+%  \unskip,\setbox,\dimen,\count,\advance,\multiply,\divide,\wd,
+%  \relax,\hskip,\the,\hfil,\hfill,\hbox,\ifnum,
+%  \@ifnextchar,\tabularnewline,\documentclass,\usepackage,
+%  \OnlyDescription,\AlsoImplementation,\EnableCrossrefs,
+%  \DisableCrossrefs,\CodelineIndex,\RecordChanges,\DocInput,
+%  \begin,\end,\NeedsTeXFormat,\DeclareOption,\ProvidesPackage,
+%  \AtBeginDocument,\ProcessOptions,\RequirePackage,
+%  \ar@getul,\ar@getll,\llap,\newdimen,\number}
+%
+% \MakeShortVerb{\"}
+% \catcode`\@=11
+%
+% \changes{v1.0a}{2000/08/23}{First public release.}
+% \changes{v1.1a}{2000/09/05}{Minor corrections.
+%     Better support for different decimal signs.}            
+% \changes{v1.2b}{2004/11/12}{Some fixes, development freeze.}
+%         
+% \GetFileInfo{rccol.sty}
+% \title{The \texttt{rccol} package\thanks{This
+%  file has version number \fileversion{} dated \filedate.}}
+% \author{Eckhart Guth\"ohrlein\thanks{Send comments
+%  or bug-reports to the author via e-mail \texttt{<e\_w\_g@web.de>}.}}
+% \date{Printed \today}
+% \maketitle
+%
+% \begin{abstract}
+% This package provides a new
+% \lq right-centered\rq\ tabular column type \texttt{R}. Numbers
+% are centered with respect to other entries, but flushed right
+% to each other so that corresponding digits are vertically
+% aligned. Furthermore, numbers can be rounded
+% to the desired precision. 
+% \end{abstract}
+%
+%
+%
+% \section{Introduction}
+%
+% It is often desirable to produce tables like the following.
+% \begin{center}
+%   \begin{tabular}{R{4}{3}R{1}{1}R{2}{2}}
+%   \tabexample
+% \end{center}
+% You can see what is ment by \lq right-centered\rq\ columns:
+% The center of the largest number is centered with
+% the title, while the numbers are aligned with their corresponding
+% decimal places. This is, at least to the author's
+% opinion, the most aesthetic way to typeset numbers in a table.
+% 
+% This package provides a general and easy-to-use solution for this 
+% problem. In addition, the numbers given as alignment entries can be
+% rounded to a given precision and formatted in several ways.
+%
+% The next section deals with the various possibilities
+% to typeset numbers in tables with and without this package.
+% After that, the additional facilities of \texttt{rccol} and
+% their usage are described.
+%
+%
+% \section{Numbers in tables}
+%
+% The typesetting of numbers in tables needs special care.
+% Most importantly, the vertical alignment of corresponding 
+% decimal places in a column should be ensured.
+% Furthermore, it is desirable to achieve a proper placement
+% (centering normally looks best)
+% with respect to the column title and other entries 
+% which are not numbers.
+%
+% First, let us discuss the possibilities
+% available with and without this package, a small example
+% for each one is given below.
+% \begin{itemize}
+%  \item Centered columns. This does not allow a vertical
+%  alignment of corresponding digits, except if all numbers
+%  have the exactly the same number of digits before and
+%  after the decimal sign.
+%  \item Flushed right columns. If the numbers have the same
+%  number of digits after the decimal sign, the alignment
+%  of corresponding digits will be correct. However, in any
+%  case the placement with respect to the title will not
+%  look good.
+%  \item Flushed left columns. Similar restrictions as for
+%  flushed right ones.
+%  \item Use two columns with the decimal sign inserted between
+%  them, e.\,g.\ "r@{,}l",
+%  and typeset the title with "\multicolumn{2}{c}{Title}".
+%  This provides correct alignment for corresponding digits, but
+%  no proper placement with respect to the title if it is wider
+%  than the numbers.
+%  \item Use the \texttt{dcolumn} package~\cite{dcolumn}.
+%  With version 1.03a,
+%  the syntax has been extended so that both correct alignment
+%  of digits and centering to other entries is possible.
+%  \item Use the \texttt{rccol} package. Both correct alignment
+%  and centering to other entries are possible. Furthermore,
+%  other features like rounding of numbers are provided.
+% \end{itemize}
+%
+% Let us have a look at an example of these possibilities.
+% The following table shows the first four ones.
+% \begin{center}
+%  \begin{tabular}{|c|r|l|r@{,}l|}
+%  Column type \texttt{c} & Column type \texttt{r} &
+%  Column type \texttt{l} &
+%  \multicolumn{2}{c|}{Spaltentyp \texttt{r@\{,\}l}}
+%  \tabularnewline
+%  100,5 & 100,5 & 100,5 & 100&5\tabularnewline
+%  7,93 & 7,93 & 7,93 & 7&93\tabularnewline
+%  17,123 & 17,123 & 17,123 & 17&123\tabularnewline
+%  3141,592 & 3141,592 & 3141,592 & 3141&592\tabularnewline
+%  13 & 13 & 13 & \multicolumn{1}{r@{}}{13} &\tabularnewline
+%  0,00017 & 0,00017 & 0,00017 & 0&00017\tabularnewline
+%  \end{tabular}
+% \end{center}
+%
+% Obviously, none of the results is satisfying. The following
+% table shows the result with
+% the \texttt{dcolumn} and with the \texttt{rccol} package.
+% \begin{center}
+%  \rcRoundingfalse
+%  \begin{tabular}{|D{,}{,}{4.5}|R{4}{5}|}
+%  \multicolumn{1}{|c|}{Column type \texttt{D\{,\}\{,\}\{4.5\}}} &
+%  \multicolumn{1}{c|}{Column type \texttt{R\{4\}\{5\}}}\tabularnewline
+%  100,5 & 100,5\tabularnewline
+%  7,93 & 7,93\tabularnewline
+%  17,123 & 17,123\tabularnewline
+%  3141,592 & 3141,592\tabularnewline
+%  13 & 13\tabularnewline
+%  0,00017 & 0,00017\tabularnewline
+%  \end{tabular}
+% \end{center}
+%
+% None of the special features of \texttt{rccol} have been used in
+% this example. As you can see, the final results of the two packages
+% are identical in this case. So, as long as you do not need the 
+% features described in the next section, you can work equally well 
+% with either of the two packages.
+%
+% \section{User interface}
+% The new column type "R" is used as normally in the preamble of a
+% \LaTeX\ table. It takes two mandatory arguments: the number of
+% digits before and the number of digits after the decimal sign.
+% The example table above has been produced by
+% \begin{verbatim}
+% \begin{tabular}{R{4}{3}R{1}{1}R{2}{2}}
+% \hline
+% \multicolumn{1}{c}{Value 1} & \multicolumn{1}{c}{Value 2} &
+% \multicolumn{1}{c}{Value 3}\tabularnewline
+% \hline
+% 2345,765 & 1,6 & 21   \tabularnewline
+%   45,130 & 0,2 &  1,65\tabularnewline 
+%  543,99  & 2   &  9,9 \tabularnewline
+% \hline 
+% \end{tabular}
+% \end{verbatim}
+%
+% \DescribeMacro\rcRoundingtrue\DescribeMacro\rcRoundingfalse
+% By default, numbers are rounded to the given number of digits
+% after the decimal sign, and trailing zeros are appended if they are
+% missing in the input file. This behaviour can be toggled
+% with the switch "\rcRoundingtrue"/"\rcRoundingfalse", obeying
+% the normal grouping rules, and with the package options
+% \texttt{rounding} or \texttt{norounding} (see below.)
+% With "\rcRoundingfalse", the above input results into the following
+% result. Numbers are not rounded or altered in any way; trailing
+% zeros are not appended.
+% \begin{center}
+%  \rcRoundingfalse
+%   \begin{tabular}{R{4}{3}R{1}{1}R{2}{2}}
+%   \tabexample
+% \end{center}
+%
+% The "R" column specifier also takes optional arguments
+% (thanks go to Rolf Niepraschk for suggesting this and
+% encouraging me). The optional parameters
+% determine the characters used for the decimal sign in the
+% input (\texttt{.tex}) and the output file (\texttt{.dvi} or
+% perhaps \texttt{.pdf}), so the full syntax for the "R" column is
+% \begin{flushleft}
+% "\begin{tabular}{...R["\meta{character}"]["\meta{character}"]{"%
+% \meta{number}"}{"\meta{number}"}...}"
+% \end{flushleft}
+% For example, "R[,][.]{1}{1}" will produce a column centered for
+% numbers with one digit before and one after the decimal sign, which
+% is a comma in the input file, but a point in the output.
+% If only one optional parameter is given, this character will be used
+% for input and output, so "R[!]{1}{1}" is equivalent to
+% "R[!][!]{1}{1}".
+%
+% Another optional parameter is a "-" character after the "R" as in
+% "R-{4}{0}". In this case, the width of a preceding negative sign (to
+% be exact, the width of "$-$") will be taken into account when
+% centering.
+%
+% \DescribeMacro\rcDecimalSign\DescribeMacro\rcDecimalSignInput
+% \DescribeMacro\rcDecimalSignOutput
+% The decimal sign can be changed with the commands "\rcDecimalSign",
+% affecting both input and output. It can be changed separately 
+% for input and output with 
+% "\rcDecimalSignInput" and "\rcDecimalSignOutput". These commands 
+% obey the normal grouping rules. Furthermore, there are some
+% package options for setting the defaults (see below).
+% To give an example, let's typeset the above table once again, but with
+% "\rcDecimalSignOutput{\ensuremath{\cdot}}".
+% \begin{center}
+%  \rcDecimalSignOutput{\ensuremath{\cdot}}
+%   \begin{tabular}{R{4}{3}R{1}{1}R{2}{2}}
+%   \tabexample
+% \end{center}
+%
+%
+% \section{Package Options}
+% The \texttt{rccol} package can be loaded as any \LaTeX\ package via
+% \begin{flushleft}
+% "\usepackage["\meta{option list}"]{rccol}"
+% \end{flushleft}
+% with the following options.
+% \begin{description}
+% \item[rounding] Enable rounding, equivalent to
+%  "\rcRoundingtrue" at the beginning of the document.
+%  This is the default, so explicitly using this option is not
+%  necessary.
+% \item[norounding] Disable rounding by default, equivalent to
+%  "\rcRoundingfalse" at the beginning of the document.
+% \item[comma] Use a comma as the decimal sign, equivalent to
+%  "\rcDecimalSign{,}" at the beginning of the document. This is 
+%  the default, so it is normally not necessary to explicitly
+%  give this option.
+% \item[german] See comma.
+% \item[english] Use a point as the decimal sign, equivalent
+%  to "\rcDecimalSign{.}" at the beginning of the document.
+% \item[USenglish] See english.
+% \item[point] See english.
+% \end{description}
+%
+%
+% \section{Additional hints and remarks}
+%
+% \begin{itemize}
+%
+% \item Any tokens in the alignment entries which are not digits
+%  are put in front of the alignment entry. This can be used
+%  to switch to bold face or to add something like `$>$' before the
+%  number. If the tokens have any width, it is your job
+%  to correct this, e.\,g.\ by putting them into a "\makebox[0pt][r]".
+%  You must enclose commands with arguments inside an extra pair
+%  of curly braces to keep them together, otherwise error messages
+%  will occur. Example:
+% \begin{verbatim}
+% \begin{tabular}{R{4}{3}R{1}{1}R{2}{2}}
+% \hline
+% \multicolumn{1}{c}{Value 1} & \multicolumn{1}{c}{Value 2} &
+% \multicolumn{1}{c}{Value 3}\tabularnewline
+% \hline
+% 2345,765 & {\mathversion{bold}} 1,6   & 21    \tabularnewline
+%   45,130 & 0,2                        &  1,65 \tabularnewline 
+%  543,99  & {\makebox[0mm][r]{$>{}$}}2 &  9,9  \tabularnewline
+% \hline 
+% \end{tabular}
+% \end{verbatim}
+% Result:
+% \begin{center}
+% \begin{tabular}{R{4}{3}R{1}{1}R{2}{2}}
+% \hline
+% \multicolumn{1}{c}{Value 1} & \multicolumn{1}{c}{Value 2} &
+% \multicolumn{1}{c}{Value 3}\tabularnewline
+% \hline
+% 2345,765 & {\mathversion{bold}} 1,6   & 21    \tabularnewline
+%   45,130 & 0,2                        &  1,65 \tabularnewline 
+%  543,99  & {\makebox[0mm][r]{$>{}$}}2 &  9,9  \tabularnewline
+% \hline 
+% \end{tabular}
+% \end{center}
+%
+% \item Negative values are allowed as arguments for the \texttt{R}
+% column. This makes it possible to round to multiples of ten, for
+% example, by giving `\texttt{-2}' as the second mandatory argument.
+% In general, rounding is performed to a precision
+% of $10^{-n}$, if $n$ is the second mandatory argument of
+% \texttt{R}.
+%
+% \item The first mandatory argument of the \texttt{R} column 
+% specifier does not need to be the real number of digits 
+% before the decimal point.
+% You can shift the output to the left or to the right by 
+% changing this value if you are not satisfied by the centered
+% result. Negative values are legal.
+%
+% \item As with any macro, single token arguments can be given without
+% braces. This means that `"R{4}{3}"' is equivalent to `"R43"'. Maybe 
+% you will prefer the shorter alternative.
+% \end{itemize}
+%
+% \section{Requirements}
+% The \texttt{rccol} package needs the \texttt{array}~\cite{array}
+% and the \texttt{fltpoint}~\cite{fltpoint} packages.
+%
+% \section{Final Remarks}
+% There are some open problems and desirable features concerning this
+% package, e.\,g.\ formatted output of numbers. However, I have ceased
+% using \LaTeX, so I don't think that I will make further extensions to
+% {\tt rccol}. You are free to do it yourself -- the license is LPPL.
+% Furthermore, you might be interested in the following packages,
+% available from CTAN if not already included in your distribution:
+% \begin{itemize}
+% \item {\tt dcolumn} of course,
+% \item {\tt numprint} for formatting of numbers,
+% \item {\tt fp} for calculations inside \TeX.
+% \end{itemize}
+%
+% \StopEventually{%
+%  \begin{thebibliography}{1}
+%     \bibitem{dcolumn} David Carlisle, ``The \texttt{dcolumn}
+%     package''. The \texttt{dcolumn} package is part of the standard
+%     \LaTeX\ distribution.
+%     \bibitem{array} Frank Mittelbach, David Carlisle, ``A new 
+%      implementation of \LaTeX's \texttt{tabular} and \texttt{array}
+%      environment''. The \texttt{array} package is part of the standard
+%      \LaTeX\ distribution.
+%     \bibitem{fltpoint} Eckhart Guth\"ohrlein, ``The \texttt{fltpoint}
+%      package'', v1.1b, last revised 2004/11/12. The \texttt{fltpoint}
+%      package is available from CTAN.
+%  \end{thebibliography}%
+% }
+%
+% \section{Implementation}
+%
+% \subsection{DriverFile}
+% The \texttt{docstrip} utility can be used to generate
+% a driver file producing the documentation.
+%    \begin{macrocode}
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage{dcolumn}
+\usepackage{rccol}
+\AtBeginDocument{\DeleteShortVerb{\|}} % the default is not needed
+%\OnlyDescription    % typeset only user documentation
+\AlsoImplementation  % typeset implementation details
+\EnableCrossrefs    % say \DisableCrossrefs if index is ready
+%\DisableCrossrefs
+\CodelineIndex      % index using codeline numbers
+\RecordChanges      % keep change log
+%\OldMakeindex       % use if your Makeindes is pre-v2.9
+\begin{document}
+   \DocInput{rccol.dtx}
+\end{document}
+%</driver>
+%    \end{macrocode}
+%
+% \subsection{\LaTeX\ package info and options}
+% \changes{v1.1b}{2000/09/08}{Added ngerman, austrian and naustrian
+%                             package options.}
+%    \begin{macrocode}
+%<*rcmain>
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{rccol}[2004/11/12 v1.2b right-centered columns]
+\DeclareOption{rounding}{\AtBeginDocument{\rcRoundingtrue}}
+\DeclareOption{norounding}{\AtBeginDocument{\rcRoundingfalse}}
+\DeclareOption{USenglish}{\AtBeginDocument{\rcDecimalSign.}}
+\DeclareOption{english}{\AtBeginDocument{\rcDecimalSign.}}
+\DeclareOption{point}{\AtBeginDocument{\rcDecimalSign.}}
+\DeclareOption{german}{\AtBeginDocument{\rcDecimalSign,}}
+\DeclareOption{ngerman}{\AtBeginDocument{\rcDecimalSign,}}
+\DeclareOption{austrian}{\AtBeginDocument{\rcDecimalSign,}}
+\DeclareOption{naustrian}{\AtBeginDocument{\rcDecimalSign,}}
+\DeclareOption{comma}{\AtBeginDocument{\rcDecimalSign,}}
+\ProcessOptions*\relax
+%    \end{macrocode}
+% \subsection{Require packages}
+% To work properly, \texttt{rccol} needs the \texttt{array} and
+% the \texttt{fltpoint} packages. An up-to-date version of
+% \texttt{fltpoint} is necessary.
+%    \begin{macrocode}
+\RequirePackage{array}
+\RequirePackage{fltpoint}[2004/11/12]
+%    \end{macrocode}
+%
+%
+% \subsection{Registers \& Co}
+%
+% \begin{macro}{\rc@preskip}
+% \begin{macro}{\rc@postskip}
+% Allocate dimen registers "\rc@preskip" and "\rc@postskip".
+%    \begin{macrocode}
+\newdimen\rc@preskip
+\newdimen\rc@postskip
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\rc@digits}
+% \changes{v1.1a}{2000/09/95}{Read all digits into one register,
+%     no more separation of pre- and afterpoint digits.}
+% \begin{macro}{\rc@preothertoks}
+% \changes{v1.1b}{2000/09/08}{Separation of other tokens inserted^^A
+%     before and after the number, now saved in "\rc@preothertoks"^^A
+%     and "\rc@postothertoks".}
+% \begin{macro}{\rc@postothertoks}
+% Allocate token registers "\rc@digits", "\rc@preothertoks" 
+% and "\rc@postothertoks".
+%    \begin{macrocode}
+\newtoks\rc@digits
+\newtoks\rc@preothertoks
+\newtoks\rc@postothertoks
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\ifrcRounding}
+% \changes{v1.1a}{2000/09/05}{Rounding switch prefixed with `rc'.}
+% Initialize "\ifrcRounding" as \texttt{true}.
+%    \begin{macrocode}
+\newif\ifrcRounding
+\rcRoundingtrue
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \subsection{Definition of the \texttt{R} column}
+%
+% \changes{v1.1a}{2000/09/05}{Optional parameters for the column
+%        specifier.}
+% \begin{macro}{\NC@rewrite@R}
+% \begin{macro}{\rc@rewrite@}
+% \begin{macro}{\rc@rewrite@@}
+% \begin{macro}{\rc@rewrite@@@}
+% The "\newcolumntype" mechanism of \texttt{array.sty} is used
+% to set up the new column type. In order to have optional
+% parameters, the rewrite macro is redefined to take one or
+% two optional parameters, read by "\rc@rewrite@" and
+% "\rc@rewrite@@". The optional parameters are used
+% to change the decimal sign inside the column if this is
+% desired. An appropriate "\fpDecimalSign" is put into
+% the token registers "\rc@digits" (input) and "\rc@preothertoks"
+% (output), which are somewhat misused for that purpose.
+% The macro "\rc@rewrite@@@" reads the two mandatory arguments
+% (the number of digits before and after the decimal point)
+% and appends everything to the preamble so far. At the
+% end "\NC@find" is called to continue the rewriting
+% process (see~\cite{array} for further details).
+%    \begin{macrocode}
+\newcolumntype{R}{}
+\def\NC@rewrite@R{%
+   \rc@digits{}%
+   \rc@preothertoks{}%
+   \@ifnextchar-{\rc@rewrite}{\rc@rewrite\relax}}
+\def\rc@rewrite#1{%
+   \ifx#1-%
+      \def\rc@withsign{{\setbox0\hbox{$-$}\hskip\wd0}}%
+   \else
+      \def\rc@withsign{}%
+   \fi
+   \@ifnextchar[{\rc@rewrite@}{\rc@rewrite@@@}}
+\def\rc@rewrite@[#1]{%
+   \rc@digits{\rcDecimalSignInput{#1}}%
+   \@ifnextchar[{\rc@rewrite@@}%
+      {\rc@preothertoks{\rcDecimalSignOutput{#1}}\rc@rewrite@@@}}
+\def\rc@rewrite@@[#1]{%
+   \rc@preothertoks{\rcDecimalSignOutput{#1}}\rc@rewrite@@@}
+\def\rc@rewrite@@@#1#2{%
+   \edef\rc@rewrite@scratch{\the\@temptokena>{\the\rc@digits
+      \rc@withsign\noexpand\rc@begin}c<{\noexpand\rc@end
+      \the\rc@preothertoks\noexpand\rc@write{#1}{#2}}}
+   \@temptokena\expandafter{\rc@rewrite@scratch}%
+   \NC@find}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+%
+% \subsection{Macros for reading and processing the numbers}
+%
+% \begin{macro}{\rc@begin}
+% The macro "\rc@begin" is inserted in front of every "R" alignment
+% entry. It initializes the token registers "\rc@digits" and
+% "\rc@othertoks" and calls "\rc@getnexttok" to read the following
+% tokens.
+%    \begin{macrocode}
+\def\rc@begin{%
+   \rc@digits={}%
+   \rc@preothertoks={}%
+   \rc@postothertoks={}%
+   \let\rc@othertoks\rc@preothertoks
+   \rc@getnexttok
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\rc@getnexttok}
+% \begin{macro}{\rc@savedigit}
+% \begin{macro}{\rc@savetok}
+% The macro "\rc@getnexttok" is used to read the alignment entry
+% token after token. The macros "\rc@savedigit" and "\rc@savetok"
+% are used to store digits and other tokens in the respective
+% token register ("\rc@digits" or "\rc@othertoks").
+% "\rc@savedigit" switches "\rc@othertoks" form
+% "\rc@preothertoks" to "\rc@postothertoks".
+% After processing the token, "\rc@next" is called
+% which has been "\let" equal to the appropriate next action.
+%    \begin{macrocode}
+\def\rc@savedigit#1{\let\rc@othertoks\rc@postothertoks
+   \edef\rc@scratch{\the\rc@digits#1}%
+   \rc@digits=\expandafter{\rc@scratch}}
+\def\rc@savetok#1{\rc@othertoks=\expandafter{\the\rc@othertoks#1}}
+\def\rc@getnexttok#1{%
+%    \end{macrocode}
+% First, check if "\tabularnewline" or "\rc@end" follows.
+%    \begin{macrocode}
+   \ifx#1\tabularnewline
+      \let\rc@next\tabularnewline
+   \else
+      \ifx#1\rc@end
+         \let\rc@next\rc@end
+      \else
+%    \end{macrocode}
+% If not, further tokens have to be read. If the current token
+% is allowed by the syntax of fp numbers, save it in "\rc@digits",
+% otherwise and if it is neither "\ignorespaces" nor "\unskip",
+% save it in "\rc@othertoks".
+%    \begin{macrocode}
+         \let\rc@next\rc@getnexttok
+         \ifx#10\rc@savedigit#1\else\ifx#11\rc@savedigit1\else\ifx#12%
+            \rc@savedigit2\else\ifx#13\rc@savedigit3\else\ifx#14%
+            \rc@savedigit4\else\ifx#15\rc@savedigit5\else\ifx#16%
+            \rc@savedigit6\else\ifx#17\rc@savedigit7\else\ifx#18%
+            \rc@savedigit8\else\ifx#19\rc@savedigit9\else%
+            \if\noexpand#1\fp@decimalsign\rc@savedigit\fp@decimalsign%
+            \else\ifx#1-\rc@savedigit-\else\ifx#1+\rc@savedigit+%
+            \else\ifx#1e\rc@savedigit e\else\ifx#1E\rc@savedigit E%
+         \else
+            \ifx#1\ignorespaces\else
+               \ifx#1\unskip\else
+                  \rc@savetok{#1}%
+               \fi
+            \fi
+         \fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi
+      \fi
+   \fi
+%    \end{macrocode}
+% Call "\rc@next".
+%    \begin{macrocode}
+   \rc@next
+}
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \begin{macro}{\rc@end}
+% This macro marks the end of the alignment entry and reads
+% the contents of "\rc@digits" into a \texttt{fltpoint} register.
+%    \begin{macrocode}
+\def\rc@end{\fpDecimalSign{\rc@decimalsigninput}%
+   \fp@regread@raw{rc@temp}{\the\rc@digits}}%
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \begin{macro}{\rc@output}
+% The macro "\rc@output" is called by "\rc@write". It takes one argument:
+% the text to be typeset. It checks if the material is to be visible,
+% and in this case if negative space has to be inserted, or if only
+% positive space with the same width as the text has to be output.
+% Any text to be finally output is appended to "\rc@number".
+%    \begin{macrocode}
+\def\rc@output#1{%
+%    \end{macrocode}
+% Set a box with the text in it to get its width.
+%    \begin{macrocode}
+   \setbox0=\hbox{#1}%
+%    \end{macrocode}
+% If the current position is greater than the first digit of the number,
+% append nothing and increase "\rc@preskip".
+%    \begin{macrocode}
+   \ifnum\fp@loopcount>\ar@getul{rc@temp}\relax
+      \def\rc@toappend{}%
+      \advance\rc@preskip by \wd0
+%    \end{macrocode}
+% Similarly, if the last digit of the number has a position greater than
+% the actual one, do the following: if rouinding is enabled,
+% append "#1", if not, append nothing and increase "\rc@postskip".
+%    \begin{macrocode}
+   \else
+      \ifnum\fp@loopcount<\ar@getll{rc@temp}\relax
+         \ifrcRounding
+            \def\rc@toappend{#1}%
+         \else
+            \def\rc@toappend{}%
+            \advance\rc@postskip by \wd0
+         \fi
+%    \end{macrocode}
+% Otherwise, append "#1". If the position is greater than the desired number of
+% digits before the decimal sign, decrease "\rc@preskip". Accordingly, decrease
+% "\rc@postskip" if necessary.
+%    \begin{macrocode}
+      \else
+         \def\rc@toappend{#1}%
+         \ifnum\fp@loopcount>\rc@outmax\relax
+            \advance\rc@preskip by -\wd0
+         \else
+            \ifnum\fp@loopcount<\rc@outmin\relax
+               \advance\rc@postskip by -\wd0
+            \fi
+         \fi
+      \fi
+   \fi
+%    \end{macrocode}
+% Append to "\rc@number" what is to be appended.
+%    \begin{macrocode}
+   \edef\rc@number{\rc@number\rc@toappend}%
+} % end \rc@output
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\rc@write}
+% The macro "\rc@write" takes two arguments: the number of digits before and
+% after the decimal sign.
+%    \begin{macrocode}
+\def\rc@write#1#2{%
+%    \end{macrocode}
+% Initialize "\rc@preskip" and "\rc@postskip". Initialize "\rc@number".
+%    \begin{macrocode}
+   \rc@preskip=0pt
+   \rc@postskip=0pt
+   \def\rc@number{}%
+%    \end{macrocode}
+% At the beginning, the tokens to be inserted in front of the
+% number, saved in "\rc@preothertoks". This gives the user the possibility
+% to change parameters locally for one alignment entry.
+%    \begin{macrocode}
+   \the\rc@preothertoks
+%    \end{macrocode}
+% If rounding is enabled, do it.
+%    \begin{macrocode}
+   \ifrcRounding
+      \fp@reground{rc@temp}{-#2}%
+   \fi
+   \fpDecimalSign{\rc@decimalsignoutput}%
+%    \end{macrocode}
+% Determine start and end position for the output loop. Save the desired number
+% of digits in "\rc@outmax" and "\rc@outmin". The loop starts at
+% the desired maximal position or at the upper limit of the number,
+% depending on which is greater. The final value is determined accordingly.
+% The correction of $-1$ for "#1"
+% is necessary because the first digit of a number with $n$ digits before the
+% decimal sign means \lq multiple of $10^{(n-1)}$\rq.
+%    \begin{macrocode}
+   \fp@tempcount=#1\relax
+   \advance\fp@tempcount by -1
+   \edef\rc@outmax{\number\fp@tempcount}%
+   \edef\rc@outmin{\number-#2}%
+   \fp@loopcount=\rc@outmax\relax
+   \fp@settomax{\fp@loopcount}{\fp@loopcount}{\ar@getul{rc@temp}}%
+   \fp@settomin{\fp@loopcountii}{\rc@outmin}{\ar@getll{rc@temp}}%
+%    \end{macrocode}
+% The main loop follows. For output, "\rc@output" is used to append
+% anything to "\rc@number". The thousand separator is inserted in the
+% appropriate places, that means if
+% $(n\bmod3=2)\vee \left((n\bmod3=-1)\wedge (n\neq-1)\right)$
+% with $n$ standing for the value of "\fp@loopcount". The decimal sign
+% is inserted in front of the digit if $n=-1$.
+%    \begin{macrocode}
+   \loop
+      \fp@modulo{\fp@loopcount}{3}%
+      \ifnum\fp@param=2
+         \rc@output{\fp@thousandsep}%
+      \else
+         \ifnum\fp@param=-1
+            \ifnum\fp@loopcount=-1\else
+               \rc@output{\fp@thousandsep}%
+            \fi
+         \fi
+      \fi
+      \ifnum\fp@loopcount=-1
+         \rc@output{\fp@decimalsign}%
+      \fi
+      \fp@getdigit{rc@temp}{\fp@loopcount}%
+      \rc@output{\fp@param}%
+   \ifnum\fp@loopcount>\fp@loopcountii
+      \advance\fp@loopcount by -1
+   \repeat
+%    \end{macrocode}
+% If the number is smaller than zero, a minus sign is put in front
+% of it. The usage of a token register prevents further expansion.
+%    \begin{macrocode}
+   \fp@regcomp{rc@temp}{@0}%
+   \if\fp@param<%
+      \rc@digits={\llap{$-$}}%
+      \edef\rc@number{\the\rc@digits\rc@number}%
+   \fi
+%    \end{macrocode}
+% "\rc@number" is preceded by the computed white space
+% and by any tokens that have been found in the alignment entry and
+% stored in "\rc@preothertoks" or "\rc@postothertoks".
+%    \begin{macrocode}
+	 \hfill
+   \hskip\rc@preskip
+   \rc@number
+   \hskip\rc@postskip
+   \the\rc@postothertoks
+	 \hfill
+}
+%    \end{macrocode}
+% \end{macro}
+%
+%
+% \subsection{Parameters and configuration}
+%
+% \begin{macro}{\rcDecimalSign}
+% \changes{v1.1b}{2000/09/08}{Use "\def" instead of "\let".}
+% \begin{macro}{\rcDecimalSignInput}
+% \begin{macro}{\rcDecimalSignOutput}
+% The macros "\rcDecimalSignInput" and "\rcDecimalSignOutput" can be 
+% used to change the default use of a comma as the decimal sign.
+% This can be done separately for input and output. 
+% "\rcDecimalSign" changes both.
+%    \begin{macrocode}
+\def\rcDecimalSign#1{\rcDecimalSignInput{#1}\rcDecimalSignOutput{#1}}
+\def\rcDecimalSignInput#1{\edef\rc@decimalsigninput{#1}}
+\def\rcDecimalSignOutput#1{\edef\rc@decimalsignoutput{#1}}
+\rcDecimalSign{,}
+%</rcmain>
+%    \end{macrocode}
+% \end{macro}
+% \end{macro}
+% \end{macro}
+%
+% \Finale
+% \PrintIndex
+% \PrintChanges
+%
+% \endinput
diff --git a/Master/texmf-dist/source/latex/rccol/rccol.ins b/Master/texmf-dist/source/latex/rccol/rccol.ins
new file mode 100644
index 00000000000..9f788641843
--- /dev/null
+++ b/Master/texmf-dist/source/latex/rccol/rccol.ins
@@ -0,0 +1,6 @@
+\input docstrip

+\keepsilent

+%\generate{\file{rcuser.tex}{\from{rccol.dtx}{driver}}}

+\usedir{tex/latex/rccol}

+\generate{\file{rccol.sty}{\from{rccol.dtx}{rcmain}}}

+\endbatchfile