Commit | Line | Data |
efa50c51 |
1 | /* Originally this program just generated uudmap.h |
2 | However, when we later wanted to generate bitcount.h, it was easier to |
3 | refactor it and keep the same name, than either alternative - rename it, |
4 | or duplicate all of the Makefile logic for a second program. */ |
5 | |
6d62b57d |
6 | #include <stdio.h> |
7 | #include <stdlib.h> |
2b1d1392 |
8 | /* If it turns out that we need to make this conditional on config.sh derived |
9 | values, it might be easier just to rip out the use of strerrer(). */ |
10 | #include <string.h> |
11 | /* If a platform doesn't support errno.h, it's probably so strange that |
12 | "hello world" won't port easily to it. */ |
13 | #include <errno.h> |
6d62b57d |
14 | |
869053c8 |
15 | void output_block_to_file(const char *progname, const char *filename, |
16 | const char *block, size_t count) { |
17 | FILE *const out = fopen(filename, "w"); |
18 | |
19 | if (!out) { |
20 | fprintf(stderr, "%s: Could not open '%s': %s\n", progname, filename, |
21 | strerror(errno)); |
22 | exit(1); |
23 | } |
24 | |
25 | fputs("{\n ", out); |
26 | while (count--) { |
27 | fprintf(out, "%d", *block); |
28 | block++; |
29 | if (count) { |
30 | fputs(", ", out); |
31 | if (!(count & 15)) { |
32 | fputs("\n ", out); |
33 | } |
34 | } |
35 | } |
36 | fputs("\n}\n", out); |
37 | |
38 | if (fclose(out)) { |
39 | fprintf(stderr, "%s: Could not close '%s': %s\n", progname, filename, |
40 | strerror(errno)); |
41 | exit(1); |
42 | } |
43 | } |
44 | |
45 | |
6d62b57d |
46 | static const char PL_uuemap[] |
47 | = "`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_"; |
48 | |
49 | typedef unsigned char U8; |
50 | |
51 | /* This will ensure it is all zeros. */ |
52 | static char PL_uudmap[256]; |
efa50c51 |
53 | static char PL_bitcount[256]; |
6d62b57d |
54 | |
2b1d1392 |
55 | int main(int argc, char **argv) { |
6d62b57d |
56 | size_t i; |
efa50c51 |
57 | int bits; |
2b1d1392 |
58 | |
efa50c51 |
59 | if (argc < 3 || argv[1][0] == '\0' || argv[2][0] == '\0') { |
60 | fprintf(stderr, "Usage: %s uudemap.h bitcount.h\n", argv[0]); |
2b1d1392 |
61 | return 1; |
62 | } |
63 | |
6d62b57d |
64 | for (i = 0; i < sizeof(PL_uuemap) - 1; ++i) |
0934c9d9 |
65 | PL_uudmap[(U8)PL_uuemap[i]] = (char)i; |
6d62b57d |
66 | /* |
67 | * Because ' ' and '`' map to the same value, |
68 | * we need to decode them both the same. |
69 | */ |
70 | PL_uudmap[(U8)' '] = 0; |
71 | |
869053c8 |
72 | output_block_to_file(argv[0], argv[1], PL_uudmap, sizeof(PL_uudmap)); |
6d62b57d |
73 | |
efa50c51 |
74 | for (bits = 1; bits < 256; bits++) { |
75 | if (bits & 1) PL_bitcount[bits]++; |
76 | if (bits & 2) PL_bitcount[bits]++; |
77 | if (bits & 4) PL_bitcount[bits]++; |
78 | if (bits & 8) PL_bitcount[bits]++; |
79 | if (bits & 16) PL_bitcount[bits]++; |
80 | if (bits & 32) PL_bitcount[bits]++; |
81 | if (bits & 64) PL_bitcount[bits]++; |
82 | if (bits & 128) PL_bitcount[bits]++; |
83 | } |
84 | |
85 | output_block_to_file(argv[0], argv[2], PL_bitcount, sizeof(PL_bitcount)); |
86 | |
6d62b57d |
87 | return 0; |
88 | } |
89 | |
90 | |