1/*	$NetBSD: mdb.c,v 1.44 2008/01/16 09:21:33 tls Exp $	*/
2
3/*
4 * Copyright 1997 Piermont Information Systems Inc.
5 * All rights reserved.
6 *
7 * Written by Philip A. Nelson for Piermont Information Systems Inc.
8 *
9 * Redistribution and use in source and binary forms, with or without
10 * modification, are permitted provided that the following conditions
11 * are met:
12 * 1. Redistributions of source code must retain the above copyright
13 *    notice, this list of conditions and the following disclaimer.
14 * 2. Redistributions in binary form must reproduce the above copyright
15 *    notice, this list of conditions and the following disclaimer in the
16 *    documentation and/or other materials provided with the distribution.
17 * 3. All advertising materials mentioning features or use of this software
18 *    must display the following acknowledgement:
19 *      This product includes software develooped for the NetBSD Project by
20 *      Piermont Information Systems Inc.
21 * 4. The name of Piermont Information Systems Inc. may not be used to endorse
22 *    or promote products derived from this software without specific prior
23 *    written permission.
24 *
25 * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
26 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
27 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
28 * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
29 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
30 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
31 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
32 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
33 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
34 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
35 * THE POSSIBILITY OF SUCH DAMAGE.
36 *
37 */
38
39/* mdb.c - menu database manipulation */
40
41#if HAVE_NBTOOL_CONFIG_H
42#include "nbtool_config.h"
43#endif
44
45#include <sys/cdefs.h>
46
47#if defined(__RCSID) && !defined(lint)
48__RCSID("$NetBSD: mdb.c,v 1.44 2008/01/16 09:21:33 tls Exp $");
49#endif
50
51
52#include <stdio.h>
53#include <stdlib.h>
54#include <string.h>
55#include "mdb.h"
56#include "defs.h"
57#include "pathnames.h"
58
59/* Data */
60#undef MAX
61#define MAX 1000
62static int menu_no = 0;
63static id_rec *menus[MAX];
64
65/* Other defines */
66#define OPT_SUB		1
67#define OPT_ENDWIN	2
68#define OPT_EXIT	4
69
70
71/* get_menu returns a pointer to a newly created id_rec or an old one. */
72
73id_rec *
74get_menu (char *name)
75{
76	id_rec *temp;
77
78	temp = find_id (root, name);
79
80	if (temp == NULL) {
81		if (menu_no < MAX) {
82			temp = (id_rec *) malloc (sizeof(id_rec));
83			temp->id = strdup(name);
84			temp->info = NULL;
85			temp->menu_no = menu_no;
86			menus[menu_no++] = temp;
87			insert_id (&root, temp);
88		} else {
89			(void) fprintf (stderr, "Too many menus.  "
90					"Increase MAX.\n");
91			exit(1);
92		}
93	}
94
95	return temp;
96}
97
98
99/* Verify that all menus are defined. */
100
101void
102check_defined (void)
103{
104	int i;
105
106	for (i=0; i<menu_no; i++)
107		if (!menus[i]->info)
108			yyerror ("Menu '%s' undefined.", menus[i]->id);
109}
110
111
112/* Write out the menu file. */
113void
114write_menu_file (char *initcode)
115{
116	FILE *out_file;
117	FILE *sys_file;
118	int i, j;
119	char hname[1024];
120	char cname[1024];
121	char sname[1024];
122	char *sys_prefix;
123	char *tmpstr;
124	int name_is_code;
125
126	int nlen;
127
128	int ch;
129
130	optn_info *toptn;
131
132	/* Generate file names */
133	snprintf (hname, 1024, "%s.h", out_name);
134	nlen = strlen(hname);
135	if (hname[nlen-2] != '.' || hname[nlen-1] != 'h') {
136		(void) fprintf (stderr, "%s: name `%s` too long.\n",
137				prog_name, out_name);
138		exit(1);
139	}
140	snprintf (cname, 1024, "%s.c", out_name);
141
142	/* Open the menu_sys file first. */
143	sys_prefix = getenv ("MENUDEF");
144	if (sys_prefix == NULL)
145		sys_prefix = _PATH_DEFSYSPREFIX;
146	snprintf (sname, 1024, "%s/%s", sys_prefix, sys_name);
147	sys_file = fopen (sname, "r");
148	if (sys_file == NULL) {
149		(void) fprintf (stderr, "%s: could not open %s.\n",
150				prog_name, sname);
151		exit (1);
152	}
153
154	/* Output the .h file first. */
155	out_file = fopen (hname, "w");
156	if (out_file == NULL) {
157		(void) fprintf (stderr, "%s: could not open %s.\n",
158				prog_name, hname);
159		exit (1);
160	}
161
162	/* Write it */
163	(void) fprintf (out_file, "%s",
164		"/* menu system definitions. */\n"
165		"\n"
166		"#ifndef MENU_DEFS_H\n"
167		"#define MENU_DEFS_H\n"
168		"#include <stdlib.h>\n"
169		"#include <string.h>\n"
170		"#include <ctype.h>\n"
171		"#include <curses.h>\n\n"
172		);
173
174	if (do_msgxlat)
175		(void)fprintf(out_file, "#define MSG_XLAT(x) msg_string(x)\n");
176	else
177		(void)fprintf(out_file, "#define MSG_XLAT(x) (x)\n");
178	if (do_dynamic)
179		(void)fprintf(out_file, "#define DYNAMIC_MENUS\n");
180	if (do_dynamic || do_msgxlat)
181		(void)fprintf(out_file, "\n");
182
183	(void)fprintf(out_file,
184		"typedef struct menudesc menudesc;\n"
185		"typedef struct menu_ent menu_ent;\n"
186		"struct menu_ent {\n"
187		"	const char	*opt_name;\n"
188		"	int		opt_menu;\n"
189		"	int		opt_flags;\n"
190		"	int		(*opt_action)(menudesc *, void *);\n"
191		"};\n\n"
192		"#define OPT_SUB	1\n"
193		"#define OPT_ENDWIN	2\n"
194		"#define OPT_EXIT	4\n"
195		"#define OPT_IGNORE	8\n"
196		"#define OPT_NOMENU	-1\n\n"
197		"struct menudesc {\n"
198		"	const char	*title;\n"
199		"	int		y, x;\n"
200		"	int		h, w;\n"
201		"	int		mopt;\n"
202		"	int		numopts;\n"
203		"	int		cursel;\n"
204		"	int		topline;\n"
205		"	menu_ent	*opts;\n"
206		"	WINDOW		*mw;\n"
207		"	WINDOW		*sv_mw;\n"
208		"	const char	*helpstr;\n"
209		"	const char	*exitstr;\n"
210		"	void		(*post_act)(menudesc *, void *);\n"
211		"	void		(*exit_act)(menudesc *, void *);\n"
212		"	void		(*draw_line)(menudesc *, int, void *);\n"
213		"};\n"
214		"\n"
215		"/* defines for mopt field. */\n"
216#define STR(x) #x
217#define MC_OPT(x) "#define " #x " " STR(x) "\n"
218		MC_OPT(MC_NOEXITOPT)
219		MC_OPT(MC_NOBOX)
220		MC_OPT(MC_SCROLL)
221		MC_OPT(MC_NOSHORTCUT)
222		MC_OPT(MC_NOCLEAR)
223		MC_OPT(MC_DFLTEXIT)
224		MC_OPT(MC_ALWAYS_SCROLL)
225		MC_OPT(MC_SUBMENU)
226		MC_OPT(MC_VALID)
227#undef MC_OPT
228#undef STR
229	);
230
231	(void) fprintf (out_file, "%s",
232		"\n"
233		"/* Prototypes */\n"
234		"int menu_init(void);\n"
235		"void process_menu(int, void *);\n"
236		"__dead void __menu_initerror(void);\n"
237		);
238
239	if (do_dynamic)
240		(void) fprintf (out_file, "%s",
241			"int new_menu(const char *, menu_ent *, int, \n"
242			    "\tint, int, int, int, int,\n"
243			    "\tvoid (*)(menudesc *, void *), "
244			    "void (*)(menudesc *, int, void *),\n"
245			    "\tvoid (*)(menudesc *, void *), "
246			    "const char *, const char *);\n"
247			"void free_menu(int);\n"
248			"void set_menu_numopts(int, int);\n"
249			);
250
251	(void) fprintf (out_file, "\n/* Menu names */\n");
252	for (i=0; i<menu_no; i++) {
253		(void) fprintf (out_file, "#define MENU_%s\t%d\n",
254				menus[i]->id, i);
255	}
256
257	if (do_dynamic)
258		(void) fprintf (out_file, "\n#define DYN_MENU_START\t%d",
259				menu_no);
260
261	(void) fprintf (out_file, "\n#define MAX_STRLEN %d\n"
262			"#endif\n", max_strlen);
263	fclose (out_file);
264
265	/* Now the C file */
266	out_file = fopen (cname, "w");
267	if (out_file == NULL) {
268		(void) fprintf (stderr, "%s: could not open %s.\n",
269				prog_name, cname);
270		exit (1);
271	}
272
273	/* initial code */
274	fprintf (out_file, "#include \"%s\"\n\n", hname);
275	fprintf (out_file, "%s\n\n", initcode);
276
277	/* data definitions */
278
279	/* func defs */
280	for (i=0; i<menu_no; i++) {
281		if (strlen(menus[i]->info->postact.code)) {
282			(void) fprintf (out_file,
283				"/*ARGSUSED*/\n"
284				"static void menu_%d_postact(menudesc *menu, void *arg)\n{\n", i);
285			if (menus[i]->info->postact.endwin)
286				(void) fprintf (out_file, "\tendwin();\n");
287			(void) fprintf (out_file,
288					"\t%s\n}\n\n",
289					menus[i]->info->postact.code);
290		}
291		if (strlen(menus[i]->info->exitact.code)) {
292			(void) fprintf (out_file,
293				"/*ARGSUSED*/\n"
294				"static void menu_%d_exitact(menudesc *menu, void *arg)\n{\n", i);
295			if (menus[i]->info->exitact.endwin)
296				(void) fprintf (out_file, "\tendwin();\n");
297			(void) fprintf (out_file, "\t%s\n}\n\n",
298					menus[i]->info->exitact.code);
299		}
300		j = 0;
301		toptn = menus[i]->info->optns;
302		for (;toptn != NULL; j++, toptn = toptn->next) {
303			if (strlen(toptn->optact.code) == 0)
304				continue;
305
306			(void) fprintf (out_file,
307				"/*ARGSUSED*/\n"
308				"static int opt_act_%d_%d(menudesc *m, void *arg)\n"
309				"{\n\t%s\n\treturn %s;\n}\n\n",
310				i, j, toptn->optact.code,
311				(toptn->doexit ? "1" : "0"));
312		}
313
314	}
315
316	/* optentX */
317	for (i=0; i<menu_no; i++) {
318		if (menus[i]->info->numopt > 53) {
319			(void) fprintf (stderr, "Menu %s has "
320				"too many options.\n",
321				menus[i]->info->title);
322			exit (1);
323		}
324		(void) fprintf (out_file,
325				"static menu_ent optent%d[] = {\n", i);
326		name_is_code = 0;
327		for (j = 0, toptn = menus[i]->info->optns; toptn;
328		    toptn = toptn->next, j++) {
329			name_is_code += toptn->name_is_code;
330			(void) fprintf (out_file, "\t{%s,%d,%d,",
331				toptn->name_is_code ? "0" : toptn->name,
332				toptn->menu,
333				(toptn->issub ? OPT_SUB : 0)
334				+(toptn->doexit ? OPT_EXIT : 0)
335				+(toptn->optact.endwin ? OPT_ENDWIN : 0));
336			if (strlen(toptn->optact.code))
337				(void) fprintf (out_file, "opt_act_%d_%d}",
338					i, j);
339			else
340				(void) fprintf (out_file, "NULL}");
341			(void) fprintf (out_file, "%s\n",
342				(toptn->next ? "," : ""));
343		}
344		(void) fprintf (out_file, "\t};\n\n");
345
346		if (name_is_code) {
347			menus[i]->info->name_is_code = 1;
348			fprintf(out_file, "static void menu_%d_legend("
349			    "menudesc *menu, int opt, void *arg)\n{\n"
350			    "\tswitch (opt) {\n", i);
351			for (j = 0, toptn = menus[i]->info->optns; toptn;
352			    toptn = toptn->next, j++) {
353				if (!toptn->name_is_code)
354					continue;
355				fprintf(out_file, "\tcase %d:\n\t\t{%s};\n"
356				    "\t\tbreak;\n", j, toptn->name);
357			}
358			fprintf(out_file, "\t}\n}\n\n");
359		}
360	}
361
362
363	/* menus */
364	if (!do_dynamic) {
365	    (void) fprintf (out_file, "static int num_menus = %d;\n", menu_no);
366	}
367
368	(void) fprintf (out_file, "static struct menudesc menu_def[] = {\n");
369	for (i=0; i<menu_no; i++) {
370		(void) fprintf (out_file,
371			"\t{%s,%d,%d,%d,%d,%d,%d,0,0,optent%d,NULL,NULL,",
372			menus[i]->info->title, 	menus[i]->info->y,
373			menus[i]->info->x, menus[i]->info->h,
374			menus[i]->info->w, menus[i]->info->mopt,
375			menus[i]->info->numopt, i);
376		if (menus[i]->info->helpstr == NULL)
377			(void) fprintf (out_file, "NULL");
378		else {
379			tmpstr = menus[i]->info->helpstr;
380			if (*tmpstr != '"')
381				(void)fprintf(out_file, "%s", tmpstr);
382			else {
383				/* Skip an initial newline. */
384				if (tmpstr[1] == '\n')
385					*++tmpstr = '"';
386				(void) fprintf (out_file, "\n");
387				while (*tmpstr) {
388					if (*tmpstr != '\n') {
389						fputc (*tmpstr++, out_file);
390						continue;
391					}
392					(void) fprintf (out_file, "\\n\"\n\"");
393					tmpstr++;
394				}
395			}
396		}
397		(void) fprintf (out_file, ",");
398		if (menus[i]->info->mopt & MC_NOEXITOPT)
399			(void) fprintf (out_file, "NULL");
400		else if (menus[i]->info->exitstr != NULL)
401			(void) fprintf (out_file, "%s",
402				menus[i]->info->exitstr);
403		else
404			(void) fprintf (out_file, "\"Exit\"");
405		if (strlen(menus[i]->info->postact.code))
406			(void) fprintf (out_file, ",menu_%d_postact", i);
407		else
408			(void) fprintf (out_file, ",NULL");
409		if (strlen(menus[i]->info->exitact.code))
410			(void) fprintf (out_file, ",menu_%d_exitact", i);
411		else
412			(void) fprintf (out_file, ",NULL");
413		if (menus[i]->info->name_is_code)
414			(void) fprintf (out_file, ",menu_%d_legend", i);
415		else
416			(void) fprintf (out_file, ",NULL");
417
418		(void) fprintf (out_file, "},\n");
419
420	}
421	(void) fprintf (out_file, "{NULL, 0, 0, 0, 0, 0, 0, 0, 0, "
422		"NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL}};\n\n");
423
424	/* __menu_initerror: initscr failed. */
425	(void) fprintf (out_file,
426		"/* __menu_initerror: initscr failed. */\n"
427		"void __menu_initerror (void) {\n");
428	if (error_act.code == NULL) {
429		(void) fprintf (out_file,
430			"\t(void) fprintf (stderr, "
431			"\"%%s: Could not initialize curses\\n\", "
432			"getprogname());\n"
433			"\texit(1);\n"
434			"}\n");
435	} else {
436		if (error_act.endwin)
437			(void) fprintf (out_file, "\tendwin();\n");
438		(void) fprintf (out_file, "%s\n}\n", error_act.code);
439	}
440
441	/* Copy menu_sys.def file. */
442	while ((ch = fgetc(sys_file)) != '\014')  /* Control-L */
443		fputc(ch, out_file);
444
445	if (do_dynamic) {
446		while ((ch = fgetc(sys_file)) != '\n')
447			/* skip it */;
448		while ((ch = fgetc(sys_file)) != EOF)
449			fputc(ch, out_file);
450	}
451
452	fclose (out_file);
453	fclose (sys_file);
454}
455