Update my e-mail address.
[binutils-gdb.git] / binutils / rcparse.y
blob0aa27fe6b5d72442770178f3fee9e2e91ffb50a6
1 %{ /* rcparse.y -- parser for Windows rc files
2 Copyright (C) 1997-2017 Free Software Foundation, Inc.
3 Written by Ian Lance Taylor, Cygnus Support.
4 Extended by Kai Tietz, Onevision.
6 This file is part of GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 3 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
21 02110-1301, USA. */
24 /* This is a parser for Windows rc files. It is based on the parser
25 by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */
27 #include "sysdep.h"
28 #include "bfd.h"
29 #include "bucomm.h"
30 #include "libiberty.h"
31 #include "windres.h"
32 #include "safe-ctype.h"
34 /* The current language. */
36 static unsigned short language;
38 /* The resource information during a sub statement. */
40 static rc_res_res_info sub_res_info;
42 /* Dialog information. This is built by the nonterminals styles and
43 controls. */
45 static rc_dialog dialog;
47 /* This is used when building a style. It is modified by the
48 nonterminal styleexpr. */
50 static unsigned long style;
52 /* These are used when building a control. They are set before using
53 control_params. */
55 static rc_uint_type base_style;
56 static rc_uint_type default_style;
57 static rc_res_id class;
58 static rc_res_id res_text_field;
59 static unichar null_unichar;
61 /* This is used for COMBOBOX, LISTBOX and EDITTEXT which
62 do not allow resource 'text' field in control definition. */
63 static const rc_res_id res_null_text = { 1, {{0, &null_unichar}}};
67 %union
69 rc_accelerator acc;
70 rc_accelerator *pacc;
71 rc_dialog_control *dialog_control;
72 rc_menuitem *menuitem;
73 struct
75 rc_rcdata_item *first;
76 rc_rcdata_item *last;
77 } rcdata;
78 rc_rcdata_item *rcdata_item;
79 rc_fixed_versioninfo *fixver;
80 rc_ver_info *verinfo;
81 rc_ver_stringtable *verstringtable;
82 rc_ver_stringinfo *verstring;
83 rc_ver_varinfo *vervar;
84 rc_toolbar_item *toobar_item;
85 rc_res_id id;
86 rc_res_res_info res_info;
87 struct
89 rc_uint_type on;
90 rc_uint_type off;
91 } memflags;
92 struct
94 rc_uint_type val;
95 /* Nonzero if this number was explicitly specified as long. */
96 int dword;
97 } i;
98 rc_uint_type il;
99 rc_uint_type is;
100 const char *s;
101 struct
103 rc_uint_type length;
104 const char *s;
105 } ss;
106 unichar *uni;
107 struct
109 rc_uint_type length;
110 const unichar *s;
111 } suni;
114 %token BEG END
115 %token ACCELERATORS VIRTKEY ASCII NOINVERT SHIFT CONTROL ALT
116 %token BITMAP
117 %token CURSOR
118 %token DIALOG DIALOGEX EXSTYLE CAPTION CLASS STYLE
119 %token AUTO3STATE AUTOCHECKBOX AUTORADIOBUTTON CHECKBOX COMBOBOX CTEXT
120 %token DEFPUSHBUTTON EDITTEXT GROUPBOX LISTBOX LTEXT PUSHBOX PUSHBUTTON
121 %token RADIOBUTTON RTEXT SCROLLBAR STATE3 USERBUTTON
122 %token BEDIT HEDIT IEDIT
123 %token FONT
124 %token ICON
125 %token ANICURSOR ANIICON DLGINCLUDE DLGINIT FONTDIR HTML MANIFEST PLUGPLAY VXD TOOLBAR BUTTON
126 %token LANGUAGE CHARACTERISTICS VERSIONK
127 %token MENU MENUEX MENUITEM SEPARATOR POPUP CHECKED GRAYED HELP INACTIVE
128 %token MENUBARBREAK MENUBREAK
129 %token MESSAGETABLE
130 %token RCDATA
131 %token STRINGTABLE
132 %token VERSIONINFO FILEVERSION PRODUCTVERSION FILEFLAGSMASK FILEFLAGS
133 %token FILEOS FILETYPE FILESUBTYPE BLOCKSTRINGFILEINFO BLOCKVARFILEINFO
134 %token VALUE
135 %token <s> BLOCK
136 %token MOVEABLE FIXED PURE IMPURE PRELOAD LOADONCALL DISCARDABLE
137 %token NOT
138 %token <uni> QUOTEDUNISTRING
139 %token <s> QUOTEDSTRING STRING
140 %token <i> NUMBER
141 %token <suni> SIZEDUNISTRING
142 %token <ss> SIZEDSTRING
143 %token IGNORED_TOKEN
145 %type <pacc> acc_entries
146 %type <acc> acc_entry acc_event
147 %type <dialog_control> control control_params
148 %type <menuitem> menuitems menuitem menuexitems menuexitem
149 %type <rcdata> optrcdata_data optrcdata_data_int rcdata_data
150 %type <rcdata_item> opt_control_data
151 %type <fixver> fixedverinfo
152 %type <verinfo> verblocks
153 %type <verstringtable> verstringtables
154 %type <verstring> vervals
155 %type <vervar> vertrans
156 %type <toobar_item> toolbar_data
157 %type <res_info> suboptions memflags_move_discard memflags_move
158 %type <memflags> memflag
159 %type <id> id rcdata_id optresidc resref resid cresid
160 %type <il> exstyle parennumber
161 %type <il> numexpr posnumexpr cnumexpr optcnumexpr cposnumexpr
162 %type <is> acc_options acc_option menuitem_flags menuitem_flag
163 %type <s> file_name
164 %type <uni> res_unicode_string resname res_unicode_string_concat
165 %type <ss> sizedstring
166 %type <suni> sizedunistring res_unicode_sizedstring res_unicode_sizedstring_concat
167 %type <i> sizednumexpr sizedposnumexpr
169 %left '|'
170 %left '^'
171 %left '&'
172 %left '+' '-'
173 %left '*' '/' '%'
174 %right '~' NEG
178 input:
179 /* empty */
180 | input accelerator
181 | input bitmap
182 | input cursor
183 | input dialog
184 | input font
185 | input icon
186 | input language
187 | input menu
188 | input menuex
189 | input messagetable
190 | input stringtable
191 | input toolbar
192 | input user
193 | input versioninfo
194 | input IGNORED_TOKEN
197 /* Accelerator resources. */
199 accelerator:
200 id ACCELERATORS suboptions BEG acc_entries END
202 define_accelerator ($1, &$3, $5);
203 if (yychar != YYEMPTY)
204 YYERROR;
205 rcparse_discard_strings ();
209 acc_entries:
210 /* empty */
212 $$ = NULL;
214 | acc_entries acc_entry
216 rc_accelerator *a;
218 a = (rc_accelerator *) res_alloc (sizeof *a);
219 *a = $2;
220 if ($1 == NULL)
221 $$ = a;
222 else
224 rc_accelerator **pp;
226 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
228 *pp = a;
229 $$ = $1;
234 acc_entry:
235 acc_event cposnumexpr
237 $$ = $1;
238 $$.id = $2;
240 | acc_event cposnumexpr ',' acc_options
242 $$ = $1;
243 $$.id = $2;
244 $$.flags |= $4;
245 if (($$.flags & ACC_VIRTKEY) == 0
246 && ($$.flags & (ACC_SHIFT | ACC_CONTROL)) != 0)
247 rcparse_warning (_("inappropriate modifiers for non-VIRTKEY"));
251 acc_event:
252 QUOTEDSTRING
254 const char *s = $1;
255 char ch;
257 $$.next = NULL;
258 $$.id = 0;
259 ch = *s;
260 if (ch != '^')
261 $$.flags = 0;
262 else
264 $$.flags = ACC_CONTROL | ACC_VIRTKEY;
265 ++s;
266 ch = TOUPPER (s[0]);
268 $$.key = ch;
269 if (s[1] != '\0')
270 rcparse_warning (_("accelerator should only be one character"));
272 | posnumexpr
274 $$.next = NULL;
275 $$.flags = 0;
276 $$.id = 0;
277 $$.key = $1;
281 acc_options:
282 acc_option
284 $$ = $1;
286 | acc_options ',' acc_option
288 $$ = $1 | $3;
290 /* I've had one report that the comma is optional. */
291 | acc_options acc_option
293 $$ = $1 | $2;
297 acc_option:
298 VIRTKEY
300 $$ = ACC_VIRTKEY;
302 | ASCII
304 /* This is just the absence of VIRTKEY. */
305 $$ = 0;
307 | NOINVERT
309 $$ = ACC_NOINVERT;
311 | SHIFT
313 $$ = ACC_SHIFT;
315 | CONTROL
317 $$ = ACC_CONTROL;
319 | ALT
321 $$ = ACC_ALT;
325 /* Bitmap resources. */
327 bitmap:
328 id BITMAP memflags_move file_name
330 define_bitmap ($1, &$3, $4);
331 if (yychar != YYEMPTY)
332 YYERROR;
333 rcparse_discard_strings ();
337 /* Cursor resources. */
339 cursor:
340 id CURSOR memflags_move_discard file_name
342 define_cursor ($1, &$3, $4);
343 if (yychar != YYEMPTY)
344 YYERROR;
345 rcparse_discard_strings ();
349 /* Dialog resources. */
351 dialog:
352 id DIALOG memflags_move exstyle posnumexpr cnumexpr cnumexpr
353 cnumexpr
355 memset (&dialog, 0, sizeof dialog);
356 dialog.x = $5;
357 dialog.y = $6;
358 dialog.width = $7;
359 dialog.height = $8;
360 dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
361 dialog.exstyle = $4;
362 dialog.menu.named = 1;
363 dialog.class.named = 1;
364 dialog.font = NULL;
365 dialog.ex = NULL;
366 dialog.controls = NULL;
367 sub_res_info = $3;
368 style = 0;
370 styles BEG controls END
372 define_dialog ($1, &sub_res_info, &dialog);
373 if (yychar != YYEMPTY)
374 YYERROR;
375 rcparse_discard_strings ();
377 | id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr
378 cnumexpr
380 memset (&dialog, 0, sizeof dialog);
381 dialog.x = $5;
382 dialog.y = $6;
383 dialog.width = $7;
384 dialog.height = $8;
385 dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
386 dialog.exstyle = $4;
387 dialog.menu.named = 1;
388 dialog.class.named = 1;
389 dialog.font = NULL;
390 dialog.ex = ((rc_dialog_ex *)
391 res_alloc (sizeof (rc_dialog_ex)));
392 memset (dialog.ex, 0, sizeof (rc_dialog_ex));
393 dialog.controls = NULL;
394 sub_res_info = $3;
395 style = 0;
397 styles BEG controls END
399 define_dialog ($1, &sub_res_info, &dialog);
400 if (yychar != YYEMPTY)
401 YYERROR;
402 rcparse_discard_strings ();
404 | id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr
405 cnumexpr cnumexpr
407 memset (&dialog, 0, sizeof dialog);
408 dialog.x = $5;
409 dialog.y = $6;
410 dialog.width = $7;
411 dialog.height = $8;
412 dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
413 dialog.exstyle = $4;
414 dialog.menu.named = 1;
415 dialog.class.named = 1;
416 dialog.font = NULL;
417 dialog.ex = ((rc_dialog_ex *)
418 res_alloc (sizeof (rc_dialog_ex)));
419 memset (dialog.ex, 0, sizeof (rc_dialog_ex));
420 dialog.ex->help = $9;
421 dialog.controls = NULL;
422 sub_res_info = $3;
423 style = 0;
425 styles BEG controls END
427 define_dialog ($1, &sub_res_info, &dialog);
428 if (yychar != YYEMPTY)
429 YYERROR;
430 rcparse_discard_strings ();
434 exstyle:
435 /* empty */
437 $$ = 0;
439 | EXSTYLE '=' numexpr
441 $$ = $3;
445 styles:
446 /* empty */
447 | styles CAPTION res_unicode_string_concat
449 dialog.style |= WS_CAPTION;
450 style |= WS_CAPTION;
451 dialog.caption = $3;
453 | styles CLASS id
455 dialog.class = $3;
457 | styles STYLE
458 styleexpr
460 dialog.style = style;
462 | styles EXSTYLE numexpr
464 dialog.exstyle = $3;
466 | styles CLASS res_unicode_string_concat
468 res_unistring_to_id (& dialog.class, $3);
470 | styles FONT numexpr ',' res_unicode_string_concat
472 dialog.style |= DS_SETFONT;
473 style |= DS_SETFONT;
474 dialog.pointsize = $3;
475 dialog.font = $5;
476 if (dialog.ex != NULL)
478 dialog.ex->weight = 0;
479 dialog.ex->italic = 0;
480 dialog.ex->charset = 1;
483 | styles FONT numexpr ',' res_unicode_string_concat cnumexpr
485 dialog.style |= DS_SETFONT;
486 style |= DS_SETFONT;
487 dialog.pointsize = $3;
488 dialog.font = $5;
489 if (dialog.ex == NULL)
490 rcparse_warning (_("extended FONT requires DIALOGEX"));
491 else
493 dialog.ex->weight = $6;
494 dialog.ex->italic = 0;
495 dialog.ex->charset = 1;
498 | styles FONT numexpr ',' res_unicode_string_concat cnumexpr cnumexpr
500 dialog.style |= DS_SETFONT;
501 style |= DS_SETFONT;
502 dialog.pointsize = $3;
503 dialog.font = $5;
504 if (dialog.ex == NULL)
505 rcparse_warning (_("extended FONT requires DIALOGEX"));
506 else
508 dialog.ex->weight = $6;
509 dialog.ex->italic = $7;
510 dialog.ex->charset = 1;
513 | styles FONT numexpr ',' res_unicode_string_concat cnumexpr cnumexpr cnumexpr
515 dialog.style |= DS_SETFONT;
516 style |= DS_SETFONT;
517 dialog.pointsize = $3;
518 dialog.font = $5;
519 if (dialog.ex == NULL)
520 rcparse_warning (_("extended FONT requires DIALOGEX"));
521 else
523 dialog.ex->weight = $6;
524 dialog.ex->italic = $7;
525 dialog.ex->charset = $8;
528 | styles MENU id
530 dialog.menu = $3;
532 | styles CHARACTERISTICS numexpr
534 sub_res_info.characteristics = $3;
536 | styles LANGUAGE numexpr cnumexpr
538 sub_res_info.language = $3 | ($4 << SUBLANG_SHIFT);
540 | styles VERSIONK numexpr
542 sub_res_info.version = $3;
546 controls:
547 /* empty */
548 | controls control
550 rc_dialog_control **pp;
552 for (pp = &dialog.controls; *pp != NULL; pp = &(*pp)->next)
554 *pp = $2;
558 control:
559 AUTO3STATE optresidc
561 default_style = BS_AUTO3STATE | WS_TABSTOP;
562 base_style = BS_AUTO3STATE;
563 class.named = 0;
564 class.u.id = CTL_BUTTON;
565 res_text_field = $2;
567 control_params
569 $$ = $4;
571 | AUTOCHECKBOX optresidc
573 default_style = BS_AUTOCHECKBOX | WS_TABSTOP;
574 base_style = BS_AUTOCHECKBOX;
575 class.named = 0;
576 class.u.id = CTL_BUTTON;
577 res_text_field = $2;
579 control_params
581 $$ = $4;
583 | AUTORADIOBUTTON optresidc
585 default_style = BS_AUTORADIOBUTTON | WS_TABSTOP;
586 base_style = BS_AUTORADIOBUTTON;
587 class.named = 0;
588 class.u.id = CTL_BUTTON;
589 res_text_field = $2;
591 control_params
593 $$ = $4;
595 | BEDIT optresidc
597 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
598 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
599 class.named = 0;
600 class.u.id = CTL_EDIT;
601 res_text_field = $2;
603 control_params
605 $$ = $4;
606 if (dialog.ex == NULL)
607 rcparse_warning (_("BEDIT requires DIALOGEX"));
608 res_string_to_id (&$$->class, "BEDIT");
610 | CHECKBOX optresidc
612 default_style = BS_CHECKBOX | WS_TABSTOP;
613 base_style = BS_CHECKBOX | WS_TABSTOP;
614 class.named = 0;
615 class.u.id = CTL_BUTTON;
616 res_text_field = $2;
618 control_params
620 $$ = $4;
622 | COMBOBOX
624 /* This is as per MSDN documentation. With some (???)
625 versions of MS rc.exe their is no default style. */
626 default_style = CBS_SIMPLE | WS_TABSTOP;
627 base_style = 0;
628 class.named = 0;
629 class.u.id = CTL_COMBOBOX;
630 res_text_field = res_null_text;
632 control_params
634 $$ = $3;
636 | CONTROL optresidc numexpr cresid control_styleexpr cnumexpr
637 cnumexpr cnumexpr cnumexpr optcnumexpr opt_control_data
639 $$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10);
640 if ($11 != NULL)
642 if (dialog.ex == NULL)
643 rcparse_warning (_("control data requires DIALOGEX"));
644 $$->data = $11;
647 | CONTROL optresidc numexpr cresid control_styleexpr cnumexpr
648 cnumexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data
650 $$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10);
651 if (dialog.ex == NULL)
652 rcparse_warning (_("help ID requires DIALOGEX"));
653 $$->help = $11;
654 $$->data = $12;
656 | CTEXT optresidc
658 default_style = SS_CENTER | WS_GROUP;
659 base_style = SS_CENTER;
660 class.named = 0;
661 class.u.id = CTL_STATIC;
662 res_text_field = $2;
664 control_params
666 $$ = $4;
668 | DEFPUSHBUTTON optresidc
670 default_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
671 base_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
672 class.named = 0;
673 class.u.id = CTL_BUTTON;
674 res_text_field = $2;
676 control_params
678 $$ = $4;
680 | EDITTEXT
682 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
683 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
684 class.named = 0;
685 class.u.id = CTL_EDIT;
686 res_text_field = res_null_text;
688 control_params
690 $$ = $3;
692 | GROUPBOX optresidc
694 default_style = BS_GROUPBOX;
695 base_style = BS_GROUPBOX;
696 class.named = 0;
697 class.u.id = CTL_BUTTON;
698 res_text_field = $2;
700 control_params
702 $$ = $4;
704 | HEDIT optresidc
706 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
707 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
708 class.named = 0;
709 class.u.id = CTL_EDIT;
710 res_text_field = $2;
712 control_params
714 $$ = $4;
715 if (dialog.ex == NULL)
716 rcparse_warning (_("IEDIT requires DIALOGEX"));
717 res_string_to_id (&$$->class, "HEDIT");
719 | ICON resref numexpr cnumexpr cnumexpr opt_control_data
721 $$ = define_icon_control ($2, $3, $4, $5, 0, 0, 0, $6,
722 dialog.ex);
724 | ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr
725 opt_control_data
727 $$ = define_icon_control ($2, $3, $4, $5, 0, 0, 0, $8,
728 dialog.ex);
730 | ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr
731 icon_styleexpr optcnumexpr opt_control_data
733 $$ = define_icon_control ($2, $3, $4, $5, style, $9, 0, $10,
734 dialog.ex);
736 | ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr
737 icon_styleexpr cnumexpr cnumexpr opt_control_data
739 $$ = define_icon_control ($2, $3, $4, $5, style, $9, $10, $11,
740 dialog.ex);
742 | IEDIT optresidc
744 default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
745 base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
746 class.named = 0;
747 class.u.id = CTL_EDIT;
748 res_text_field = $2;
750 control_params
752 $$ = $4;
753 if (dialog.ex == NULL)
754 rcparse_warning (_("IEDIT requires DIALOGEX"));
755 res_string_to_id (&$$->class, "IEDIT");
757 | LISTBOX
759 default_style = LBS_NOTIFY | WS_BORDER;
760 base_style = LBS_NOTIFY | WS_BORDER;
761 class.named = 0;
762 class.u.id = CTL_LISTBOX;
763 res_text_field = res_null_text;
765 control_params
767 $$ = $3;
769 | LTEXT optresidc
771 default_style = SS_LEFT | WS_GROUP;
772 base_style = SS_LEFT;
773 class.named = 0;
774 class.u.id = CTL_STATIC;
775 res_text_field = $2;
777 control_params
779 $$ = $4;
781 | PUSHBOX optresidc
783 default_style = BS_PUSHBOX | WS_TABSTOP;
784 base_style = BS_PUSHBOX;
785 class.named = 0;
786 class.u.id = CTL_BUTTON;
788 control_params
790 $$ = $4;
792 | PUSHBUTTON optresidc
794 default_style = BS_PUSHBUTTON | WS_TABSTOP;
795 base_style = BS_PUSHBUTTON | WS_TABSTOP;
796 class.named = 0;
797 class.u.id = CTL_BUTTON;
798 res_text_field = $2;
800 control_params
802 $$ = $4;
804 | RADIOBUTTON optresidc
806 default_style = BS_RADIOBUTTON | WS_TABSTOP;
807 base_style = BS_RADIOBUTTON;
808 class.named = 0;
809 class.u.id = CTL_BUTTON;
810 res_text_field = $2;
812 control_params
814 $$ = $4;
816 | RTEXT optresidc
818 default_style = SS_RIGHT | WS_GROUP;
819 base_style = SS_RIGHT;
820 class.named = 0;
821 class.u.id = CTL_STATIC;
822 res_text_field = $2;
824 control_params
826 $$ = $4;
828 | SCROLLBAR
830 default_style = SBS_HORZ;
831 base_style = 0;
832 class.named = 0;
833 class.u.id = CTL_SCROLLBAR;
834 res_text_field = res_null_text;
836 control_params
838 $$ = $3;
840 | STATE3 optresidc
842 default_style = BS_3STATE | WS_TABSTOP;
843 base_style = BS_3STATE;
844 class.named = 0;
845 class.u.id = CTL_BUTTON;
846 res_text_field = $2;
848 control_params
850 $$ = $4;
852 | USERBUTTON resref numexpr ',' numexpr ',' numexpr ','
853 numexpr ',' numexpr ','
854 { style = WS_CHILD | WS_VISIBLE; }
855 styleexpr optcnumexpr
857 rc_res_id cid;
858 cid.named = 0;
859 cid.u.id = CTL_BUTTON;
860 $$ = define_control ($2, $3, $5, $7, $9, $11, cid,
861 style, $15);
865 /* Parameters for a control. The static variables DEFAULT_STYLE,
866 BASE_STYLE, and CLASS must be initialized before this nonterminal
867 is used. DEFAULT_STYLE is the style to use if no style expression
868 is specified. BASE_STYLE is the base style to use if a style
869 expression is specified; the style expression modifies the base
870 style. CLASS is the class of the control. */
872 control_params:
873 numexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data
875 $$ = define_control (res_text_field, $1, $2, $3, $4, $5, class,
876 default_style | WS_CHILD | WS_VISIBLE, 0);
877 if ($6 != NULL)
879 if (dialog.ex == NULL)
880 rcparse_warning (_("control data requires DIALOGEX"));
881 $$->data = $6;
884 | numexpr cnumexpr cnumexpr cnumexpr cnumexpr
885 control_params_styleexpr optcnumexpr opt_control_data
887 $$ = define_control (res_text_field, $1, $2, $3, $4, $5, class, style, $7);
888 if ($8 != NULL)
890 if (dialog.ex == NULL)
891 rcparse_warning (_("control data requires DIALOGEX"));
892 $$->data = $8;
895 | numexpr cnumexpr cnumexpr cnumexpr cnumexpr
896 control_params_styleexpr cnumexpr cnumexpr opt_control_data
898 $$ = define_control (res_text_field, $1, $2, $3, $4, $5, class, style, $7);
899 if (dialog.ex == NULL)
900 rcparse_warning (_("help ID requires DIALOGEX"));
901 $$->help = $8;
902 $$->data = $9;
906 cresid:
907 ',' resid
909 if ($2.named)
910 res_unistring_to_id (&$$, $2.u.n.name);
911 else
912 $$=$2;
916 optresidc:
917 /* empty */
919 res_string_to_id (&$$, "");
921 | resid ',' { $$=$1; }
924 resid:
925 posnumexpr
927 $$.named = 0;
928 $$.u.id = $1;
930 | res_unicode_string_concat
932 $$.named = 1;
933 $$.u.n.name = $1;
934 $$.u.n.length = unichar_len ($1);
938 opt_control_data:
939 /* empty */
941 $$ = NULL;
943 | BEG optrcdata_data END
945 $$ = $2.first;
949 /* These only exist to parse a reduction out of a common case. */
951 control_styleexpr:
953 { style = WS_CHILD | WS_VISIBLE; }
954 styleexpr
957 icon_styleexpr:
959 { style = SS_ICON | WS_CHILD | WS_VISIBLE; }
960 styleexpr
963 control_params_styleexpr:
965 { style = base_style | WS_CHILD | WS_VISIBLE; }
966 styleexpr
969 /* Font resources. */
971 font:
972 id FONT memflags_move_discard file_name
974 define_font ($1, &$3, $4);
975 if (yychar != YYEMPTY)
976 YYERROR;
977 rcparse_discard_strings ();
981 /* Icon resources. */
983 icon:
984 id ICON memflags_move_discard file_name
986 define_icon ($1, &$3, $4);
987 if (yychar != YYEMPTY)
988 YYERROR;
989 rcparse_discard_strings ();
993 /* Language command. This changes the static variable language, which
994 affects all subsequent resources. */
996 language:
997 LANGUAGE numexpr cnumexpr
999 language = $2 | ($3 << SUBLANG_SHIFT);
1003 /* Menu resources. */
1005 menu:
1006 id MENU suboptions BEG menuitems END
1008 define_menu ($1, &$3, $5);
1009 if (yychar != YYEMPTY)
1010 YYERROR;
1011 rcparse_discard_strings ();
1015 menuitems:
1016 /* empty */
1018 $$ = NULL;
1020 | menuitems menuitem
1022 if ($1 == NULL)
1023 $$ = $2;
1024 else
1026 rc_menuitem **pp;
1028 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
1030 *pp = $2;
1031 $$ = $1;
1036 menuitem:
1037 MENUITEM res_unicode_string_concat cnumexpr menuitem_flags
1039 $$ = define_menuitem ($2, $3, $4, 0, 0, NULL);
1041 | MENUITEM SEPARATOR
1043 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
1045 | POPUP res_unicode_string_concat menuitem_flags BEG menuitems END
1047 $$ = define_menuitem ($2, 0, $3, 0, 0, $5);
1051 menuitem_flags:
1052 /* empty */
1054 $$ = 0;
1056 | menuitem_flags ',' menuitem_flag
1058 $$ = $1 | $3;
1060 | menuitem_flags menuitem_flag
1062 $$ = $1 | $2;
1066 menuitem_flag:
1067 CHECKED
1069 $$ = MENUITEM_CHECKED;
1071 | GRAYED
1073 $$ = MENUITEM_GRAYED;
1075 | HELP
1077 $$ = MENUITEM_HELP;
1079 | INACTIVE
1081 $$ = MENUITEM_INACTIVE;
1083 | MENUBARBREAK
1085 $$ = MENUITEM_MENUBARBREAK;
1087 | MENUBREAK
1089 $$ = MENUITEM_MENUBREAK;
1093 /* Menuex resources. */
1095 menuex:
1096 id MENUEX suboptions BEG menuexitems END
1098 define_menu ($1, &$3, $5);
1099 if (yychar != YYEMPTY)
1100 YYERROR;
1101 rcparse_discard_strings ();
1105 menuexitems:
1106 /* empty */
1108 $$ = NULL;
1110 | menuexitems menuexitem
1112 if ($1 == NULL)
1113 $$ = $2;
1114 else
1116 rc_menuitem **pp;
1118 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
1120 *pp = $2;
1121 $$ = $1;
1126 menuexitem:
1127 MENUITEM res_unicode_string_concat
1129 $$ = define_menuitem ($2, 0, 0, 0, 0, NULL);
1131 | MENUITEM res_unicode_string_concat cnumexpr
1133 $$ = define_menuitem ($2, $3, 0, 0, 0, NULL);
1135 | MENUITEM res_unicode_string_concat cnumexpr cnumexpr optcnumexpr
1137 $$ = define_menuitem ($2, $3, $4, $5, 0, NULL);
1139 | MENUITEM SEPARATOR
1141 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
1143 | POPUP res_unicode_string_concat BEG menuexitems END
1145 $$ = define_menuitem ($2, 0, 0, 0, 0, $4);
1147 | POPUP res_unicode_string_concat cnumexpr BEG menuexitems END
1149 $$ = define_menuitem ($2, $3, 0, 0, 0, $5);
1151 | POPUP res_unicode_string_concat cnumexpr cnumexpr BEG menuexitems END
1153 $$ = define_menuitem ($2, $3, $4, 0, 0, $6);
1155 | POPUP res_unicode_string_concat cnumexpr cnumexpr cnumexpr optcnumexpr
1156 BEG menuexitems END
1158 $$ = define_menuitem ($2, $3, $4, $5, $6, $8);
1162 /* Messagetable resources. */
1164 messagetable:
1165 id MESSAGETABLE memflags_move file_name
1167 define_messagetable ($1, &$3, $4);
1168 if (yychar != YYEMPTY)
1169 YYERROR;
1170 rcparse_discard_strings ();
1174 /* We use a different lexing algorithm, because rcdata strings may
1175 contain embedded null bytes, and we need to know the length to use. */
1177 optrcdata_data:
1179 rcparse_rcdata ();
1181 optrcdata_data_int
1183 rcparse_normal ();
1184 $$ = $2;
1188 optrcdata_data_int:
1189 /* empty */
1191 $$.first = NULL;
1192 $$.last = NULL;
1194 | rcdata_data
1196 $$ = $1;
1200 rcdata_data:
1201 sizedstring
1203 rc_rcdata_item *ri;
1205 ri = define_rcdata_string ($1.s, $1.length);
1206 $$.first = ri;
1207 $$.last = ri;
1209 | sizedunistring
1211 rc_rcdata_item *ri;
1213 ri = define_rcdata_unistring ($1.s, $1.length);
1214 $$.first = ri;
1215 $$.last = ri;
1217 | sizednumexpr
1219 rc_rcdata_item *ri;
1221 ri = define_rcdata_number ($1.val, $1.dword);
1222 $$.first = ri;
1223 $$.last = ri;
1225 | rcdata_data ',' sizedstring
1227 rc_rcdata_item *ri;
1229 ri = define_rcdata_string ($3.s, $3.length);
1230 $$.first = $1.first;
1231 $1.last->next = ri;
1232 $$.last = ri;
1234 | rcdata_data ',' sizedunistring
1236 rc_rcdata_item *ri;
1238 ri = define_rcdata_unistring ($3.s, $3.length);
1239 $$.first = $1.first;
1240 $1.last->next = ri;
1241 $$.last = ri;
1243 | rcdata_data ',' sizednumexpr
1245 rc_rcdata_item *ri;
1247 ri = define_rcdata_number ($3.val, $3.dword);
1248 $$.first = $1.first;
1249 $1.last->next = ri;
1250 $$.last = ri;
1252 | rcdata_data ','
1254 $$=$1;
1258 /* Stringtable resources. */
1260 stringtable:
1261 STRINGTABLE suboptions BEG
1262 { sub_res_info = $2; rcparse_rcdata (); }
1263 string_data END { rcparse_normal (); }
1266 string_data:
1267 /* empty */
1268 | string_data numexpr res_unicode_sizedstring_concat
1270 define_stringtable (&sub_res_info, $2, $3.s, $3.length);
1271 rcparse_discard_strings ();
1273 | string_data numexpr ',' res_unicode_sizedstring_concat
1275 define_stringtable (&sub_res_info, $2, $4.s, $4.length);
1276 rcparse_discard_strings ();
1278 | string_data error
1280 rcparse_warning (_("invalid stringtable resource."));
1281 abort ();
1285 rcdata_id:
1288 $$=$1;
1290 | HTML
1292 $$.named = 0;
1293 $$.u.id = 23;
1295 | RCDATA
1297 $$.named = 0;
1298 $$.u.id = RT_RCDATA;
1300 | MANIFEST
1302 $$.named = 0;
1303 $$.u.id = RT_MANIFEST;
1305 | PLUGPLAY
1307 $$.named = 0;
1308 $$.u.id = RT_PLUGPLAY;
1310 | VXD
1312 $$.named = 0;
1313 $$.u.id = RT_VXD;
1315 | DLGINCLUDE
1317 $$.named = 0;
1318 $$.u.id = RT_DLGINCLUDE;
1320 | DLGINIT
1322 $$.named = 0;
1323 $$.u.id = RT_DLGINIT;
1325 | ANICURSOR
1327 $$.named = 0;
1328 $$.u.id = RT_ANICURSOR;
1330 | ANIICON
1332 $$.named = 0;
1333 $$.u.id = RT_ANIICON;
1337 /* User defined resources. We accept general suboptions in the
1338 file_name case to keep the parser happy. */
1340 user:
1341 id rcdata_id suboptions BEG optrcdata_data END
1343 define_user_data ($1, $2, &$3, $5.first);
1344 if (yychar != YYEMPTY)
1345 YYERROR;
1346 rcparse_discard_strings ();
1348 | id rcdata_id suboptions file_name
1350 define_user_file ($1, $2, &$3, $4);
1351 if (yychar != YYEMPTY)
1352 YYERROR;
1353 rcparse_discard_strings ();
1357 toolbar:
1358 id TOOLBAR suboptions numexpr cnumexpr BEG toolbar_data END
1360 define_toolbar ($1, &$3, $4, $5, $7);
1364 toolbar_data: /* empty */ { $$= NULL; }
1365 | toolbar_data BUTTON id
1367 rc_toolbar_item *c,*n;
1368 c = $1;
1369 n= (rc_toolbar_item *)
1370 res_alloc (sizeof (rc_toolbar_item));
1371 if (c != NULL)
1372 while (c->next != NULL)
1373 c = c->next;
1374 n->prev = c;
1375 n->next = NULL;
1376 if (c != NULL)
1377 c->next = n;
1378 n->id = $3;
1379 if ($1 == NULL)
1380 $$ = n;
1381 else
1382 $$ = $1;
1384 | toolbar_data SEPARATOR
1386 rc_toolbar_item *c,*n;
1387 c = $1;
1388 n= (rc_toolbar_item *)
1389 res_alloc (sizeof (rc_toolbar_item));
1390 if (c != NULL)
1391 while (c->next != NULL)
1392 c = c->next;
1393 n->prev = c;
1394 n->next = NULL;
1395 if (c != NULL)
1396 c->next = n;
1397 n->id.named = 0;
1398 n->id.u.id = 0;
1399 if ($1 == NULL)
1400 $$ = n;
1401 else
1402 $$ = $1;
1406 /* Versioninfo resources. */
1408 versioninfo:
1409 id VERSIONINFO fixedverinfo BEG verblocks END
1411 define_versioninfo ($1, language, $3, $5);
1412 if (yychar != YYEMPTY)
1413 YYERROR;
1414 rcparse_discard_strings ();
1418 fixedverinfo:
1419 /* empty */
1421 $$ = ((rc_fixed_versioninfo *)
1422 res_alloc (sizeof (rc_fixed_versioninfo)));
1423 memset ($$, 0, sizeof (rc_fixed_versioninfo));
1425 | fixedverinfo FILEVERSION numexpr optcnumexpr optcnumexpr
1426 optcnumexpr
1428 $1->file_version_ms = ($3 << 16) | ($4 & 0xffff);
1429 $1->file_version_ls = ($5 << 16) | ($6 & 0xffff);
1430 $$ = $1;
1432 | fixedverinfo PRODUCTVERSION numexpr optcnumexpr optcnumexpr
1433 optcnumexpr
1435 $1->product_version_ms = ($3 << 16) | ($4 & 0xffff);
1436 $1->product_version_ls = ($5 << 16) | ($6 & 0xffff);
1437 $$ = $1;
1439 | fixedverinfo FILEFLAGSMASK numexpr
1441 $1->file_flags_mask = $3;
1442 $$ = $1;
1444 | fixedverinfo FILEFLAGS numexpr
1446 $1->file_flags = $3;
1447 $$ = $1;
1449 | fixedverinfo FILEOS numexpr
1451 $1->file_os = $3;
1452 $$ = $1;
1454 | fixedverinfo FILETYPE numexpr
1456 $1->file_type = $3;
1457 $$ = $1;
1459 | fixedverinfo FILESUBTYPE numexpr
1461 $1->file_subtype = $3;
1462 $$ = $1;
1466 /* To handle verblocks successfully, the lexer handles BLOCK
1467 specially. A BLOCK "StringFileInfo" is returned as
1468 BLOCKSTRINGFILEINFO. A BLOCK "VarFileInfo" is returned as
1469 BLOCKVARFILEINFO. A BLOCK with some other string returns BLOCK
1470 with the string as the value. */
1472 verblocks:
1473 /* empty */
1475 $$ = NULL;
1477 | verblocks BLOCKSTRINGFILEINFO BEG verstringtables END
1479 $$ = append_ver_stringfileinfo ($1, $4);
1481 | verblocks BLOCKVARFILEINFO BEG VALUE res_unicode_string_concat vertrans END
1483 $$ = append_ver_varfileinfo ($1, $5, $6);
1487 verstringtables:
1488 /* empty */
1490 $$ = NULL;
1492 | verstringtables BLOCK BEG vervals END
1494 $$ = append_ver_stringtable ($1, $2, $4);
1498 vervals:
1499 /* empty */
1501 $$ = NULL;
1503 | vervals VALUE res_unicode_string_concat ',' res_unicode_string_concat
1505 $$ = append_verval ($1, $3, $5);
1509 vertrans:
1510 /* empty */
1512 $$ = NULL;
1514 | vertrans cnumexpr cnumexpr
1516 $$ = append_vertrans ($1, $2, $3);
1520 /* A resource ID. */
1523 posnumexpr
1525 $$.named = 0;
1526 $$.u.id = $1;
1528 | resname
1530 res_unistring_to_id (&$$, $1);
1534 /* A resource reference. */
1536 resname:
1537 res_unicode_string
1539 $$ = $1;
1541 | STRING
1543 unichar *h = NULL;
1544 unicode_from_ascii ((rc_uint_type *) NULL, &h, $1);
1545 $$ = h;
1550 resref:
1551 posnumexpr ','
1553 $$.named = 0;
1554 $$.u.id = $1;
1556 | resname
1558 res_unistring_to_id (&$$, $1);
1560 | resname ','
1562 res_unistring_to_id (&$$, $1);
1566 /* Generic suboptions. These may appear before the BEGIN in any
1567 multiline statement. */
1569 suboptions:
1570 /* empty */
1572 memset (&$$, 0, sizeof (rc_res_res_info));
1573 $$.language = language;
1574 /* FIXME: Is this the right default? */
1575 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE;
1577 | suboptions memflag
1579 $$ = $1;
1580 $$.memflags |= $2.on;
1581 $$.memflags &=~ $2.off;
1583 | suboptions CHARACTERISTICS numexpr
1585 $$ = $1;
1586 $$.characteristics = $3;
1588 | suboptions LANGUAGE numexpr cnumexpr
1590 $$ = $1;
1591 $$.language = $3 | ($4 << SUBLANG_SHIFT);
1593 | suboptions VERSIONK numexpr
1595 $$ = $1;
1596 $$.version = $3;
1600 /* Memory flags which default to MOVEABLE and DISCARDABLE. */
1602 memflags_move_discard:
1603 /* empty */
1605 memset (&$$, 0, sizeof (rc_res_res_info));
1606 $$.language = language;
1607 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_DISCARDABLE;
1609 | memflags_move_discard memflag
1611 $$ = $1;
1612 $$.memflags |= $2.on;
1613 $$.memflags &=~ $2.off;
1617 /* Memory flags which default to MOVEABLE. */
1619 memflags_move:
1620 /* empty */
1622 memset (&$$, 0, sizeof (rc_res_res_info));
1623 $$.language = language;
1624 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE;
1626 | memflags_move memflag
1628 $$ = $1;
1629 $$.memflags |= $2.on;
1630 $$.memflags &=~ $2.off;
1634 /* Memory flags. This returns a struct with two integers, because we
1635 sometimes want to set bits and we sometimes want to clear them. */
1637 memflag:
1638 MOVEABLE
1640 $$.on = MEMFLAG_MOVEABLE;
1641 $$.off = 0;
1643 | FIXED
1645 $$.on = 0;
1646 $$.off = MEMFLAG_MOVEABLE;
1648 | PURE
1650 $$.on = MEMFLAG_PURE;
1651 $$.off = 0;
1653 | IMPURE
1655 $$.on = 0;
1656 $$.off = MEMFLAG_PURE;
1658 | PRELOAD
1660 $$.on = MEMFLAG_PRELOAD;
1661 $$.off = 0;
1663 | LOADONCALL
1665 $$.on = 0;
1666 $$.off = MEMFLAG_PRELOAD;
1668 | DISCARDABLE
1670 $$.on = MEMFLAG_DISCARDABLE;
1671 $$.off = 0;
1675 /* A file name. */
1677 file_name:
1678 QUOTEDSTRING
1680 $$ = $1;
1682 | STRING
1684 $$ = $1;
1688 /* Concat string */
1689 res_unicode_string_concat:
1690 res_unicode_string
1692 $$ = $1;
1695 res_unicode_string_concat res_unicode_string
1697 rc_uint_type l1 = unichar_len ($1);
1698 rc_uint_type l2 = unichar_len ($2);
1699 unichar *h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
1700 if (l1 != 0)
1701 memcpy (h, $1, l1 * sizeof (unichar));
1702 if (l2 != 0)
1703 memcpy (h + l1, $2, l2 * sizeof (unichar));
1704 h[l1 + l2] = 0;
1705 $$ = h;
1709 res_unicode_string:
1710 QUOTEDUNISTRING
1712 $$ = unichar_dup ($1);
1714 | QUOTEDSTRING
1716 unichar *h = NULL;
1717 unicode_from_ascii ((rc_uint_type *) NULL, &h, $1);
1718 $$ = h;
1722 res_unicode_sizedstring:
1723 sizedunistring
1725 $$ = $1;
1727 | sizedstring
1729 unichar *h = NULL;
1730 rc_uint_type l = 0;
1731 unicode_from_ascii_len (&l, &h, $1.s, $1.length);
1732 $$.s = h;
1733 $$.length = l;
1737 /* Concat string */
1738 res_unicode_sizedstring_concat:
1739 res_unicode_sizedstring
1741 $$ = $1;
1744 res_unicode_sizedstring_concat res_unicode_sizedstring
1746 rc_uint_type l1 = $1.length;
1747 rc_uint_type l2 = $2.length;
1748 unichar *h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
1749 if (l1 != 0)
1750 memcpy (h, $1.s, l1 * sizeof (unichar));
1751 if (l2 != 0)
1752 memcpy (h + l1, $2.s, l2 * sizeof (unichar));
1753 h[l1 + l2] = 0;
1754 $$.length = l1 + l2;
1755 $$.s = h;
1759 sizedstring:
1760 SIZEDSTRING
1762 $$ = $1;
1764 | sizedstring SIZEDSTRING
1766 rc_uint_type l = $1.length + $2.length;
1767 char *h = (char *) res_alloc (l);
1768 memcpy (h, $1.s, $1.length);
1769 memcpy (h + $1.length, $2.s, $2.length);
1770 $$.s = h;
1771 $$.length = l;
1775 sizedunistring:
1776 SIZEDUNISTRING
1778 $$ = $1;
1780 | sizedunistring SIZEDUNISTRING
1782 rc_uint_type l = $1.length + $2.length;
1783 unichar *h = (unichar *) res_alloc (l * sizeof (unichar));
1784 memcpy (h, $1.s, $1.length * sizeof (unichar));
1785 memcpy (h + $1.length, $2.s, $2.length * sizeof (unichar));
1786 $$.s = h;
1787 $$.length = l;
1791 /* A style expression. This changes the static variable STYLE. We do
1792 it this way because rc appears to permit a style to be set to
1793 something like
1794 WS_GROUP | NOT WS_TABSTOP
1795 to mean that a default of WS_TABSTOP should be removed. Anything
1796 which wants to accept a style must first set STYLE to the default
1797 value. The styleexpr nonterminal will change STYLE as specified by
1798 the user. Note that we do not accept arbitrary expressions here,
1799 just numbers separated by '|'. */
1801 styleexpr:
1802 parennumber
1804 style |= $1;
1806 | NOT parennumber
1808 style &=~ $2;
1810 | styleexpr '|' parennumber
1812 style |= $3;
1814 | styleexpr '|' NOT parennumber
1816 style &=~ $4;
1820 parennumber:
1821 NUMBER
1823 $$ = $1.val;
1825 | '(' numexpr ')'
1827 $$ = $2;
1831 /* An optional expression with a leading comma. */
1833 optcnumexpr:
1834 /* empty */
1836 $$ = 0;
1838 | cnumexpr
1840 $$ = $1;
1844 /* An expression with a leading comma. */
1846 cnumexpr:
1847 ',' numexpr
1849 $$ = $2;
1853 /* A possibly negated numeric expression. */
1855 numexpr:
1856 sizednumexpr
1858 $$ = $1.val;
1862 /* A possibly negated expression with a size. */
1864 sizednumexpr:
1865 NUMBER
1867 $$ = $1;
1869 | '(' sizednumexpr ')'
1871 $$ = $2;
1873 | '~' sizednumexpr %prec '~'
1875 $$.val = ~ $2.val;
1876 $$.dword = $2.dword;
1878 | '-' sizednumexpr %prec NEG
1880 $$.val = - $2.val;
1881 $$.dword = $2.dword;
1883 | sizednumexpr '*' sizednumexpr
1885 $$.val = $1.val * $3.val;
1886 $$.dword = $1.dword || $3.dword;
1888 | sizednumexpr '/' sizednumexpr
1890 $$.val = $1.val / ($3.val ? $3.val : 1);
1891 $$.dword = $1.dword || $3.dword;
1893 | sizednumexpr '%' sizednumexpr
1895 $$.val = $1.val % ($3.val ? $3.val : 1);
1896 $$.dword = $1.dword || $3.dword;
1898 | sizednumexpr '+' sizednumexpr
1900 $$.val = $1.val + $3.val;
1901 $$.dword = $1.dword || $3.dword;
1903 | sizednumexpr '-' sizednumexpr
1905 $$.val = $1.val - $3.val;
1906 $$.dword = $1.dword || $3.dword;
1908 | sizednumexpr '&' sizednumexpr
1910 $$.val = $1.val & $3.val;
1911 $$.dword = $1.dword || $3.dword;
1913 | sizednumexpr '^' sizednumexpr
1915 $$.val = $1.val ^ $3.val;
1916 $$.dword = $1.dword || $3.dword;
1918 | sizednumexpr '|' sizednumexpr
1920 $$.val = $1.val | $3.val;
1921 $$.dword = $1.dword || $3.dword;
1925 /* An expression with a leading comma which does not use unary
1926 negation. */
1928 cposnumexpr:
1929 ',' posnumexpr
1931 $$ = $2;
1935 /* An expression which does not use unary negation. */
1937 posnumexpr:
1938 sizedposnumexpr
1940 $$ = $1.val;
1944 /* An expression which does not use unary negation. We separate unary
1945 negation to avoid parsing conflicts when two numeric expressions
1946 appear consecutively. */
1948 sizedposnumexpr:
1949 NUMBER
1951 $$ = $1;
1953 | '(' sizednumexpr ')'
1955 $$ = $2;
1957 | '~' sizednumexpr %prec '~'
1959 $$.val = ~ $2.val;
1960 $$.dword = $2.dword;
1962 | sizedposnumexpr '*' sizednumexpr
1964 $$.val = $1.val * $3.val;
1965 $$.dword = $1.dword || $3.dword;
1967 | sizedposnumexpr '/' sizednumexpr
1969 $$.val = $1.val / ($3.val ? $3.val : 1);
1970 $$.dword = $1.dword || $3.dword;
1972 | sizedposnumexpr '%' sizednumexpr
1974 /* PR 17512: file: 89105a25. */
1975 $$.val = $1.val % ($3.val ? $3.val : 1);
1976 $$.dword = $1.dword || $3.dword;
1978 | sizedposnumexpr '+' sizednumexpr
1980 $$.val = $1.val + $3.val;
1981 $$.dword = $1.dword || $3.dword;
1983 | sizedposnumexpr '-' sizednumexpr
1985 $$.val = $1.val - $3.val;
1986 $$.dword = $1.dword || $3.dword;
1988 | sizedposnumexpr '&' sizednumexpr
1990 $$.val = $1.val & $3.val;
1991 $$.dword = $1.dword || $3.dword;
1993 | sizedposnumexpr '^' sizednumexpr
1995 $$.val = $1.val ^ $3.val;
1996 $$.dword = $1.dword || $3.dword;
1998 | sizedposnumexpr '|' sizednumexpr
2000 $$.val = $1.val | $3.val;
2001 $$.dword = $1.dword || $3.dword;
2007 /* Set the language from the command line. */
2009 void
2010 rcparse_set_language (int lang)
2012 language = lang;