%%
%% 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'.
