summaryrefslogtreecommitdiff
path: root/macros/latex/contrib/fcolumn/fcolumn.sty
diff options
context:
space:
mode:
Diffstat (limited to 'macros/latex/contrib/fcolumn/fcolumn.sty')
-rw-r--r--macros/latex/contrib/fcolumn/fcolumn.sty299
1 files changed, 0 insertions, 299 deletions
diff --git a/macros/latex/contrib/fcolumn/fcolumn.sty b/macros/latex/contrib/fcolumn/fcolumn.sty
deleted file mode 100644
index 479dff097a..0000000000
--- a/macros/latex/contrib/fcolumn/fcolumn.sty
+++ /dev/null
@@ -1,299 +0,0 @@
-%%
-%% This is file `fcolumn.sty',
-%% generated with the docstrip utility.
-%%
-%% The original source files were:
-%%
-%% fcolumn.dtx (with options: `package')
-%%
-%% This is a generated file.
-%%
-%% Copyright (C) 2015--2019 by Edgar Olthof
-%%
-%% This file may be distributed and/or modified under the
-%% conditions of the LaTeX Project Public License, either
-%% version 1.3 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.3 or later is part of all distributions of
-%% LaTeX version 1999/12/01 or later.
-\ProvidesPackage{fcolumn}
- [2019/04/24 v1.2 Automatic Currency Package (EHTO)]
-\NeedsTeXFormat{LaTeX2e}
-\RequirePackage{array}[v2.4k]
-\newif\ifstrict@ccounting \strict@ccountingfalse
-\DeclareOption{strict}{\strict@ccountingtrue}
-\ProcessOptions
-\newcolumntype{F}[3]{>{\b@fi{#1}{#2}{#3}}r<{\e@fi}}
-\newcolumntype{f}{F{.}{,}{3,2}}
-\newcount\FCsc@l \FCsc@l=0 \newcount\FCtc@l \FCtc@l=0
-\newif\ifwiths@p
-\def\geldm@cro#1#2{\withs@pfalse
-\afterassignment\g@ldm@cro\count@#1\relax{#2}}
-\def\g@ldm@cro#1\relax#2{\ifnum#2<0 \ifstrict@ccounting (\else -\fi
- \count2=-#2 \else\count2=#2
-\fi
-\count4=\ifx\relax#1\relax 2 \else \@gobble#1\relax\fi
-\count3=0
-\loop\ifnum\count3<\count4
- \divide\count2 by 10 \advance\count3 by \@ne
-\repeat
-\g@ldens{\the\count@}%
-\ifnum\count3>0\decim@lmark
- \ifnum#2>0 \count2=-#2\else\count2=#2 \fi
- \loop\ifnum\count3>0
- \divide\count2 by 10 \advance\count3 by \m@ne
- \repeat
- \loop\ifnum\count3<\count4
- \multiply\count2 by 10 \advance\count3 by \@ne
- \repeat
- \ifnum#2>0 \advance\count2 by #2
- \else \advance\count2 by -#2
- \fi
- \zerop@d{\number\count3}{\number\count2}%
-\fi
-\ifx\FCs@gn\m@ne \ifnum#2<0 \ifstrict@ccounting
- \rlap{)~!}\else\rlap{~!}\fi\else\ifstrict@ccounting
- \rlap{\phantom{)}~!}\else\rlap{~!}\fi\fi
-\else \ifnum#2<0 \ifstrict@ccounting\rlap{)}\fi\fi
-\fi}
-\def\g@ldens#1{{\count3=\count2 \count0=#1
-\ifnum\count0<1 \count0=3 \fi
-\loop \ifnum\count0>0 \divide\count2 by 10 \advance\count0 by \m@ne
-\repeat
-\ifnum\count2>0 \g@ldens{#1}\fi
-\count0=#1
-\ifnum\count0<1 \count0=3 \fi
-\loop \ifnum\count0>0 \multiply\count2 by 10 \advance\count0 by \m@ne
-\repeat
-\count2=-\count2
-\advance\count2 by \count3 \du@zendprint{#1}}}
-\def\du@zendprint#1{\ifwiths@p\ifnum#1>0 \sep@rator\fi
- \zerop@d{#1}{\number\count2}%
-\else\zerop@d1{\number\count2}\fi\global\withs@ptrue}
-\def\zerop@d#1#2{{\count0=1 \count1=#2
-\loop \divide \count1 by 10 \ifnum\count1>0 \advance\count0 by \@ne
-\repeat
-\ifnum#1>0
- \loop \ifnum\count0<#1\relax 0\advance\count0 by \@ne
- \repeat
-\else
- \advance\count0 by -3
- \loop \ifnum\count0<0 0\advance\count0 by \@ne
- \repeat
-\fi\number#2}}
-\def\zetg@ld#1#2{\count0=#2\relax \let\FCs@gn=\@ne
-\ifnum\count0<0
- \ifnum\csname FCtot@\romannumeral\FCsc@l\endcsname<0
- \let\FCs@gn=\m@ne
- \fi
-\fi
-\ifnum\count0>0
- \ifnum\csname FCtot@\romannumeral\FCsc@l\endcsname>0
- \let\FCs@gn=\m@ne
- \fi
-\fi
-\global\advance\csname FCtot@\romannumeral\FCsc@l\endcsname by \count0
-\ifx\FCs@gn\m@ne
- \ifnum\count0>0 \let\FCs@gn\@ne \fi
- \count0=\csname FCtot@\romannumeral\FCsc@l\endcsname
- \multiply\count0 by \FCs@gn
- \ifnum\count0<0
- \let\FCs@gn=\m@ne
- \PackageError{fcolumn}{Register overflow}{Overflow occurred
- in fcolumn \number\FCsc@l. Check your table.}%
- \else\let\FCs@gn=\@ne
- \fi
-\fi
-\setbox0=\hbox{$\geldm@cro{#1}{#2}$}%
-\ifdim\wd0>\csname FCwd@\romannumeral\FCsc@l\endcsname
- \global\csname FCwd@\romannumeral\FCsc@l\endcsname=\wd0
-\fi\unhbox0}
-\newcount\FC@l \newcount\FC@r
-\def\FC@chklist{}
-\def\setucc@de#1#2\relax{\uccode`\~=`#1 }
-\def\b@fi#1#2#3{%
-\def\sep@xt##1##2\end{\def\sep@rator{{##1}}}%
-\sep@xt#1\end\def\decim@lmark{{#2}}%
-\def\sp@l{#3}\global\advance\FCsc@l by \@ne
-\global\FC@l=0 \global\FC@r=1
-\let\FCs@gn=\@ne\relax \setbox0\hbox\bgroup$%
-\uccode`\~=`0\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=0}
-\uccode`\~=`1\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=1}
-\uccode`\~=`2\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=2}
-\uccode`\~=`3\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=3}
-\uccode`\~=`4\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=4}
-\uccode`\~=`5\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=5}
-\uccode`\~=`6\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=6}
-\uccode`\~=`7\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=7}
-\uccode`\~=`8\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=8}
-\uccode`\~=`9\relax \uppercase{\def~}{\restorem@thcodes \global\FC@l=9}
-\def\deactdecm@rk##1##2\relax{\mathcode`##1=0 }%
-\afterassignment\setucc@de\count@#3\relax
-\uppercase{\def~}{\ifnum\mathcode`\0=\mathcode`- \restorem@thcodes\fi
-\afterassignment\deactdecm@rk\count@#3\relax \global\FC@r=1}%
-\def\d@cm##1##2{\count@=\mathcode`##1 }
-\ifnum\uccode`\~=`. \uccode`\~=`,\relax\else \uccode`\~=`.\relax\fi
-\uppercase{\def~}{\ifnum\mathcode`\0=\mathcode`- \restorem@thcodes\fi
-\afterassignment\d@cm\count@#3\relax
-\ifnum\count@=\mathcode`- \expandafter\global\FC@l=\the\FC@l
-\else \expandafter\global\FC@r=\the\FC@r\fi}%
-\uccode`\~=`+\relax
-\uppercase{\def~}{\ifnum\mathcode`\0=\mathcode`-
-\restorem@thcodes\fi\global\FC@l=0}%
-\uccode`\~=`-\relax
-\uppercase{\def~}{\ifnum\mathcode`\0=\mathcode`-
-\restorem@thcodes\fi\global\let\FCs@gn\m@ne \global\FC@l=0}%
-\mathcode`-="8000 \mathcode`+=\mathcode`- \mathcode`.=\mathcode`-
-\def\actdecm@rk##1##2\relax{\ifx##1.\relax \mathcode`,=\mathcode`-
-\else \mathcode`##1=\mathcode`- \fi}%
-\afterassignment\actdecm@rk\count@#3\relax
-\mathcode`\0=\mathcode`- \mathcode`\1=\mathcode`-
-\mathcode`\2=\mathcode`- \mathcode`\3=\mathcode`-
-\mathcode`\4=\mathcode`- \mathcode`\5=\mathcode`-
-\mathcode`\6=\mathcode`- \mathcode`\7=\mathcode`-
-\mathcode`\8=\mathcode`- \mathcode`\9=\mathcode`- }
-\def\e@fi{\ifnum\mathcode`\0=\mathcode`- \global\FC@r=\m@ne\fi$\egroup
-\ifnum\FC@r>0
- \ifnum\FC@r<10 \multiply\FC@r by 10 \fi
- \def\i@ts##1##2{\count0=##2}
- \afterassignment\i@ts\count@\sp@l
- \loop\ifnum\count0>0 \multiply\FC@l by 10
- \expandafter\secd@xt\number\FC@r\end \advance\count0 by \m@ne
- \repeat
- \ifnum\FC@r>10
- \def\tw@l##1##2\relax{##2}
- \PackageWarning{fcolumn}{Excess digit\ifnum\FC@r>100 s\fi\space
- ``\expandafter\tw@l\number\FC@r\relax'' in decimal part
- \MessageBreak ignored}
- \fi
- \ifx\FCs@gn\m@ne\relax \FC@l=-\FC@l \fi
- \zetg@ld{\sp@l}{\FC@l}%
-\fi}
-\def\secd@xt#1#2#3\end{\advance\FC@l by #2
-\FC@r=#1#3 \ifnum\FC@r<10 \multiply\FC@r by 10 \fi}
-\def\restorem@thcodes{\mathcode`\0=0 \mathcode`\1=0
-\mathcode`\2=0 \mathcode`\3=0 \mathcode`\4=0 \mathcode`\5=0
-\mathcode`\6=0 \mathcode`\7=0 \mathcode`\8=0 \mathcode`\9=0 }
-\def\@array[#1]#2{%
-\@tempdima \ht \strutbox
-\advance \@tempdima by\extrarowheight
-\setbox \@arstrutbox \hbox{\vrule
- \@height \arraystretch \@tempdima
- \@depth \arraystretch \dp \strutbox
- \@width \z@}%
-\def\ialign{\everycr{\noalign{\global\FCsc@l=0 }}%
- \tabskip\z@skip\halign}
-\begingroup
-\@mkpream{#2}%
-\xdef\@preamble{\noexpand \ialign \@halignto
-\bgroup\@arstrut\@preamble\tabskip\z@\cr}%
-\endgroup
-\begingroup
-\@mksumline{#2}%
-\endgroup
-\res@tsumline
-\@arrayleft
-\if #1t\vtop \else \if#1b\vbox \else \vcenter \fi \fi
-\bgroup
-\let \@sharp ##\let \protect \relax
-\lineskip \z@
-\baselineskip \z@
-\m@th
-\let\\\@arraycr \let\tabularnewline\\\let\par\@empty \@preamble}
-\let\@@array=\@array
-\def\@mksumline#1{\gdef\s@ml@ne{}\@lastchclass 4 \@firstamptrue
-\global\FCsc@l=0
-\let\prr@sult=\relax
-\@temptokena{#1}
-\@tempswatrue
-\@whilesw\if@tempswa\fi{\@tempswafalse\the\NC@list}%
-\count0\m@ne
-\let\the@toks\relax
-\prepnext@tok
-\expandafter \@tfor \expandafter \@nextchar
- \expandafter :\expandafter =\the\@temptokena \do
- {\@testpach
- \ifcase \@chclass \@classfz
- \or \or \@classfii \or
- \or \or \or \or \or \or \or \@classfx \fi
- \@lastchclass\@chclass}%
-\xdef\s@ml@ne{\s@ml@ne\noexpand\aut@check\noexpand\\}}
-\def\@addtosumline#1{\xdef\s@ml@ne{\s@ml@ne #1}}
-\def\@classfx{\if@firstamp \@firstampfalse \else \@addtosumline &\fi}
-\def\@classfz{\ifnum\@chnum<\thr@@ \@classfx\fi}
-\def\@classfii{\ifnum\@lastchclass=8
- \edef\t@stm{\expandafter\string\@nextchar}
- \edef\t@stn{\string\e@fi}
- \ifx\t@stm\t@stn
- \@addtosumline{\prr@sult}
- \global\advance\FCsc@l by \@ne
- \ifnum\FCsc@l>\FCtc@l
- \expandafter\ifx\csname FCtot@\romannumeral\FCsc@l\endcsname\relax
- \expandafter\newcount\csname FCtot@\romannumeral\FCsc@l\endcsname
- \else
- \PackageError{fcolumn}{Name clash for <count>}{\expandafter\csname
- FCtot@\romannumeral\FCsc@l\endcsname is already defined and it may
- not even be a <count>. If you're\MessageBreak sure it is a <count>,
- you can press <enter> now and I'll proceed, but things\MessageBreak
- will get overwritten.}%
- \fi
- \expandafter\ifx\csname FCwd@\romannumeral\FCsc@l\endcsname\relax
- \expandafter\newdimen\csname FCwd@\romannumeral\FCsc@l\endcsname
- \global\FCtc@l=\FCsc@l
- \else
- \PackageError{fcolumn}{Name clash for <dimen>}{\expandafter\csname
- FCwd@\romannumeral\FCsc@l\endcsname is already defined and it may
- not even be a <dimen>. If you're\MessageBreak sure it is a <dimen>,
- you can press <enter> now and I'll proceed, but things\MessageBreak
- will get overwritten.}%
- \fi
- \fi
- \fi
-\fi}
-\newdimen\s@mlinesep
-\def\sumline{\@ifnextchar[\s@mline{\s@mline[2pt]}}
-\def\s@mline[#1]{\global\s@mlinesep=#1 \s@ml@ne}
-\def\prr@sult{$\egroup \let\e@fi=\relax
-\setbox0=\hbox{$\geldm@cro{\sp@l}{\number\csname
-FCtot@\romannumeral\FCsc@l\endcsname}$}%
-\ifdim\wd0>\csname FCwd@\romannumeral\FCsc@l\endcsname
- \global\csname FCwd@\romannumeral\FCsc@l\endcsname=\wd0
-\fi
-\vbox{\hrule width \csname FCwd@\romannumeral\FCsc@l\endcsname
-\vskip\s@mlinesep
-\hbox to \csname FCwd@\romannumeral\FCsc@l\endcsname{\hfil\unhbox0}}}
-\def\leeg#1{$\egroup \let\e@fi=\relax #1}
-\def\res@tsumline{\FCsc@l=\FCtc@l\loop\ifnum\FCsc@l>0
- \global\csname FCtot@\romannumeral\FCsc@l\endcsname=0
- \global\csname FCwd@\romannumeral\FCsc@l\endcsname=\z@
- \advance\FCsc@l by \m@ne\repeat}
-\def\resetsumline{\noalign{\res@tsumline}}
-\def\aut@check{\ifx\@empty\FC@chklist\relax
- \ifodd\FCsc@l\else
- \count0=\@ne \count1=\FCsc@l
- \divide\count1 by \tw@
- \loop\ifnum\count1<\FCsc@l
- \advance\count1 by \@ne
- \xdef\FC@chklist{\FC@chklist\number\count0,\number\count1;}%
- \advance\count0 by\@ne
- \repeat
- \fi
-\fi
-\loop
- \ifx\FC@chklist\@empty\let\FCs@gn=\@ne\else\let\FCs@gn=\m@ne\fi
- \ifx\FCs@gn\m@ne
- \expandafter\fre@t\FC@chklist\end
- \ifnum\csname FCtot@\romannumeral\count0\endcsname=
- \csname FCtot@\romannumeral\count1\endcsname\else
- \PackageWarningNoLine{fcolumn}{F-columns \number\count0 \space
- and \number\count1 \space do not balance}%
- \fi
-\repeat}
-\def\fre@t#1,#2;#3\end{\count0=#1 \count1=#2 \xdef\FC@chklist{#3}}
-\def\checkfcolumns#1#2{\noalign{\xdef\FC@chklist{\FC@chklist #1,#2;}}}
-\endinput
-%%
-%% End of file `fcolumn.sty'.