/*      $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);
}

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.