This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Provide the names of the magic vtables in PL_magic_vtable_names[].
[perl5.git] / generate_uudmap.c
CommitLineData
efa50c51
NC
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
NC
6#include <stdio.h>
7#include <stdlib.h>
2b1d1392
NC
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
NC
15void 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
NC
46static const char PL_uuemap[]
47= "`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_";
48
49typedef unsigned char U8;
50
51/* This will ensure it is all zeros. */
52static char PL_uudmap[256];
efa50c51 53static char PL_bitcount[256];
6d62b57d 54
2b1d1392 55int main(int argc, char **argv) {
6d62b57d 56 size_t i;
efa50c51 57 int bits;
2b1d1392 58
efa50c51
NC
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
NC
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
NC
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
NC
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
NC
87 return 0;
88}
89
90