2 * Copyright (c) 1998-1999 Kungliga Tekniska Högskolan
3 * (Royal Institute of Technology, Stockholm, Sweden).
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
17 * 3. Neither the name of the Institute nor the names of its contributors
18 * may be used to endorse or promote products derived from this software
19 * without specific prior written permission.
21 * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24 * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
34 #include "make_cmds.h"
37 RCSID("$Id: make_cmds.c 15430 2005-06-16 19:25:45Z lha $");
47 extern void yyparse(void);
50 extern int yydebug = 1;
56 static struct command_list *commands;
59 add_command(char *function,
61 struct string_list *aliases,
64 struct command_list *cl = malloc(sizeof(*cl));
68 cl->function = function;
70 cl->aliases = aliases;
75 commands->tail = &cl->next;
83 quote(const char *str)
85 char buf[1024]; /* XXX */
91 for(p = str; *p != '\0'; p++) {
102 if(*p == '\"' || *p == '\\')
112 generate_commands(void)
118 p = strrchr(table_name, '/');
128 p = strrchr(base, '.');
132 asprintf(&cfn, "%s.c", base);
136 c_file = fopen(cfn, "w");
138 err (1, "cannot fopen %s", cfn);
140 fprintf(c_file, "/* Generated from %s */\n", filename);
141 fprintf(c_file, "\n");
142 fprintf(c_file, "#include <stddef.h>\n");
143 fprintf(c_file, "#include <sl.h>\n");
144 fprintf(c_file, "\n");
147 struct command_list *cl, *xl;
149 for(cl = commands; cl; cl = cl->next) {
150 for(xl = commands; xl != cl; xl = xl->next)
151 if(strcmp(cl->function, xl->function) == 0)
155 /* XXX hack for ss_quit */
156 if(strcmp(cl->function, "ss_quit") == 0) {
157 fprintf(c_file, "int %s (int, char**);\n", cl->function);
158 fprintf(c_file, "#define _ss_quit_wrap ss_quit\n\n");
161 fprintf(c_file, "void %s (int, char**);\n", cl->function);
162 fprintf(c_file, "static int _%s_wrap (int argc, char **argv)\n",
164 fprintf(c_file, "{\n");
165 fprintf(c_file, " %s (argc, argv);\n", cl->function);
166 fprintf(c_file, " return 0;\n");
167 fprintf(c_file, "}\n\n");
170 fprintf(c_file, "SL_cmd %s[] = {\n", table_name);
171 for(cl = commands; cl; cl = cl->next) {
172 struct string_list *sl;
174 p = quote(sl->string);
176 fprintf(c_file, " { %s, _%s_wrap, %s },\n", p, cl->function, q);
180 for(sl = sl->next; sl; sl = sl->next) {
181 p = quote(sl->string);
182 fprintf(c_file, " { %s },\n", p);
186 fprintf(c_file, " { NULL },\n");
187 fprintf(c_file, "};\n");
188 fprintf(c_file, "\n");
197 struct getargs args[] = {
198 { "version", 0, arg_flag, &version_flag },
199 { "help", 0, arg_flag, &help_flag }
201 int num_args = sizeof(args) / sizeof(args[0]);
206 arg_printusage(args, num_args, NULL, "command-table");
211 main(int argc, char **argv)
215 setprogname(argv[0]);
216 if(getarg(args, num_args, argc, argv, &optidx))
227 filename = argv[optidx];
228 yyin = fopen(filename, "r");
230 err(1, "%s", filename);