1 %{ /* rcparse.y -- parser for Windows rc files 2 Copyright (C) 1997-2022 Free Software Foundation, Inc. 3 Written by Ian Lance Taylor, Cygnus Support. 4 Extended by Kai Tietz, Onevision. 5 6 This file is part of GNU Binutils. 7 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. 12 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. 17 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. */ 22 23 24 /* This is a parser for Windows rc files. It is based on the parser 25 by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */ 26 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" 33 34 /* The current language. */ 35 36 static unsigned short language; 37 38 /* The resource information during a sub statement. */ 39 40 static rc_res_res_info sub_res_info; 41 42 /* Dialog information. This is built by the nonterminals styles and 43 controls. */ 44 45 static rc_dialog dialog; 46 47 /* This is used when building a style. It is modified by the 48 nonterminal styleexpr. */ 49 50 static unsigned long style; 51 52 /* These are used when building a control. They are set before using 53 control_params. */ 54 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; 60 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}}}; 64 65 %} 66 67 %union 68 { 69 rc_accelerator acc; 70 rc_accelerator *pacc; 71 rc_dialog_control *dialog_control; 72 rc_menuitem *menuitem; 73 struct 74 { 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 88 { 89 rc_uint_type on; 90 rc_uint_type off; 91 } memflags; 92 struct 93 { 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 102 { 103 rc_uint_type length; 104 const char *s; 105 } ss; 106 unichar *uni; 107 struct 108 { 109 rc_uint_type length; 110 const unichar *s; 111 } suni; 112 }; 113 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 OWNERDRAW 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 144 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 168 169 %left '|' 170 %left '^' 171 %left '&' 172 %left '+' '-' 173 %left '*' '/' '%' 174 %right '~' NEG 175 176 %% 177 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 195 ; 196 197 /* Accelerator resources. */ 198 199 accelerator: 200 id ACCELERATORS suboptions BEG acc_entries END 201 { 202 define_accelerator ($1, &$3, $5); 203 if (yychar != YYEMPTY) 204 YYERROR; 205 rcparse_discard_strings (); 206 } 207 ; 208 209 acc_entries: 210 /* empty */ 211 { 212 $$ = NULL; 213 } 214 | acc_entries acc_entry 215 { 216 rc_accelerator *a; 217 218 a = (rc_accelerator *) res_alloc (sizeof *a); 219 *a = $2; 220 if ($1 == NULL) 221 $$ = a; 222 else 223 { 224 rc_accelerator **pp; 225 226 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next) 227 ; 228 *pp = a; 229 $$ = $1; 230 } 231 } 232 ; 233 234 acc_entry: 235 acc_event cposnumexpr 236 { 237 $$ = $1; 238 $$.id = $2; 239 } 240 | acc_event cposnumexpr ',' acc_options 241 { 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")); 248 } 249 ; 250 251 acc_event: 252 QUOTEDSTRING 253 { 254 const char *s = $1; 255 char ch; 256 257 $$.next = NULL; 258 $$.id = 0; 259 ch = *s; 260 if (ch != '^') 261 $$.flags = 0; 262 else 263 { 264 $$.flags = ACC_CONTROL | ACC_VIRTKEY; 265 ++s; 266 ch = TOUPPER (s[0]); 267 } 268 $$.key = ch; 269 if (s[1] != '\0') 270 rcparse_warning (_("accelerator should only be one character")); 271 } 272 | posnumexpr 273 { 274 $$.next = NULL; 275 $$.flags = 0; 276 $$.id = 0; 277 $$.key = $1; 278 } 279 ; 280 281 acc_options: 282 acc_option 283 { 284 $$ = $1; 285 } 286 | acc_options ',' acc_option 287 { 288 $$ = $1 | $3; 289 } 290 /* I've had one report that the comma is optional. */ 291 | acc_options acc_option 292 { 293 $$ = $1 | $2; 294 } 295 ; 296 297 acc_option: 298 VIRTKEY 299 { 300 $$ = ACC_VIRTKEY; 301 } 302 | ASCII 303 { 304 /* This is just the absence of VIRTKEY. */ 305 $$ = 0; 306 } 307 | NOINVERT 308 { 309 $$ = ACC_NOINVERT; 310 } 311 | SHIFT 312 { 313 $$ = ACC_SHIFT; 314 } 315 | CONTROL 316 { 317 $$ = ACC_CONTROL; 318 } 319 | ALT 320 { 321 $$ = ACC_ALT; 322 } 323 ; 324 325 /* Bitmap resources. */ 326 327 bitmap: 328 id BITMAP memflags_move file_name 329 { 330 define_bitmap ($1, &$3, $4); 331 if (yychar != YYEMPTY) 332 YYERROR; 333 rcparse_discard_strings (); 334 } 335 ; 336 337 /* Cursor resources. */ 338 339 cursor: 340 id CURSOR memflags_move_discard file_name 341 { 342 define_cursor ($1, &$3, $4); 343 if (yychar != YYEMPTY) 344 YYERROR; 345 rcparse_discard_strings (); 346 } 347 ; 348 349 /* Dialog resources. */ 350 351 dialog: 352 id DIALOG memflags_move exstyle posnumexpr cnumexpr cnumexpr 353 cnumexpr 354 { 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; 369 } 370 styles BEG controls END 371 { 372 define_dialog ($1, &sub_res_info, &dialog); 373 if (yychar != YYEMPTY) 374 YYERROR; 375 rcparse_discard_strings (); 376 } 377 | id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr 378 cnumexpr 379 { 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; 396 } 397 styles BEG controls END 398 { 399 define_dialog ($1, &sub_res_info, &dialog); 400 if (yychar != YYEMPTY) 401 YYERROR; 402 rcparse_discard_strings (); 403 } 404 | id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr 405 cnumexpr cnumexpr 406 { 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; 424 } 425 styles BEG controls END 426 { 427 define_dialog ($1, &sub_res_info, &dialog); 428 if (yychar != YYEMPTY) 429 YYERROR; 430 rcparse_discard_strings (); 431 } 432 ; 433 434 exstyle: 435 /* empty */ 436 { 437 $$ = 0; 438 } 439 | EXSTYLE '=' numexpr 440 { 441 $$ = $3; 442 } 443 ; 444 445 styles: 446 /* empty */ 447 | styles CAPTION res_unicode_string_concat 448 { 449 dialog.style |= WS_CAPTION; 450 style |= WS_CAPTION; 451 dialog.caption = $3; 452 } 453 | styles CLASS id 454 { 455 dialog.class = $3; 456 } 457 | styles STYLE 458 styleexpr 459 { 460 dialog.style = style; 461 } 462 | styles EXSTYLE numexpr 463 { 464 dialog.exstyle = $3; 465 } 466 | styles CLASS res_unicode_string_concat 467 { 468 res_unistring_to_id (& dialog.class, $3); 469 } 470 | styles FONT numexpr ',' res_unicode_string_concat 471 { 472 dialog.style |= DS_SETFONT; 473 style |= DS_SETFONT; 474 dialog.pointsize = $3; 475 dialog.font = $5; 476 if (dialog.ex != NULL) 477 { 478 dialog.ex->weight = 0; 479 dialog.ex->italic = 0; 480 dialog.ex->charset = 1; 481 } 482 } 483 | styles FONT numexpr ',' res_unicode_string_concat cnumexpr 484 { 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 492 { 493 dialog.ex->weight = $6; 494 dialog.ex->italic = 0; 495 dialog.ex->charset = 1; 496 } 497 } 498 | styles FONT numexpr ',' res_unicode_string_concat cnumexpr cnumexpr 499 { 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 507 { 508 dialog.ex->weight = $6; 509 dialog.ex->italic = $7; 510 dialog.ex->charset = 1; 511 } 512 } 513 | styles FONT numexpr ',' res_unicode_string_concat cnumexpr cnumexpr cnumexpr 514 { 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 522 { 523 dialog.ex->weight = $6; 524 dialog.ex->italic = $7; 525 dialog.ex->charset = $8; 526 } 527 } 528 | styles MENU id 529 { 530 dialog.menu = $3; 531 } 532 | styles CHARACTERISTICS numexpr 533 { 534 sub_res_info.characteristics = $3; 535 } 536 | styles LANGUAGE numexpr cnumexpr 537 { 538 sub_res_info.language = $3 | ($4 << SUBLANG_SHIFT); 539 } 540 | styles VERSIONK numexpr 541 { 542 sub_res_info.version = $3; 543 } 544 ; 545 546 controls: 547 /* empty */ 548 | controls control 549 { 550 rc_dialog_control **pp; 551 552 for (pp = &dialog.controls; *pp != NULL; pp = &(*pp)->next) 553 ; 554 *pp = $2; 555 } 556 ; 557 558 control: 559 AUTO3STATE optresidc 560 { 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; 566 } 567 control_params 568 { 569 $$ = $4; 570 } 571 | AUTOCHECKBOX optresidc 572 { 573 default_style = BS_AUTOCHECKBOX | WS_TABSTOP; 574 base_style = BS_AUTOCHECKBOX | WS_TABSTOP; 575 class.named = 0; 576 class.u.id = CTL_BUTTON; 577 res_text_field = $2; 578 } 579 control_params 580 { 581 $$ = $4; 582 } 583 | AUTORADIOBUTTON optresidc 584 { 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; 590 } 591 control_params 592 { 593 $$ = $4; 594 } 595 | BEDIT optresidc 596 { 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; 602 } 603 control_params 604 { 605 $$ = $4; 606 if (dialog.ex == NULL) 607 rcparse_warning (_("BEDIT requires DIALOGEX")); 608 res_string_to_id (&$$->class, "BEDIT"); 609 } 610 | CHECKBOX optresidc 611 { 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; 617 } 618 control_params 619 { 620 $$ = $4; 621 } 622 | COMBOBOX 623 { 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; 631 } 632 control_params 633 { 634 $$ = $3; 635 } 636 | CONTROL optresidc numexpr cresid control_styleexpr cnumexpr 637 cnumexpr cnumexpr cnumexpr optcnumexpr opt_control_data 638 { 639 $$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10); 640 if ($11 != NULL) 641 { 642 if (dialog.ex == NULL) 643 rcparse_warning (_("control data requires DIALOGEX")); 644 $$->data = $11; 645 } 646 } 647 | CONTROL optresidc numexpr cresid control_styleexpr cnumexpr 648 cnumexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data 649 { 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; 655 } 656 | CTEXT optresidc 657 { 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; 663 } 664 control_params 665 { 666 $$ = $4; 667 } 668 | DEFPUSHBUTTON optresidc 669 { 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; 675 } 676 control_params 677 { 678 $$ = $4; 679 } 680 | EDITTEXT 681 { 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; 687 } 688 control_params 689 { 690 $$ = $3; 691 } 692 | GROUPBOX optresidc 693 { 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; 699 } 700 control_params 701 { 702 $$ = $4; 703 } 704 | HEDIT optresidc 705 { 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; 711 } 712 control_params 713 { 714 $$ = $4; 715 if (dialog.ex == NULL) 716 rcparse_warning (_("IEDIT requires DIALOGEX")); 717 res_string_to_id (&$$->class, "HEDIT"); 718 } 719 | ICON resref numexpr cnumexpr cnumexpr opt_control_data 720 { 721 $$ = define_icon_control ($2, $3, $4, $5, 0, 0, 0, $6, 722 dialog.ex); 723 } 724 | ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr 725 opt_control_data 726 { 727 $$ = define_icon_control ($2, $3, $4, $5, 0, 0, 0, $8, 728 dialog.ex); 729 } 730 | ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr 731 icon_styleexpr optcnumexpr opt_control_data 732 { 733 $$ = define_icon_control ($2, $3, $4, $5, style, $9, 0, $10, 734 dialog.ex); 735 } 736 | ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr 737 icon_styleexpr cnumexpr cnumexpr opt_control_data 738 { 739 $$ = define_icon_control ($2, $3, $4, $5, style, $9, $10, $11, 740 dialog.ex); 741 } 742 | IEDIT optresidc 743 { 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; 749 } 750 control_params 751 { 752 $$ = $4; 753 if (dialog.ex == NULL) 754 rcparse_warning (_("IEDIT requires DIALOGEX")); 755 res_string_to_id (&$$->class, "IEDIT"); 756 } 757 | LISTBOX 758 { 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; 764 } 765 control_params 766 { 767 $$ = $3; 768 } 769 | LTEXT optresidc 770 { 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; 776 } 777 control_params 778 { 779 $$ = $4; 780 } 781 | PUSHBOX optresidc 782 { 783 default_style = BS_PUSHBOX | WS_TABSTOP; 784 base_style = BS_PUSHBOX; 785 class.named = 0; 786 class.u.id = CTL_BUTTON; 787 } 788 control_params 789 { 790 $$ = $4; 791 } 792 | PUSHBUTTON optresidc 793 { 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; 799 } 800 control_params 801 { 802 $$ = $4; 803 } 804 | RADIOBUTTON optresidc 805 { 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; 811 } 812 control_params 813 { 814 $$ = $4; 815 } 816 | RTEXT optresidc 817 { 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; 823 } 824 control_params 825 { 826 $$ = $4; 827 } 828 | SCROLLBAR 829 { 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; 835 } 836 control_params 837 { 838 $$ = $3; 839 } 840 | STATE3 optresidc 841 { 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; 847 } 848 control_params 849 { 850 $$ = $4; 851 } 852 | USERBUTTON resref numexpr ',' numexpr ',' numexpr ',' 853 numexpr ',' numexpr ',' 854 { style = WS_CHILD | WS_VISIBLE; } 855 styleexpr optcnumexpr 856 { 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); 862 } 863 ; 864 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. */ 871 872 control_params: 873 numexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data 874 { 875 $$ = define_control (res_text_field, $1, $2, $3, $4, $5, class, 876 default_style | WS_CHILD | WS_VISIBLE, 0); 877 if ($6 != NULL) 878 { 879 if (dialog.ex == NULL) 880 rcparse_warning (_("control data requires DIALOGEX")); 881 $$->data = $6; 882 } 883 } 884 | numexpr cnumexpr cnumexpr cnumexpr cnumexpr 885 control_params_styleexpr optcnumexpr opt_control_data 886 { 887 $$ = define_control (res_text_field, $1, $2, $3, $4, $5, class, style, $7); 888 if ($8 != NULL) 889 { 890 if (dialog.ex == NULL) 891 rcparse_warning (_("control data requires DIALOGEX")); 892 $$->data = $8; 893 } 894 } 895 | numexpr cnumexpr cnumexpr cnumexpr cnumexpr 896 control_params_styleexpr cnumexpr cnumexpr opt_control_data 897 { 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; 903 } 904 ; 905 906 cresid: 907 ',' resid 908 { 909 if ($2.named) 910 res_unistring_to_id (&$$, $2.u.n.name); 911 else 912 $$=$2; 913 } 914 ; 915 916 optresidc: 917 /* empty */ 918 { 919 res_string_to_id (&$$, ""); 920 } 921 | resid ',' { $$=$1; } 922 ; 923 924 resid: 925 posnumexpr 926 { 927 $$.named = 0; 928 $$.u.id = $1; 929 } 930 | res_unicode_string_concat 931 { 932 $$.named = 1; 933 $$.u.n.name = $1; 934 $$.u.n.length = unichar_len ($1); 935 } 936 ; 937 938 opt_control_data: 939 /* empty */ 940 { 941 $$ = NULL; 942 } 943 | BEG optrcdata_data END 944 { 945 $$ = $2.first; 946 } 947 ; 948 949 /* These only exist to parse a reduction out of a common case. */ 950 951 control_styleexpr: 952 ',' 953 { style = WS_CHILD | WS_VISIBLE; } 954 styleexpr 955 ; 956 957 icon_styleexpr: 958 ',' 959 { style = SS_ICON | WS_CHILD | WS_VISIBLE; } 960 styleexpr 961 ; 962 963 control_params_styleexpr: 964 ',' 965 { style = base_style | WS_CHILD | WS_VISIBLE; } 966 styleexpr 967 ; 968 969 /* Font resources. */ 970 971 font: 972 id FONT memflags_move_discard file_name 973 { 974 define_font ($1, &$3, $4); 975 if (yychar != YYEMPTY) 976 YYERROR; 977 rcparse_discard_strings (); 978 } 979 ; 980 981 /* Icon resources. */ 982 983 icon: 984 id ICON memflags_move_discard file_name 985 { 986 define_icon ($1, &$3, $4); 987 if (yychar != YYEMPTY) 988 YYERROR; 989 rcparse_discard_strings (); 990 } 991 ; 992 993 /* Language command. This changes the static variable language, which 994 affects all subsequent resources. */ 995 996 language: 997 LANGUAGE numexpr cnumexpr 998 { 999 language = $2 | ($3 << SUBLANG_SHIFT); 1000 } 1001 ; 1002 1003 /* Menu resources. */ 1004 1005 menu: 1006 id MENU suboptions BEG menuitems END 1007 { 1008 define_menu ($1, &$3, $5); 1009 if (yychar != YYEMPTY) 1010 YYERROR; 1011 rcparse_discard_strings (); 1012 } 1013 ; 1014 1015 menuitems: 1016 /* empty */ 1017 { 1018 $$ = NULL; 1019 } 1020 | menuitems menuitem 1021 { 1022 if ($1 == NULL) 1023 $$ = $2; 1024 else 1025 { 1026 rc_menuitem **pp; 1027 1028 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next) 1029 ; 1030 *pp = $2; 1031 $$ = $1; 1032 } 1033 } 1034 ; 1035 1036 menuitem: 1037 MENUITEM res_unicode_string_concat cnumexpr menuitem_flags 1038 { 1039 $$ = define_menuitem ($2, $3, $4, 0, 0, NULL); 1040 } 1041 | MENUITEM SEPARATOR 1042 { 1043 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL); 1044 } 1045 | POPUP res_unicode_string_concat menuitem_flags BEG menuitems END 1046 { 1047 $$ = define_menuitem ($2, 0, $3, 0, 0, $5); 1048 } 1049 ; 1050 1051 menuitem_flags: 1052 /* empty */ 1053 { 1054 $$ = 0; 1055 } 1056 | menuitem_flags ',' menuitem_flag 1057 { 1058 $$ = $1 | $3; 1059 } 1060 | menuitem_flags menuitem_flag 1061 { 1062 $$ = $1 | $2; 1063 } 1064 ; 1065 1066 menuitem_flag: 1067 CHECKED 1068 { 1069 $$ = MENUITEM_CHECKED; 1070 } 1071 | GRAYED 1072 { 1073 $$ = MENUITEM_GRAYED; 1074 } 1075 | HELP 1076 { 1077 $$ = MENUITEM_HELP; 1078 } 1079 | INACTIVE 1080 { 1081 $$ = MENUITEM_INACTIVE; 1082 } 1083 | MENUBARBREAK 1084 { 1085 $$ = MENUITEM_MENUBARBREAK; 1086 } 1087 | MENUBREAK 1088 { 1089 $$ = MENUITEM_MENUBREAK; 1090 } 1091 | BITMAP 1092 { 1093 $$ = MENUITEM_BITMAP; 1094 } 1095 | OWNERDRAW 1096 { 1097 $$ = MENUITEM_OWNERDRAW; 1098 } 1099 ; 1100 1101 /* Menuex resources. */ 1102 1103 menuex: 1104 id MENUEX suboptions BEG menuexitems END 1105 { 1106 define_menu ($1, &$3, $5); 1107 if (yychar != YYEMPTY) 1108 YYERROR; 1109 rcparse_discard_strings (); 1110 } 1111 ; 1112 1113 menuexitems: 1114 /* empty */ 1115 { 1116 $$ = NULL; 1117 } 1118 | menuexitems menuexitem 1119 { 1120 if ($1 == NULL) 1121 $$ = $2; 1122 else 1123 { 1124 rc_menuitem **pp; 1125 1126 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next) 1127 ; 1128 *pp = $2; 1129 $$ = $1; 1130 } 1131 } 1132 ; 1133 1134 menuexitem: 1135 MENUITEM res_unicode_string_concat 1136 { 1137 $$ = define_menuitem ($2, 0, 0, 0, 0, NULL); 1138 } 1139 | MENUITEM res_unicode_string_concat cnumexpr 1140 { 1141 $$ = define_menuitem ($2, $3, 0, 0, 0, NULL); 1142 } 1143 | MENUITEM res_unicode_string_concat cnumexpr cnumexpr optcnumexpr 1144 { 1145 $$ = define_menuitem ($2, $3, $4, $5, 0, NULL); 1146 } 1147 | MENUITEM SEPARATOR 1148 { 1149 $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL); 1150 } 1151 | POPUP res_unicode_string_concat BEG menuexitems END 1152 { 1153 $$ = define_menuitem ($2, 0, 0, 0, 0, $4); 1154 } 1155 | POPUP res_unicode_string_concat cnumexpr BEG menuexitems END 1156 { 1157 $$ = define_menuitem ($2, $3, 0, 0, 0, $5); 1158 } 1159 | POPUP res_unicode_string_concat cnumexpr cnumexpr BEG menuexitems END 1160 { 1161 $$ = define_menuitem ($2, $3, $4, 0, 0, $6); 1162 } 1163 | POPUP res_unicode_string_concat cnumexpr cnumexpr cnumexpr optcnumexpr 1164 BEG menuexitems END 1165 { 1166 $$ = define_menuitem ($2, $3, $4, $5, $6, $8); 1167 } 1168 ; 1169 1170 /* Messagetable resources. */ 1171 1172 messagetable: 1173 id MESSAGETABLE memflags_move file_name 1174 { 1175 define_messagetable ($1, &$3, $4); 1176 if (yychar != YYEMPTY) 1177 YYERROR; 1178 rcparse_discard_strings (); 1179 } 1180 ; 1181 1182 /* We use a different lexing algorithm, because rcdata strings may 1183 contain embedded null bytes, and we need to know the length to use. */ 1184 1185 optrcdata_data: 1186 { 1187 rcparse_rcdata (); 1188 } 1189 optrcdata_data_int 1190 { 1191 rcparse_normal (); 1192 $$ = $2; 1193 } 1194 ; 1195 1196 optrcdata_data_int: 1197 /* empty */ 1198 { 1199 $$.first = NULL; 1200 $$.last = NULL; 1201 } 1202 | rcdata_data 1203 { 1204 $$ = $1; 1205 } 1206 ; 1207 1208 rcdata_data: 1209 sizedstring 1210 { 1211 rc_rcdata_item *ri; 1212 1213 ri = define_rcdata_string ($1.s, $1.length); 1214 $$.first = ri; 1215 $$.last = ri; 1216 } 1217 | sizedunistring 1218 { 1219 rc_rcdata_item *ri; 1220 1221 ri = define_rcdata_unistring ($1.s, $1.length); 1222 $$.first = ri; 1223 $$.last = ri; 1224 } 1225 | sizednumexpr 1226 { 1227 rc_rcdata_item *ri; 1228 1229 ri = define_rcdata_number ($1.val, $1.dword); 1230 $$.first = ri; 1231 $$.last = ri; 1232 } 1233 | rcdata_data ',' sizedstring 1234 { 1235 rc_rcdata_item *ri; 1236 1237 ri = define_rcdata_string ($3.s, $3.length); 1238 $$.first = $1.first; 1239 $1.last->next = ri; 1240 $$.last = ri; 1241 } 1242 | rcdata_data ',' sizedunistring 1243 { 1244 rc_rcdata_item *ri; 1245 1246 ri = define_rcdata_unistring ($3.s, $3.length); 1247 $$.first = $1.first; 1248 $1.last->next = ri; 1249 $$.last = ri; 1250 } 1251 | rcdata_data ',' sizednumexpr 1252 { 1253 rc_rcdata_item *ri; 1254 1255 ri = define_rcdata_number ($3.val, $3.dword); 1256 $$.first = $1.first; 1257 $1.last->next = ri; 1258 $$.last = ri; 1259 } 1260 | rcdata_data ',' 1261 { 1262 $$=$1; 1263 } 1264 ; 1265 1266 /* Stringtable resources. */ 1267 1268 stringtable: 1269 STRINGTABLE suboptions BEG 1270 { sub_res_info = $2; rcparse_rcdata (); } 1271 string_data END { rcparse_normal (); } 1272 ; 1273 1274 string_data: 1275 /* empty */ 1276 | string_data numexpr res_unicode_sizedstring_concat 1277 { 1278 define_stringtable (&sub_res_info, $2, $3.s, $3.length); 1279 rcparse_discard_strings (); 1280 } 1281 | string_data numexpr ',' res_unicode_sizedstring_concat 1282 { 1283 define_stringtable (&sub_res_info, $2, $4.s, $4.length); 1284 rcparse_discard_strings (); 1285 } 1286 | string_data error 1287 { 1288 rcparse_warning (_("invalid stringtable resource.")); 1289 abort (); 1290 } 1291 ; 1292 1293 rcdata_id: 1294 id 1295 { 1296 $$=$1; 1297 } 1298 | HTML 1299 { 1300 $$.named = 0; 1301 $$.u.id = 23; 1302 } 1303 | RCDATA 1304 { 1305 $$.named = 0; 1306 $$.u.id = RT_RCDATA; 1307 } 1308 | MANIFEST 1309 { 1310 $$.named = 0; 1311 $$.u.id = RT_MANIFEST; 1312 } 1313 | PLUGPLAY 1314 { 1315 $$.named = 0; 1316 $$.u.id = RT_PLUGPLAY; 1317 } 1318 | VXD 1319 { 1320 $$.named = 0; 1321 $$.u.id = RT_VXD; 1322 } 1323 | DLGINCLUDE 1324 { 1325 $$.named = 0; 1326 $$.u.id = RT_DLGINCLUDE; 1327 } 1328 | DLGINIT 1329 { 1330 $$.named = 0; 1331 $$.u.id = RT_DLGINIT; 1332 } 1333 | ANICURSOR 1334 { 1335 $$.named = 0; 1336 $$.u.id = RT_ANICURSOR; 1337 } 1338 | ANIICON 1339 { 1340 $$.named = 0; 1341 $$.u.id = RT_ANIICON; 1342 } 1343 ; 1344 1345 /* User defined resources. We accept general suboptions in the 1346 file_name case to keep the parser happy. */ 1347 1348 user: 1349 id rcdata_id suboptions BEG optrcdata_data END 1350 { 1351 define_user_data ($1, $2, &$3, $5.first); 1352 if (yychar != YYEMPTY) 1353 YYERROR; 1354 rcparse_discard_strings (); 1355 } 1356 | id rcdata_id suboptions file_name 1357 { 1358 define_user_file ($1, $2, &$3, $4); 1359 if (yychar != YYEMPTY) 1360 YYERROR; 1361 rcparse_discard_strings (); 1362 } 1363 ; 1364 1365 toolbar: 1366 id TOOLBAR suboptions numexpr cnumexpr BEG toolbar_data END 1367 { 1368 define_toolbar ($1, &$3, $4, $5, $7); 1369 } 1370 ; 1371 1372 toolbar_data: /* empty */ { $$= NULL; } 1373 | toolbar_data BUTTON id 1374 { 1375 rc_toolbar_item *c,*n; 1376 c = $1; 1377 n= (rc_toolbar_item *) 1378 res_alloc (sizeof (rc_toolbar_item)); 1379 if (c != NULL) 1380 while (c->next != NULL) 1381 c = c->next; 1382 n->prev = c; 1383 n->next = NULL; 1384 if (c != NULL) 1385 c->next = n; 1386 n->id = $3; 1387 if ($1 == NULL) 1388 $$ = n; 1389 else 1390 $$ = $1; 1391 } 1392 | toolbar_data SEPARATOR 1393 { 1394 rc_toolbar_item *c,*n; 1395 c = $1; 1396 n= (rc_toolbar_item *) 1397 res_alloc (sizeof (rc_toolbar_item)); 1398 if (c != NULL) 1399 while (c->next != NULL) 1400 c = c->next; 1401 n->prev = c; 1402 n->next = NULL; 1403 if (c != NULL) 1404 c->next = n; 1405 n->id.named = 0; 1406 n->id.u.id = 0; 1407 if ($1 == NULL) 1408 $$ = n; 1409 else 1410 $$ = $1; 1411 } 1412 ; 1413 1414 /* Versioninfo resources. */ 1415 1416 versioninfo: 1417 id VERSIONINFO fixedverinfo BEG verblocks END 1418 { 1419 define_versioninfo ($1, language, $3, $5); 1420 if (yychar != YYEMPTY) 1421 YYERROR; 1422 rcparse_discard_strings (); 1423 } 1424 ; 1425 1426 fixedverinfo: 1427 /* empty */ 1428 { 1429 $$ = ((rc_fixed_versioninfo *) 1430 res_alloc (sizeof (rc_fixed_versioninfo))); 1431 memset ($$, 0, sizeof (rc_fixed_versioninfo)); 1432 } 1433 | fixedverinfo FILEVERSION numexpr optcnumexpr optcnumexpr 1434 optcnumexpr 1435 { 1436 $1->file_version_ms = ($3 << 16) | ($4 & 0xffff); 1437 $1->file_version_ls = ($5 << 16) | ($6 & 0xffff); 1438 $$ = $1; 1439 } 1440 | fixedverinfo PRODUCTVERSION numexpr optcnumexpr optcnumexpr 1441 optcnumexpr 1442 { 1443 $1->product_version_ms = ($3 << 16) | ($4 & 0xffff); 1444 $1->product_version_ls = ($5 << 16) | ($6 & 0xffff); 1445 $$ = $1; 1446 } 1447 | fixedverinfo FILEFLAGSMASK numexpr 1448 { 1449 $1->file_flags_mask = $3; 1450 $$ = $1; 1451 } 1452 | fixedverinfo FILEFLAGS numexpr 1453 { 1454 $1->file_flags = $3; 1455 $$ = $1; 1456 } 1457 | fixedverinfo FILEOS numexpr 1458 { 1459 $1->file_os = $3; 1460 $$ = $1; 1461 } 1462 | fixedverinfo FILETYPE numexpr 1463 { 1464 $1->file_type = $3; 1465 $$ = $1; 1466 } 1467 | fixedverinfo FILESUBTYPE numexpr 1468 { 1469 $1->file_subtype = $3; 1470 $$ = $1; 1471 } 1472 ; 1473 1474 /* To handle verblocks successfully, the lexer handles BLOCK 1475 specially. A BLOCK "StringFileInfo" is returned as 1476 BLOCKSTRINGFILEINFO. A BLOCK "VarFileInfo" is returned as 1477 BLOCKVARFILEINFO. A BLOCK with some other string returns BLOCK 1478 with the string as the value. */ 1479 1480 verblocks: 1481 /* empty */ 1482 { 1483 $$ = NULL; 1484 } 1485 | verblocks BLOCKSTRINGFILEINFO BEG verstringtables END 1486 { 1487 $$ = append_ver_stringfileinfo ($1, $4); 1488 } 1489 | verblocks BLOCKVARFILEINFO BEG VALUE res_unicode_string_concat vertrans END 1490 { 1491 $$ = append_ver_varfileinfo ($1, $5, $6); 1492 } 1493 ; 1494 1495 verstringtables: 1496 /* empty */ 1497 { 1498 $$ = NULL; 1499 } 1500 | verstringtables BLOCK BEG vervals END 1501 { 1502 $$ = append_ver_stringtable ($1, $2, $4); 1503 } 1504 ; 1505 1506 vervals: 1507 /* empty */ 1508 { 1509 $$ = NULL; 1510 } 1511 | vervals VALUE res_unicode_string_concat ',' res_unicode_string_concat 1512 { 1513 $$ = append_verval ($1, $3, $5); 1514 } 1515 ; 1516 1517 vertrans: 1518 /* empty */ 1519 { 1520 $$ = NULL; 1521 } 1522 | vertrans cnumexpr cnumexpr 1523 { 1524 $$ = append_vertrans ($1, $2, $3); 1525 } 1526 ; 1527 1528 /* A resource ID. */ 1529 1530 id: 1531 posnumexpr 1532 { 1533 $$.named = 0; 1534 $$.u.id = $1; 1535 } 1536 | resname 1537 { 1538 res_unistring_to_id (&$$, $1); 1539 } 1540 ; 1541 1542 /* A resource reference. */ 1543 1544 resname: 1545 res_unicode_string 1546 { 1547 $$ = $1; 1548 } 1549 | STRING 1550 { 1551 unichar *h = NULL; 1552 unicode_from_ascii ((rc_uint_type *) NULL, &h, $1); 1553 $$ = h; 1554 } 1555 ; 1556 1557 1558 resref: 1559 posnumexpr ',' 1560 { 1561 $$.named = 0; 1562 $$.u.id = $1; 1563 } 1564 | resname 1565 { 1566 res_unistring_to_id (&$$, $1); 1567 } 1568 | resname ',' 1569 { 1570 res_unistring_to_id (&$$, $1); 1571 } 1572 ; 1573 1574 /* Generic suboptions. These may appear before the BEGIN in any 1575 multiline statement. */ 1576 1577 suboptions: 1578 /* empty */ 1579 { 1580 memset (&$$, 0, sizeof (rc_res_res_info)); 1581 $$.language = language; 1582 /* FIXME: Is this the right default? */ 1583 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE; 1584 } 1585 | suboptions memflag 1586 { 1587 $$ = $1; 1588 $$.memflags |= $2.on; 1589 $$.memflags &=~ $2.off; 1590 } 1591 | suboptions CHARACTERISTICS numexpr 1592 { 1593 $$ = $1; 1594 $$.characteristics = $3; 1595 } 1596 | suboptions LANGUAGE numexpr cnumexpr 1597 { 1598 $$ = $1; 1599 $$.language = $3 | ($4 << SUBLANG_SHIFT); 1600 } 1601 | suboptions VERSIONK numexpr 1602 { 1603 $$ = $1; 1604 $$.version = $3; 1605 } 1606 ; 1607 1608 /* Memory flags which default to MOVEABLE and DISCARDABLE. */ 1609 1610 memflags_move_discard: 1611 /* empty */ 1612 { 1613 memset (&$$, 0, sizeof (rc_res_res_info)); 1614 $$.language = language; 1615 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_DISCARDABLE; 1616 } 1617 | memflags_move_discard memflag 1618 { 1619 $$ = $1; 1620 $$.memflags |= $2.on; 1621 $$.memflags &=~ $2.off; 1622 } 1623 ; 1624 1625 /* Memory flags which default to MOVEABLE. */ 1626 1627 memflags_move: 1628 /* empty */ 1629 { 1630 memset (&$$, 0, sizeof (rc_res_res_info)); 1631 $$.language = language; 1632 $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE; 1633 } 1634 | memflags_move memflag 1635 { 1636 $$ = $1; 1637 $$.memflags |= $2.on; 1638 $$.memflags &=~ $2.off; 1639 } 1640 ; 1641 1642 /* Memory flags. This returns a struct with two integers, because we 1643 sometimes want to set bits and we sometimes want to clear them. */ 1644 1645 memflag: 1646 MOVEABLE 1647 { 1648 $$.on = MEMFLAG_MOVEABLE; 1649 $$.off = 0; 1650 } 1651 | FIXED 1652 { 1653 $$.on = 0; 1654 $$.off = MEMFLAG_MOVEABLE; 1655 } 1656 | PURE 1657 { 1658 $$.on = MEMFLAG_PURE; 1659 $$.off = 0; 1660 } 1661 | IMPURE 1662 { 1663 $$.on = 0; 1664 $$.off = MEMFLAG_PURE; 1665 } 1666 | PRELOAD 1667 { 1668 $$.on = MEMFLAG_PRELOAD; 1669 $$.off = 0; 1670 } 1671 | LOADONCALL 1672 { 1673 $$.on = 0; 1674 $$.off = MEMFLAG_PRELOAD; 1675 } 1676 | DISCARDABLE 1677 { 1678 $$.on = MEMFLAG_DISCARDABLE; 1679 $$.off = 0; 1680 } 1681 ; 1682 1683 /* A file name. */ 1684 1685 file_name: 1686 QUOTEDSTRING 1687 { 1688 $$ = $1; 1689 } 1690 | STRING 1691 { 1692 $$ = $1; 1693 } 1694 ; 1695 1696 /* Concat string */ 1697 res_unicode_string_concat: 1698 res_unicode_string 1699 { 1700 $$ = $1; 1701 } 1702 | 1703 res_unicode_string_concat res_unicode_string 1704 { 1705 rc_uint_type l1 = unichar_len ($1); 1706 rc_uint_type l2 = unichar_len ($2); 1707 unichar *h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar)); 1708 if (l1 != 0) 1709 memcpy (h, $1, l1 * sizeof (unichar)); 1710 if (l2 != 0) 1711 memcpy (h + l1, $2, l2 * sizeof (unichar)); 1712 h[l1 + l2] = 0; 1713 $$ = h; 1714 } 1715 ; 1716 1717 res_unicode_string: 1718 QUOTEDUNISTRING 1719 { 1720 $$ = unichar_dup ($1); 1721 } 1722 | QUOTEDSTRING 1723 { 1724 unichar *h = NULL; 1725 unicode_from_ascii ((rc_uint_type *) NULL, &h, $1); 1726 $$ = h; 1727 } 1728 ; 1729 1730 res_unicode_sizedstring: 1731 sizedunistring 1732 { 1733 $$ = $1; 1734 } 1735 | sizedstring 1736 { 1737 unichar *h = NULL; 1738 rc_uint_type l = 0; 1739 unicode_from_ascii_len (&l, &h, $1.s, $1.length); 1740 $$.s = h; 1741 $$.length = l; 1742 } 1743 ; 1744 1745 /* Concat string */ 1746 res_unicode_sizedstring_concat: 1747 res_unicode_sizedstring 1748 { 1749 $$ = $1; 1750 } 1751 | 1752 res_unicode_sizedstring_concat res_unicode_sizedstring 1753 { 1754 rc_uint_type l1 = $1.length; 1755 rc_uint_type l2 = $2.length; 1756 unichar *h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar)); 1757 if (l1 != 0) 1758 memcpy (h, $1.s, l1 * sizeof (unichar)); 1759 if (l2 != 0) 1760 memcpy (h + l1, $2.s, l2 * sizeof (unichar)); 1761 h[l1 + l2] = 0; 1762 $$.length = l1 + l2; 1763 $$.s = h; 1764 } 1765 ; 1766 1767 sizedstring: 1768 SIZEDSTRING 1769 { 1770 $$ = $1; 1771 } 1772 | sizedstring SIZEDSTRING 1773 { 1774 rc_uint_type l = $1.length + $2.length; 1775 char *h = (char *) res_alloc (l); 1776 memcpy (h, $1.s, $1.length); 1777 memcpy (h + $1.length, $2.s, $2.length); 1778 $$.s = h; 1779 $$.length = l; 1780 } 1781 ; 1782 1783 sizedunistring: 1784 SIZEDUNISTRING 1785 { 1786 $$ = $1; 1787 } 1788 | sizedunistring SIZEDUNISTRING 1789 { 1790 rc_uint_type l = $1.length + $2.length; 1791 unichar *h = (unichar *) res_alloc (l * sizeof (unichar)); 1792 memcpy (h, $1.s, $1.length * sizeof (unichar)); 1793 memcpy (h + $1.length, $2.s, $2.length * sizeof (unichar)); 1794 $$.s = h; 1795 $$.length = l; 1796 } 1797 ; 1798 1799 /* A style expression. This changes the static variable STYLE. We do 1800 it this way because rc appears to permit a style to be set to 1801 something like 1802 WS_GROUP | NOT WS_TABSTOP 1803 to mean that a default of WS_TABSTOP should be removed. Anything 1804 which wants to accept a style must first set STYLE to the default 1805 value. The styleexpr nonterminal will change STYLE as specified by 1806 the user. Note that we do not accept arbitrary expressions here, 1807 just numbers separated by '|'. */ 1808 1809 styleexpr: 1810 parennumber 1811 { 1812 style |= $1; 1813 } 1814 | NOT parennumber 1815 { 1816 style &=~ $2; 1817 } 1818 | styleexpr '|' parennumber 1819 { 1820 style |= $3; 1821 } 1822 | styleexpr '|' NOT parennumber 1823 { 1824 style &=~ $4; 1825 } 1826 ; 1827 1828 parennumber: 1829 NUMBER 1830 { 1831 $$ = $1.val; 1832 } 1833 | '(' numexpr ')' 1834 { 1835 $$ = $2; 1836 } 1837 ; 1838 1839 /* An optional expression with a leading comma. */ 1840 1841 optcnumexpr: 1842 /* empty */ 1843 { 1844 $$ = 0; 1845 } 1846 | cnumexpr 1847 { 1848 $$ = $1; 1849 } 1850 ; 1851 1852 /* An expression with a leading comma. */ 1853 1854 cnumexpr: 1855 ',' numexpr 1856 { 1857 $$ = $2; 1858 } 1859 ; 1860 1861 /* A possibly negated numeric expression. */ 1862 1863 numexpr: 1864 sizednumexpr 1865 { 1866 $$ = $1.val; 1867 } 1868 ; 1869 1870 /* A possibly negated expression with a size. */ 1871 1872 sizednumexpr: 1873 NUMBER 1874 { 1875 $$ = $1; 1876 } 1877 | '(' sizednumexpr ')' 1878 { 1879 $$ = $2; 1880 } 1881 | '~' sizednumexpr %prec '~' 1882 { 1883 $$.val = ~ $2.val; 1884 $$.dword = $2.dword; 1885 } 1886 | '-' sizednumexpr %prec NEG 1887 { 1888 $$.val = - $2.val; 1889 $$.dword = $2.dword; 1890 } 1891 | sizednumexpr '*' sizednumexpr 1892 { 1893 $$.val = $1.val * $3.val; 1894 $$.dword = $1.dword || $3.dword; 1895 } 1896 | sizednumexpr '/' sizednumexpr 1897 { 1898 $$.val = $1.val / ($3.val ? $3.val : 1); 1899 $$.dword = $1.dword || $3.dword; 1900 } 1901 | sizednumexpr '%' sizednumexpr 1902 { 1903 $$.val = $1.val % ($3.val ? $3.val : 1); 1904 $$.dword = $1.dword || $3.dword; 1905 } 1906 | sizednumexpr '+' sizednumexpr 1907 { 1908 $$.val = $1.val + $3.val; 1909 $$.dword = $1.dword || $3.dword; 1910 } 1911 | sizednumexpr '-' sizednumexpr 1912 { 1913 $$.val = $1.val - $3.val; 1914 $$.dword = $1.dword || $3.dword; 1915 } 1916 | sizednumexpr '&' sizednumexpr 1917 { 1918 $$.val = $1.val & $3.val; 1919 $$.dword = $1.dword || $3.dword; 1920 } 1921 | sizednumexpr '^' sizednumexpr 1922 { 1923 $$.val = $1.val ^ $3.val; 1924 $$.dword = $1.dword || $3.dword; 1925 } 1926 | sizednumexpr '|' sizednumexpr 1927 { 1928 $$.val = $1.val | $3.val; 1929 $$.dword = $1.dword || $3.dword; 1930 } 1931 ; 1932 1933 /* An expression with a leading comma which does not use unary 1934 negation. */ 1935 1936 cposnumexpr: 1937 ',' posnumexpr 1938 { 1939 $$ = $2; 1940 } 1941 ; 1942 1943 /* An expression which does not use unary negation. */ 1944 1945 posnumexpr: 1946 sizedposnumexpr 1947 { 1948 $$ = $1.val; 1949 } 1950 ; 1951 1952 /* An expression which does not use unary negation. We separate unary 1953 negation to avoid parsing conflicts when two numeric expressions 1954 appear consecutively. */ 1955 1956 sizedposnumexpr: 1957 NUMBER 1958 { 1959 $$ = $1; 1960 } 1961 | '(' sizednumexpr ')' 1962 { 1963 $$ = $2; 1964 } 1965 | '~' sizednumexpr %prec '~' 1966 { 1967 $$.val = ~ $2.val; 1968 $$.dword = $2.dword; 1969 } 1970 | sizedposnumexpr '*' sizednumexpr 1971 { 1972 $$.val = $1.val * $3.val; 1973 $$.dword = $1.dword || $3.dword; 1974 } 1975 | sizedposnumexpr '/' sizednumexpr 1976 { 1977 $$.val = $1.val / ($3.val ? $3.val : 1); 1978 $$.dword = $1.dword || $3.dword; 1979 } 1980 | sizedposnumexpr '%' sizednumexpr 1981 { 1982 /* PR 17512: file: 89105a25. */ 1983 $$.val = $1.val % ($3.val ? $3.val : 1); 1984 $$.dword = $1.dword || $3.dword; 1985 } 1986 | sizedposnumexpr '+' sizednumexpr 1987 { 1988 $$.val = $1.val + $3.val; 1989 $$.dword = $1.dword || $3.dword; 1990 } 1991 | sizedposnumexpr '-' sizednumexpr 1992 { 1993 $$.val = $1.val - $3.val; 1994 $$.dword = $1.dword || $3.dword; 1995 } 1996 | sizedposnumexpr '&' sizednumexpr 1997 { 1998 $$.val = $1.val & $3.val; 1999 $$.dword = $1.dword || $3.dword; 2000 } 2001 | sizedposnumexpr '^' sizednumexpr 2002 { 2003 $$.val = $1.val ^ $3.val; 2004 $$.dword = $1.dword || $3.dword; 2005 } 2006 | sizedposnumexpr '|' sizednumexpr 2007 { 2008 $$.val = $1.val | $3.val; 2009 $$.dword = $1.dword || $3.dword; 2010 } 2011 ; 2012 2013 %% 2014 2015 /* Set the language from the command line. */ 2016 2017 void 2018 rcparse_set_language (int lang) 2019 { 2020 language = lang; 2021 } 2022