summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/rccol
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-13 00:05:03 +0000
committerKarl Berry <karl@freefriends.org>2006-01-13 00:05:03 +0000
commit48ee3977caacacf4b343315d572f99ba32a21b0b (patch)
tree1995cc06eca8853e8232a2da9c93cb4eb13d7c85 /Master/texmf-dist/tex/latex/rccol
parent865f9f0cd63810455564f96711c8086db7cd208b (diff)
rccol
git-svn-id: svn://tug.org/texlive/trunk@1266 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/rccol')
-rw-r--r--Master/texmf-dist/tex/latex/rccol/rccol.sty188
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'.