From 10601f0cc86aa4c232b235023ba7c35be0b54a8e Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Fri, 13 Jan 2006 00:11:17 +0000 Subject: warpcol git-svn-id: svn://tug.org/texlive/trunk@1448 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/tex/latex/warpcol/warpcol.sty | 57 +++++++++++++++++++++++++ 1 file changed, 57 insertions(+) create mode 100644 Master/texmf-dist/tex/latex/warpcol/warpcol.sty (limited to 'Master/texmf-dist/tex/latex/warpcol') 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'. -- cgit v1.2.3