Mercurial > molko

annotate tools/molko-bcc.c @ 108:5e38f88cb9ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
make: generate binary files during build
author David Demelier <markand@malikania.fr>
date Wed, 01 Apr 2020 20:05:00 +0200
parents 62aeb864093f
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
107
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
1 /*
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
2 * molko-bcc.c -- simple binary compiler
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
3 *
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
4 * Copyright (c) 2020 David Demelier <markand@malikania.fr>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
5 *
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
6 * Permission to use, copy, modify, and/or distribute this software for any
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
7 * purpose with or without fee is hereby granted, provided that the above
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
8 * copyright notice and this permission notice appear in all copies.
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
9 *
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
10 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
11 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
12 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
13 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
14 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
15 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
16 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
17 */
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
18
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
19 #include <errno.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
20 #include <stdarg.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
21 #include <stdbool.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
22 #include <stdio.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
23 #include <stdlib.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
24 #include <stdnoreturn.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
25 #include <string.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
26 #include <unistd.h>
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
27
108
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
28 static const char *charset = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ_";
107
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
29 static bool fstatic;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
30
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
31 noreturn static void
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
32 usage(void)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
33 {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
34 fprintf(stderr, "usage: molko-bcc [-s] input varname\n");
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
35 exit(1);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
36 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
37
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
38 noreturn static void
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
39 die(const char *fmt, ...)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
40 {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
41 va_list ap;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
42
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
43 va_start(ap, fmt);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
44 fputs("abort: ", stderr);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
45 vfprintf(stderr, fmt, ap);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
46 va_end(ap);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
47 exit(1);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
48 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
49
108
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
50 static char *
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
51 mangle(char *variable)
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
52 {
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
53 char *p;
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
54 size_t pos;
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
55
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
56 /* Remove extension. */
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
57 if ((p = strrchr(variable, '.')))
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
58 *p = '\0';
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
59
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
60 /* Remove disallowed characters. */
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
61 while ((pos = strspn(variable, charset)) != strlen(variable))
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
62 variable[pos] = '_';
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
63
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
64 return variable;
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
65 }
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
66
107
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
67 static void
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
68 process(const char *input, const char *variable)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
69 {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
70 FILE *fp;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
71 int ch, idx = 0;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
72
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
73 if (strcmp(input, "-") == 0)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
74 fp = stdin;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
75 else if (!(fp = fopen(input, "rb")))
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
76 die("%s: %s\n", input, strerror(errno));
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
77
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
78 if (fstatic)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
79 printf("static ");
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
80
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
81 printf("const unsigned char %s[] = {\n", variable);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
82
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
83 while ((ch = fgetc(fp)) != EOF) {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
84 if (idx == 0)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
85 putchar('\t');
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
86
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
87 printf("0x%02x", (unsigned char)ch);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
88
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
89 if (!feof(fp))
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
90 printf(", ");
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
91
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
92 if (++idx == 4) {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
93 idx = 0;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
94 putchar('\n');
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
95 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
96 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
97
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
98 if (idx != 0)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
99 printf("\n");
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
100
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
101 puts("};");
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
102 fclose(fp);
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
103 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
104
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
105 int
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
106 main(int argc, char **argv)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
107 {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
108 int ch;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
109
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
110 while ((ch = getopt(argc, argv, "s")) != -1) {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
111 switch (ch) {
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
112 case 's':
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
113 fstatic = true;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
114 break;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
115 default:
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
116 break;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
117 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
118 }
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
119
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
120 argc -= optind;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
121 argv += optind;
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
122
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
123 if (argc < 2)
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
124 usage();
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
125
108
5e38f88cb9ab make: generate binary files during build
David Demelier <markand@malikania.fr>
parents: 107
diff changeset
126 process(argv[0], mangle(argv[1]));
107
62aeb864093f molko-bcc: initial import
David Demelier <markand@malikania.fr>
parents:
diff changeset
127 }