projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* rclex.l: Add casts and change types to avoid warnings.
[deliverable/binutils-gdb.git] / binutils / rcparse.y
CommitLineData
1d371d35
ILT		 1%{ /* rcparse.y -- parser for Windows rc files
2 Copyright 1997 Free Software Foundation, Inc.
3 Written by Ian Lance Taylor, Cygnus Support.
4
5 This file is part of GNU Binutils.
6
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
11
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
16
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
20 02111-1307, USA. */
21
22/* This is a parser for Windows rc files. It is based on the parser
23 by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */
24
25#include "bfd.h"
26#include "bucomm.h"
27#include "libiberty.h"
28#include "windres.h"
29
662cc41e 30#include <ctype.h>
1d371d35 31
662cc41e
ILT		 32/* The current language. */
33
34static unsigned short language;
1d371d35
ILT		 35
36/* The resource information during a sub statement. */
37
38static struct res_res_info sub_res_info;
39
40/* Dialog information. This is built by the nonterminals styles and
41 controls. */
42
43static struct dialog dialog;
44
45/* This is used when building a style. It is modified by the
46 nonterminal styleexpr. */
47
48static unsigned long style;
49
50/* These are used when building a control. They are set before using
51 control_params. */
52
53static unsigned long base_style;
54static unsigned long default_style;
55static unsigned long class;
56
57%}
58
59%union
60{
61 struct accelerator acc;
62 struct accelerator *pacc;
63 struct dialog_control *dialog_control;
64 struct menuitem *menuitem;
662cc41e
ILT		 65 struct
66 {
67 struct rcdata_item *first;
68 struct rcdata_item *last;
69 } rcdata;
70 struct rcdata_item *rcdata_item;
1d371d35
ILT		 71 struct stringtable_data *stringtable;
72 struct fixed_versioninfo *fixver;
73 struct ver_info *verinfo;
74 struct ver_stringinfo *verstring;
75 struct ver_varinfo *vervar;
76 struct res_id id;
77 struct res_res_info res_info;
78 struct
79 {
80 unsigned short on;
81 unsigned short off;
82 } memflags;
83 struct
84 {
85 unsigned long val;
86 /* Nonzero if this number was explicitly specified as long. */
87 int dword;
88 } i;
89 unsigned long il;
90 unsigned short is;
662cc41e
ILT		 91 const char *s;
92 struct
93 {
94 unsigned long length;
95 const char *s;
96 } ss;
1d371d35
ILT		 97};
98
99%token BEG END
100%token ACCELERATORS VIRTKEY ASCII NOINVERT SHIFT CONTROL ALT
101%token BITMAP
102%token CURSOR
103%token DIALOG DIALOGEX EXSTYLE CAPTION CLASS STYLE
104%token AUTO3STATE AUTOCHECKBOX AUTORADIOBUTTON CHECKBOX COMBOBOX CTEXT
105%token DEFPUSHBUTTON EDITTEXT GROUPBOX LISTBOX LTEXT PUSHBOX PUSHBUTTON
106%token RADIOBUTTON RTEXT SCROLLBAR STATE3 USERBUTTON
107%token BEDIT HEDIT IEDIT
108%token FONT
109%token ICON
72574626 110%token LANGUAGE CHARACTERISTICS VERSIONK
1d371d35
ILT		 111%token MENU MENUEX MENUITEM SEPARATOR POPUP CHECKED GRAYED HELP INACTIVE
112%token MENUBARBREAK MENUBREAK
113%token MESSAGETABLE
114%token RCDATA
115%token STRINGTABLE
116%token VERSIONINFO FILEVERSION PRODUCTVERSION FILEFLAGSMASK FILEFLAGS
117%token FILEOS FILETYPE FILESUBTYPE BLOCKSTRINGFILEINFO BLOCKVARFILEINFO
118%token VALUE
119%token <s> BLOCK
120%token MOVEABLE FIXED PURE IMPURE PRELOAD LOADONCALL DISCARDABLE
121%token NOT
122%token <s> QUOTEDSTRING STRING
123%token <i> NUMBER
662cc41e 124%token <ss> SIZEDSTRING
1d371d35
ILT		 125
126%type <pacc> acc_entries
127%type <acc> acc_entry acc_event
128%type <dialog_control> control control_params
129%type <menuitem> menuitems menuitem menuexitems menuexitem
662cc41e
ILT		 130%type <rcdata> optrcdata_data optrcdata_data_int rcdata_data
131%type <rcdata_item> opt_control_data
1d371d35
ILT		 132%type <fixver> fixedverinfo
133%type <verinfo> verblocks
134%type <verstring> vervals
135%type <vervar> vertrans
136%type <res_info> suboptions memflags_move_discard memflags_move
137%type <memflags> memflag
138%type <id> id
139%type <il> exstyle parennumber
140%type <il> numexpr posnumexpr cnumexpr optcnumexpr cposnumexpr
141%type <is> acc_options acc_option menuitem_flags menuitem_flag
142%type <s> optstringc file_name
143%type <i> sizednumexpr sizedposnumexpr
144
145%left '|'
146%left '^'
147%left '&'
148%left '+' '-'
149%left '*' '/' '%'
150%right '~' NEG
151
152%%
153
154input:
155 /* empty */
662cc41e
ILT		 156 | input newcmd accelerator
157 | input newcmd bitmap
158 | input newcmd cursor
159 | input newcmd dialog
160 | input newcmd font
161 | input newcmd icon
162 | input newcmd language
163 | input newcmd menu
164 | input newcmd menuex
165 | input newcmd messagetable
166 | input newcmd rcdata
167 | input newcmd stringtable
168 | input newcmd user
169 | input newcmd versioninfo
170 ;
171
172newcmd:
173 /* empty */
174 {
175 rcparse_discard_strings ();
176 }
1d371d35
ILT		 177 ;
178
179/* Accelerator resources. */
180
181accelerator:
182 id ACCELERATORS suboptions BEG acc_entries END
183 {
184 define_accelerator ($1, &$3, $5);
185 }
186 ;
187
188acc_entries:
189 /* empty */
190 {
191 $$ = NULL;
192 }
193 | acc_entries acc_entry
194 {
195 struct accelerator *a;
196
662cc41e 197 a = (struct accelerator *) res_alloc (sizeof *a);
1d371d35
ILT		 198 *a = $2;
199 if ($1 == NULL)
200 $$ = a;
201 else
202 {
203 struct accelerator **pp;
204
205 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
206 ;
207 *pp = a;
208 $$ = $1;
209 }
210 }
211 ;
212
213acc_entry:
214 acc_event cposnumexpr
215 {
216 $$ = $1;
217 $$.id = $2;
218 }
219 | acc_event cposnumexpr ',' acc_options
220 {
221 $$ = $1;
222 $$.id = $2;
223 $$.flags |= $4;
72574626
ILT		 224 if (($$.flags & ACC_VIRTKEY) == 0
225 && ($$.flags & (ACC_SHIFT | ACC_CONTROL | ACC_ALT)) != 0)
226 rcparse_warning (_("inappropriate modifiers for non-VIRTKEY"));
1d371d35
ILT		 227 }
228 ;
229
230acc_event:
231 QUOTEDSTRING
232 {
662cc41e 233 const char *s = $1;
72574626 234 char ch;
1d371d35 235
72574626 236 $$.next = NULL;
1d371d35 237 $$.id = 0;
72574626
ILT		 238 ch = *s;
239 if (ch != '^')
1d371d35
ILT		 240 $$.flags = 0;
241 else
242 {
72574626 243 $$.flags = ACC_CONTROL | ACC_VIRTKEY;
1d371d35 244 ++s;
72574626
ILT		 245 ch = *s;
246 ch = toupper ((unsigned char) ch);
1d371d35 247 }
72574626 248 $$.key = ch;
1d371d35 249 if (s[1] != '\0')
72574626 250 rcparse_warning (_("accelerator should only be one character"));
1d371d35
ILT		 251 }
252 | posnumexpr
253 {
72574626 254 $$.next = NULL;
1d371d35
ILT		 255 $$.flags = 0;
256 $$.id = 0;
257 $$.key = $1;
258 }
259 ;
260
261acc_options:
262 acc_option
263 {
264 $$ = $1;
265 }
266 | acc_options ',' acc_option
267 {
268 $$ = $1 | $3;
269 }
72574626
ILT		 270 /* I've had one report that the comma is optional. */
271 | acc_options acc_option
272 {
273 $$ = $1 | $2;
274 }
1d371d35
ILT		 275 ;
276
277acc_option:
278 VIRTKEY
279 {
280 $$ = ACC_VIRTKEY;
281 }
282 | ASCII
283 {
284 /* This is just the absence of VIRTKEY. */
285 $$ = 0;
286 }
287 | NOINVERT
288 {
289 $$ = ACC_NOINVERT;
290 }
291 | SHIFT
292 {
293 $$ = ACC_SHIFT;
294 }
295 | CONTROL
296 {
297 $$ = ACC_CONTROL;
298 }
299 | ALT
300 {
301 $$ = ACC_ALT;
302 }
303 ;
304
305/* Bitmap resources. */
306
307bitmap:
308 id BITMAP memflags_move file_name
309 {
310 define_bitmap ($1, &$3, $4);
1d371d35
ILT		 311 }
312 ;
313
314/* Cursor resources. */
315
316cursor:
317 id CURSOR memflags_move_discard file_name
318 {
319 define_cursor ($1, &$3, $4);
1d371d35
ILT		 320 }
321 ;
322
323/* Dialog resources. */
324
325dialog:
326 id DIALOG memflags_move exstyle posnumexpr cnumexpr cnumexpr
327 cnumexpr
328 {
329 memset (&dialog, 0, sizeof dialog);
330 dialog.x = $5;
331 dialog.y = $6;
332 dialog.width = $7;
333 dialog.height = $8;
334 dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
335 dialog.exstyle = $4;
e42872a2
ILT		 336 dialog.menu.named = 1;
337 dialog.class.named = 1;
1d371d35
ILT		 338 dialog.font = NULL;
339 dialog.ex = NULL;
340 dialog.controls = NULL;
341 sub_res_info = $3;
342 }
343 styles BEG controls END
344 {
345 define_dialog ($1, &sub_res_info, &dialog);
346 }
347 | id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr
348 cnumexpr
349 {
350 memset (&dialog, 0, sizeof dialog);
351 dialog.x = $5;
352 dialog.y = $6;
353 dialog.width = $7;
354 dialog.height = $8;
355 dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
356 dialog.exstyle = $4;
e42872a2
ILT		 357 dialog.menu.named = 1;
358 dialog.class.named = 1;
1d371d35
ILT		 359 dialog.font = NULL;
360 dialog.ex = ((struct dialog_ex *)
662cc41e 361 res_alloc (sizeof (struct dialog_ex)));
1d371d35
ILT		 362 memset (dialog.ex, 0, sizeof (struct dialog_ex));
363 dialog.controls = NULL;
364 sub_res_info = $3;
365 }
366 styles BEG controls END
367 {
368 define_dialog ($1, &sub_res_info, &dialog);
369 }
370 | id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr
371 cnumexpr cnumexpr
372 {
373 memset (&dialog, 0, sizeof dialog);
374 dialog.x = $5;
375 dialog.y = $6;
376 dialog.width = $7;
377 dialog.height = $8;
378 dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
379 dialog.exstyle = $4;
e42872a2
ILT		 380 dialog.menu.named = 1;
381 dialog.class.named = 1;
1d371d35
ILT		 382 dialog.font = NULL;
383 dialog.ex = ((struct dialog_ex *)
662cc41e 384 res_alloc (sizeof (struct dialog_ex)));
1d371d35
ILT		 385 memset (dialog.ex, 0, sizeof (struct dialog_ex));
386 dialog.ex->help = $9;
387 dialog.controls = NULL;
388 sub_res_info = $3;
389 }
390 styles BEG controls END
391 {
392 define_dialog ($1, &sub_res_info, &dialog);
393 }
394 ;
395
396exstyle:
397 /* empty */
398 {
399 $$ = 0;
400 }
401 | EXSTYLE '=' numexpr
402 {
403 $$ = $3;
404 }
405 ;
406
407styles:
408 /* empty */
409 | styles CAPTION QUOTEDSTRING
410 {
662cc41e 411 unicode_from_ascii ((int *) NULL, &dialog.caption, $3);
1d371d35
ILT		 412 }
413 | styles CLASS id
414 {
415 dialog.class = $3;
416 }
417 | styles STYLE
a89c9be0 418 { style = dialog.style; }
1d371d35
ILT		 419 styleexpr
420 {
421 dialog.style = style;
422 }
423 | styles EXSTYLE numexpr
424 {
425 dialog.exstyle = $3;
426 }
427 | styles FONT numexpr ',' QUOTEDSTRING
428 {
e42872a2 429 dialog.style |= DS_SETFONT;
1d371d35 430 dialog.pointsize = $3;
662cc41e 431 unicode_from_ascii ((int *) NULL, &dialog.font, $5);
1d371d35
ILT		 432 }
433 | styles FONT numexpr ',' QUOTEDSTRING cnumexpr cnumexpr
434 {
e42872a2 435 dialog.style |= DS_SETFONT;
1d371d35 436 dialog.pointsize = $3;
662cc41e 437 unicode_from_ascii ((int *) NULL, &dialog.font, $5);
1d371d35 438 if (dialog.ex == NULL)
72574626 439 rcparse_warning (_("extended FONT requires DIALOGEX"));
1d371d35
ILT		 440 else
441 {
442 dialog.ex->weight = $6;
443 dialog.ex->italic = $7;
444 }
445 }
446 | styles MENU id
447 {
448 dialog.menu = $3;
449 }
450 | styles CHARACTERISTICS numexpr
451 {
452 sub_res_info.characteristics = $3;
453 }
454 | styles LANGUAGE numexpr cnumexpr
455 {
456 sub_res_info.language = $3 | ($4 << 8);
457 }
72574626 458 | styles VERSIONK numexpr
1d371d35
ILT		 459 {
460 sub_res_info.version = $3;
461 }
462 ;
463
464controls:
465 /* empty */
466 | controls control
467 {
468 struct dialog_control **pp;
469
470 for (pp = &dialog.controls; *pp != NULL; pp = &(*pp)->next)
471 ;
472 *pp = $2;
473 }
474 ;
475
476control:
477 AUTO3STATE
478 {
479 default_style = BS_AUTO3STATE | WS_TABSTOP;
480 base_style = BS_AUTO3STATE;
481 class = CTL_BUTTON;
482 }
483 control_params
484 {
485 $$ = $3;
486 }
487 | AUTOCHECKBOX
488 {
489 default_style = BS_AUTOCHECKBOX | WS_TABSTOP;
490 base_style = BS_AUTOCHECKBOX;
491 class = CTL_BUTTON;
492 }
493 control_params
494 {
495 $$ = $3;
496 }
497 | AUTORADIOBUTTON
498 {
499 default_style = BS_AUTORADIOBUTTON | WS_TABSTOP;
500 base_style = BS_AUTORADIOBUTTON;
501 class = CTL_BUTTON;
502 }
503 control_params
504 {
505 $$ = $3;
506 }
507 | BEDIT
508 {
509 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
510 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
511 class = CTL_EDIT;
512 }
513 control_params
514 {
515 $$ = $3;
516 if (dialog.ex == NULL)
72574626 517 rcparse_warning (_("IEDIT requires DIALOGEX"));
1d371d35
ILT		 518 res_string_to_id (&$$->class, "BEDIT");
519 }
520 | CHECKBOX
521 {
522 default_style = BS_CHECKBOX | WS_TABSTOP;
523 base_style = BS_CHECKBOX | WS_TABSTOP;
524 class = CTL_BUTTON;
525 }
526 control_params
527 {
528 $$ = $3;
529 }
530 | COMBOBOX
531 {
532 default_style = CBS_SIMPLE | WS_TABSTOP;
533 base_style = 0;
534 class = CTL_COMBOBOX;
535 }
536 control_params
537 {
538 $$ = $3;
539 }
540 | CONTROL optstringc numexpr cnumexpr control_styleexpr cnumexpr
541 cnumexpr cnumexpr cnumexpr optcnumexpr opt_control_data
542 {
543 $$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10);
544 if ($11 != NULL)
545 {
546 if (dialog.ex == NULL)
72574626 547 rcparse_warning (_("control data requires DIALOGEX"));
1d371d35
ILT		 548 $$->data = $11;
549 }
550 }
551 | CONTROL optstringc numexpr cnumexpr control_styleexpr cnumexpr
552 cnumexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data
553 {
554 $$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10);
555 if (dialog.ex == NULL)
72574626 556 rcparse_warning (_("help ID requires DIALOGEX"));
1d371d35
ILT		 557 $$->help = $11;
558 $$->data = $12;
559 }
560 | CTEXT
561 {
562 default_style = SS_CENTER | WS_GROUP;
563 base_style = SS_CENTER;
564 class = CTL_STATIC;
565 }
566 control_params
567 {
568 $$ = $3;
569 }
570 | DEFPUSHBUTTON
571 {
572 default_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
573 base_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
574 class = CTL_BUTTON;
575 }
576 control_params
577 {
578 $$ = $3;
579 }
580 | EDITTEXT
581 {
582 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
583 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
584 class = CTL_EDIT;
585 }
586 control_params
587 {
588 $$ = $3;
589 }
590 | GROUPBOX
591 {
592 default_style = BS_GROUPBOX;
593 base_style = BS_GROUPBOX;
594 class = CTL_BUTTON;
595 }
596 control_params
597 {
598 $$ = $3;
599 }
600 | HEDIT
601 {
602 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
603 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
604 class = CTL_EDIT;
605 }
606 control_params
607 {
608 $$ = $3;
609 if (dialog.ex == NULL)
72574626 610 rcparse_warning (_("IEDIT requires DIALOGEX"));
1d371d35
ILT		 611 res_string_to_id (&$$->class, "HEDIT");
612 }
613 | ICON optstringc numexpr cnumexpr cnumexpr opt_control_data
614 {
615 $$ = define_control ($2, $3, $4, $5, 0, 0, CTL_STATIC,
616 SS_ICON | WS_CHILD | WS_VISIBLE, 0);
617 if ($6 != NULL)
618 {
619 if (dialog.ex == NULL)
72574626 620 rcparse_warning (_("control data requires DIALOGEX"));
1d371d35
ILT		 621 $$->data = $6;
622 }
623 }
624 | ICON optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
625 icon_styleexpr optcnumexpr opt_control_data
626 {
627 $$ = define_control ($2, $3, $4, $5, $6, $7, CTL_STATIC,
628 style, $9);
629 if ($10 != NULL)
630 {
631 if (dialog.ex == NULL)
72574626 632 rcparse_warning (_("control data requires DIALOGEX"));
1d371d35
ILT		 633 $$->data = $10;
634 }
635 }
636 | ICON optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
637 icon_styleexpr cnumexpr cnumexpr opt_control_data
638 {
639 $$ = define_control ($2, $3, $4, $5, $6, $7, CTL_STATIC,
640 style, $9);
641 if (dialog.ex == NULL)
72574626 642 rcparse_warning (_("help ID requires DIALOGEX"));
1d371d35
ILT		 643 $$->help = $10;
644 $$->data = $11;
645 }
646 | IEDIT
647 {
648 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
649 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
650 class = CTL_EDIT;
651 }
652 control_params
653 {
654 $$ = $3;
655 if (dialog.ex == NULL)
72574626 656 rcparse_warning (_("IEDIT requires DIALOGEX"));
1d371d35
ILT		 657 res_string_to_id (&$$->class, "IEDIT");
658 }
659 | LISTBOX
660 {
661 default_style = LBS_NOTIFY | WS_BORDER;
662 base_style = LBS_NOTIFY | WS_BORDER;
663 class = CTL_LISTBOX;
664 }
665 control_params
666 {
667 $$ = $3;
668 }
669 | LTEXT
670 {
671 default_style = SS_LEFT | WS_GROUP;
672 base_style = SS_LEFT;
673 class = CTL_STATIC;
674 }
675 control_params
676 {
677 $$ = $3;
678 }
679 | PUSHBOX
680 {
681 default_style = BS_PUSHBOX | WS_TABSTOP;
682 base_style = BS_PUSHBOX;
683 class = CTL_BUTTON;
684 }
685 control_params
686 {
687 $$ = $3;
688 }
689 | PUSHBUTTON
690 {
691 default_style = BS_PUSHBUTTON | WS_TABSTOP;
692 base_style = BS_PUSHBUTTON | WS_TABSTOP;
693 class = CTL_BUTTON;
694 }
695 control_params
696 {
697 $$ = $3;
698 }
699 | RADIOBUTTON
700 {
701 default_style = BS_RADIOBUTTON | WS_TABSTOP;
702 base_style = BS_RADIOBUTTON;
703 class = CTL_BUTTON;
704 }
705 control_params
706 {
707 $$ = $3;
708 }
709 | RTEXT
710 {
711 default_style = SS_RIGHT | WS_GROUP;
712 base_style = SS_RIGHT;
713 class = CTL_STATIC;
714 }
715 control_params
716 {
717 $$ = $3;
718 }
719 | SCROLLBAR
720 {
721 default_style = SBS_HORZ;
722 base_style = 0;
723 class = CTL_SCROLLBAR;
724 }
725 control_params
726 {
727 $$ = $3;
728 }
729 | STATE3
730 {
731 default_style = BS_3STATE | WS_TABSTOP;
732 base_style = BS_3STATE;
733 class = CTL_BUTTON;
734 }
735 control_params
736 {
737 $$ = $3;
738 }
739 | USERBUTTON QUOTEDSTRING ',' numexpr ',' numexpr ',' numexpr ','
740 numexpr ',' numexpr ','
a89c9be0 741 { style = WS_CHILD | WS_VISIBLE; }
1d371d35
ILT		 742 styleexpr optcnumexpr
743 {
744 $$ = define_control ($2, $4, $6, $8, $10, $12, CTL_BUTTON,
745 style, $16);
746 }
747 ;
748
749/* Parameters for a control. The static variables DEFAULT_STYLE,
750 BASE_STYLE, and CLASS must be initialized before this nonterminal
751 is used. DEFAULT_STYLE is the style to use if no style expression
752 is specified. BASE_STYLE is the base style to use if a style
753 expression is specified; the style expression modifies the base
754 style. CLASS is the class of the control. */
755
756control_params:
757 optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
758 opt_control_data
759 {
760 $$ = define_control ($1, $2, $3, $4, $5, $6, class,
761 default_style | WS_CHILD | WS_VISIBLE, 0);
762 if ($7 != NULL)
763 {
764 if (dialog.ex == NULL)
72574626 765 rcparse_warning (_("control data requires DIALOGEX"));
1d371d35
ILT		 766 $$->data = $7;
767 }
768 }
769 | optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
770 control_params_styleexpr optcnumexpr opt_control_data
771 {
772 $$ = define_control ($1, $2, $3, $4, $5, $6, class, style, $8);
773 if ($9 != NULL)
774 {
775 if (dialog.ex == NULL)
72574626 776 rcparse_warning (_("control data requires DIALOGEX"));
1d371d35
ILT		 777 $$->data = $9;
778 }
779 }
780 | optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
781 control_params_styleexpr cnumexpr cnumexpr opt_control_data
782 {
783 $$ = define_control ($1, $2, $3, $4, $5, $6, class, style, $8);
784 if (dialog.ex == NULL)
72574626 785 rcparse_warning (_("help ID requires DIALOGEX"));
1d371d35
ILT		 786 $$->help = $9;
787 $$->data = $10;
788 }
789 ;
790
791optstringc:
792 /* empty */
793 {
794 $$ = NULL;
795 }
796 | QUOTEDSTRING ','
797 {
798 $$ = $1;
799 }
800 ;
801
802opt_control_data:
803 /* empty */
804 {
805 $$ = NULL;
806 }
807 | BEG optrcdata_data END
808 {
662cc41e 809 $$ = $2.first;
1d371d35
ILT		 810 }
811 ;
812
813/* These only exist to parse a reduction out of a common case. */
814
815control_styleexpr:
816 ','
817 { style = WS_CHILD | WS_VISIBLE; }
818 styleexpr
819 ;
820
821icon_styleexpr:
822 ','
823 { style = SS_ICON | WS_CHILD | WS_VISIBLE; }
824 styleexpr
825 ;
826
827control_params_styleexpr:
828 ','
829 { style = base_style | WS_CHILD | WS_VISIBLE; }
830 styleexpr
831 ;
832
833/* Font resources. */
834
835font:
836 id FONT memflags_move_discard file_name
837 {
838 define_font ($1, &$3, $4);
1d371d35
ILT		 839 }
840 ;
841
842/* Icon resources. */
843
844icon:
845 id ICON memflags_move_discard file_name
846 {
847 define_icon ($1, &$3, $4);
1d371d35
ILT		 848 }
849 ;
850
851/* Language command. This changes the static variable language, which
852 affects all subsequent resources. */
853
854language:
855 LANGUAGE numexpr cnumexpr
856 {
857 language = $2 | ($3 << 8);
858 }
859 ;
860
861/* Menu resources. */
862
863menu:
864 id MENU suboptions BEG menuitems END
865 {
866 define_menu ($1, &$3, $5);
867 }
868 ;
869
870menuitems:
871 /* empty */
872 {
873 $$ = NULL;
874 }
875 | menuitems menuitem
876 {
877 if ($1 == NULL)
878 $$ = $2;
879 else
880 {
881 struct menuitem **pp;
882
883 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
884 ;
885 *pp = $2;
886 $$ = $1;
887 }
888 }
889 ;
890
891menuitem:
892 MENUITEM QUOTEDSTRING cnumexpr menuitem_flags
893 {
894 $$ = define_menuitem ($2, $3, $4, 0, 0, NULL);
895 }
896 | MENUITEM SEPARATOR
897 {
898 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
899 }
900 | POPUP QUOTEDSTRING menuitem_flags BEG menuitems END
901 {
902 $$ = define_menuitem ($2, 0, $3, 0, 0, $5);
903 }
904 ;
905
906menuitem_flags:
907 /* empty */
908 {
909 $$ = 0;
910 }
911 | menuitem_flags ',' menuitem_flag
912 {
913 $$ = $1 | $3;
914 }
915 | menuitem_flags menuitem_flag
916 {
917 $$ = $1 | $2;
918 }
919 ;
920
921menuitem_flag:
922 CHECKED
923 {
924 $$ = MENUITEM_CHECKED;
925 }
926 | GRAYED
927 {
928 $$ = MENUITEM_GRAYED;
929 }
930 | HELP
931 {
932 $$ = MENUITEM_HELP;
933 }
934 | INACTIVE
935 {
936 $$ = MENUITEM_INACTIVE;
937 }
938 | MENUBARBREAK
939 {
940 $$ = MENUITEM_MENUBARBREAK;
941 }
942 | MENUBREAK
943 {
944 $$ = MENUITEM_MENUBREAK;
945 }
946 ;
947
948/* Menuex resources. */
949
950menuex:
951 id MENUEX suboptions BEG menuexitems END
952 {
953 define_menu ($1, &$3, $5);
954 }
955 ;
956
957menuexitems:
958 /* empty */
959 {
960 $$ = NULL;
961 }
962 | menuexitems menuexitem
963 {
964 if ($1 == NULL)
965 $$ = $2;
966 else
967 {
968 struct menuitem **pp;
969
970 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
971 ;
972 *pp = $2;
973 $$ = $1;
974 }
975 }
976 ;
977
978menuexitem:
979 MENUITEM QUOTEDSTRING
980 {
981 $$ = define_menuitem ($2, 0, 0, 0, 0, NULL);
982 }
983 | MENUITEM QUOTEDSTRING cnumexpr
984 {
985 $$ = define_menuitem ($2, $3, 0, 0, 0, NULL);
986 }
987 | MENUITEM QUOTEDSTRING cnumexpr cnumexpr optcnumexpr
988 {
989 $$ = define_menuitem ($2, $3, $4, $5, 0, NULL);
990 }
991 | POPUP QUOTEDSTRING BEG menuexitems END
992 {
993 $$ = define_menuitem ($2, 0, 0, 0, 0, $4);
994 }
995 | POPUP QUOTEDSTRING cnumexpr BEG menuexitems END
996 {
997 $$ = define_menuitem ($2, $3, 0, 0, 0, $5);
998 }
999 | POPUP QUOTEDSTRING cnumexpr cnumexpr BEG menuexitems END
1000 {
1001 $$ = define_menuitem ($2, $3, $4, 0, 0, $6);
1002 }
1003 | POPUP QUOTEDSTRING cnumexpr cnumexpr cnumexpr optcnumexpr
1004 BEG menuexitems END
1005 {
1006 $$ = define_menuitem ($2, $3, $4, $5, $6, $8);
1007 }
1008 ;
1009
1010/* Messagetable resources. */
1011
1012messagetable:
1013 id MESSAGETABLE memflags_move file_name
1014 {
1015 define_messagetable ($1, &$3, $4);
1d371d35
ILT		 1016 }
1017 ;
1018
1019/* Rcdata resources. */
1020
1021rcdata:
1022 id RCDATA suboptions BEG optrcdata_data END
1023 {
662cc41e 1024 define_rcdata ($1, &$3, $5.first);
1d371d35
ILT		 1025 }
1026 ;
1027
662cc41e
ILT		 1028/* We use a different lexing algorithm, because rcdata strings may
1029 contain embedded null bytes, and we need to know the length to use. */
1030
1d371d35 1031optrcdata_data:
662cc41e
ILT		 1032 {
1033 rcparse_rcdata ();
1034 }
1035 optrcdata_data_int
1036 {
1037 rcparse_normal ();
1038 $$ = $2;
1039 }
1040 ;
1041
1042optrcdata_data_int:
1d371d35
ILT		 1043 /* empty */
1044 {
662cc41e
ILT		 1045 $$.first = NULL;
1046 $$.last = NULL;
1d371d35
ILT		 1047 }
1048 | rcdata_data
1049 {
1050 $$ = $1;
1051 }
1052 ;
1053
1054rcdata_data:
662cc41e 1055 SIZEDSTRING
1d371d35 1056 {
662cc41e
ILT		 1057 struct rcdata_item *ri;
1058
1059 ri = define_rcdata_string ($1.s, $1.length);
1060 $$.first = ri;
1061 $$.last = ri;
1d371d35
ILT		 1062 }
1063 | sizednumexpr
1064 {
662cc41e
ILT		 1065 struct rcdata_item *ri;
1066
1067 ri = define_rcdata_number ($1.val, $1.dword);
1068 $$.first = ri;
1069 $$.last = ri;
1d371d35 1070 }
662cc41e 1071 | rcdata_data ',' SIZEDSTRING
1d371d35 1072 {
662cc41e
ILT		 1073 struct rcdata_item *ri;
1074
1075 ri = define_rcdata_string ($3.s, $3.length);
1076 $$.first = $1.first;
1077 $1.last->next = ri;
1078 $$.last = ri;
1d371d35
ILT		 1079 }
1080 | rcdata_data ',' sizednumexpr
1081 {
662cc41e
ILT		 1082 struct rcdata_item *ri;
1083
1084 ri = define_rcdata_number ($3.val, $3.dword);
1085 $$.first = $1.first;
1086 $1.last->next = ri;
1087 $$.last = ri;
1d371d35
ILT		 1088 }
1089 ;
1090
1091/* Stringtable resources. */
1092
1093stringtable:
1094 STRINGTABLE suboptions BEG
1095 { sub_res_info = $2; }
1096 string_data END
1097 ;
1098
1099string_data:
1100 /* empty */
1101 | string_data numexpr QUOTEDSTRING
1102 {
1103 define_stringtable (&sub_res_info, $2, $3);
1104 }
1105 | string_data numexpr ',' QUOTEDSTRING
1106 {
1107 define_stringtable (&sub_res_info, $2, $4);
1108 }
1109 ;
1110
1111/* User defined resources. We accept general suboptions in the
1112 file_name case to keep the parser happy. */
1113
1114user:
662cc41e 1115 id id suboptions BEG optrcdata_data END
1d371d35 1116 {
662cc41e 1117 define_user_data ($1, $2, &$3, $5.first);
1d371d35
ILT		 1118 }
1119 | id id suboptions file_name
1120 {
1121 define_user_file ($1, $2, &$3, $4);
1d371d35
ILT		 1122 }
1123 ;
1124
1125/* Versioninfo resources. */
1126
1127versioninfo:
1128 id VERSIONINFO fixedverinfo BEG verblocks END
1129 {
1130 define_versioninfo ($1, language, $3, $5);
1131 }
1132 ;
1133
1134fixedverinfo:
1135 /* empty */
1136 {
1137 $$ = ((struct fixed_versioninfo *)
662cc41e 1138 res_alloc (sizeof (struct fixed_versioninfo)));
1d371d35
ILT		 1139 memset ($$, 0, sizeof (struct fixed_versioninfo));
1140 }
1141 | fixedverinfo FILEVERSION numexpr cnumexpr cnumexpr cnumexpr
1142 {
1143 $1->file_version_ms = ($3 << 16) | $4;
1144 $1->file_version_ls = ($5 << 16) | $6;
1145 $$ = $1;
1146 }
1147 | fixedverinfo PRODUCTVERSION numexpr cnumexpr cnumexpr cnumexpr
1148 {
1149 $1->product_version_ms = ($3 << 16) | $4;
1150 $1->product_version_ls = ($5 << 16) | $6;
1151 $$ = $1;
1152 }
1153 | fixedverinfo FILEFLAGSMASK numexpr
1154 {
1155 $1->file_flags_mask = $3;
1156 $$ = $1;
1157 }
1158 | fixedverinfo FILEFLAGS numexpr
1159 {
1160 $1->file_flags = $3;
1161 $$ = $1;
1162 }
1163 | fixedverinfo FILEOS numexpr
1164 {
1165 $1->file_os = $3;
1166 $$ = $1;
1167 }
1168 | fixedverinfo FILETYPE numexpr
1169 {
1170 $1->file_type = $3;
1171 $$ = $1;
1172 }
1173 | fixedverinfo FILESUBTYPE numexpr
1174 {
1175 $1->file_subtype = $3;
1176 $$ = $1;
1177 }
1178 ;
1179
1180/* To handle verblocks successfully, the lexer handles BLOCK
1181 specially. A BLOCK "StringFileInfo" is returned as
1182 BLOCKSTRINGFILEINFO. A BLOCK "VarFileInfo" is returned as
1183 BLOCKVARFILEINFO. A BLOCK with some other string returns BLOCK
1184 with the string as the value. */
1185
1186verblocks:
1187 /* empty */
1188 {
1189 $$ = NULL;
1190 }
1191 | verblocks BLOCKSTRINGFILEINFO BEG BLOCK BEG vervals END END
1192 {
1193 $$ = append_ver_stringfileinfo ($1, $4, $6);
1194 }
1195 | verblocks BLOCKVARFILEINFO BEG VALUE QUOTEDSTRING vertrans END
1196 {
1197 $$ = append_ver_varfileinfo ($1, $5, $6);
1198 }
1199 ;
1200
1201vervals:
1202 /* empty */
1203 {
1204 $$ = NULL;
1205 }
1206 | vervals VALUE QUOTEDSTRING ',' QUOTEDSTRING
1207 {
1208 $$ = append_verval ($1, $3, $5);
1209 }
1210 ;
1211
1212vertrans:
1213 /* empty */
1214 {
1215 $$ = NULL;
1216 }
1217 | vertrans cnumexpr cnumexpr
1218 {
1219 $$ = append_vertrans ($1, $2, $3);
1220 }
1221 ;
1222
1223/* A resource ID. */
1224
1225id:
1226 posnumexpr
1227 {
1228 $$.named = 0;
1229 $$.u.id = $1;
1230 }
1231 | STRING
1232 {
662cc41e
ILT		 1233 char *copy, *s;
1234
1235 /* It seems that resource ID's are forced to upper case. */
1236 copy = xstrdup ($1);
1237 for (s = copy; *s != '\0'; s++)
72574626
ILT		 1238 if (islower ((unsigned char) *s))
1239 *s = toupper ((unsigned char) *s);
662cc41e
ILT		 1240 res_string_to_id (&$$, copy);
1241 free (copy);
1d371d35
ILT		 1242 }
1243 ;
1244
1245/* Generic suboptions. These may appear before the BEGIN in any
1246 multiline statement. */
1247
1248suboptions:
1249 /* empty */
1250 {
1251 memset (&$$, 0, sizeof (struct res_res_info));
1252 $$.language = language;
1253 /* FIXME: Is this the right default? */
1254 $$.memflags = MEMFLAG_MOVEABLE;
1255 }
1256 | suboptions memflag
1257 {
1258 $$ = $1;
1259 $$.memflags |= $2.on;
1260 $$.memflags &=~ $2.off;
1261 }
1262 | suboptions CHARACTERISTICS numexpr
1263 {
1264 $$ = $1;
1265 $$.characteristics = $3;
1266 }
1267 | suboptions LANGUAGE numexpr cnumexpr
1268 {
1269 $$ = $1;
1270 $$.language = $3 | ($4 << 8);
1271 }
72574626 1272 | suboptions VERSIONK numexpr
1d371d35
ILT		 1273 {
1274 $$ = $1;
1275 $$.version = $3;
1276 }
1277 ;
1278
1279/* Memory flags which default to MOVEABLE and DISCARDABLE. */
1280
1281memflags_move_discard:
1282 /* empty */
1283 {
1284 memset (&$$, 0, sizeof (struct res_res_info));
1285 $$.language = language;
1286 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_DISCARDABLE;
1287 }
1288 | memflags_move_discard memflag
1289 {
1290 $$ = $1;
1291 $$.memflags |= $2.on;
1292 $$.memflags &=~ $2.off;
1293 }
1294 ;
1295
1296/* Memory flags which default to MOVEABLE. */
1297
1298memflags_move:
1299 /* empty */
1300 {
1301 memset (&$$, 0, sizeof (struct res_res_info));
1302 $$.language = language;
1303 $$.memflags = MEMFLAG_MOVEABLE;
1304 }
1305 | memflags_move_discard memflag
1306 {
1307 $$ = $1;
1308 $$.memflags |= $2.on;
1309 $$.memflags &=~ $2.off;
1310 }
1311 ;
1312
1313/* Memory flags. This returns a struct with two integers, because we
1314 sometimes want to set bits and we sometimes want to clear them. */
1315
1316memflag:
1317 MOVEABLE
1318 {
1319 $$.on = MEMFLAG_MOVEABLE;
1320 $$.off = 0;
1321 }
1322 | FIXED
1323 {
1324 $$.on = 0;
1325 $$.off = MEMFLAG_MOVEABLE;
1326 }
1327 | PURE
1328 {
1329 $$.on = MEMFLAG_PURE;
1330 $$.off = 0;
1331 }
1332 | IMPURE
1333 {
1334 $$.on = 0;
1335 $$.off = MEMFLAG_PURE;
1336 }
1337 | PRELOAD
1338 {
1339 $$.on = MEMFLAG_PRELOAD;
1340 $$.off = 0;
1341 }
1342 | LOADONCALL
1343 {
1344 $$.on = 0;
1345 $$.off = MEMFLAG_PRELOAD;
1346 }
1347 | DISCARDABLE
1348 {
1349 $$.on = MEMFLAG_DISCARDABLE;
1350 $$.off = 0;
1351 }
1352 ;
1353
1354/* A file name. */
1355
1356file_name:
1357 QUOTEDSTRING
1358 {
1359 $$ = $1;
1360 }
1361 | STRING
1362 {
1363 $$ = $1;
1364 }
1365 ;
1366
1367/* A style expression. This changes the static variable STYLE. We do
1368 it this way because rc appears to permit a style to be set to
1369 something like
1370 WS_GROUP | NOT WS_TABSTOP
1371 to mean that a default of WS_TABSTOP should be removed. Anything
1372 which wants to accept a style must first set STYLE to the default
1373 value. The styleexpr nonterminal will change STYLE as specified by
1374 the user. Note that we do not accept arbitrary expressions here,
1375 just numbers separated by '|'. */
1376
1377styleexpr:
1378 parennumber
1379 {
1380 style |= $1;
1381 }
1382 | NOT parennumber
1383 {
1384 style &=~ $2;
1385 }
1386 | styleexpr '|' parennumber
1387 {
1388 style |= $3;
1389 }
1390 | styleexpr '|' NOT parennumber
1391 {
1392 style &=~ $4;
1393 }
1394 ;
1395
1396parennumber:
1397 NUMBER
1398 {
1399 $$ = $1.val;
1400 }
1401 | '(' numexpr ')'
1402 {
1403 $$ = $2;
1404 }
1405 ;
1406
1407/* An optional expression with a leading comma. */
1408
1409optcnumexpr:
1410 /* empty */
1411 {
1412 $$ = 0;
1413 }
1414 | cnumexpr
1415 {
1416 $$ = $1;
1417 }
1418 ;
1419
1420/* An expression with a leading comma. */
1421
1422cnumexpr:
1423 ',' numexpr
1424 {
1425 $$ = $2;
1426 }
1427 ;
1428
1429/* A possibly negated numeric expression. */
1430
1431numexpr:
1432 sizednumexpr
1433 {
1434 $$ = $1.val;
1435 }
1436 ;
1437
1438/* A possibly negated expression with a size. */
1439
1440sizednumexpr:
1441 NUMBER
1442 {
1443 $$ = $1;
1444 }
1445 | '(' sizednumexpr ')'
1446 {
1447 $$ = $2;
1448 }
1449 | '~' sizednumexpr %prec '~'
1450 {
1451 $$.val = ~ $2.val;
1452 $$.dword = $2.dword;
1453 }
1454 | '-' sizednumexpr %prec NEG
1455 {
1456 $$.val = - $2.val;
1457 $$.dword = $2.dword;
1458 }
1459 | sizednumexpr '*' sizednumexpr
1460 {
1461 $$.val = $1.val * $3.val;
1462 $$.dword = $1.dword || $3.dword;
1463 }
1464 | sizednumexpr '/' sizednumexpr
1465 {
1466 $$.val = $1.val / $3.val;
1467 $$.dword = $1.dword || $3.dword;
1468 }
1469 | sizednumexpr '%' sizednumexpr
1470 {
1471 $$.val = $1.val % $3.val;
1472 $$.dword = $1.dword || $3.dword;
1473 }
1474 | sizednumexpr '+' sizednumexpr
1475 {
1476 $$.val = $1.val + $3.val;
1477 $$.dword = $1.dword || $3.dword;
1478 }
1479 | sizednumexpr '-' sizednumexpr
1480 {
1481 $$.val = $1.val - $3.val;
1482 $$.dword = $1.dword || $3.dword;
1483 }
1484 | sizednumexpr '&' sizednumexpr
1485 {
1486 $$.val = $1.val & $3.val;
1487 $$.dword = $1.dword || $3.dword;
1488 }
1489 | sizednumexpr '^' sizednumexpr
1490 {
1491 $$.val = $1.val ^ $3.val;
1492 $$.dword = $1.dword || $3.dword;
1493 }
1494 | sizednumexpr '|' sizednumexpr
1495 {
1496 $$.val = $1.val | $3.val;
1497 $$.dword = $1.dword || $3.dword;
1498 }
1499 ;
1500
1501/* An expression with a leading comma which does not use unary
1502 negation. */
1503
1504cposnumexpr:
1505 ',' posnumexpr
1506 {
1507 $$ = $2;
1508 }
1509 ;
1510
1511/* An expression which does not use unary negation. */
1512
1513posnumexpr:
1514 sizedposnumexpr
1515 {
1516 $$ = $1.val;
1517 }
1518 ;
1519
1520/* An expression which does not use unary negation. We separate unary
1521 negation to avoid parsing conflicts when two numeric expressions
1522 appear consecutively. */
1523
1524sizedposnumexpr:
1525 NUMBER
1526 {
1527 $$ = $1;
1528 }
1529 | '(' sizednumexpr ')'
1530 {
1531 $$ = $2;
1532 }
1533 | '~' sizednumexpr %prec '~'
1534 {
1535 $$.val = ~ $2.val;
1536 $$.dword = $2.dword;
1537 }
1538 | sizedposnumexpr '*' sizednumexpr
1539 {
1540 $$.val = $1.val * $3.val;
1541 $$.dword = $1.dword || $3.dword;
1542 }
1543 | sizedposnumexpr '/' sizednumexpr
1544 {
1545 $$.val = $1.val / $3.val;
1546 $$.dword = $1.dword || $3.dword;
1547 }
1548 | sizedposnumexpr '%' sizednumexpr
1549 {
1550 $$.val = $1.val % $3.val;
1551 $$.dword = $1.dword || $3.dword;
1552 }
1553 | sizedposnumexpr '+' sizednumexpr
1554 {
1555 $$.val = $1.val + $3.val;
1556 $$.dword = $1.dword || $3.dword;
1557 }
1558 | sizedposnumexpr '-' sizednumexpr
1559 {
1560 $$.val = $1.val - $3.val;
1561 $$.dword = $1.dword || $3.dword;
1562 }
1563 | sizedposnumexpr '&' sizednumexpr
1564 {
1565 $$.val = $1.val & $3.val;
1566 $$.dword = $1.dword || $3.dword;
1567 }
1568 | sizedposnumexpr '^' sizednumexpr
1569 {
1570 $$.val = $1.val ^ $3.val;
1571 $$.dword = $1.dword || $3.dword;
1572 }
1573 | sizedposnumexpr '|' sizednumexpr
1574 {
1575 $$.val = $1.val | $3.val;
1576 $$.dword = $1.dword || $3.dword;
1577 }
1578 ;
1579
1580%%
1581
1582/* Set the language from the command line. */
1583
1584void
1585rcparse_set_language (lang)
1586 int lang;
1587{
1588 language = lang;
1589}
GDB Binutils - Deliverables
This page took 0.150474 seconds and 4 git commands to generate.