1 1.19 christos /* $NetBSD: parse.y,v 1.19 2019/06/23 22:48:15 christos Exp $ */ 2 1.1 phil 3 1.1 phil /* 4 1.1 phil * Copyright 1997 Piermont Information Systems Inc. 5 1.1 phil * All rights reserved. 6 1.1 phil * 7 1.1 phil * Written by Philip A. Nelson for Piermont Information Systems Inc. 8 1.1 phil * 9 1.1 phil * Redistribution and use in source and binary forms, with or without 10 1.1 phil * modification, are permitted provided that the following conditions 11 1.1 phil * are met: 12 1.1 phil * 1. Redistributions of source code must retain the above copyright 13 1.1 phil * notice, this list of conditions and the following disclaimer. 14 1.1 phil * 2. Redistributions in binary form must reproduce the above copyright 15 1.1 phil * notice, this list of conditions and the following disclaimer in the 16 1.1 phil * documentation and/or other materials provided with the distribution. 17 1.16 mbalmer * 3. The name of Piermont Information Systems Inc. may not be used to endorse 18 1.1 phil * or promote products derived from this software without specific prior 19 1.1 phil * written permission. 20 1.1 phil * 21 1.1 phil * THIS SOFTWARE IS PROVIDED BY PIERMONT INFORMATION SYSTEMS INC. ``AS IS'' 22 1.1 phil * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 23 1.1 phil * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 24 1.1 phil * ARE DISCLAIMED. IN NO EVENT SHALL PIERMONT INFORMATION SYSTEMS INC. BE 25 1.1 phil * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 26 1.1 phil * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 27 1.1 phil * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 28 1.1 phil * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 29 1.1 phil * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 30 1.1 phil * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF 31 1.1 phil * THE POSSIBILITY OF SUCH DAMAGE. 32 1.1 phil * 33 1.1 phil */ 34 1.1 phil 35 1.1 phil 36 1.1 phil %{ 37 1.1 phil 38 1.1 phil #include <stdio.h> 39 1.1 phil #include "defs.h" 40 1.1 phil 41 1.1 phil static id_rec *cur_menu; 42 1.1 phil static optn_info *cur_optn; 43 1.19 christos #define OPT_NOMENU 0 44 1.1 phil 45 1.1 phil %} 46 1.1 phil 47 1.1 phil %union { 48 1.1 phil char *s_value; 49 1.1 phil int i_value; 50 1.1 phil optn_info *optn_value; 51 1.1 phil action a_value; 52 1.1 phil } 53 1.1 phil 54 1.1 phil 55 1.3 phil %token <i_value> X Y W H NO BOX SUB HELP MENU NEXT EXIT ACTION ENDWIN OPTION 56 1.17 martin %token <i_value> TITLE DEFAULT DISPLAY ERROR EXITSTRING EXPAND ALLOW DYNAMIC 57 1.17 martin MENUS SCROLLABLE SHORTCUT CLEAR MESSAGES ALWAYS SCROLL 58 1.18 martin CONTINUOUS 59 1.1 phil %token <s_value> STRING NAME CODE INT_CONST CHAR_CONST 60 1.1 phil 61 1.11 dsl %type <s_value> init_code system helpstr text 62 1.1 phil %type <optn_value> option option_list 63 1.1 phil %type <i_value> act_opt 64 1.1 phil %type <a_value> action exitact 65 1.1 phil 66 1.1 phil %start system 67 1.1 phil 68 1.1 phil %% 69 1.1 phil 70 1.1 phil system : init_code menu_list 71 1.1 phil { check_defined(); 72 1.1 phil if (!had_errors) 73 1.1 phil write_menu_file($1); 74 1.1 phil } 75 1.1 phil ; 76 1.1 phil 77 1.1 phil init_code : /* empty */ { $$ = ""; } 78 1.1 phil | CODE 79 1.1 phil ; 80 1.1 phil 81 1.1 phil menu_list : /* empty */ 82 1.1 phil | menu_list menu_def 83 1.1 phil | menu_list default_def 84 1.2 phil | menu_list initerror_def 85 1.17 martin | menu_list expand_def 86 1.5 phil | menu_list dynamic_def 87 1.12 dsl | menu_list msgxlat_def 88 1.1 phil ; 89 1.5 phil 90 1.6 phil dynamic_def : ALLOW DYNAMIC MENUS ';' 91 1.5 phil { do_dynamic = 1; } 92 1.12 dsl 93 1.17 martin expand_def : ALLOW EXPAND ';' 94 1.17 martin { do_expands = 1; } 95 1.17 martin 96 1.12 dsl msgxlat_def : ALLOW DYNAMIC MESSAGES ';' 97 1.12 dsl { do_msgxlat = 1; } 98 1.2 phil 99 1.2 phil initerror_def : ERROR action ';' 100 1.2 phil { error_act = $2; } 101 1.1 phil 102 1.1 phil default_def : DEFAULT 103 1.1 phil { cur_menu = &default_menu; } 104 1.1 phil opt opt_list ";" 105 1.1 phil 106 1.1 phil menu_def : MENU NAME 107 1.1 phil { cur_menu = get_menu ($2); 108 1.1 phil if (cur_menu->info != NULL) 109 1.1 phil yyerror ("Menu %s defined twice", $2); 110 1.1 phil else { 111 1.19 christos cur_menu->info = malloc (sizeof (menu_info)); 112 1.1 phil *(cur_menu->info) = default_info; 113 1.1 phil } 114 1.1 phil } 115 1.17 martin opts ";" expaction dispact option_list exitact helpstr 116 1.1 phil { optn_info *t; 117 1.1 phil cur_menu->info->optns = NULL; 118 1.17 martin while ($8 != NULL) { 119 1.17 martin t = $8; 120 1.17 martin $8 = $8->next; 121 1.1 phil t->next = cur_menu->info->optns; 122 1.1 phil cur_menu->info->optns = t; 123 1.1 phil cur_menu->info->numopt++; 124 1.1 phil } 125 1.1 phil } 126 1.1 phil ; 127 1.1 phil 128 1.1 phil opts : /* empty */ 129 1.1 phil | opt_list 130 1.1 phil ; 131 1.1 phil 132 1.1 phil opt_list : "," opt 133 1.1 phil | opt_list "," opt 134 1.1 phil ; 135 1.1 phil 136 1.11 dsl text : NAME | STRING 137 1.11 dsl 138 1.14 dsl opt : NO EXIT { cur_menu->info->mopt |= MC_NOEXITOPT; } 139 1.14 dsl | EXIT { cur_menu->info->mopt &= ~MC_NOEXITOPT; } 140 1.14 dsl | NO BOX { cur_menu->info->mopt |= MC_NOBOX; } 141 1.14 dsl | BOX { cur_menu->info->mopt &= ~MC_NOBOX; } 142 1.14 dsl | NO SCROLLABLE { cur_menu->info->mopt &= ~MC_SCROLL; } 143 1.14 dsl | SCROLLABLE { cur_menu->info->mopt |= MC_SCROLL; } 144 1.14 dsl | NO SHORTCUT { cur_menu->info->mopt |= MC_NOSHORTCUT; } 145 1.14 dsl | SHORTCUT { cur_menu->info->mopt &= ~MC_NOSHORTCUT; } 146 1.14 dsl | NO CLEAR { cur_menu->info->mopt |= MC_NOCLEAR; } 147 1.14 dsl | CLEAR { cur_menu->info->mopt &= ~MC_NOCLEAR; } 148 1.14 dsl | NO DEFAULT EXIT { cur_menu->info->mopt &= ~MC_DFLTEXIT; } 149 1.14 dsl | DEFAULT EXIT { cur_menu->info->mopt |= MC_DFLTEXIT; } 150 1.14 dsl | NO ALWAYS SCROLL { cur_menu->info->mopt &= ~MC_ALWAYS_SCROLL; } 151 1.14 dsl | ALWAYS SCROLL { cur_menu->info->mopt |= MC_ALWAYS_SCROLL; } 152 1.14 dsl | NO SUB MENU { cur_menu->info->mopt &= ~MC_SUBMENU; } 153 1.14 dsl | SUB MENU { cur_menu->info->mopt |= MC_SUBMENU; } 154 1.18 martin | CONTINUOUS TITLE { cur_menu->info->mopt |= MC_CONTINUOUS; } 155 1.1 phil | X "=" INT_CONST { cur_menu->info->x = atoi($3); } 156 1.1 phil | Y "=" INT_CONST { cur_menu->info->y = atoi($3); } 157 1.1 phil | W "=" INT_CONST { cur_menu->info->w = atoi($3); } 158 1.1 phil | H "=" INT_CONST { cur_menu->info->h = atoi($3); } 159 1.11 dsl | TITLE text { cur_menu->info->title = $2; } 160 1.11 dsl | EXITSTRING text { cur_menu->info->exitstr = $2; 161 1.14 dsl cur_menu->info->mopt &= ~MC_NOEXITOPT; } 162 1.1 phil ; 163 1.1 phil 164 1.1 phil option_list : option 165 1.1 phil | option_list option { $2->next = $1; $$ = $2; } 166 1.1 phil ; 167 1.1 phil 168 1.15 dsl option : OPTION 169 1.19 christos { cur_optn = calloc(1, sizeof(*cur_optn)); 170 1.1 phil cur_optn->optact.code = ""; 171 1.1 phil } 172 1.15 dsl option_legend "," 173 1.1 phil elem_list ";" 174 1.1 phil { $$ = cur_optn; } 175 1.1 phil ; 176 1.1 phil 177 1.15 dsl option_legend : text { cur_optn->name = $1; } 178 1.15 dsl | CODE { cur_optn->name = $1; cur_optn->name_is_code = TRUE;} 179 1.15 dsl 180 1.1 phil elem_list : elem 181 1.1 phil | elem_list "," elem 182 1.1 phil ; 183 1.1 phil 184 1.1 phil elem : NEXT MENU NAME 185 1.1 phil { id_rec *t = get_menu ($3); 186 1.19 christos if (cur_optn->menu != OPT_NOMENU) 187 1.1 phil yyerror ("Double sub/next menu definition"); 188 1.1 phil else { 189 1.1 phil cur_optn->menu = t->menu_no; 190 1.1 phil } 191 1.1 phil } 192 1.1 phil | SUB MENU NAME 193 1.1 phil { id_rec *t = get_menu ($3); 194 1.19 christos if (cur_optn->menu != OPT_NOMENU) 195 1.1 phil yyerror ("Double sub/next menu definition"); 196 1.1 phil else { 197 1.1 phil cur_optn->menu = t->menu_no; 198 1.1 phil cur_optn->issub = TRUE; 199 1.1 phil } 200 1.1 phil } 201 1.1 phil | action { cur_optn->optact = $1; } 202 1.1 phil | EXIT { cur_optn->doexit = TRUE; } 203 1.1 phil ; 204 1.1 phil 205 1.1 phil action : ACTION act_opt CODE 206 1.1 phil { $$.code = $3; 207 1.1 phil $$.endwin = $2; 208 1.1 phil } 209 1.1 phil ; 210 1.1 phil 211 1.1 phil act_opt : /* empty */ { $$ = 0; } 212 1.1 phil | "(" ENDWIN ")" { $$ = 1; } 213 1.1 phil ; 214 1.1 phil 215 1.17 martin expaction : /* empty */ { cur_menu->info->expact.code = ""; } 216 1.17 martin | EXPAND action ";" { if (!do_expands) yyerror ("Menu expands " 217 1.17 martin "not enabled"); 218 1.17 martin cur_menu->info->expact = $2; } 219 1.17 martin ; 220 1.17 martin 221 1.1 phil dispact : /* empty */ { cur_menu->info->postact.code = ""; } 222 1.1 phil | DISPLAY action ";" { cur_menu->info->postact = $2; } 223 1.1 phil ; 224 1.1 phil 225 1.1 phil 226 1.1 phil exitact : /* empty */ { cur_menu->info->exitact.code = ""; } 227 1.1 phil | EXIT action ";" { cur_menu->info->exitact = $2; } 228 1.1 phil ; 229 1.1 phil 230 1.3 phil helpstr : /* empty */ { cur_menu->info->helpstr = NULL; } 231 1.14 dsl | HELP CODE ";" { asprintf(&cur_menu->info->helpstr, "\"%s\"", $2); } 232 1.14 dsl | HELP text ";" { cur_menu->info->helpstr = $2; } 233 1.3 phil ; 234