warpcol

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

1 files changed, 57 insertions, 0 deletions

diff --git a/Master/texmf-dist/tex/latex/warpcol/warpcol.sty b/Master/texmf-dist/tex/latex/warpcol/warpcol.sty
new file mode 100644
index 00000000000..11eda36304c
--- /dev/null
+++ b/Master/texmf-dist/tex/latex/warpcol/warpcol.sty
@@ -0,0 +1,57 @@
+%%
+%% This is file `warpcol.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% warpcol.dtx  (with options: `package')
+%% 
+\NeedsTeXFormat{LaTeX2e}
+\ProvidesPackage{warpcol}
+[1998/09/12 v1.0b Numerical column definition]
+\RequirePackage{array}
+\newcount\WPC@digcnt
+\newbox\WPC@patbox
+\newbox\WPC@valbox
+\def\WPC@digval#1{%
+\ifx#100%
+\else\ifx#111%
+\else\ifx#122%
+\else\ifx#133%
+\else\ifx#144%
+\else\ifx#155%
+\else\ifx#166%
+\else\ifx#177%
+\else\ifx#188%
+\else\ifx#199%
+\else x\fi\fi\fi\fi\fi\fi\fi\fi\fi\fi}
+\def\WPC@digstr{%
+\loop 0\advance\WPC@digcnt by-1 \ifnum\WPC@digcnt>0 \repeat}
+\def\WPC@expandpat#1{%
+\ifx#1\end
+   \ifnum\WPC@digcnt>0 \WPC@digstr\fi
+   \let\WPC@next=\relax
+\else
+   \edef\WPC@dv{\WPC@digval#1}%
+   \if x\WPC@dv
+      \ifnum\WPC@digcnt>0 \WPC@digstr\fi
+      #1%
+   \else
+      \multiply\WPC@digcnt by10 \advance\WPC@digcnt by\WPC@dv
+   \fi
+   \let\WPC@next=\WPC@expandpat
+\fi
+\WPC@next}
+\def\pcolbegin#1#2{%
+\WPC@digcnt=0
+\edef\WPC@just{#1}%
+\setbox\WPC@patbox=\hbox{$\WPC@expandpat#2\end$}%
+\setbox\WPC@valbox=\hbox to\wd\WPC@patbox\bgroup
+\if#1r\hfil\else\if#1c\hfil\fi\fi$}
+\newcommand{\pcolend}{$%
+\if l\WPC@just\hfil\else\if c\WPC@just\hfil\fi\fi
+\egroup\box\WPC@valbox}
+\newcolumntype{P}[1]{>{\pcolbegin{r}{#1}}c<{\pcolend}}
+\endinput
+%%
+%% End of file `warpcol.sty'.