1 /* $NetBSD: parse.y,v 1.12 2003/06/10 17:19:04 dsl 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 40 %{ 41 42 #include <stdio.h> 43 #include "defs.h" 44 45 static id_rec *cur_menu; 46 static optn_info *cur_optn; 47 48 %} 49 50 %union { 51 char *s_value; 52 int i_value; 53 optn_info *optn_value; 54 action a_value; 55 } 56 57 58 %token <i_value> X Y W H NO BOX SUB HELP MENU NEXT EXIT ACTION ENDWIN OPTION 59 %token <i_value> TITLE DEFAULT DISPLAY ERROR EXITSTRING ALLOW DYNAMIC MENUS 60 SCROLLABLE SHORTCUT MESSAGES 61 %token <s_value> STRING NAME CODE INT_CONST CHAR_CONST 62 63 %type <s_value> init_code system helpstr text 64 %type <optn_value> option option_list 65 %type <i_value> act_opt 66 %type <a_value> action exitact 67 68 %start system 69 70 %% 71 72 system : init_code menu_list 73 { check_defined(); 74 if (!had_errors) 75 write_menu_file($1); 76 } 77 ; 78 79 init_code : /* empty */ { $$ = ""; } 80 | CODE 81 ; 82 83 menu_list : /* empty */ 84 | menu_list menu_def 85 | menu_list default_def 86 | menu_list initerror_def 87 | menu_list dynamic_def 88 | menu_list msgxlat_def 89 ; 90 91 dynamic_def : ALLOW DYNAMIC MENUS ';' 92 { do_dynamic = 1; } 93 94 msgxlat_def : ALLOW DYNAMIC MESSAGES ';' 95 { do_msgxlat = 1; } 96 97 initerror_def : ERROR action ';' 98 { error_act = $2; } 99 100 default_def : DEFAULT 101 { cur_menu = &default_menu; } 102 opt opt_list ";" 103 104 menu_def : MENU NAME 105 { cur_menu = get_menu ($2); 106 if (cur_menu->info != NULL) 107 yyerror ("Menu %s defined twice", $2); 108 else { 109 cur_menu->info = 110 (menu_info *) malloc (sizeof (menu_info)); 111 *(cur_menu->info) = default_info; 112 } 113 } 114 opts ";" dispact option_list exitact helpstr 115 { optn_info *t; 116 cur_menu->info->optns = NULL; 117 while ($7 != NULL) { 118 t = $7; 119 $7 = $7->next; 120 t->next = cur_menu->info->optns; 121 cur_menu->info->optns = t; 122 cur_menu->info->numopt++; 123 } 124 } 125 ; 126 127 opts : /* empty */ 128 | opt_list 129 ; 130 131 opt_list : "," opt 132 | opt_list "," opt 133 ; 134 135 text : NAME | STRING 136 137 opt : NO EXIT { cur_menu->info->mopt |= NOEXITOPT; } 138 | EXIT { cur_menu->info->mopt &= ~NOEXITOPT; } 139 | NO BOX { cur_menu->info->mopt |= NOBOX; } 140 | BOX { cur_menu->info->mopt &= ~NOBOX; } 141 | NO SCROLLABLE { cur_menu->info->mopt &= ~SCROLL; } 142 | SCROLLABLE { cur_menu->info->mopt |= SCROLL; } 143 | NO SHORTCUT { cur_menu->info->mopt |= NOSHORTCUT; } 144 | SHORTCUT { cur_menu->info->mopt &= ~NOSHORTCUT; } 145 | X "=" INT_CONST { cur_menu->info->x = atoi($3); } 146 | Y "=" INT_CONST { cur_menu->info->y = atoi($3); } 147 | W "=" INT_CONST { cur_menu->info->w = atoi($3); } 148 | H "=" INT_CONST { cur_menu->info->h = atoi($3); } 149 | TITLE text { cur_menu->info->title = $2; } 150 | EXITSTRING text { cur_menu->info->exitstr = $2; 151 cur_menu->info->mopt &= ~NOEXITOPT; } 152 ; 153 154 option_list : option 155 | option_list option { $2->next = $1; $$ = $2; } 156 ; 157 158 option : OPTION text "," 159 { cur_optn = (optn_info *) malloc (sizeof(optn_info)); 160 cur_optn->name = $2; 161 cur_optn->menu = -1; 162 cur_optn->issub = FALSE; 163 cur_optn->doexit = FALSE; 164 cur_optn->optact.code = ""; 165 cur_optn->optact.endwin = FALSE; 166 cur_optn->next = NULL; 167 } 168 elem_list ";" 169 { $$ = cur_optn; } 170 ; 171 172 elem_list : elem 173 | elem_list "," elem 174 ; 175 176 elem : NEXT MENU NAME 177 { id_rec *t = get_menu ($3); 178 if (cur_optn->menu != -1) 179 yyerror ("Double sub/next menu definition"); 180 else { 181 cur_optn->menu = t->menu_no; 182 } 183 } 184 | SUB MENU NAME 185 { id_rec *t = get_menu ($3); 186 if (cur_optn->menu != -1) 187 yyerror ("Double sub/next menu definition"); 188 else { 189 cur_optn->menu = t->menu_no; 190 cur_optn->issub = TRUE; 191 } 192 } 193 | action { cur_optn->optact = $1; } 194 | EXIT { cur_optn->doexit = TRUE; } 195 ; 196 197 action : ACTION act_opt CODE 198 { $$.code = $3; 199 $$.endwin = $2; 200 } 201 ; 202 203 act_opt : /* empty */ { $$ = 0; } 204 | "(" ENDWIN ")" { $$ = 1; } 205 ; 206 207 dispact : /* empty */ { cur_menu->info->postact.code = ""; } 208 | DISPLAY action ";" { cur_menu->info->postact = $2; } 209 ; 210 211 212 exitact : /* empty */ { cur_menu->info->exitact.code = ""; } 213 | EXIT action ";" { cur_menu->info->exitact = $2; } 214 ; 215 216 helpstr : /* empty */ { cur_menu->info->helpstr = NULL; } 217 | HELP CODE ";" { cur_menu->info->helpstr = $2; } 218 ; 219