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