blob: 48e7aa28495d4af21706a5d59764fc68a526e3e2 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
%%
%% This is file `padcount.sty',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% padcount.dtx (with options: `package')
%% This is a generated file.
%%
%% This document is copyright 2018 by Donald P. Goodman, and is
%% released publicly under the LaTeX Project Public License. The
%% distribution and modification of this work is constrained by the
%% conditions of that license. See
%% http://www.latex-project.org/lppl.txt
%% for the text of the license. This document is released
%% under version 1.3c of that license, and this work may be distributed
%% or modified under the terms of that license or, at your option, any
%% later version.
%%
%% This work has the LPPL maintenance status 'maintained'.
%%
%% The Current Maintainer of this work is Donald P. Goodman
%% (dgoodmaniii@gmail.com).
%%
%% This work consists of padcount.dtx, padcount.ins, and
%% derived files padcount.sty and padcount.pdf.
\NeedsTeXFormat{LaTeX2e}[1999/12/01]
\ProvidesPackage{padcount}[2018/05/04 v1.0 Pad numbers with arbitrary characters]
\newcount\pad@charcount%
\def\pad@expandloop#1{%
\pad@xloop#1\relax
}
\def\pad@xloop#1{%
\ifx\relax#1%
\else%
\advance\pad@charcount by1%
\expandafter\pad@xloop%
\fi%
}%
\def\pad@countchar#1{%
\pad@charcount=0%
\expandafter\expandafter\pad@expandloop{#1}%
}%
\newcount\pad@tmp%
\newcount\pad@tmpi%
\newcount\pad@num\pad@num=2%
\def\pad@char{0}%
\def\padnum#1{%
\edef\pad@yy{#1}%
\expandafter\pad@countchar{\pad@yy}%
\pad@tmp=\pad@charcount%
\multiply\pad@tmp by-1%
\advance\pad@tmp by\pad@num%
\pad@tmpi=0%
\ifnum\pad@tmp>0%
\loop%
\ifnum\pad@tmpi<\pad@tmp%
\pad@char%
\advance\pad@tmpi by1%
\repeat%
\fi%
\leavevmode#1%
}%
\def\setpadnum#1{\pad@num=#1}%
\def\setpadchar#1{\def\pad@char{#1}}%
\endinput
%%
%% End of file `padcount.sty'.
|
