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