usr.bin/menuc/mdb.c

   1 /*      $NetBSD: mdb.c,v 1.43 2006/10/23 19:29:48 he 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.43 2006/10/23 19:29:48 he 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
  62 static int menu_no = 0;
  63 static 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
  73 id_rec *
  74 get_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
 101 void
 102 check_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. */
 113 void
 114 write_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                 "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 }