%% %% 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}[2005/05/17 v1.2c 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\rc@decimalsigninput\rc@savedigit\rc@decimalsigninput% \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{\rc@decimalsignoutput}% \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'.