/*      $NetBSD: parse.y,v 1.19 2019/06/23 22:48:15 christos 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.
 *
 */


%{

#include <stdio.h>
#include "defs.h"

static id_rec *cur_menu;
static optn_info *cur_optn;
#define OPT_NOMENU 0

%}

%union {
        char *s_value;
        int   i_value;
        optn_info *optn_value;
        action a_value;
}


%token <i_value> X Y W H NO BOX SUB HELP MENU NEXT EXIT ACTION ENDWIN OPTION 
%token <i_value> TITLE DEFAULT DISPLAY ERROR EXITSTRING EXPAND ALLOW DYNAMIC
                 MENUS SCROLLABLE SHORTCUT CLEAR MESSAGES ALWAYS SCROLL
                 CONTINUOUS
%token <s_value> STRING NAME CODE INT_CONST CHAR_CONST

%type <s_value> init_code system helpstr text
%type <optn_value> option option_list
%type <i_value> act_opt
%type <a_value> action exitact

%start system

%%

system : init_code menu_list
         { check_defined();
           if (!had_errors)
                   write_menu_file($1);
         }
       ;

init_code : /* empty */ { $$ = ""; }
          | CODE
          ;

menu_list :  /* empty */
          |  menu_list menu_def
          |  menu_list default_def
          |  menu_list initerror_def
          |  menu_list expand_def
          |  menu_list dynamic_def
          |  menu_list msgxlat_def
          ;

dynamic_def : ALLOW DYNAMIC MENUS ';'
                { do_dynamic = 1; }

expand_def : ALLOW EXPAND ';'
                { do_expands = 1; }

msgxlat_def : ALLOW DYNAMIC MESSAGES ';'
                { do_msgxlat = 1; }

initerror_def : ERROR action ';'
                { error_act = $2; }

default_def : DEFAULT
                { cur_menu = &default_menu; }
              opt opt_list ";"

menu_def  :  MENU NAME
                { cur_menu = get_menu ($2);
                  if (cur_menu->info != NULL)
                          yyerror ("Menu %s defined twice", $2);
                  else {
                          cur_menu->info = malloc (sizeof (menu_info));
                          *(cur_menu->info) = default_info;
                  }
                }
             opts ";" expaction dispact option_list exitact helpstr
                { optn_info *t;
                  cur_menu->info->optns = NULL;
                  while ($8 != NULL) {
                          t = $8;
                          $8 = $8->next;
                          t->next = cur_menu->info->optns;
                          cur_menu->info->optns = t;
                          cur_menu->info->numopt++;
                  }
                }
          ;

opts      : /* empty */
          | opt_list
          ;

opt_list  : "," opt
          | opt_list "," opt
          ;

text      : NAME | STRING

opt       : NO EXIT             { cur_menu->info->mopt |= MC_NOEXITOPT; }
          | EXIT                { cur_menu->info->mopt &= ~MC_NOEXITOPT; }
          | NO BOX              { cur_menu->info->mopt |= MC_NOBOX; }
          | BOX                 { cur_menu->info->mopt &= ~MC_NOBOX; }
          | NO SCROLLABLE       { cur_menu->info->mopt &= ~MC_SCROLL; }
          | SCROLLABLE          { cur_menu->info->mopt |= MC_SCROLL; }
          | NO SHORTCUT         { cur_menu->info->mopt |= MC_NOSHORTCUT; }
          | SHORTCUT            { cur_menu->info->mopt &= ~MC_NOSHORTCUT; }
          | NO CLEAR            { cur_menu->info->mopt |= MC_NOCLEAR; }
          | CLEAR               { cur_menu->info->mopt &= ~MC_NOCLEAR; }
          | NO DEFAULT EXIT     { cur_menu->info->mopt &= ~MC_DFLTEXIT; }
          | DEFAULT EXIT        { cur_menu->info->mopt |= MC_DFLTEXIT; }
          | NO ALWAYS SCROLL    { cur_menu->info->mopt &= ~MC_ALWAYS_SCROLL; }
          | ALWAYS SCROLL       { cur_menu->info->mopt |= MC_ALWAYS_SCROLL; }
          | NO SUB MENU         { cur_menu->info->mopt &= ~MC_SUBMENU; }
          | SUB MENU            { cur_menu->info->mopt |= MC_SUBMENU; }
          | CONTINUOUS TITLE    { cur_menu->info->mopt |= MC_CONTINUOUS; }
          | X "=" INT_CONST     { cur_menu->info->x = atoi($3); }
          | Y "=" INT_CONST     { cur_menu->info->y = atoi($3); }
          | W "=" INT_CONST     { cur_menu->info->w = atoi($3); }
          | H "=" INT_CONST     { cur_menu->info->h = atoi($3); }
          | TITLE text          { cur_menu->info->title = $2; }
          | EXITSTRING text     { cur_menu->info->exitstr = $2;
                                  cur_menu->info->mopt &= ~MC_NOEXITOPT; }
          ;

option_list : option
          | option_list option  { $2->next = $1; $$ = $2; }
          ;

option    : OPTION
                { cur_optn = calloc(1, sizeof(*cur_optn));
                  cur_optn->optact.code = "";
                }
            option_legend ","
            elem_list ";"
                { $$ = cur_optn; }
          ;

option_legend : text    { cur_optn->name = $1; }
          | CODE        { cur_optn->name = $1; cur_optn->name_is_code = TRUE;}

elem_list : elem
          | elem_list "," elem
          ;

elem      : NEXT MENU NAME
                { id_rec *t = get_menu ($3);
                  if (cur_optn->menu != OPT_NOMENU)
                          yyerror ("Double sub/next menu definition");
                  else {
                          cur_optn->menu = t->menu_no;
                  }
                }
          | SUB MENU NAME
                { id_rec *t = get_menu ($3);
                  if (cur_optn->menu != OPT_NOMENU)
                          yyerror ("Double sub/next menu definition");
                  else {
                          cur_optn->menu = t->menu_no;
                          cur_optn->issub = TRUE;
                  }
                }
          | action      { cur_optn->optact = $1; }
          | EXIT        { cur_optn->doexit = TRUE; }
          ;

action    : ACTION act_opt CODE
                { $$.code = $3;
                  $$.endwin = $2;
                }
          ;

act_opt   : /* empty */         { $$ = 0; }
          | "(" ENDWIN ")"      { $$ = 1; }
          ;

expaction : /* empty */         { cur_menu->info->expact.code = ""; }
          | EXPAND action ";"   { if (!do_expands) yyerror ("Menu expands "
                                                             "not enabled");
                                  cur_menu->info->expact = $2; }
          ;

dispact   : /* empty */         { cur_menu->info->postact.code = ""; }
          | DISPLAY action ";"  { cur_menu->info->postact = $2; }
          ;


exitact   : /* empty */         { cur_menu->info->exitact.code = ""; }
          | EXIT action ";"     { cur_menu->info->exitact = $2; }
          ;

helpstr   : /* empty */         { cur_menu->info->helpstr = NULL; }
          | HELP CODE ";"       { asprintf(&cur_menu->info->helpstr, "\"%s\"", $2); } 
          | HELP text ";"       { cur_menu->info->helpstr = $2; } 
          ;