477 lines
13 KiB
C
477 lines
13 KiB
C
/* $NetBSD: mdb.c,v 1.53 2019/06/23 11:31:10 martin Exp $ */
|
|
|
|
/*
|
|
* Copyright 1997 Piermont Information Systems Inc.
|
|
* All rights reserved.
|
|
*
|
|
* Written by Philip A. Nelson for Piermont Information Systems Inc.
|
|
*
|
|
* Redistribution and use in source and binary forms, with or without
|
|
* modification, are permitted provided that the following conditions
|
|
* are met:
|
|
* 1. Redistributions of source code must retain the above copyright
|
|
* notice, this list of conditions and the following disclaimer.
|
|
* 2. Redistributions in binary form must reproduce the above copyright
|
|
* notice, this list of conditions and the following disclaimer in the
|
|
* documentation and/or other materials provided with the distribution.
|
|
* 3. The name of Piermont Information Systems Inc. may not be used to endorse
|
|
* or promote products derived from this software without specific prior
|
|
* written permission.
|
|
*
|
|
* THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS''
|
|
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
* ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE
|
|
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
|
|
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
|
|
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
|
|
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
|
|
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF
|
|
* THE POSSIBILITY OF SUCH DAMAGE.
|
|
*
|
|
*/
|
|
|
|
/* mdb.c - menu database manipulation */
|
|
|
|
#if HAVE_NBTOOL_CONFIG_H
|
|
#include "nbtool_config.h"
|
|
#endif
|
|
|
|
#include <sys/cdefs.h>
|
|
|
|
#if defined(__RCSID) && !defined(lint)
|
|
__RCSID("$NetBSD: mdb.c,v 1.53 2019/06/23 11:31:10 martin Exp $");
|
|
#endif
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
#include "mdb.h"
|
|
#include "defs.h"
|
|
#include "pathnames.h"
|
|
|
|
/* Data */
|
|
#undef MAX
|
|
#define MAX 1000
|
|
static int menu_no = 1; /* Menu 0 is unused (means no menu) */
|
|
static id_rec *menus[MAX];
|
|
|
|
/* Other defines */
|
|
#define OPT_SUB 1
|
|
#define OPT_ENDWIN 2
|
|
#define OPT_EXIT 4
|
|
|
|
|
|
/* get_menu returns a pointer to a newly created id_rec or an old one. */
|
|
|
|
id_rec *
|
|
get_menu(char *name)
|
|
{
|
|
id_rec *temp;
|
|
|
|
temp = find_id (root, name);
|
|
|
|
if (temp == NULL) {
|
|
if (menu_no < MAX) {
|
|
temp = calloc(1, sizeof(id_rec));
|
|
temp->id = strdup(name);
|
|
temp->info = NULL;
|
|
temp->menu_no = menu_no;
|
|
menus[menu_no++] = temp;
|
|
insert_id(&root, temp);
|
|
} else {
|
|
(void)fprintf(stderr, "Too many menus. "
|
|
"Increase MAX.\n");
|
|
exit(1);
|
|
}
|
|
}
|
|
|
|
return temp;
|
|
}
|
|
|
|
|
|
/* Verify that all menus are defined. */
|
|
void
|
|
check_defined(void)
|
|
{
|
|
int i;
|
|
|
|
for (i = 1; i < menu_no; i++)
|
|
if (!menus[i]->info)
|
|
yyerror ("Menu '%s' undefined.", menus[i]->id);
|
|
}
|
|
|
|
|
|
/* Write out the menu file. */
|
|
void
|
|
write_menu_file(char *initcode)
|
|
{
|
|
FILE *out_file, *sys_file;
|
|
int i, j;
|
|
char hname[1024], cname[1024], sname[1024];
|
|
char *sys_prefix, *tmpstr;
|
|
int name_is_code, nlen, ch;
|
|
optn_info *toptn;
|
|
|
|
/* Generate file names */
|
|
snprintf(hname, 1024, "%s.h", out_name);
|
|
nlen = strlen(hname);
|
|
if (hname[nlen-2] != '.' || hname[nlen-1] != 'h') {
|
|
(void)fprintf(stderr, "%s: name `%s` too long.\n",
|
|
prog_name, out_name);
|
|
exit(1);
|
|
}
|
|
snprintf(cname, 1024, "%s.c", out_name);
|
|
|
|
/* Open the menu_sys file first. */
|
|
sys_prefix = getenv("MENUDEF");
|
|
if (sys_prefix == NULL)
|
|
sys_prefix = _PATH_DEFSYSPREFIX;
|
|
snprintf(sname, 1024, "%s/%s", sys_prefix, sys_name);
|
|
sys_file = fopen (sname, "r");
|
|
if (sys_file == NULL) {
|
|
(void)fprintf(stderr, "%s: could not open %s.\n",
|
|
prog_name, sname);
|
|
exit(1);
|
|
}
|
|
|
|
/* Output the .h file first. */
|
|
out_file = fopen(hname, "w");
|
|
if (out_file == NULL) {
|
|
(void)fprintf(stderr, "%s: could not open %s.\n",
|
|
prog_name, hname);
|
|
exit(1);
|
|
}
|
|
|
|
/* Write it */
|
|
(void)fprintf(out_file, "%s",
|
|
"/* menu system definitions. */\n"
|
|
"\n"
|
|
"#ifndef MENU_DEFS_H\n"
|
|
"#define MENU_DEFS_H\n"
|
|
"#include <stdlib.h>\n"
|
|
"#include <string.h>\n"
|
|
"#include <ctype.h>\n"
|
|
"#include <curses.h>\n\n"
|
|
);
|
|
|
|
if (do_msgxlat)
|
|
(void)fprintf(out_file, "#define MSG_XLAT(x) msg_string(x)\n");
|
|
else
|
|
(void)fprintf(out_file, "#define MSG_XLAT(x) (x)\n");
|
|
if (do_dynamic)
|
|
(void)fprintf(out_file, "#define DYNAMIC_MENUS\n");
|
|
if (do_expands)
|
|
(void)fprintf(out_file, "#define MENU_EXPANDS\n");
|
|
if (do_dynamic || do_msgxlat)
|
|
(void)fprintf(out_file, "\n");
|
|
|
|
(void)fprintf(out_file,
|
|
"typedef struct menudesc menudesc;\n"
|
|
"typedef struct menu_ent menu_ent;\n"
|
|
"struct menu_ent {\n"
|
|
" const char *opt_name;\n");
|
|
if (do_expands)
|
|
(void)fprintf(out_file,
|
|
" const char *opt_exp_name;\n");
|
|
(void)fprintf(out_file,
|
|
" short opt_menu;\n"
|
|
" short opt_flags;\n"
|
|
" int (*opt_action)(menudesc *, void *);\n"
|
|
"};\n\n"
|
|
"#define OPT_NOMENU 0\n"
|
|
"#define OPT_SUB 1\n"
|
|
"#define OPT_ENDWIN 2\n"
|
|
"#define OPT_EXIT 4\n"
|
|
"#define OPT_IGNORE 8\n"
|
|
"#define OPT_NOSHORT 16\n\n"
|
|
"struct menudesc {\n"
|
|
" const char *title;\n");
|
|
if (do_expands)
|
|
(void)fprintf(out_file,
|
|
" const char *exp_title;\n");
|
|
(void)fprintf(out_file,
|
|
" short y, x;\n"
|
|
" short h, w;\n"
|
|
" short mopt;\n"
|
|
" short numopts;\n"
|
|
" short cursel;\n"
|
|
" short topline;\n"
|
|
" menu_ent *opts;\n"
|
|
" WINDOW *mw;\n"
|
|
" WINDOW *sv_mw;\n"
|
|
" const char *helpstr;\n"
|
|
" const char *exitstr;\n");
|
|
if (do_expands)
|
|
(void)fprintf(out_file,
|
|
" void (*expand_act)(menudesc *, "
|
|
"void *);\n");
|
|
(void)fprintf(out_file,
|
|
" void (*post_act)(menudesc *, void *);\n"
|
|
" void (*exit_act)(menudesc *, void *);\n"
|
|
" void (*draw_line)(menudesc *, int, void *);\n"
|
|
"};\n"
|
|
"\n"
|
|
"/* defines for mopt field. */\n"
|
|
#define STR(x) #x
|
|
#define MC_OPT(x) "#define " #x " " STR(x) "\n"
|
|
MC_OPT(MC_NOEXITOPT)
|
|
MC_OPT(MC_NOBOX)
|
|
MC_OPT(MC_SCROLL)
|
|
MC_OPT(MC_NOSHORTCUT)
|
|
MC_OPT(MC_NOCLEAR)
|
|
MC_OPT(MC_DFLTEXIT)
|
|
MC_OPT(MC_ALWAYS_SCROLL)
|
|
MC_OPT(MC_SUBMENU)
|
|
MC_OPT(MC_CONTINUOUS)
|
|
MC_OPT(MC_VALID)
|
|
#undef MC_OPT
|
|
#undef STR
|
|
);
|
|
|
|
(void)fprintf(out_file, "%s",
|
|
"\n"
|
|
"/* Prototypes */\n"
|
|
"int menu_init(void);\n"
|
|
"void process_menu(int, void *);\n"
|
|
"__dead void __menu_initerror(void);\n"
|
|
);
|
|
|
|
if (do_dynamic)
|
|
(void)fprintf(out_file, "%s",
|
|
"int new_menu(const char *, menu_ent *, int, \n"
|
|
"\tint, int, int, int, int,\n"
|
|
"\tvoid (*)(menudesc *, void *), "
|
|
"void (*)(menudesc *, int, void *),\n"
|
|
"\tvoid (*)(menudesc *, void *), "
|
|
"const char *, const char *);\n"
|
|
"void free_menu(int);\n"
|
|
"void set_menu_numopts(int, int);\n"
|
|
"menudesc *get_menudesc(int);\n"
|
|
);
|
|
|
|
(void)fprintf(out_file, "\n/* Menu names */\n");
|
|
for (i = 1; i < menu_no; i++)
|
|
(void)fprintf(out_file, "#define MENU_%s\t%d\n",
|
|
menus[i]->id, i);
|
|
|
|
if (do_dynamic)
|
|
(void)fprintf(out_file, "\n#define DYN_MENU_START\t%d",
|
|
menu_no);
|
|
|
|
(void)fprintf (out_file, "\n#define MAX_STRLEN %d\n"
|
|
"#endif\n", max_strlen);
|
|
fclose(out_file);
|
|
|
|
/* Now the C file */
|
|
out_file = fopen(cname, "w");
|
|
if (out_file == NULL) {
|
|
(void)fprintf(stderr, "%s: could not open %s.\n",
|
|
prog_name, cname);
|
|
exit(1);
|
|
}
|
|
|
|
/* initial code */
|
|
fprintf(out_file, "#include \"%s\"\n\n", hname);
|
|
fprintf(out_file, "%s\n\n", initcode);
|
|
|
|
/* data definitions */
|
|
|
|
/* func defs */
|
|
for (i = 1; i < menu_no; i++) {
|
|
if (do_expands && strlen(menus[i]->info->expact.code)) {
|
|
(void)fprintf(out_file, "/*ARGSUSED*/\n"
|
|
"static void menu_%d_expact(menudesc *menu, void *arg)\n{\n", i);
|
|
if (menus[i]->info->expact.endwin)
|
|
(void)fprintf(out_file, "\tendwin();\n");
|
|
(void)fprintf(out_file, "\t%s\n}\n\n",
|
|
menus[i]->info->expact.code);
|
|
}
|
|
if (strlen(menus[i]->info->postact.code)) {
|
|
(void)fprintf(out_file, "/*ARGSUSED*/\n"
|
|
"static void menu_%d_postact(menudesc *menu, void *arg)\n{\n", i);
|
|
if (menus[i]->info->postact.endwin)
|
|
(void)fprintf(out_file, "\tendwin();\n");
|
|
(void)fprintf(out_file, "\t%s\n}\n\n",
|
|
menus[i]->info->postact.code);
|
|
}
|
|
if (strlen(menus[i]->info->exitact.code)) {
|
|
(void)fprintf(out_file, "/*ARGSUSED*/\n"
|
|
"static void menu_%d_exitact(menudesc *menu, void *arg)\n{\n", i);
|
|
if (menus[i]->info->exitact.endwin)
|
|
(void)fprintf(out_file, "\tendwin();\n");
|
|
(void)fprintf(out_file, "\t%s\n}\n\n",
|
|
menus[i]->info->exitact.code);
|
|
}
|
|
j = 0;
|
|
toptn = menus[i]->info->optns;
|
|
for (; toptn != NULL; j++, toptn = toptn->next) {
|
|
if (strlen(toptn->optact.code) == 0)
|
|
continue;
|
|
|
|
(void)fprintf(out_file, "/*ARGSUSED*/\n"
|
|
"static int opt_act_%d_%d(menudesc *m, void *arg)\n"
|
|
"{\n\t%s\n\treturn %s;\n}\n\n",
|
|
i, j, toptn->optact.code,
|
|
(toptn->doexit ? "1" : "0"));
|
|
}
|
|
|
|
}
|
|
|
|
/* optentX */
|
|
for (i = 1; i < menu_no; i++) {
|
|
if (menus[i]->info->numopt > 53) {
|
|
(void)fprintf(stderr, "Menu %s has "
|
|
"too many options.\n",
|
|
menus[i]->info->title);
|
|
exit(1);
|
|
}
|
|
(void)fprintf(out_file, "static menu_ent optent%d[] = {\n", i);
|
|
name_is_code = 0;
|
|
for (j = 0, toptn = menus[i]->info->optns; toptn;
|
|
toptn = toptn->next, j++) {
|
|
name_is_code += toptn->name_is_code;
|
|
(void)fprintf(out_file, "\t{ .opt_name = %s, "
|
|
".opt_menu=%d, .opt_flags=%d, .opt_action=",
|
|
toptn->name_is_code ? "0" : toptn->name,
|
|
toptn->menu,
|
|
(toptn->issub ? OPT_SUB : 0)
|
|
+(toptn->doexit ? OPT_EXIT : 0)
|
|
+(toptn->optact.endwin ? OPT_ENDWIN : 0));
|
|
if (strlen(toptn->optact.code))
|
|
(void)fprintf(out_file, "opt_act_%d_%d}", i, j);
|
|
else
|
|
(void)fprintf(out_file, "NULL}");
|
|
(void)fprintf(out_file, "%s\n",
|
|
(toptn->next ? "," : ""));
|
|
}
|
|
(void)fprintf(out_file, "\t};\n\n");
|
|
|
|
if (name_is_code) {
|
|
menus[i]->info->name_is_code = 1;
|
|
fprintf(out_file, "static void menu_%d_legend("
|
|
"menudesc *menu, int opt, void *arg)\n{\n"
|
|
"\tswitch (opt) {\n", i);
|
|
for (j = 0, toptn = menus[i]->info->optns; toptn;
|
|
toptn = toptn->next, j++) {
|
|
if (!toptn->name_is_code)
|
|
continue;
|
|
fprintf(out_file, "\tcase %d:\n\t\t{%s};\n"
|
|
"\t\tbreak;\n", j, toptn->name);
|
|
}
|
|
fprintf(out_file, "\t}\n}\n\n");
|
|
}
|
|
}
|
|
|
|
|
|
/* menus */
|
|
if (!do_dynamic)
|
|
(void)fprintf(out_file, "static int num_menus = %d;\n",
|
|
menu_no);
|
|
|
|
(void)fprintf(out_file, "static struct menudesc menu_def[] = {\n"
|
|
"\t{ },\n");
|
|
for (i = 1; i < menu_no; i++) {
|
|
(void)fprintf(out_file,
|
|
"\t{%s,", menus[i]->info->title);
|
|
if (do_expands)
|
|
(void)fprintf(out_file,
|
|
"NULL,");
|
|
(void)fprintf(out_file,
|
|
"%d,%d,%d,%d,%d,%d,0,0,optent%d,NULL,NULL,",
|
|
menus[i]->info->y,
|
|
menus[i]->info->x, menus[i]->info->h,
|
|
menus[i]->info->w, menus[i]->info->mopt,
|
|
menus[i]->info->numopt, i);
|
|
if (menus[i]->info->helpstr == NULL)
|
|
(void)fprintf(out_file, "NULL");
|
|
else {
|
|
tmpstr = menus[i]->info->helpstr;
|
|
if (*tmpstr != '"')
|
|
(void)fprintf(out_file, "%s", tmpstr);
|
|
else {
|
|
/* Skip an initial newline. */
|
|
if (tmpstr[1] == '\n')
|
|
*++tmpstr = '"';
|
|
(void)fprintf(out_file, "\n");
|
|
while (*tmpstr) {
|
|
if (*tmpstr != '\n') {
|
|
fputc(*tmpstr++, out_file);
|
|
continue;
|
|
}
|
|
(void)fprintf(out_file, "\\n\"\n\"");
|
|
tmpstr++;
|
|
}
|
|
}
|
|
}
|
|
(void)fprintf(out_file, ",");
|
|
if (menus[i]->info->mopt & MC_NOEXITOPT)
|
|
(void) fprintf (out_file, "NULL");
|
|
else if (menus[i]->info->exitstr != NULL)
|
|
(void)fprintf(out_file, "%s", menus[i]->info->exitstr);
|
|
else
|
|
(void)fprintf(out_file, "\"Exit\"");
|
|
if (do_expands) {
|
|
if (strlen(menus[i]->info->expact.code))
|
|
(void)fprintf(out_file, ",menu_%d_expact", i);
|
|
else
|
|
(void)fprintf(out_file, ",NULL");
|
|
}
|
|
if (strlen(menus[i]->info->postact.code))
|
|
(void)fprintf(out_file, ",menu_%d_postact", i);
|
|
else
|
|
(void)fprintf(out_file, ",NULL");
|
|
if (strlen(menus[i]->info->exitact.code))
|
|
(void)fprintf(out_file, ",menu_%d_exitact", i);
|
|
else
|
|
(void)fprintf(out_file, ",NULL");
|
|
if (menus[i]->info->name_is_code)
|
|
(void)fprintf(out_file, ",menu_%d_legend", i);
|
|
else
|
|
(void)fprintf(out_file, ",NULL");
|
|
|
|
(void)fprintf(out_file, "},\n");
|
|
|
|
}
|
|
(void)fprintf(out_file, "{NULL");
|
|
if (do_expands)
|
|
(void)fprintf(out_file, ", NULL");
|
|
(void)fprintf(out_file, ", 0, 0, 0, 0, 0, 0, 0, 0, "
|
|
"NULL, NULL, NULL, NULL, NULL, NULL, NULL, NULL");
|
|
if (do_expands)
|
|
(void)fprintf(out_file, ", NULL");
|
|
(void)fprintf(out_file, "}};\n\n");
|
|
|
|
/* __menu_initerror: initscr failed. */
|
|
(void)fprintf(out_file,
|
|
"/* __menu_initerror: initscr failed. */\n"
|
|
"void __menu_initerror (void) {\n");
|
|
if (error_act.code == NULL) {
|
|
(void)fprintf(out_file,
|
|
"\t(void) fprintf (stderr, "
|
|
"\"%%s: Could not initialize curses\\n\", "
|
|
"getprogname());\n"
|
|
"\texit(1);\n"
|
|
"}\n");
|
|
} else {
|
|
if (error_act.endwin)
|
|
(void)fprintf(out_file, "\tendwin();\n");
|
|
(void)fprintf(out_file, "%s\n}\n", error_act.code);
|
|
}
|
|
|
|
/* Copy menu_sys.def file. */
|
|
while ((ch = fgetc(sys_file)) != '\014') /* Control-L */
|
|
fputc(ch, out_file);
|
|
|
|
if (do_dynamic) {
|
|
while ((ch = fgetc(sys_file)) != '\n')
|
|
/* skip it */;
|
|
while ((ch = fgetc(sys_file)) != EOF)
|
|
fputc(ch, out_file);
|
|
}
|
|
fclose(out_file);
|
|
fclose(sys_file);
|
|
}
|