projects / deliverable / binutils-gdb.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
19990502 sourceware import
[deliverable/binutils-gdb.git] / binutils / rcparse.y
CommitLineData
252b5132
RH		 1%{ /* rcparse.y -- parser for Windows rc files
2 Copyright 1997, 1998 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
30#include <ctype.h>
31
32/* The current language. */
33
34static unsigned short language;
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;
65 struct
66 {
67 struct rcdata_item *first;
68 struct rcdata_item *last;
69 } rcdata;
70 struct rcdata_item *rcdata_item;
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;
91 const char *s;
92 struct
93 {
94 unsigned long length;
95 const char *s;
96 } ss;
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
110%token LANGUAGE CHARACTERISTICS VERSIONK
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
124%token <ss> SIZEDSTRING
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
130%type <rcdata> optrcdata_data optrcdata_data_int rcdata_data
131%type <rcdata_item> opt_control_data
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 */
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 }
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
197 a = (struct accelerator *) res_alloc (sizeof *a);
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;
224 if (($$.flags & ACC_VIRTKEY) == 0
225 && ($$.flags & (ACC_SHIFT | ACC_CONTROL | ACC_ALT)) != 0)
226 rcparse_warning (_("inappropriate modifiers for non-VIRTKEY"));
227 }
228 ;
229
230acc_event:
231 QUOTEDSTRING
232 {
233 const char *s = $1;
234 char ch;
235
236 $$.next = NULL;
237 $$.id = 0;
238 ch = *s;
239 if (ch != '^')
240 $$.flags = 0;
241 else
242 {
243 $$.flags = ACC_CONTROL | ACC_VIRTKEY;
244 ++s;
245 ch = *s;
246 ch = toupper ((unsigned char) ch);
247 }
248 $$.key = ch;
249 if (s[1] != '\0')
250 rcparse_warning (_("accelerator should only be one character"));
251 }
252 | posnumexpr
253 {
254 $$.next = NULL;
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 }
270 /* I've had one report that the comma is optional. */
271 | acc_options acc_option
272 {
273 $$ = $1 | $2;
274 }
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);
311 }
312 ;
313
314/* Cursor resources. */
315
316cursor:
317 id CURSOR memflags_move_discard file_name
318 {
319 define_cursor ($1, &$3, $4);
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;
336 dialog.menu.named = 1;
337 dialog.class.named = 1;
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;
357 dialog.menu.named = 1;
358 dialog.class.named = 1;
359 dialog.font = NULL;
360 dialog.ex = ((struct dialog_ex *)
361 res_alloc (sizeof (struct dialog_ex)));
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;
380 dialog.menu.named = 1;
381 dialog.class.named = 1;
382 dialog.font = NULL;
383 dialog.ex = ((struct dialog_ex *)
384 res_alloc (sizeof (struct dialog_ex)));
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 {
411 unicode_from_ascii ((int *) NULL, &dialog.caption, $3);
412 }
413 | styles CLASS id
414 {
415 dialog.class = $3;
416 }
417 | styles STYLE
418 { style = dialog.style; }
419 styleexpr
420 {
421 dialog.style = style;
422 }
423 | styles EXSTYLE numexpr
424 {
425 dialog.exstyle = $3;
426 }
427 | styles FONT numexpr ',' QUOTEDSTRING
428 {
429 dialog.style |= DS_SETFONT;
430 dialog.pointsize = $3;
431 unicode_from_ascii ((int *) NULL, &dialog.font, $5);
432 }
433 | styles FONT numexpr ',' QUOTEDSTRING cnumexpr cnumexpr
434 {
435 dialog.style |= DS_SETFONT;
436 dialog.pointsize = $3;
437 unicode_from_ascii ((int *) NULL, &dialog.font, $5);
438 if (dialog.ex == NULL)
439 rcparse_warning (_("extended FONT requires DIALOGEX"));
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 }
458 | styles VERSIONK numexpr
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)
517 rcparse_warning (_("IEDIT requires DIALOGEX"));
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)
547 rcparse_warning (_("control data requires DIALOGEX"));
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)
556 rcparse_warning (_("help ID requires DIALOGEX"));
557 $$->help = $11;
558 $$->data = $12;
559 }
560 | CONTROL optstringc numexpr ',' QUOTEDSTRING control_styleexpr
561 cnumexpr cnumexpr cnumexpr cnumexpr optcnumexpr opt_control_data
562 {
563 $$ = define_control ($2, $3, $7, $8, $9, $10, 0, style, $11);
564 if ($12 != NULL)
565 {
566 if (dialog.ex == NULL)
567 rcparse_warning ("control data requires DIALOGEX");
568 $$->data = $12;
569 }
570 $$->class.named = 1;
571 unicode_from_ascii(&$$->class.u.n.length, &$$->class.u.n.name, $5);
572 }
573 | CONTROL optstringc numexpr ',' QUOTEDSTRING control_styleexpr
574 cnumexpr cnumexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data
575 {
576 $$ = define_control ($2, $3, $7, $8, $9, $10, 0, style, $11);
577 if (dialog.ex == NULL)
578 rcparse_warning ("help ID requires DIALOGEX");
579 $$->help = $12;
580 $$->data = $13;
581 $$->class.named = 1;
582 unicode_from_ascii(&$$->class.u.n.length, &$$->class.u.n.name, $5);
583 }
584 | CTEXT
585 {
586 default_style = SS_CENTER | WS_GROUP;
587 base_style = SS_CENTER;
588 class = CTL_STATIC;
589 }
590 control_params
591 {
592 $$ = $3;
593 }
594 | DEFPUSHBUTTON
595 {
596 default_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
597 base_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
598 class = CTL_BUTTON;
599 }
600 control_params
601 {
602 $$ = $3;
603 }
604 | EDITTEXT
605 {
606 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
607 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
608 class = CTL_EDIT;
609 }
610 control_params
611 {
612 $$ = $3;
613 }
614 | GROUPBOX
615 {
616 default_style = BS_GROUPBOX;
617 base_style = BS_GROUPBOX;
618 class = CTL_BUTTON;
619 }
620 control_params
621 {
622 $$ = $3;
623 }
624 | HEDIT
625 {
626 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
627 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
628 class = CTL_EDIT;
629 }
630 control_params
631 {
632 $$ = $3;
633 if (dialog.ex == NULL)
634 rcparse_warning (_("IEDIT requires DIALOGEX"));
635 res_string_to_id (&$$->class, "HEDIT");
636 }
637 | ICON optstringc numexpr cnumexpr cnumexpr opt_control_data
638 {
639 $$ = define_control ($2, $3, $4, $5, 0, 0, CTL_STATIC,
640 SS_ICON | WS_CHILD | WS_VISIBLE, 0);
641 if ($6 != NULL)
642 {
643 if (dialog.ex == NULL)
644 rcparse_warning (_("control data requires DIALOGEX"));
645 $$->data = $6;
646 }
647 }
648 | ICON optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
649 icon_styleexpr optcnumexpr opt_control_data
650 {
651 $$ = define_control ($2, $3, $4, $5, $6, $7, CTL_STATIC,
652 style, $9);
653 if ($10 != NULL)
654 {
655 if (dialog.ex == NULL)
656 rcparse_warning (_("control data requires DIALOGEX"));
657 $$->data = $10;
658 }
659 }
660 | ICON optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
661 icon_styleexpr cnumexpr cnumexpr opt_control_data
662 {
663 $$ = define_control ($2, $3, $4, $5, $6, $7, CTL_STATIC,
664 style, $9);
665 if (dialog.ex == NULL)
666 rcparse_warning (_("help ID requires DIALOGEX"));
667 $$->help = $10;
668 $$->data = $11;
669 }
670 | IEDIT
671 {
672 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
673 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
674 class = CTL_EDIT;
675 }
676 control_params
677 {
678 $$ = $3;
679 if (dialog.ex == NULL)
680 rcparse_warning (_("IEDIT requires DIALOGEX"));
681 res_string_to_id (&$$->class, "IEDIT");
682 }
683 | LISTBOX
684 {
685 default_style = LBS_NOTIFY | WS_BORDER;
686 base_style = LBS_NOTIFY | WS_BORDER;
687 class = CTL_LISTBOX;
688 }
689 control_params
690 {
691 $$ = $3;
692 }
693 | LTEXT
694 {
695 default_style = SS_LEFT | WS_GROUP;
696 base_style = SS_LEFT;
697 class = CTL_STATIC;
698 }
699 control_params
700 {
701 $$ = $3;
702 }
703 | PUSHBOX
704 {
705 default_style = BS_PUSHBOX | WS_TABSTOP;
706 base_style = BS_PUSHBOX;
707 class = CTL_BUTTON;
708 }
709 control_params
710 {
711 $$ = $3;
712 }
713 | PUSHBUTTON
714 {
715 default_style = BS_PUSHBUTTON | WS_TABSTOP;
716 base_style = BS_PUSHBUTTON | WS_TABSTOP;
717 class = CTL_BUTTON;
718 }
719 control_params
720 {
721 $$ = $3;
722 }
723 | RADIOBUTTON
724 {
725 default_style = BS_RADIOBUTTON | WS_TABSTOP;
726 base_style = BS_RADIOBUTTON;
727 class = CTL_BUTTON;
728 }
729 control_params
730 {
731 $$ = $3;
732 }
733 | RTEXT
734 {
735 default_style = SS_RIGHT | WS_GROUP;
736 base_style = SS_RIGHT;
737 class = CTL_STATIC;
738 }
739 control_params
740 {
741 $$ = $3;
742 }
743 | SCROLLBAR
744 {
745 default_style = SBS_HORZ;
746 base_style = 0;
747 class = CTL_SCROLLBAR;
748 }
749 control_params
750 {
751 $$ = $3;
752 }
753 | STATE3
754 {
755 default_style = BS_3STATE | WS_TABSTOP;
756 base_style = BS_3STATE;
757 class = CTL_BUTTON;
758 }
759 control_params
760 {
761 $$ = $3;
762 }
763 | USERBUTTON QUOTEDSTRING ',' numexpr ',' numexpr ',' numexpr ','
764 numexpr ',' numexpr ','
765 { style = WS_CHILD | WS_VISIBLE; }
766 styleexpr optcnumexpr
767 {
768 $$ = define_control ($2, $4, $6, $8, $10, $12, CTL_BUTTON,
769 style, $16);
770 }
771 ;
772
773/* Parameters for a control. The static variables DEFAULT_STYLE,
774 BASE_STYLE, and CLASS must be initialized before this nonterminal
775 is used. DEFAULT_STYLE is the style to use if no style expression
776 is specified. BASE_STYLE is the base style to use if a style
777 expression is specified; the style expression modifies the base
778 style. CLASS is the class of the control. */
779
780control_params:
781 optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
782 opt_control_data
783 {
784 $$ = define_control ($1, $2, $3, $4, $5, $6, class,
785 default_style | WS_CHILD | WS_VISIBLE, 0);
786 if ($7 != NULL)
787 {
788 if (dialog.ex == NULL)
789 rcparse_warning (_("control data requires DIALOGEX"));
790 $$->data = $7;
791 }
792 }
793 | optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
794 control_params_styleexpr optcnumexpr opt_control_data
795 {
796 $$ = define_control ($1, $2, $3, $4, $5, $6, class, style, $8);
797 if ($9 != NULL)
798 {
799 if (dialog.ex == NULL)
800 rcparse_warning (_("control data requires DIALOGEX"));
801 $$->data = $9;
802 }
803 }
804 | optstringc numexpr cnumexpr cnumexpr cnumexpr cnumexpr
805 control_params_styleexpr cnumexpr cnumexpr opt_control_data
806 {
807 $$ = define_control ($1, $2, $3, $4, $5, $6, class, style, $8);
808 if (dialog.ex == NULL)
809 rcparse_warning (_("help ID requires DIALOGEX"));
810 $$->help = $9;
811 $$->data = $10;
812 }
813 ;
814
815optstringc:
816 /* empty */
817 {
818 $$ = NULL;
819 }
820 | QUOTEDSTRING ','
821 {
822 $$ = $1;
823 }
824 ;
825
826opt_control_data:
827 /* empty */
828 {
829 $$ = NULL;
830 }
831 | BEG optrcdata_data END
832 {
833 $$ = $2.first;
834 }
835 ;
836
837/* These only exist to parse a reduction out of a common case. */
838
839control_styleexpr:
840 ','
841 { style = WS_CHILD | WS_VISIBLE; }
842 styleexpr
843 ;
844
845icon_styleexpr:
846 ','
847 { style = SS_ICON | WS_CHILD | WS_VISIBLE; }
848 styleexpr
849 ;
850
851control_params_styleexpr:
852 ','
853 { style = base_style | WS_CHILD | WS_VISIBLE; }
854 styleexpr
855 ;
856
857/* Font resources. */
858
859font:
860 id FONT memflags_move_discard file_name
861 {
862 define_font ($1, &$3, $4);
863 }
864 ;
865
866/* Icon resources. */
867
868icon:
869 id ICON memflags_move_discard file_name
870 {
871 define_icon ($1, &$3, $4);
872 }
873 ;
874
875/* Language command. This changes the static variable language, which
876 affects all subsequent resources. */
877
878language:
879 LANGUAGE numexpr cnumexpr
880 {
881 language = $2 | ($3 << 8);
882 }
883 ;
884
885/* Menu resources. */
886
887menu:
888 id MENU suboptions BEG menuitems END
889 {
890 define_menu ($1, &$3, $5);
891 }
892 ;
893
894menuitems:
895 /* empty */
896 {
897 $$ = NULL;
898 }
899 | menuitems menuitem
900 {
901 if ($1 == NULL)
902 $$ = $2;
903 else
904 {
905 struct menuitem **pp;
906
907 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
908 ;
909 *pp = $2;
910 $$ = $1;
911 }
912 }
913 ;
914
915menuitem:
916 MENUITEM QUOTEDSTRING cnumexpr menuitem_flags
917 {
918 $$ = define_menuitem ($2, $3, $4, 0, 0, NULL);
919 }
920 | MENUITEM SEPARATOR
921 {
922 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
923 }
924 | POPUP QUOTEDSTRING menuitem_flags BEG menuitems END
925 {
926 $$ = define_menuitem ($2, 0, $3, 0, 0, $5);
927 }
928 ;
929
930menuitem_flags:
931 /* empty */
932 {
933 $$ = 0;
934 }
935 | menuitem_flags ',' menuitem_flag
936 {
937 $$ = $1 | $3;
938 }
939 | menuitem_flags menuitem_flag
940 {
941 $$ = $1 | $2;
942 }
943 ;
944
945menuitem_flag:
946 CHECKED
947 {
948 $$ = MENUITEM_CHECKED;
949 }
950 | GRAYED
951 {
952 $$ = MENUITEM_GRAYED;
953 }
954 | HELP
955 {
956 $$ = MENUITEM_HELP;
957 }
958 | INACTIVE
959 {
960 $$ = MENUITEM_INACTIVE;
961 }
962 | MENUBARBREAK
963 {
964 $$ = MENUITEM_MENUBARBREAK;
965 }
966 | MENUBREAK
967 {
968 $$ = MENUITEM_MENUBREAK;
969 }
970 ;
971
972/* Menuex resources. */
973
974menuex:
975 id MENUEX suboptions BEG menuexitems END
976 {
977 define_menu ($1, &$3, $5);
978 }
979 ;
980
981menuexitems:
982 /* empty */
983 {
984 $$ = NULL;
985 }
986 | menuexitems menuexitem
987 {
988 if ($1 == NULL)
989 $$ = $2;
990 else
991 {
992 struct menuitem **pp;
993
994 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
995 ;
996 *pp = $2;
997 $$ = $1;
998 }
999 }
1000 ;
1001
1002menuexitem:
1003 MENUITEM QUOTEDSTRING
1004 {
1005 $$ = define_menuitem ($2, 0, 0, 0, 0, NULL);
1006 }
1007 | MENUITEM QUOTEDSTRING cnumexpr
1008 {
1009 $$ = define_menuitem ($2, $3, 0, 0, 0, NULL);
1010 }
1011 | MENUITEM QUOTEDSTRING cnumexpr cnumexpr optcnumexpr
1012 {
1013 $$ = define_menuitem ($2, $3, $4, $5, 0, NULL);
1014 }
1015 | MENUITEM SEPARATOR
1016 {
1017 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
1018 }
1019 | POPUP QUOTEDSTRING BEG menuexitems END
1020 {
1021 $$ = define_menuitem ($2, 0, 0, 0, 0, $4);
1022 }
1023 | POPUP QUOTEDSTRING cnumexpr BEG menuexitems END
1024 {
1025 $$ = define_menuitem ($2, $3, 0, 0, 0, $5);
1026 }
1027 | POPUP QUOTEDSTRING cnumexpr cnumexpr BEG menuexitems END
1028 {
1029 $$ = define_menuitem ($2, $3, $4, 0, 0, $6);
1030 }
1031 | POPUP QUOTEDSTRING cnumexpr cnumexpr cnumexpr optcnumexpr
1032 BEG menuexitems END
1033 {
1034 $$ = define_menuitem ($2, $3, $4, $5, $6, $8);
1035 }
1036 ;
1037
1038/* Messagetable resources. */
1039
1040messagetable:
1041 id MESSAGETABLE memflags_move file_name
1042 {
1043 define_messagetable ($1, &$3, $4);
1044 }
1045 ;
1046
1047/* Rcdata resources. */
1048
1049rcdata:
1050 id RCDATA suboptions BEG optrcdata_data END
1051 {
1052 define_rcdata ($1, &$3, $5.first);
1053 }
1054 ;
1055
1056/* We use a different lexing algorithm, because rcdata strings may
1057 contain embedded null bytes, and we need to know the length to use. */
1058
1059optrcdata_data:
1060 {
1061 rcparse_rcdata ();
1062 }
1063 optrcdata_data_int
1064 {
1065 rcparse_normal ();
1066 $$ = $2;
1067 }
1068 ;
1069
1070optrcdata_data_int:
1071 /* empty */
1072 {
1073 $$.first = NULL;
1074 $$.last = NULL;
1075 }
1076 | rcdata_data
1077 {
1078 $$ = $1;
1079 }
1080 ;
1081
1082rcdata_data:
1083 SIZEDSTRING
1084 {
1085 struct rcdata_item *ri;
1086
1087 ri = define_rcdata_string ($1.s, $1.length);
1088 $$.first = ri;
1089 $$.last = ri;
1090 }
1091 | sizednumexpr
1092 {
1093 struct rcdata_item *ri;
1094
1095 ri = define_rcdata_number ($1.val, $1.dword);
1096 $$.first = ri;
1097 $$.last = ri;
1098 }
1099 | rcdata_data ',' SIZEDSTRING
1100 {
1101 struct rcdata_item *ri;
1102
1103 ri = define_rcdata_string ($3.s, $3.length);
1104 $$.first = $1.first;
1105 $1.last->next = ri;
1106 $$.last = ri;
1107 }
1108 | rcdata_data ',' sizednumexpr
1109 {
1110 struct rcdata_item *ri;
1111
1112 ri = define_rcdata_number ($3.val, $3.dword);
1113 $$.first = $1.first;
1114 $1.last->next = ri;
1115 $$.last = ri;
1116 }
1117 ;
1118
1119/* Stringtable resources. */
1120
1121stringtable:
1122 STRINGTABLE suboptions BEG
1123 { sub_res_info = $2; }
1124 string_data END
1125 ;
1126
1127string_data:
1128 /* empty */
1129 | string_data numexpr QUOTEDSTRING
1130 {
1131 define_stringtable (&sub_res_info, $2, $3);
1132 }
1133 | string_data numexpr ',' QUOTEDSTRING
1134 {
1135 define_stringtable (&sub_res_info, $2, $4);
1136 }
1137 ;
1138
1139/* User defined resources. We accept general suboptions in the
1140 file_name case to keep the parser happy. */
1141
1142user:
1143 id id suboptions BEG optrcdata_data END
1144 {
1145 define_user_data ($1, $2, &$3, $5.first);
1146 }
1147 | id id suboptions file_name
1148 {
1149 define_user_file ($1, $2, &$3, $4);
1150 }
1151 ;
1152
1153/* Versioninfo resources. */
1154
1155versioninfo:
1156 id VERSIONINFO fixedverinfo BEG verblocks END
1157 {
1158 define_versioninfo ($1, language, $3, $5);
1159 }
1160 ;
1161
1162fixedverinfo:
1163 /* empty */
1164 {
1165 $$ = ((struct fixed_versioninfo *)
1166 res_alloc (sizeof (struct fixed_versioninfo)));
1167 memset ($$, 0, sizeof (struct fixed_versioninfo));
1168 }
1169 | fixedverinfo FILEVERSION numexpr cnumexpr cnumexpr cnumexpr
1170 {
1171 $1->file_version_ms = ($3 << 16) | $4;
1172 $1->file_version_ls = ($5 << 16) | $6;
1173 $$ = $1;
1174 }
1175 | fixedverinfo PRODUCTVERSION numexpr cnumexpr cnumexpr cnumexpr
1176 {
1177 $1->product_version_ms = ($3 << 16) | $4;
1178 $1->product_version_ls = ($5 << 16) | $6;
1179 $$ = $1;
1180 }
1181 | fixedverinfo FILEFLAGSMASK numexpr
1182 {
1183 $1->file_flags_mask = $3;
1184 $$ = $1;
1185 }
1186 | fixedverinfo FILEFLAGS numexpr
1187 {
1188 $1->file_flags = $3;
1189 $$ = $1;
1190 }
1191 | fixedverinfo FILEOS numexpr
1192 {
1193 $1->file_os = $3;
1194 $$ = $1;
1195 }
1196 | fixedverinfo FILETYPE numexpr
1197 {
1198 $1->file_type = $3;
1199 $$ = $1;
1200 }
1201 | fixedverinfo FILESUBTYPE numexpr
1202 {
1203 $1->file_subtype = $3;
1204 $$ = $1;
1205 }
1206 ;
1207
1208/* To handle verblocks successfully, the lexer handles BLOCK
1209 specially. A BLOCK "StringFileInfo" is returned as
1210 BLOCKSTRINGFILEINFO. A BLOCK "VarFileInfo" is returned as
1211 BLOCKVARFILEINFO. A BLOCK with some other string returns BLOCK
1212 with the string as the value. */
1213
1214verblocks:
1215 /* empty */
1216 {
1217 $$ = NULL;
1218 }
1219 | verblocks BLOCKSTRINGFILEINFO BEG BLOCK BEG vervals END END
1220 {
1221 $$ = append_ver_stringfileinfo ($1, $4, $6);
1222 }
1223 | verblocks BLOCKVARFILEINFO BEG VALUE QUOTEDSTRING vertrans END
1224 {
1225 $$ = append_ver_varfileinfo ($1, $5, $6);
1226 }
1227 ;
1228
1229vervals:
1230 /* empty */
1231 {
1232 $$ = NULL;
1233 }
1234 | vervals VALUE QUOTEDSTRING ',' QUOTEDSTRING
1235 {
1236 $$ = append_verval ($1, $3, $5);
1237 }
1238 ;
1239
1240vertrans:
1241 /* empty */
1242 {
1243 $$ = NULL;
1244 }
1245 | vertrans cnumexpr cnumexpr
1246 {
1247 $$ = append_vertrans ($1, $2, $3);
1248 }
1249 ;
1250
1251/* A resource ID. */
1252
1253id:
1254 posnumexpr
1255 {
1256 $$.named = 0;
1257 $$.u.id = $1;
1258 }
1259 | STRING
1260 {
1261 char *copy, *s;
1262
1263 /* It seems that resource ID's are forced to upper case. */
1264 copy = xstrdup ($1);
1265 for (s = copy; *s != '\0'; s++)
1266 if (islower ((unsigned char) *s))
1267 *s = toupper ((unsigned char) *s);
1268 res_string_to_id (&$$, copy);
1269 free (copy);
1270 }
1271 ;
1272
1273/* Generic suboptions. These may appear before the BEGIN in any
1274 multiline statement. */
1275
1276suboptions:
1277 /* empty */
1278 {
1279 memset (&$$, 0, sizeof (struct res_res_info));
1280 $$.language = language;
1281 /* FIXME: Is this the right default? */
1282 $$.memflags = MEMFLAG_MOVEABLE;
1283 }
1284 | suboptions memflag
1285 {
1286 $$ = $1;
1287 $$.memflags |= $2.on;
1288 $$.memflags &=~ $2.off;
1289 }
1290 | suboptions CHARACTERISTICS numexpr
1291 {
1292 $$ = $1;
1293 $$.characteristics = $3;
1294 }
1295 | suboptions LANGUAGE numexpr cnumexpr
1296 {
1297 $$ = $1;
1298 $$.language = $3 | ($4 << 8);
1299 }
1300 | suboptions VERSIONK numexpr
1301 {
1302 $$ = $1;
1303 $$.version = $3;
1304 }
1305 ;
1306
1307/* Memory flags which default to MOVEABLE and DISCARDABLE. */
1308
1309memflags_move_discard:
1310 /* empty */
1311 {
1312 memset (&$$, 0, sizeof (struct res_res_info));
1313 $$.language = language;
1314 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_DISCARDABLE;
1315 }
1316 | memflags_move_discard memflag
1317 {
1318 $$ = $1;
1319 $$.memflags |= $2.on;
1320 $$.memflags &=~ $2.off;
1321 }
1322 ;
1323
1324/* Memory flags which default to MOVEABLE. */
1325
1326memflags_move:
1327 /* empty */
1328 {
1329 memset (&$$, 0, sizeof (struct res_res_info));
1330 $$.language = language;
1331 $$.memflags = MEMFLAG_MOVEABLE;
1332 }
1333 | memflags_move memflag
1334 {
1335 $$ = $1;
1336 $$.memflags |= $2.on;
1337 $$.memflags &=~ $2.off;
1338 }
1339 ;
1340
1341/* Memory flags. This returns a struct with two integers, because we
1342 sometimes want to set bits and we sometimes want to clear them. */
1343
1344memflag:
1345 MOVEABLE
1346 {
1347 $$.on = MEMFLAG_MOVEABLE;
1348 $$.off = 0;
1349 }
1350 | FIXED
1351 {
1352 $$.on = 0;
1353 $$.off = MEMFLAG_MOVEABLE;
1354 }
1355 | PURE
1356 {
1357 $$.on = MEMFLAG_PURE;
1358 $$.off = 0;
1359 }
1360 | IMPURE
1361 {
1362 $$.on = 0;
1363 $$.off = MEMFLAG_PURE;
1364 }
1365 | PRELOAD
1366 {
1367 $$.on = MEMFLAG_PRELOAD;
1368 $$.off = 0;
1369 }
1370 | LOADONCALL
1371 {
1372 $$.on = 0;
1373 $$.off = MEMFLAG_PRELOAD;
1374 }
1375 | DISCARDABLE
1376 {
1377 $$.on = MEMFLAG_DISCARDABLE;
1378 $$.off = 0;
1379 }
1380 ;
1381
1382/* A file name. */
1383
1384file_name:
1385 QUOTEDSTRING
1386 {
1387 $$ = $1;
1388 }
1389 | STRING
1390 {
1391 $$ = $1;
1392 }
1393 ;
1394
1395/* A style expression. This changes the static variable STYLE. We do
1396 it this way because rc appears to permit a style to be set to
1397 something like
1398 WS_GROUP | NOT WS_TABSTOP
1399 to mean that a default of WS_TABSTOP should be removed. Anything
1400 which wants to accept a style must first set STYLE to the default
1401 value. The styleexpr nonterminal will change STYLE as specified by
1402 the user. Note that we do not accept arbitrary expressions here,
1403 just numbers separated by '|'. */
1404
1405styleexpr:
1406 parennumber
1407 {
1408 style |= $1;
1409 }
1410 | NOT parennumber
1411 {
1412 style &=~ $2;
1413 }
1414 | styleexpr '|' parennumber
1415 {
1416 style |= $3;
1417 }
1418 | styleexpr '|' NOT parennumber
1419 {
1420 style &=~ $4;
1421 }
1422 ;
1423
1424parennumber:
1425 NUMBER
1426 {
1427 $$ = $1.val;
1428 }
1429 | '(' numexpr ')'
1430 {
1431 $$ = $2;
1432 }
1433 ;
1434
1435/* An optional expression with a leading comma. */
1436
1437optcnumexpr:
1438 /* empty */
1439 {
1440 $$ = 0;
1441 }
1442 | cnumexpr
1443 {
1444 $$ = $1;
1445 }
1446 ;
1447
1448/* An expression with a leading comma. */
1449
1450cnumexpr:
1451 ',' numexpr
1452 {
1453 $$ = $2;
1454 }
1455 ;
1456
1457/* A possibly negated numeric expression. */
1458
1459numexpr:
1460 sizednumexpr
1461 {
1462 $$ = $1.val;
1463 }
1464 ;
1465
1466/* A possibly negated expression with a size. */
1467
1468sizednumexpr:
1469 NUMBER
1470 {
1471 $$ = $1;
1472 }
1473 | '(' sizednumexpr ')'
1474 {
1475 $$ = $2;
1476 }
1477 | '~' sizednumexpr %prec '~'
1478 {
1479 $$.val = ~ $2.val;
1480 $$.dword = $2.dword;
1481 }
1482 | '-' sizednumexpr %prec NEG
1483 {
1484 $$.val = - $2.val;
1485 $$.dword = $2.dword;
1486 }
1487 | sizednumexpr '*' sizednumexpr
1488 {
1489 $$.val = $1.val * $3.val;
1490 $$.dword = $1.dword || $3.dword;
1491 }
1492 | sizednumexpr '/' sizednumexpr
1493 {
1494 $$.val = $1.val / $3.val;
1495 $$.dword = $1.dword || $3.dword;
1496 }
1497 | sizednumexpr '%' sizednumexpr
1498 {
1499 $$.val = $1.val % $3.val;
1500 $$.dword = $1.dword || $3.dword;
1501 }
1502 | sizednumexpr '+' sizednumexpr
1503 {
1504 $$.val = $1.val + $3.val;
1505 $$.dword = $1.dword || $3.dword;
1506 }
1507 | sizednumexpr '-' sizednumexpr
1508 {
1509 $$.val = $1.val - $3.val;
1510 $$.dword = $1.dword || $3.dword;
1511 }
1512 | sizednumexpr '&' sizednumexpr
1513 {
1514 $$.val = $1.val & $3.val;
1515 $$.dword = $1.dword || $3.dword;
1516 }
1517 | sizednumexpr '^' sizednumexpr
1518 {
1519 $$.val = $1.val ^ $3.val;
1520 $$.dword = $1.dword || $3.dword;
1521 }
1522 | sizednumexpr '|' sizednumexpr
1523 {
1524 $$.val = $1.val | $3.val;
1525 $$.dword = $1.dword || $3.dword;
1526 }
1527 ;
1528
1529/* An expression with a leading comma which does not use unary
1530 negation. */
1531
1532cposnumexpr:
1533 ',' posnumexpr
1534 {
1535 $$ = $2;
1536 }
1537 ;
1538
1539/* An expression which does not use unary negation. */
1540
1541posnumexpr:
1542 sizedposnumexpr
1543 {
1544 $$ = $1.val;
1545 }
1546 ;
1547
1548/* An expression which does not use unary negation. We separate unary
1549 negation to avoid parsing conflicts when two numeric expressions
1550 appear consecutively. */
1551
1552sizedposnumexpr:
1553 NUMBER
1554 {
1555 $$ = $1;
1556 }
1557 | '(' sizednumexpr ')'
1558 {
1559 $$ = $2;
1560 }
1561 | '~' sizednumexpr %prec '~'
1562 {
1563 $$.val = ~ $2.val;
1564 $$.dword = $2.dword;
1565 }
1566 | sizedposnumexpr '*' sizednumexpr
1567 {
1568 $$.val = $1.val * $3.val;
1569 $$.dword = $1.dword || $3.dword;
1570 }
1571 | sizedposnumexpr '/' sizednumexpr
1572 {
1573 $$.val = $1.val / $3.val;
1574 $$.dword = $1.dword || $3.dword;
1575 }
1576 | sizedposnumexpr '%' sizednumexpr
1577 {
1578 $$.val = $1.val % $3.val;
1579 $$.dword = $1.dword || $3.dword;
1580 }
1581 | sizedposnumexpr '+' sizednumexpr
1582 {
1583 $$.val = $1.val + $3.val;
1584 $$.dword = $1.dword || $3.dword;
1585 }
1586 | sizedposnumexpr '-' sizednumexpr
1587 {
1588 $$.val = $1.val - $3.val;
1589 $$.dword = $1.dword || $3.dword;
1590 }
1591 | sizedposnumexpr '&' sizednumexpr
1592 {
1593 $$.val = $1.val & $3.val;
1594 $$.dword = $1.dword || $3.dword;
1595 }
1596 | sizedposnumexpr '^' sizednumexpr
1597 {
1598 $$.val = $1.val ^ $3.val;
1599 $$.dword = $1.dword || $3.dword;
1600 }
1601 | sizedposnumexpr '|' sizednumexpr
1602 {
1603 $$.val = $1.val | $3.val;
1604 $$.dword = $1.dword || $3.dword;
1605 }
1606 ;
1607
1608%%
1609
1610/* Set the language from the command line. */
1611
1612void
1613rcparse_set_language (lang)
1614 int lang;
1615{
1616 language = lang;
1617}
GDB Binutils - Deliverables
This page took 0.080417 seconds and 4 git commands to generate.