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
|
# Test which attempts to repeat examples of formatted output
# from "C a reference manual" by Harbison and Steele.
#
# In the second series of outputs formats of a type "%5%" are skipped
# since my old copy of H&S explicitely requires padding ("...%05% will
# print 0000%..."), whereas Standard says "...the complete conversion
# specification shall be %%".
#
# Michal Jaegermann - michal@phys.ualberta.ca
BEGIN {
zero = "0";
alt = "#";
spc = " ";
plus = "+";
just = "-";
value[0] = 45;
value[1] = 45;
value[2] = 45;
value[3] = 12.678;
value[4] = 12.678;
value[5] = 12.678;
value[6] = "zap";
value[7] = "*";
value[8] = -3.4567;
value[9] = -3.4567;
value[10]= -3.4567;
value[11]= -3.4567;
oper[0] = "5d";
oper[1] = "5o";
oper[2] = "5x";
oper[3] = "7.2f";
oper[4] = "10.2e";
oper[5] = "10.4g";
oper[6] = "5s";
oper[7] = "5c";
oper[8] = "7.1G";
oper[9] = "7.2f";
oper[10] = "10.2e";
oper[11] = "10.4g";
for (r = 0; r < 12; r += 6) {
for (j = 2; j > 0; --j) {
for (p = 2; p > 0; --p) {
for (s = 2; s > 0; --s) {
for (a = 2; a > 0; --a) {
for (z = 2; z > 0; --z) {
fmt = "%" substr(just,j,1) substr(plus,p,1) \
substr(spc,s,1) substr(alt,a,1) substr(zero,z,1);
fstr = sprintf(\
"%6s|%s%s|%s%s|%s%s|%s%s|%s%s|%s%s|\n",
fmt,
fmt, oper[r],
fmt, oper[r+1],
fmt, oper[r+2],
fmt, oper[r+3],
fmt, oper[r+4],
fmt, oper[r+5]);
printf(fstr, value[r], value[r+1],
value[r+2], value[r+3],
value[r+4], value[r+5]);
}
}
}
}
}
print "";
}
}
|
