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
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
|
% pdcetxm.tex 1.1.1 1994/07/20 -- macros for ETX files
% Copyright 1993, 1994 P. Damian Cugley
%%% @TeX-macro-file {
%%% filename = "pdcetxm.tex",
%%% version = "1.1.1",
%%% date = "1994/07/20",
%%% package = "Malvern 1.1",
%%% author = "P. Damian Cugley",
%%% email = "damian.cugley@comlab.ox.ac.uk",
%%% address = "Oxford University Computing Laboratory,
%%% Parks Road, Oxford OX1 3QD, UK",
%%% codetable = "USASCII",
%%% keywords = "Malvern, METAFONT, font, typefont, TeX",
%%% supported = "Maybe",
%%% abstract = "Macros for Damian's ETX files.",
%%% dependencies = "",
%%% }
% This software is available freely but without warranty.
% See the file COPYING for details.
% Macro to enumerate numerals 0..9
% #1 -- description
% of which set of numerals this will be -- such as "old style" or
% "ranging"
% #2 -- the suffix to append to the letter to make its name
% -- e.g., "oldstyle" to make "oneoldstyle", etc
% #3 -- body of macro to typeset a sammple numberal
% it takes one argument, the character to be displayed
%
% For eample, \pdcnumerals{ranging}{}{#1} or
% \pdcnumerals{old style}{oldstyle}{$\mit#1$}
% pdc 1993/10/21
\def\pdcnumerals#1#2%
{
\edef\numeralentry##1##2%
{%
\noexpand\setslot{##1#2}
\noexpand\comment{The #1 digit
`\noexpand\numeralsample{##2}'.}
\noexpand\endsetslot
}
\afterassignment\xxxpdcnumerals
\def\numeralsample##1%
}
\def\xxxpdcnumerals
{
\numeralentry{zero}{0}
\numeralentry{one}{1}
\numeralentry{two}{2}
\numeralentry{three}{3}
\numeralentry{four}{4}
\numeralentry{five}{5}
\numeralentry{six}{6}
\numeralentry{seven}{7}
\numeralentry{eight}{8}
\numeralentry{nine}{9}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
% Macro to enumerate alphabetics
% #1 -- a description of which alphabet this will be -- such as
% "lower case" or "capital"
% #2 -- the suffix to append to the letter to make its name --
% e.g., "small" to make "Asmall", "Bsmall", etc.
% #3 -- macro body to typeset a sample letter
% it takes one argument, the character to be displayed
% For eample, \pdcuppercase{upper case}{}{\uppercase{#1}} or
% \pdclowercase{small capital}{small}{{\sc \lowercase{#1}}}
% pdc 1993/10/21
\newif\ifpdclowercase
\def\pdcuppercase{\pdclowercasefalse\pdcalphabet}
\def\pdclowercase{\pdclowercasetrue\pdcalphabet}
\def\pdcalphabet#1#2%
{
\edef\alphabetentry##1##2%
{%
\noexpand\setslot{\ifpdclowercase##2\else##1\fi#2}
\noexpand\comment{The #1 letter
`\noexpand\alphabetsample{##1}'.}
\noexpand\endsetslot
}
\afterassignment\xxxpdcalphabet
\def\alphabetsample##1%
}
\def\xxxpdcalphabet
{
\alphabetentry{A}{a} \alphabetentry{B}{b} \alphabetentry{C}{c}
\alphabetentry{D}{d} \alphabetentry{E}{e} \alphabetentry{F}{f}
\alphabetentry{G}{g} \alphabetentry{H}{h} \alphabetentry{I}{i}
\alphabetentry{J}{j} \alphabetentry{K}{k} \alphabetentry{L}{l}
\alphabetentry{M}{m} \alphabetentry{N}{n} \alphabetentry{O}{o}
\alphabetentry{P}{p} \alphabetentry{Q}{q} \alphabetentry{R}{r}
\alphabetentry{S}{s} \alphabetentry{T}{t} \alphabetentry{U}{u}
\alphabetentry{V}{v} \alphabetentry{W}{w} \alphabetentry{X}{x}
\alphabetentry{Y}{y} \alphabetentry{Z}{z}
}
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
|