This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Break out the file output code from generate_uudmap's main() to allow re-use.
[perl5.git] / generate_uudmap.c
CommitLineData
6d62b57d
NC
1#include <stdio.h>
2#include <stdlib.h>
2b1d1392
NC
3/* If it turns out that we need to make this conditional on config.sh derived
4 values, it might be easier just to rip out the use of strerrer(). */
5#include <string.h>
6/* If a platform doesn't support errno.h, it's probably so strange that
7 "hello world" won't port easily to it. */
8#include <errno.h>
6d62b57d 9
869053c8
NC
10void output_block_to_file(const char *progname, const char *filename,
11 const char *block, size_t count) {
12 FILE *const out = fopen(filename, "w");
13
14 if (!out) {
15 fprintf(stderr, "%s: Could not open '%s': %s\n", progname, filename,
16 strerror(errno));
17 exit(1);
18 }
19
20 fputs("{\n ", out);
21 while (count--) {
22 fprintf(out, "%d", *block);
23 block++;
24 if (count) {
25 fputs(", ", out);
26 if (!(count & 15)) {
27 fputs("\n ", out);
28 }
29 }
30 }
31 fputs("\n}\n", out);
32
33 if (fclose(out)) {
34 fprintf(stderr, "%s: Could not close '%s': %s\n", progname, filename,
35 strerror(errno));
36 exit(1);
37 }
38}
39
40
6d62b57d
NC
41static const char PL_uuemap[]
42= "`!\"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\\]^_";
43
44typedef unsigned char U8;
45
46/* This will ensure it is all zeros. */
47static char PL_uudmap[256];
48
2b1d1392 49int main(int argc, char **argv) {
6d62b57d 50 size_t i;
2b1d1392
NC
51
52 if (argc < 2 || argv[1][0] == '\0') {
53 fprintf(stderr, "Usage: %s uudemap.h\n", argv[0]);
54 return 1;
55 }
56
6d62b57d 57 for (i = 0; i < sizeof(PL_uuemap) - 1; ++i)
0934c9d9 58 PL_uudmap[(U8)PL_uuemap[i]] = (char)i;
6d62b57d
NC
59 /*
60 * Because ' ' and '`' map to the same value,
61 * we need to decode them both the same.
62 */
63 PL_uudmap[(U8)' '] = 0;
64
869053c8 65 output_block_to_file(argv[0], argv[1], PL_uudmap, sizeof(PL_uudmap));
6d62b57d
NC
66
67 return 0;
68}
69
70