rccol

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

1 files changed, 188 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/rccol/rccol.sty b/Master/texmf-dist/tex/latex/rccol/rccol.sty
new file mode 100644
index 00000000000..ed8b17f1f2d
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/rccol/rccol.sty
@@ -0,0 +1,188 @@
+%%
+%% This is file `rccol.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% rccol.dtx  (with options: `rcmain')
+%% 
+%% IMPORTANT NOTICE:
+%% 
+%% For the copyright see the source file.
+%% 
+%% Any modified versions of this file must be renamed
+%% with new filenames distinct from rccol.sty.
+%% 
+%% For distribution of the original source see the terms
+%% for copying and modification in the file rccol.dtx.
+%% 
+%% This generated file may be distributed as long as the
+%% original source files, as listed above, are part of the
+%% same distribution. (The sources need not necessarily be
+%% in the same archive or directory.)
+\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
+\RequirePackage{array}
+\RequirePackage{fltpoint}[2004/11/12]
+\newdimen\rc@preskip
+\newdimen\rc@postskip
+\newtoks\rc@digits
+\newtoks\rc@preothertoks
+\newtoks\rc@postothertoks
+\newif\ifrcRounding
+\rcRoundingtrue
+\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}
+\def\rc@begin{%
+   \rc@digits={}%
+   \rc@preothertoks={}%
+   \rc@postothertoks={}%
+   \let\rc@othertoks\rc@preothertoks
+   \rc@getnexttok
+}
+\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{%
+   \ifx#1\tabularnewline
+      \let\rc@next\tabularnewline
+   \else
+      \ifx#1\rc@end
+         \let\rc@next\rc@end
+      \else
+         \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
+   \rc@next
+}
+\def\rc@end{\fpDecimalSign{\rc@decimalsigninput}%
+   \fp@regread@raw{rc@temp}{\the\rc@digits}}%
+\def\rc@output#1{%
+   \setbox0=\hbox{#1}%
+   \ifnum\fp@loopcount>\ar@getul{rc@temp}\relax
+      \def\rc@toappend{}%
+      \advance\rc@preskip by \wd0
+   \else
+      \ifnum\fp@loopcount<\ar@getll{rc@temp}\relax
+         \ifrcRounding
+            \def\rc@toappend{#1}%
+         \else
+            \def\rc@toappend{}%
+            \advance\rc@postskip by \wd0
+         \fi
+      \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
+   \edef\rc@number{\rc@number\rc@toappend}%
+} % end \rc@output
+\def\rc@write#1#2{%
+   \rc@preskip=0pt
+   \rc@postskip=0pt
+   \def\rc@number{}%
+   \the\rc@preothertoks
+   \ifrcRounding
+      \fp@reground{rc@temp}{-#2}%
+   \fi
+   \fpDecimalSign{\rc@decimalsignoutput}%
+   \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}}%
+   \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
+   \fp@regcomp{rc@temp}{@0}%
+   \if\fp@param<%
+      \rc@digits={\llap{$-$}}%
+      \edef\rc@number{\the\rc@digits\rc@number}%
+   \fi
+ \hfill
+   \hskip\rc@preskip
+   \rc@number
+   \hskip\rc@postskip
+   \the\rc@postothertoks
+ \hfill
+}
+\def\rcDecimalSign#1{\rcDecimalSignInput{#1}\rcDecimalSignOutput{#1}}
+\def\rcDecimalSignInput#1{\edef\rc@decimalsigninput{#1}}
+\def\rcDecimalSignOutput#1{\edef\rc@decimalsignoutput{#1}}
+\rcDecimalSign{,}
+\endinput
+%%
+%% End of file `rccol.sty'.