summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/warpcol
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2006-01-13 00:11:17 +0000
committerKarl Berry <karl@freefriends.org>2006-01-13 00:11:17 +0000
commit10601f0cc86aa4c232b235023ba7c35be0b54a8e (patch)
tree6541bae27f667b317be5969ed9623497cb2f2f1f /Master/texmf-dist/tex/latex/warpcol
parent4b5487398103e93799625c57c03caac2318b1398 (diff)
warpcol
git-svn-id: svn://tug.org/texlive/trunk@1448 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/latex/warpcol')
-rw-r--r--Master/texmf-dist/tex/latex/warpcol/warpcol.sty57
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'.