binutils/rcparse.y

   1 %{ /* rcparse.y -- parser for Windows rc files
   2    Copyright (C) 1997-2019 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
 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;
 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         ;
1092
1093 /* Menuex resources.  */
1094
1095 menuex:
1096           id MENUEX suboptions BEG menuexitems END
1097           {
1098             define_menu ($1, &$3, $5);
1099             if (yychar != YYEMPTY)
1100               YYERROR;
1101             rcparse_discard_strings ();
1102           }
1103         ;
1104
1105 menuexitems:
1106           /* empty */
1107           {
1108             $$ = NULL;
1109           }
1110         | menuexitems menuexitem
1111           {
1112             if ($1 == NULL)
1113               $$ = $2;
1114             else
1115               {
1116                 rc_menuitem **pp;
1117
1118                 for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
1119                   ;
1120                 *pp = $2;
1121                 $$ = $1;
1122               }
1123           }
1124         ;
1125
1126 menuexitem:
1127           MENUITEM res_unicode_string_concat
1128           {
1129             $$ = define_menuitem ($2, 0, 0, 0, 0, NULL);
1130           }
1131         | MENUITEM res_unicode_string_concat cnumexpr
1132           {
1133             $$ = define_menuitem ($2, $3, 0, 0, 0, NULL);
1134           }
1135         | MENUITEM res_unicode_string_concat cnumexpr cnumexpr optcnumexpr
1136           {
1137             $$ = define_menuitem ($2, $3, $4, $5, 0, NULL);
1138           }
1139         | MENUITEM SEPARATOR
1140           {
1141             $$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
1142           }
1143         | POPUP res_unicode_string_concat BEG menuexitems END
1144           {
1145             $$ = define_menuitem ($2, 0, 0, 0, 0, $4);
1146           }
1147         | POPUP res_unicode_string_concat cnumexpr BEG menuexitems END
1148           {
1149             $$ = define_menuitem ($2, $3, 0, 0, 0, $5);
1150           }
1151         | POPUP res_unicode_string_concat cnumexpr cnumexpr BEG menuexitems END
1152           {
1153             $$ = define_menuitem ($2, $3, $4, 0, 0, $6);
1154           }
1155         | POPUP res_unicode_string_concat cnumexpr cnumexpr cnumexpr optcnumexpr
1156             BEG menuexitems END
1157           {
1158             $$ = define_menuitem ($2, $3, $4, $5, $6, $8);
1159           }
1160         ;
1161
1162 /* Messagetable resources.  */
1163
1164 messagetable:
1165           id MESSAGETABLE memflags_move file_name
1166           {
1167             define_messagetable ($1, &$3, $4);
1168             if (yychar != YYEMPTY)
1169               YYERROR;
1170             rcparse_discard_strings ();
1171           }
1172         ;
1173
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.  */
1176
1177 optrcdata_data:
1178           {
1179             rcparse_rcdata ();
1180           }
1181           optrcdata_data_int
1182           {
1183             rcparse_normal ();
1184             $$ = $2;
1185           }
1186         ;
1187
1188 optrcdata_data_int:
1189           /* empty */
1190           {
1191             $$.first = NULL;
1192             $$.last = NULL;
1193           }
1194         | rcdata_data
1195           {
1196             $$ = $1;
1197           }
1198         ;
1199
1200 rcdata_data:
1201           sizedstring
1202           {
1203             rc_rcdata_item *ri;
1204
1205             ri = define_rcdata_string ($1.s, $1.length);
1206             $$.first = ri;
1207             $$.last = ri;
1208           }
1209         | sizedunistring
1210           {
1211             rc_rcdata_item *ri;
1212
1213             ri = define_rcdata_unistring ($1.s, $1.length);
1214             $$.first = ri;
1215             $$.last = ri;
1216           }
1217         | sizednumexpr
1218           {
1219             rc_rcdata_item *ri;
1220
1221             ri = define_rcdata_number ($1.val, $1.dword);
1222             $$.first = ri;
1223             $$.last = ri;
1224           }
1225         | rcdata_data ',' sizedstring
1226           {
1227             rc_rcdata_item *ri;
1228
1229             ri = define_rcdata_string ($3.s, $3.length);
1230             $$.first = $1.first;
1231             $1.last->next = ri;
1232             $$.last = ri;
1233           }
1234         | rcdata_data ',' sizedunistring
1235           {
1236             rc_rcdata_item *ri;
1237
1238             ri = define_rcdata_unistring ($3.s, $3.length);
1239             $$.first = $1.first;
1240             $1.last->next = ri;
1241             $$.last = ri;
1242           }
1243         | rcdata_data ',' sizednumexpr
1244           {
1245             rc_rcdata_item *ri;
1246
1247             ri = define_rcdata_number ($3.val, $3.dword);
1248             $$.first = $1.first;
1249             $1.last->next = ri;
1250             $$.last = ri;
1251           }
1252         | rcdata_data ','
1253           {
1254             $$=$1;
1255           }
1256         ;
1257
1258 /* Stringtable resources.  */
1259
1260 stringtable:
1261           STRINGTABLE suboptions BEG
1262             { sub_res_info = $2; rcparse_rcdata (); }
1263             string_data END { rcparse_normal (); }
1264         ;
1265
1266 string_data:
1267           /* empty */
1268         | string_data numexpr res_unicode_sizedstring_concat
1269           {
1270             define_stringtable (&sub_res_info, $2, $3.s, $3.length);
1271             rcparse_discard_strings ();
1272           }
1273         | string_data numexpr ',' res_unicode_sizedstring_concat
1274           {
1275             define_stringtable (&sub_res_info, $2, $4.s, $4.length);
1276             rcparse_discard_strings ();
1277           }
1278         | string_data error
1279           {
1280             rcparse_warning (_("invalid stringtable resource."));
1281             abort ();
1282           }
1283         ;
1284
1285 rcdata_id:
1286         id
1287           {
1288             $$=$1;
1289           }
1290       | HTML
1291         {
1292           $$.named = 0;
1293           $$.u.id = 23;
1294         }
1295       | RCDATA
1296         {
1297           $$.named = 0;
1298           $$.u.id = RT_RCDATA;
1299         }
1300       | MANIFEST
1301         {
1302           $$.named = 0;
1303           $$.u.id = RT_MANIFEST;
1304         }
1305       | PLUGPLAY
1306         {
1307           $$.named = 0;
1308           $$.u.id = RT_PLUGPLAY;
1309         }
1310       | VXD
1311         {
1312           $$.named = 0;
1313           $$.u.id = RT_VXD;
1314         }
1315       | DLGINCLUDE
1316         {
1317           $$.named = 0;
1318           $$.u.id = RT_DLGINCLUDE;
1319         }
1320       | DLGINIT
1321         {
1322           $$.named = 0;
1323           $$.u.id = RT_DLGINIT;
1324         }
1325       | ANICURSOR
1326         {
1327           $$.named = 0;
1328           $$.u.id = RT_ANICURSOR;
1329         }
1330       | ANIICON
1331         {
1332           $$.named = 0;
1333           $$.u.id = RT_ANIICON;
1334         }
1335       ;
1336
1337 /* User defined resources.  We accept general suboptions in the
1338    file_name case to keep the parser happy.  */
1339
1340 user:
1341           id rcdata_id suboptions BEG optrcdata_data END
1342           {
1343             define_user_data ($1, $2, &$3, $5.first);
1344             if (yychar != YYEMPTY)
1345               YYERROR;
1346             rcparse_discard_strings ();
1347           }
1348         | id rcdata_id suboptions file_name
1349           {
1350             define_user_file ($1, $2, &$3, $4);
1351             if (yychar != YYEMPTY)
1352               YYERROR;
1353             rcparse_discard_strings ();
1354           }
1355         ;
1356
1357 toolbar:
1358         id TOOLBAR suboptions numexpr cnumexpr BEG toolbar_data END
1359         {
1360           define_toolbar ($1, &$3, $4, $5, $7);
1361         }
1362         ;
1363
1364 toolbar_data: /* empty */ { $$= NULL; }
1365         | toolbar_data BUTTON id
1366         {
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;
1383         }
1384         | toolbar_data SEPARATOR
1385         {
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;
1403         }
1404         ;
1405
1406 /* Versioninfo resources.  */
1407
1408 versioninfo:
1409           id VERSIONINFO fixedverinfo BEG verblocks END
1410           {
1411             define_versioninfo ($1, language, $3, $5);
1412             if (yychar != YYEMPTY)
1413               YYERROR;
1414             rcparse_discard_strings ();
1415           }
1416         ;
1417
1418 fixedverinfo:
1419           /* empty */
1420           {
1421             $$ = ((rc_fixed_versioninfo *)
1422                   res_alloc (sizeof (rc_fixed_versioninfo)));
1423             memset ($$, 0, sizeof (rc_fixed_versioninfo));
1424           }
1425         | fixedverinfo FILEVERSION numexpr optcnumexpr optcnumexpr
1426           optcnumexpr
1427           {
1428             $1->file_version_ms = ($3 << 16) | ($4 & 0xffff);
1429             $1->file_version_ls = ($5 << 16) | ($6 & 0xffff);
1430             $$ = $1;
1431           }
1432         | fixedverinfo PRODUCTVERSION numexpr optcnumexpr optcnumexpr
1433           optcnumexpr
1434           {
1435             $1->product_version_ms = ($3 << 16) | ($4 & 0xffff);
1436             $1->product_version_ls = ($5 << 16) | ($6 & 0xffff);
1437             $$ = $1;
1438           }
1439         | fixedverinfo FILEFLAGSMASK numexpr
1440           {
1441             $1->file_flags_mask = $3;
1442             $$ = $1;
1443           }
1444         | fixedverinfo FILEFLAGS numexpr
1445           {
1446             $1->file_flags = $3;
1447             $$ = $1;
1448           }
1449         | fixedverinfo FILEOS numexpr
1450           {
1451             $1->file_os = $3;
1452             $$ = $1;
1453           }
1454         | fixedverinfo FILETYPE numexpr
1455           {
1456             $1->file_type = $3;
1457             $$ = $1;
1458           }
1459         | fixedverinfo FILESUBTYPE numexpr
1460           {
1461             $1->file_subtype = $3;
1462             $$ = $1;
1463           }
1464         ;
1465
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.  */
1471
1472 verblocks:
1473           /* empty */
1474           {
1475             $$ = NULL;
1476           }
1477         | verblocks BLOCKSTRINGFILEINFO BEG verstringtables END
1478           {
1479             $$ = append_ver_stringfileinfo ($1, $4);
1480           }
1481         | verblocks BLOCKVARFILEINFO BEG VALUE res_unicode_string_concat vertrans END
1482           {
1483             $$ = append_ver_varfileinfo ($1, $5, $6);
1484           }
1485         ;
1486
1487 verstringtables:
1488       /* empty */
1489           {
1490             $$ = NULL;
1491           }
1492         | verstringtables BLOCK BEG vervals END
1493           {
1494             $$ = append_ver_stringtable ($1, $2, $4);
1495           }
1496         ;
1497
1498 vervals:
1499           /* empty */
1500           {
1501             $$ = NULL;
1502           }
1503         | vervals VALUE res_unicode_string_concat ',' res_unicode_string_concat
1504           {
1505             $$ = append_verval ($1, $3, $5);
1506           }
1507         ;
1508
1509 vertrans:
1510           /* empty */
1511           {
1512             $$ = NULL;
1513           }
1514         | vertrans cnumexpr cnumexpr
1515           {
1516             $$ = append_vertrans ($1, $2, $3);
1517           }
1518         ;
1519
1520 /* A resource ID.  */
1521
1522 id:
1523           posnumexpr
1524           {
1525             $$.named = 0;
1526             $$.u.id = $1;
1527           }
1528         | resname
1529           {
1530             res_unistring_to_id (&$$, $1);
1531           }
1532         ;
1533
1534 /* A resource reference.  */
1535
1536 resname:
1537           res_unicode_string
1538           {
1539             $$ = $1;
1540           }
1541         | STRING
1542           {
1543             unichar *h = NULL;
1544             unicode_from_ascii ((rc_uint_type *) NULL, &h, $1);
1545             $$ = h;
1546           }
1547         ;
1548
1549
1550 resref:
1551           posnumexpr ','
1552           {
1553             $$.named = 0;
1554             $$.u.id = $1;
1555           }
1556         | resname
1557           {
1558             res_unistring_to_id (&$$, $1);
1559           }
1560         | resname ','
1561           {
1562             res_unistring_to_id (&$$, $1);
1563           }
1564         ;
1565
1566 /* Generic suboptions.  These may appear before the BEGIN in any
1567    multiline statement.  */
1568
1569 suboptions:
1570           /* empty */
1571           {
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;
1576           }
1577         | suboptions memflag
1578           {
1579             $$ = $1;
1580             $$.memflags |= $2.on;
1581             $$.memflags &=~ $2.off;
1582           }
1583         | suboptions CHARACTERISTICS numexpr
1584           {
1585             $$ = $1;
1586             $$.characteristics = $3;
1587           }
1588         | suboptions LANGUAGE numexpr cnumexpr
1589           {
1590             $$ = $1;
1591             $$.language = $3 | ($4 << SUBLANG_SHIFT);
1592           }
1593         | suboptions VERSIONK numexpr
1594           {
1595             $$ = $1;
1596             $$.version = $3;
1597           }
1598         ;
1599
1600 /* Memory flags which default to MOVEABLE and DISCARDABLE.  */
1601
1602 memflags_move_discard:
1603           /* empty */
1604           {
1605             memset (&$$, 0, sizeof (rc_res_res_info));
1606             $$.language = language;
1607             $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_DISCARDABLE;
1608           }
1609         | memflags_move_discard memflag
1610           {
1611             $$ = $1;
1612             $$.memflags |= $2.on;
1613             $$.memflags &=~ $2.off;
1614           }
1615         ;
1616
1617 /* Memory flags which default to MOVEABLE.  */
1618
1619 memflags_move:
1620           /* empty */
1621           {
1622             memset (&$$, 0, sizeof (rc_res_res_info));
1623             $$.language = language;
1624             $$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE;
1625           }
1626         | memflags_move memflag
1627           {
1628             $$ = $1;
1629             $$.memflags |= $2.on;
1630             $$.memflags &=~ $2.off;
1631           }
1632         ;
1633
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.  */
1636
1637 memflag:
1638           MOVEABLE
1639           {
1640             $$.on = MEMFLAG_MOVEABLE;
1641             $$.off = 0;
1642           }
1643         | FIXED
1644           {
1645             $$.on = 0;
1646             $$.off = MEMFLAG_MOVEABLE;
1647           }
1648         | PURE
1649           {
1650             $$.on = MEMFLAG_PURE;
1651             $$.off = 0;
1652           }
1653         | IMPURE
1654           {
1655             $$.on = 0;
1656             $$.off = MEMFLAG_PURE;
1657           }
1658         | PRELOAD
1659           {
1660             $$.on = MEMFLAG_PRELOAD;
1661             $$.off = 0;
1662           }
1663         | LOADONCALL
1664           {
1665             $$.on = 0;
1666             $$.off = MEMFLAG_PRELOAD;
1667           }
1668         | DISCARDABLE
1669           {
1670             $$.on = MEMFLAG_DISCARDABLE;
1671             $$.off = 0;
1672           }
1673         ;
1674
1675 /* A file name.  */
1676
1677 file_name:
1678           QUOTEDSTRING
1679           {
1680             $$ = $1;
1681           }
1682         | STRING
1683           {
1684             $$ = $1;
1685           }
1686         ;
1687
1688 /* Concat string */
1689 res_unicode_string_concat:
1690           res_unicode_string
1691           {
1692             $$ = $1;
1693           }
1694         |
1695           res_unicode_string_concat res_unicode_string
1696           {
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;
1706           }
1707         ;
1708
1709 res_unicode_string:
1710           QUOTEDUNISTRING
1711           {
1712             $$ = unichar_dup ($1);
1713           }
1714         | QUOTEDSTRING
1715           {
1716             unichar *h = NULL;
1717             unicode_from_ascii ((rc_uint_type *) NULL, &h, $1);
1718             $$ = h;
1719           }
1720         ;
1721
1722 res_unicode_sizedstring:
1723           sizedunistring
1724           {
1725             $$ = $1;
1726           }
1727         | sizedstring
1728           {
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;
1734           }
1735         ;
1736
1737 /* Concat string */
1738 res_unicode_sizedstring_concat:
1739           res_unicode_sizedstring
1740           {
1741             $$ = $1;
1742           }
1743         |
1744           res_unicode_sizedstring_concat res_unicode_sizedstring
1745           {
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;
1756           }
1757         ;
1758
1759 sizedstring:
1760           SIZEDSTRING
1761           {
1762             $$ = $1;
1763           }
1764         | sizedstring SIZEDSTRING
1765           {
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;
1772           }
1773         ;
1774
1775 sizedunistring:
1776           SIZEDUNISTRING
1777           {
1778             $$ = $1;
1779           }
1780         | sizedunistring SIZEDUNISTRING
1781           {
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;
1788           }
1789         ;
1790
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 '|'.  */
1800
1801 styleexpr:
1802           parennumber
1803           {
1804             style |= $1;
1805           }
1806         | NOT parennumber
1807           {
1808             style &=~ $2;
1809           }
1810         | styleexpr '|' parennumber
1811           {
1812             style |= $3;
1813           }
1814         | styleexpr '|' NOT parennumber
1815           {
1816             style &=~ $4;
1817           }
1818         ;
1819
1820 parennumber:
1821           NUMBER
1822           {
1823             $$ = $1.val;
1824           }
1825         | '(' numexpr ')'
1826           {
1827             $$ = $2;
1828           }
1829         ;
1830
1831 /* An optional expression with a leading comma.  */
1832
1833 optcnumexpr:
1834           /* empty */
1835           {
1836             $$ = 0;
1837           }
1838         | cnumexpr
1839           {
1840             $$ = $1;
1841           }
1842         ;
1843
1844 /* An expression with a leading comma.  */
1845
1846 cnumexpr:
1847           ',' numexpr
1848           {
1849             $$ = $2;
1850           }
1851         ;
1852
1853 /* A possibly negated numeric expression.  */
1854
1855 numexpr:
1856           sizednumexpr
1857           {
1858             $$ = $1.val;
1859           }
1860         ;
1861
1862 /* A possibly negated expression with a size.  */
1863
1864 sizednumexpr:
1865           NUMBER
1866           {
1867             $$ = $1;
1868           }
1869         | '(' sizednumexpr ')'
1870           {
1871             $$ = $2;
1872           }
1873         | '~' sizednumexpr %prec '~'
1874           {
1875             $$.val = ~ $2.val;
1876             $$.dword = $2.dword;
1877           }
1878         | '-' sizednumexpr %prec NEG
1879           {
1880             $$.val = - $2.val;
1881             $$.dword = $2.dword;
1882           }
1883         | sizednumexpr '*' sizednumexpr
1884           {
1885             $$.val = $1.val * $3.val;
1886             $$.dword = $1.dword || $3.dword;
1887           }
1888         | sizednumexpr '/' sizednumexpr
1889           {
1890             $$.val = $1.val / ($3.val ? $3.val : 1);
1891             $$.dword = $1.dword || $3.dword;
1892           }
1893         | sizednumexpr '%' sizednumexpr
1894           {
1895             $$.val = $1.val % ($3.val ? $3.val : 1);
1896             $$.dword = $1.dword || $3.dword;
1897           }
1898         | sizednumexpr '+' sizednumexpr
1899           {
1900             $$.val = $1.val + $3.val;
1901             $$.dword = $1.dword || $3.dword;
1902           }
1903         | sizednumexpr '-' sizednumexpr
1904           {
1905             $$.val = $1.val - $3.val;
1906             $$.dword = $1.dword || $3.dword;
1907           }
1908         | sizednumexpr '&' sizednumexpr
1909           {
1910             $$.val = $1.val & $3.val;
1911             $$.dword = $1.dword || $3.dword;
1912           }
1913         | sizednumexpr '^' sizednumexpr
1914           {
1915             $$.val = $1.val ^ $3.val;
1916             $$.dword = $1.dword || $3.dword;
1917           }
1918         | sizednumexpr '|' sizednumexpr
1919           {
1920             $$.val = $1.val | $3.val;
1921             $$.dword = $1.dword || $3.dword;
1922           }
1923         ;
1924
1925 /* An expression with a leading comma which does not use unary
1926    negation.  */
1927
1928 cposnumexpr:
1929           ',' posnumexpr
1930           {
1931             $$ = $2;
1932           }
1933         ;
1934
1935 /* An expression which does not use unary negation.  */
1936
1937 posnumexpr:
1938           sizedposnumexpr
1939           {
1940             $$ = $1.val;
1941           }
1942         ;
1943
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.  */
1947
1948 sizedposnumexpr:
1949           NUMBER
1950           {
1951             $$ = $1;
1952           }
1953         | '(' sizednumexpr ')'
1954           {
1955             $$ = $2;
1956           }
1957         | '~' sizednumexpr %prec '~'
1958           {
1959             $$.val = ~ $2.val;
1960             $$.dword = $2.dword;
1961           }
1962         | sizedposnumexpr '*' sizednumexpr
1963           {
1964             $$.val = $1.val * $3.val;
1965             $$.dword = $1.dword || $3.dword;
1966           }
1967         | sizedposnumexpr '/' sizednumexpr
1968           {
1969             $$.val = $1.val / ($3.val ? $3.val : 1);
1970             $$.dword = $1.dword || $3.dword;
1971           }
1972         | sizedposnumexpr '%' sizednumexpr
1973           {
1974             /* PR 17512: file: 89105a25.  */
1975             $$.val = $1.val % ($3.val ? $3.val : 1);
1976             $$.dword = $1.dword || $3.dword;
1977           }
1978         | sizedposnumexpr '+' sizednumexpr
1979           {
1980             $$.val = $1.val + $3.val;
1981             $$.dword = $1.dword || $3.dword;
1982           }
1983         | sizedposnumexpr '-' sizednumexpr
1984           {
1985             $$.val = $1.val - $3.val;
1986             $$.dword = $1.dword || $3.dword;
1987           }
1988         | sizedposnumexpr '&' sizednumexpr
1989           {
1990             $$.val = $1.val & $3.val;
1991             $$.dword = $1.dword || $3.dword;
1992           }
1993         | sizedposnumexpr '^' sizednumexpr
1994           {
1995             $$.val = $1.val ^ $3.val;
1996             $$.dword = $1.dword || $3.dword;
1997           }
1998         | sizedposnumexpr '|' sizednumexpr
1999           {
2000             $$.val = $1.val | $3.val;
2001             $$.dword = $1.dword || $3.dword;
2002           }
2003         ;
2004
2005 %%
2006
2007 /* Set the language from the command line.  */
2008
2009 void
2010 rcparse_set_language (int lang)
2011 {
2012   language = lang;
2013 }