mirror of
https://sourceware.org/git/binutils-gdb.git
synced 2024-12-15 04:31:49 +08:00
a2c5833233
The result of running etc/update-copyright.py --this-year, fixing all the files whose mode is changed by the script, plus a build with --enable-maintainer-mode --enable-cgen-maint=yes, then checking out */po/*.pot which we don't update frequently. The copy of cgen was with commit d1dd5fcc38ead reverted as that commit breaks building of bfp opcodes files.
2022 lines
40 KiB
Plaintext
2022 lines
40 KiB
Plaintext
%{ /* rcparse.y -- parser for Windows rc files
|
|
Copyright (C) 1997-2022 Free Software Foundation, Inc.
|
|
Written by Ian Lance Taylor, Cygnus Support.
|
|
Extended by Kai Tietz, Onevision.
|
|
|
|
This file is part of GNU Binutils.
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation; either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA
|
|
02110-1301, USA. */
|
|
|
|
|
|
/* This is a parser for Windows rc files. It is based on the parser
|
|
by Gunther Ebert <gunther.ebert@ixos-leipzig.de>. */
|
|
|
|
#include "sysdep.h"
|
|
#include "bfd.h"
|
|
#include "bucomm.h"
|
|
#include "libiberty.h"
|
|
#include "windres.h"
|
|
#include "safe-ctype.h"
|
|
|
|
/* The current language. */
|
|
|
|
static unsigned short language;
|
|
|
|
/* The resource information during a sub statement. */
|
|
|
|
static rc_res_res_info sub_res_info;
|
|
|
|
/* Dialog information. This is built by the nonterminals styles and
|
|
controls. */
|
|
|
|
static rc_dialog dialog;
|
|
|
|
/* This is used when building a style. It is modified by the
|
|
nonterminal styleexpr. */
|
|
|
|
static unsigned long style;
|
|
|
|
/* These are used when building a control. They are set before using
|
|
control_params. */
|
|
|
|
static rc_uint_type base_style;
|
|
static rc_uint_type default_style;
|
|
static rc_res_id class;
|
|
static rc_res_id res_text_field;
|
|
static unichar null_unichar;
|
|
|
|
/* This is used for COMBOBOX, LISTBOX and EDITTEXT which
|
|
do not allow resource 'text' field in control definition. */
|
|
static const rc_res_id res_null_text = { 1, {{0, &null_unichar}}};
|
|
|
|
%}
|
|
|
|
%union
|
|
{
|
|
rc_accelerator acc;
|
|
rc_accelerator *pacc;
|
|
rc_dialog_control *dialog_control;
|
|
rc_menuitem *menuitem;
|
|
struct
|
|
{
|
|
rc_rcdata_item *first;
|
|
rc_rcdata_item *last;
|
|
} rcdata;
|
|
rc_rcdata_item *rcdata_item;
|
|
rc_fixed_versioninfo *fixver;
|
|
rc_ver_info *verinfo;
|
|
rc_ver_stringtable *verstringtable;
|
|
rc_ver_stringinfo *verstring;
|
|
rc_ver_varinfo *vervar;
|
|
rc_toolbar_item *toobar_item;
|
|
rc_res_id id;
|
|
rc_res_res_info res_info;
|
|
struct
|
|
{
|
|
rc_uint_type on;
|
|
rc_uint_type off;
|
|
} memflags;
|
|
struct
|
|
{
|
|
rc_uint_type val;
|
|
/* Nonzero if this number was explicitly specified as long. */
|
|
int dword;
|
|
} i;
|
|
rc_uint_type il;
|
|
rc_uint_type is;
|
|
const char *s;
|
|
struct
|
|
{
|
|
rc_uint_type length;
|
|
const char *s;
|
|
} ss;
|
|
unichar *uni;
|
|
struct
|
|
{
|
|
rc_uint_type length;
|
|
const unichar *s;
|
|
} suni;
|
|
};
|
|
|
|
%token BEG END
|
|
%token ACCELERATORS VIRTKEY ASCII NOINVERT SHIFT CONTROL ALT
|
|
%token BITMAP
|
|
%token CURSOR
|
|
%token DIALOG DIALOGEX EXSTYLE CAPTION CLASS STYLE
|
|
%token AUTO3STATE AUTOCHECKBOX AUTORADIOBUTTON CHECKBOX COMBOBOX CTEXT
|
|
%token DEFPUSHBUTTON EDITTEXT GROUPBOX LISTBOX LTEXT PUSHBOX PUSHBUTTON
|
|
%token RADIOBUTTON RTEXT SCROLLBAR STATE3 USERBUTTON
|
|
%token BEDIT HEDIT IEDIT
|
|
%token FONT
|
|
%token ICON
|
|
%token ANICURSOR ANIICON DLGINCLUDE DLGINIT FONTDIR HTML MANIFEST PLUGPLAY VXD TOOLBAR BUTTON
|
|
%token LANGUAGE CHARACTERISTICS VERSIONK
|
|
%token MENU MENUEX MENUITEM SEPARATOR POPUP CHECKED GRAYED HELP INACTIVE OWNERDRAW
|
|
%token MENUBARBREAK MENUBREAK
|
|
%token MESSAGETABLE
|
|
%token RCDATA
|
|
%token STRINGTABLE
|
|
%token VERSIONINFO FILEVERSION PRODUCTVERSION FILEFLAGSMASK FILEFLAGS
|
|
%token FILEOS FILETYPE FILESUBTYPE BLOCKSTRINGFILEINFO BLOCKVARFILEINFO
|
|
%token VALUE
|
|
%token <s> BLOCK
|
|
%token MOVEABLE FIXED PURE IMPURE PRELOAD LOADONCALL DISCARDABLE
|
|
%token NOT
|
|
%token <uni> QUOTEDUNISTRING
|
|
%token <s> QUOTEDSTRING STRING
|
|
%token <i> NUMBER
|
|
%token <suni> SIZEDUNISTRING
|
|
%token <ss> SIZEDSTRING
|
|
%token IGNORED_TOKEN
|
|
|
|
%type <pacc> acc_entries
|
|
%type <acc> acc_entry acc_event
|
|
%type <dialog_control> control control_params
|
|
%type <menuitem> menuitems menuitem menuexitems menuexitem
|
|
%type <rcdata> optrcdata_data optrcdata_data_int rcdata_data
|
|
%type <rcdata_item> opt_control_data
|
|
%type <fixver> fixedverinfo
|
|
%type <verinfo> verblocks
|
|
%type <verstringtable> verstringtables
|
|
%type <verstring> vervals
|
|
%type <vervar> vertrans
|
|
%type <toobar_item> toolbar_data
|
|
%type <res_info> suboptions memflags_move_discard memflags_move
|
|
%type <memflags> memflag
|
|
%type <id> id rcdata_id optresidc resref resid cresid
|
|
%type <il> exstyle parennumber
|
|
%type <il> numexpr posnumexpr cnumexpr optcnumexpr cposnumexpr
|
|
%type <is> acc_options acc_option menuitem_flags menuitem_flag
|
|
%type <s> file_name
|
|
%type <uni> res_unicode_string resname res_unicode_string_concat
|
|
%type <ss> sizedstring
|
|
%type <suni> sizedunistring res_unicode_sizedstring res_unicode_sizedstring_concat
|
|
%type <i> sizednumexpr sizedposnumexpr
|
|
|
|
%left '|'
|
|
%left '^'
|
|
%left '&'
|
|
%left '+' '-'
|
|
%left '*' '/' '%'
|
|
%right '~' NEG
|
|
|
|
%%
|
|
|
|
input:
|
|
/* empty */
|
|
| input accelerator
|
|
| input bitmap
|
|
| input cursor
|
|
| input dialog
|
|
| input font
|
|
| input icon
|
|
| input language
|
|
| input menu
|
|
| input menuex
|
|
| input messagetable
|
|
| input stringtable
|
|
| input toolbar
|
|
| input user
|
|
| input versioninfo
|
|
| input IGNORED_TOKEN
|
|
;
|
|
|
|
/* Accelerator resources. */
|
|
|
|
accelerator:
|
|
id ACCELERATORS suboptions BEG acc_entries END
|
|
{
|
|
define_accelerator ($1, &$3, $5);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
acc_entries:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| acc_entries acc_entry
|
|
{
|
|
rc_accelerator *a;
|
|
|
|
a = (rc_accelerator *) res_alloc (sizeof *a);
|
|
*a = $2;
|
|
if ($1 == NULL)
|
|
$$ = a;
|
|
else
|
|
{
|
|
rc_accelerator **pp;
|
|
|
|
for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
|
|
;
|
|
*pp = a;
|
|
$$ = $1;
|
|
}
|
|
}
|
|
;
|
|
|
|
acc_entry:
|
|
acc_event cposnumexpr
|
|
{
|
|
$$ = $1;
|
|
$$.id = $2;
|
|
}
|
|
| acc_event cposnumexpr ',' acc_options
|
|
{
|
|
$$ = $1;
|
|
$$.id = $2;
|
|
$$.flags |= $4;
|
|
if (($$.flags & ACC_VIRTKEY) == 0
|
|
&& ($$.flags & (ACC_SHIFT | ACC_CONTROL)) != 0)
|
|
rcparse_warning (_("inappropriate modifiers for non-VIRTKEY"));
|
|
}
|
|
;
|
|
|
|
acc_event:
|
|
QUOTEDSTRING
|
|
{
|
|
const char *s = $1;
|
|
char ch;
|
|
|
|
$$.next = NULL;
|
|
$$.id = 0;
|
|
ch = *s;
|
|
if (ch != '^')
|
|
$$.flags = 0;
|
|
else
|
|
{
|
|
$$.flags = ACC_CONTROL | ACC_VIRTKEY;
|
|
++s;
|
|
ch = TOUPPER (s[0]);
|
|
}
|
|
$$.key = ch;
|
|
if (s[1] != '\0')
|
|
rcparse_warning (_("accelerator should only be one character"));
|
|
}
|
|
| posnumexpr
|
|
{
|
|
$$.next = NULL;
|
|
$$.flags = 0;
|
|
$$.id = 0;
|
|
$$.key = $1;
|
|
}
|
|
;
|
|
|
|
acc_options:
|
|
acc_option
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| acc_options ',' acc_option
|
|
{
|
|
$$ = $1 | $3;
|
|
}
|
|
/* I've had one report that the comma is optional. */
|
|
| acc_options acc_option
|
|
{
|
|
$$ = $1 | $2;
|
|
}
|
|
;
|
|
|
|
acc_option:
|
|
VIRTKEY
|
|
{
|
|
$$ = ACC_VIRTKEY;
|
|
}
|
|
| ASCII
|
|
{
|
|
/* This is just the absence of VIRTKEY. */
|
|
$$ = 0;
|
|
}
|
|
| NOINVERT
|
|
{
|
|
$$ = ACC_NOINVERT;
|
|
}
|
|
| SHIFT
|
|
{
|
|
$$ = ACC_SHIFT;
|
|
}
|
|
| CONTROL
|
|
{
|
|
$$ = ACC_CONTROL;
|
|
}
|
|
| ALT
|
|
{
|
|
$$ = ACC_ALT;
|
|
}
|
|
;
|
|
|
|
/* Bitmap resources. */
|
|
|
|
bitmap:
|
|
id BITMAP memflags_move file_name
|
|
{
|
|
define_bitmap ($1, &$3, $4);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
/* Cursor resources. */
|
|
|
|
cursor:
|
|
id CURSOR memflags_move_discard file_name
|
|
{
|
|
define_cursor ($1, &$3, $4);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
/* Dialog resources. */
|
|
|
|
dialog:
|
|
id DIALOG memflags_move exstyle posnumexpr cnumexpr cnumexpr
|
|
cnumexpr
|
|
{
|
|
memset (&dialog, 0, sizeof dialog);
|
|
dialog.x = $5;
|
|
dialog.y = $6;
|
|
dialog.width = $7;
|
|
dialog.height = $8;
|
|
dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
|
|
dialog.exstyle = $4;
|
|
dialog.menu.named = 1;
|
|
dialog.class.named = 1;
|
|
dialog.font = NULL;
|
|
dialog.ex = NULL;
|
|
dialog.controls = NULL;
|
|
sub_res_info = $3;
|
|
style = 0;
|
|
}
|
|
styles BEG controls END
|
|
{
|
|
define_dialog ($1, &sub_res_info, &dialog);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
| id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr
|
|
cnumexpr
|
|
{
|
|
memset (&dialog, 0, sizeof dialog);
|
|
dialog.x = $5;
|
|
dialog.y = $6;
|
|
dialog.width = $7;
|
|
dialog.height = $8;
|
|
dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
|
|
dialog.exstyle = $4;
|
|
dialog.menu.named = 1;
|
|
dialog.class.named = 1;
|
|
dialog.font = NULL;
|
|
dialog.ex = ((rc_dialog_ex *)
|
|
res_alloc (sizeof (rc_dialog_ex)));
|
|
memset (dialog.ex, 0, sizeof (rc_dialog_ex));
|
|
dialog.controls = NULL;
|
|
sub_res_info = $3;
|
|
style = 0;
|
|
}
|
|
styles BEG controls END
|
|
{
|
|
define_dialog ($1, &sub_res_info, &dialog);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
| id DIALOGEX memflags_move exstyle posnumexpr cnumexpr cnumexpr
|
|
cnumexpr cnumexpr
|
|
{
|
|
memset (&dialog, 0, sizeof dialog);
|
|
dialog.x = $5;
|
|
dialog.y = $6;
|
|
dialog.width = $7;
|
|
dialog.height = $8;
|
|
dialog.style = WS_POPUP | WS_BORDER | WS_SYSMENU;
|
|
dialog.exstyle = $4;
|
|
dialog.menu.named = 1;
|
|
dialog.class.named = 1;
|
|
dialog.font = NULL;
|
|
dialog.ex = ((rc_dialog_ex *)
|
|
res_alloc (sizeof (rc_dialog_ex)));
|
|
memset (dialog.ex, 0, sizeof (rc_dialog_ex));
|
|
dialog.ex->help = $9;
|
|
dialog.controls = NULL;
|
|
sub_res_info = $3;
|
|
style = 0;
|
|
}
|
|
styles BEG controls END
|
|
{
|
|
define_dialog ($1, &sub_res_info, &dialog);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
exstyle:
|
|
/* empty */
|
|
{
|
|
$$ = 0;
|
|
}
|
|
| EXSTYLE '=' numexpr
|
|
{
|
|
$$ = $3;
|
|
}
|
|
;
|
|
|
|
styles:
|
|
/* empty */
|
|
| styles CAPTION res_unicode_string_concat
|
|
{
|
|
dialog.style |= WS_CAPTION;
|
|
style |= WS_CAPTION;
|
|
dialog.caption = $3;
|
|
}
|
|
| styles CLASS id
|
|
{
|
|
dialog.class = $3;
|
|
}
|
|
| styles STYLE
|
|
styleexpr
|
|
{
|
|
dialog.style = style;
|
|
}
|
|
| styles EXSTYLE numexpr
|
|
{
|
|
dialog.exstyle = $3;
|
|
}
|
|
| styles CLASS res_unicode_string_concat
|
|
{
|
|
res_unistring_to_id (& dialog.class, $3);
|
|
}
|
|
| styles FONT numexpr ',' res_unicode_string_concat
|
|
{
|
|
dialog.style |= DS_SETFONT;
|
|
style |= DS_SETFONT;
|
|
dialog.pointsize = $3;
|
|
dialog.font = $5;
|
|
if (dialog.ex != NULL)
|
|
{
|
|
dialog.ex->weight = 0;
|
|
dialog.ex->italic = 0;
|
|
dialog.ex->charset = 1;
|
|
}
|
|
}
|
|
| styles FONT numexpr ',' res_unicode_string_concat cnumexpr
|
|
{
|
|
dialog.style |= DS_SETFONT;
|
|
style |= DS_SETFONT;
|
|
dialog.pointsize = $3;
|
|
dialog.font = $5;
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("extended FONT requires DIALOGEX"));
|
|
else
|
|
{
|
|
dialog.ex->weight = $6;
|
|
dialog.ex->italic = 0;
|
|
dialog.ex->charset = 1;
|
|
}
|
|
}
|
|
| styles FONT numexpr ',' res_unicode_string_concat cnumexpr cnumexpr
|
|
{
|
|
dialog.style |= DS_SETFONT;
|
|
style |= DS_SETFONT;
|
|
dialog.pointsize = $3;
|
|
dialog.font = $5;
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("extended FONT requires DIALOGEX"));
|
|
else
|
|
{
|
|
dialog.ex->weight = $6;
|
|
dialog.ex->italic = $7;
|
|
dialog.ex->charset = 1;
|
|
}
|
|
}
|
|
| styles FONT numexpr ',' res_unicode_string_concat cnumexpr cnumexpr cnumexpr
|
|
{
|
|
dialog.style |= DS_SETFONT;
|
|
style |= DS_SETFONT;
|
|
dialog.pointsize = $3;
|
|
dialog.font = $5;
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("extended FONT requires DIALOGEX"));
|
|
else
|
|
{
|
|
dialog.ex->weight = $6;
|
|
dialog.ex->italic = $7;
|
|
dialog.ex->charset = $8;
|
|
}
|
|
}
|
|
| styles MENU id
|
|
{
|
|
dialog.menu = $3;
|
|
}
|
|
| styles CHARACTERISTICS numexpr
|
|
{
|
|
sub_res_info.characteristics = $3;
|
|
}
|
|
| styles LANGUAGE numexpr cnumexpr
|
|
{
|
|
sub_res_info.language = $3 | ($4 << SUBLANG_SHIFT);
|
|
}
|
|
| styles VERSIONK numexpr
|
|
{
|
|
sub_res_info.version = $3;
|
|
}
|
|
;
|
|
|
|
controls:
|
|
/* empty */
|
|
| controls control
|
|
{
|
|
rc_dialog_control **pp;
|
|
|
|
for (pp = &dialog.controls; *pp != NULL; pp = &(*pp)->next)
|
|
;
|
|
*pp = $2;
|
|
}
|
|
;
|
|
|
|
control:
|
|
AUTO3STATE optresidc
|
|
{
|
|
default_style = BS_AUTO3STATE | WS_TABSTOP;
|
|
base_style = BS_AUTO3STATE;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| AUTOCHECKBOX optresidc
|
|
{
|
|
default_style = BS_AUTOCHECKBOX | WS_TABSTOP;
|
|
base_style = BS_AUTOCHECKBOX | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| AUTORADIOBUTTON optresidc
|
|
{
|
|
default_style = BS_AUTORADIOBUTTON | WS_TABSTOP;
|
|
base_style = BS_AUTORADIOBUTTON;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| BEDIT optresidc
|
|
{
|
|
default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_EDIT;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("BEDIT requires DIALOGEX"));
|
|
res_string_to_id (&$$->class, "BEDIT");
|
|
}
|
|
| CHECKBOX optresidc
|
|
{
|
|
default_style = BS_CHECKBOX | WS_TABSTOP;
|
|
base_style = BS_CHECKBOX | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| COMBOBOX
|
|
{
|
|
/* This is as per MSDN documentation. With some (???)
|
|
versions of MS rc.exe their is no default style. */
|
|
default_style = CBS_SIMPLE | WS_TABSTOP;
|
|
base_style = 0;
|
|
class.named = 0;
|
|
class.u.id = CTL_COMBOBOX;
|
|
res_text_field = res_null_text;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $3;
|
|
}
|
|
| CONTROL optresidc numexpr cresid control_styleexpr cnumexpr
|
|
cnumexpr cnumexpr cnumexpr optcnumexpr opt_control_data
|
|
{
|
|
$$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10);
|
|
if ($11 != NULL)
|
|
{
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("control data requires DIALOGEX"));
|
|
$$->data = $11;
|
|
}
|
|
}
|
|
| CONTROL optresidc numexpr cresid control_styleexpr cnumexpr
|
|
cnumexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data
|
|
{
|
|
$$ = define_control ($2, $3, $6, $7, $8, $9, $4, style, $10);
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("help ID requires DIALOGEX"));
|
|
$$->help = $11;
|
|
$$->data = $12;
|
|
}
|
|
| CTEXT optresidc
|
|
{
|
|
default_style = SS_CENTER | WS_GROUP;
|
|
base_style = SS_CENTER;
|
|
class.named = 0;
|
|
class.u.id = CTL_STATIC;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| DEFPUSHBUTTON optresidc
|
|
{
|
|
default_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
|
|
base_style = BS_DEFPUSHBUTTON | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| EDITTEXT
|
|
{
|
|
default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_EDIT;
|
|
res_text_field = res_null_text;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $3;
|
|
}
|
|
| GROUPBOX optresidc
|
|
{
|
|
default_style = BS_GROUPBOX;
|
|
base_style = BS_GROUPBOX;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| HEDIT optresidc
|
|
{
|
|
default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_EDIT;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("IEDIT requires DIALOGEX"));
|
|
res_string_to_id (&$$->class, "HEDIT");
|
|
}
|
|
| ICON resref numexpr cnumexpr cnumexpr opt_control_data
|
|
{
|
|
$$ = define_icon_control ($2, $3, $4, $5, 0, 0, 0, $6,
|
|
dialog.ex);
|
|
}
|
|
| ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr
|
|
opt_control_data
|
|
{
|
|
$$ = define_icon_control ($2, $3, $4, $5, 0, 0, 0, $8,
|
|
dialog.ex);
|
|
}
|
|
| ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr
|
|
icon_styleexpr optcnumexpr opt_control_data
|
|
{
|
|
$$ = define_icon_control ($2, $3, $4, $5, style, $9, 0, $10,
|
|
dialog.ex);
|
|
}
|
|
| ICON resref numexpr cnumexpr cnumexpr cnumexpr cnumexpr
|
|
icon_styleexpr cnumexpr cnumexpr opt_control_data
|
|
{
|
|
$$ = define_icon_control ($2, $3, $4, $5, style, $9, $10, $11,
|
|
dialog.ex);
|
|
}
|
|
| IEDIT optresidc
|
|
{
|
|
default_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
base_style = ES_LEFT | WS_BORDER | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_EDIT;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("IEDIT requires DIALOGEX"));
|
|
res_string_to_id (&$$->class, "IEDIT");
|
|
}
|
|
| LISTBOX
|
|
{
|
|
default_style = LBS_NOTIFY | WS_BORDER;
|
|
base_style = LBS_NOTIFY | WS_BORDER;
|
|
class.named = 0;
|
|
class.u.id = CTL_LISTBOX;
|
|
res_text_field = res_null_text;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $3;
|
|
}
|
|
| LTEXT optresidc
|
|
{
|
|
default_style = SS_LEFT | WS_GROUP;
|
|
base_style = SS_LEFT;
|
|
class.named = 0;
|
|
class.u.id = CTL_STATIC;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| PUSHBOX optresidc
|
|
{
|
|
default_style = BS_PUSHBOX | WS_TABSTOP;
|
|
base_style = BS_PUSHBOX;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| PUSHBUTTON optresidc
|
|
{
|
|
default_style = BS_PUSHBUTTON | WS_TABSTOP;
|
|
base_style = BS_PUSHBUTTON | WS_TABSTOP;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| RADIOBUTTON optresidc
|
|
{
|
|
default_style = BS_RADIOBUTTON | WS_TABSTOP;
|
|
base_style = BS_RADIOBUTTON;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| RTEXT optresidc
|
|
{
|
|
default_style = SS_RIGHT | WS_GROUP;
|
|
base_style = SS_RIGHT;
|
|
class.named = 0;
|
|
class.u.id = CTL_STATIC;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| SCROLLBAR
|
|
{
|
|
default_style = SBS_HORZ;
|
|
base_style = 0;
|
|
class.named = 0;
|
|
class.u.id = CTL_SCROLLBAR;
|
|
res_text_field = res_null_text;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $3;
|
|
}
|
|
| STATE3 optresidc
|
|
{
|
|
default_style = BS_3STATE | WS_TABSTOP;
|
|
base_style = BS_3STATE;
|
|
class.named = 0;
|
|
class.u.id = CTL_BUTTON;
|
|
res_text_field = $2;
|
|
}
|
|
control_params
|
|
{
|
|
$$ = $4;
|
|
}
|
|
| USERBUTTON resref numexpr ',' numexpr ',' numexpr ','
|
|
numexpr ',' numexpr ','
|
|
{ style = WS_CHILD | WS_VISIBLE; }
|
|
styleexpr optcnumexpr
|
|
{
|
|
rc_res_id cid;
|
|
cid.named = 0;
|
|
cid.u.id = CTL_BUTTON;
|
|
$$ = define_control ($2, $3, $5, $7, $9, $11, cid,
|
|
style, $15);
|
|
}
|
|
;
|
|
|
|
/* Parameters for a control. The static variables DEFAULT_STYLE,
|
|
BASE_STYLE, and CLASS must be initialized before this nonterminal
|
|
is used. DEFAULT_STYLE is the style to use if no style expression
|
|
is specified. BASE_STYLE is the base style to use if a style
|
|
expression is specified; the style expression modifies the base
|
|
style. CLASS is the class of the control. */
|
|
|
|
control_params:
|
|
numexpr cnumexpr cnumexpr cnumexpr cnumexpr opt_control_data
|
|
{
|
|
$$ = define_control (res_text_field, $1, $2, $3, $4, $5, class,
|
|
default_style | WS_CHILD | WS_VISIBLE, 0);
|
|
if ($6 != NULL)
|
|
{
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("control data requires DIALOGEX"));
|
|
$$->data = $6;
|
|
}
|
|
}
|
|
| numexpr cnumexpr cnumexpr cnumexpr cnumexpr
|
|
control_params_styleexpr optcnumexpr opt_control_data
|
|
{
|
|
$$ = define_control (res_text_field, $1, $2, $3, $4, $5, class, style, $7);
|
|
if ($8 != NULL)
|
|
{
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("control data requires DIALOGEX"));
|
|
$$->data = $8;
|
|
}
|
|
}
|
|
| numexpr cnumexpr cnumexpr cnumexpr cnumexpr
|
|
control_params_styleexpr cnumexpr cnumexpr opt_control_data
|
|
{
|
|
$$ = define_control (res_text_field, $1, $2, $3, $4, $5, class, style, $7);
|
|
if (dialog.ex == NULL)
|
|
rcparse_warning (_("help ID requires DIALOGEX"));
|
|
$$->help = $8;
|
|
$$->data = $9;
|
|
}
|
|
;
|
|
|
|
cresid:
|
|
',' resid
|
|
{
|
|
if ($2.named)
|
|
res_unistring_to_id (&$$, $2.u.n.name);
|
|
else
|
|
$$=$2;
|
|
}
|
|
;
|
|
|
|
optresidc:
|
|
/* empty */
|
|
{
|
|
res_string_to_id (&$$, "");
|
|
}
|
|
| resid ',' { $$=$1; }
|
|
;
|
|
|
|
resid:
|
|
posnumexpr
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = $1;
|
|
}
|
|
| res_unicode_string_concat
|
|
{
|
|
$$.named = 1;
|
|
$$.u.n.name = $1;
|
|
$$.u.n.length = unichar_len ($1);
|
|
}
|
|
;
|
|
|
|
opt_control_data:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| BEG optrcdata_data END
|
|
{
|
|
$$ = $2.first;
|
|
}
|
|
;
|
|
|
|
/* These only exist to parse a reduction out of a common case. */
|
|
|
|
control_styleexpr:
|
|
','
|
|
{ style = WS_CHILD | WS_VISIBLE; }
|
|
styleexpr
|
|
;
|
|
|
|
icon_styleexpr:
|
|
','
|
|
{ style = SS_ICON | WS_CHILD | WS_VISIBLE; }
|
|
styleexpr
|
|
;
|
|
|
|
control_params_styleexpr:
|
|
','
|
|
{ style = base_style | WS_CHILD | WS_VISIBLE; }
|
|
styleexpr
|
|
;
|
|
|
|
/* Font resources. */
|
|
|
|
font:
|
|
id FONT memflags_move_discard file_name
|
|
{
|
|
define_font ($1, &$3, $4);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
/* Icon resources. */
|
|
|
|
icon:
|
|
id ICON memflags_move_discard file_name
|
|
{
|
|
define_icon ($1, &$3, $4);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
/* Language command. This changes the static variable language, which
|
|
affects all subsequent resources. */
|
|
|
|
language:
|
|
LANGUAGE numexpr cnumexpr
|
|
{
|
|
language = $2 | ($3 << SUBLANG_SHIFT);
|
|
}
|
|
;
|
|
|
|
/* Menu resources. */
|
|
|
|
menu:
|
|
id MENU suboptions BEG menuitems END
|
|
{
|
|
define_menu ($1, &$3, $5);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
menuitems:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| menuitems menuitem
|
|
{
|
|
if ($1 == NULL)
|
|
$$ = $2;
|
|
else
|
|
{
|
|
rc_menuitem **pp;
|
|
|
|
for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
|
|
;
|
|
*pp = $2;
|
|
$$ = $1;
|
|
}
|
|
}
|
|
;
|
|
|
|
menuitem:
|
|
MENUITEM res_unicode_string_concat cnumexpr menuitem_flags
|
|
{
|
|
$$ = define_menuitem ($2, $3, $4, 0, 0, NULL);
|
|
}
|
|
| MENUITEM SEPARATOR
|
|
{
|
|
$$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
|
|
}
|
|
| POPUP res_unicode_string_concat menuitem_flags BEG menuitems END
|
|
{
|
|
$$ = define_menuitem ($2, 0, $3, 0, 0, $5);
|
|
}
|
|
;
|
|
|
|
menuitem_flags:
|
|
/* empty */
|
|
{
|
|
$$ = 0;
|
|
}
|
|
| menuitem_flags ',' menuitem_flag
|
|
{
|
|
$$ = $1 | $3;
|
|
}
|
|
| menuitem_flags menuitem_flag
|
|
{
|
|
$$ = $1 | $2;
|
|
}
|
|
;
|
|
|
|
menuitem_flag:
|
|
CHECKED
|
|
{
|
|
$$ = MENUITEM_CHECKED;
|
|
}
|
|
| GRAYED
|
|
{
|
|
$$ = MENUITEM_GRAYED;
|
|
}
|
|
| HELP
|
|
{
|
|
$$ = MENUITEM_HELP;
|
|
}
|
|
| INACTIVE
|
|
{
|
|
$$ = MENUITEM_INACTIVE;
|
|
}
|
|
| MENUBARBREAK
|
|
{
|
|
$$ = MENUITEM_MENUBARBREAK;
|
|
}
|
|
| MENUBREAK
|
|
{
|
|
$$ = MENUITEM_MENUBREAK;
|
|
}
|
|
| BITMAP
|
|
{
|
|
$$ = MENUITEM_BITMAP;
|
|
}
|
|
| OWNERDRAW
|
|
{
|
|
$$ = MENUITEM_OWNERDRAW;
|
|
}
|
|
;
|
|
|
|
/* Menuex resources. */
|
|
|
|
menuex:
|
|
id MENUEX suboptions BEG menuexitems END
|
|
{
|
|
define_menu ($1, &$3, $5);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
menuexitems:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| menuexitems menuexitem
|
|
{
|
|
if ($1 == NULL)
|
|
$$ = $2;
|
|
else
|
|
{
|
|
rc_menuitem **pp;
|
|
|
|
for (pp = &$1->next; *pp != NULL; pp = &(*pp)->next)
|
|
;
|
|
*pp = $2;
|
|
$$ = $1;
|
|
}
|
|
}
|
|
;
|
|
|
|
menuexitem:
|
|
MENUITEM res_unicode_string_concat
|
|
{
|
|
$$ = define_menuitem ($2, 0, 0, 0, 0, NULL);
|
|
}
|
|
| MENUITEM res_unicode_string_concat cnumexpr
|
|
{
|
|
$$ = define_menuitem ($2, $3, 0, 0, 0, NULL);
|
|
}
|
|
| MENUITEM res_unicode_string_concat cnumexpr cnumexpr optcnumexpr
|
|
{
|
|
$$ = define_menuitem ($2, $3, $4, $5, 0, NULL);
|
|
}
|
|
| MENUITEM SEPARATOR
|
|
{
|
|
$$ = define_menuitem (NULL, 0, 0, 0, 0, NULL);
|
|
}
|
|
| POPUP res_unicode_string_concat BEG menuexitems END
|
|
{
|
|
$$ = define_menuitem ($2, 0, 0, 0, 0, $4);
|
|
}
|
|
| POPUP res_unicode_string_concat cnumexpr BEG menuexitems END
|
|
{
|
|
$$ = define_menuitem ($2, $3, 0, 0, 0, $5);
|
|
}
|
|
| POPUP res_unicode_string_concat cnumexpr cnumexpr BEG menuexitems END
|
|
{
|
|
$$ = define_menuitem ($2, $3, $4, 0, 0, $6);
|
|
}
|
|
| POPUP res_unicode_string_concat cnumexpr cnumexpr cnumexpr optcnumexpr
|
|
BEG menuexitems END
|
|
{
|
|
$$ = define_menuitem ($2, $3, $4, $5, $6, $8);
|
|
}
|
|
;
|
|
|
|
/* Messagetable resources. */
|
|
|
|
messagetable:
|
|
id MESSAGETABLE memflags_move file_name
|
|
{
|
|
define_messagetable ($1, &$3, $4);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
/* We use a different lexing algorithm, because rcdata strings may
|
|
contain embedded null bytes, and we need to know the length to use. */
|
|
|
|
optrcdata_data:
|
|
{
|
|
rcparse_rcdata ();
|
|
}
|
|
optrcdata_data_int
|
|
{
|
|
rcparse_normal ();
|
|
$$ = $2;
|
|
}
|
|
;
|
|
|
|
optrcdata_data_int:
|
|
/* empty */
|
|
{
|
|
$$.first = NULL;
|
|
$$.last = NULL;
|
|
}
|
|
| rcdata_data
|
|
{
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
rcdata_data:
|
|
sizedstring
|
|
{
|
|
rc_rcdata_item *ri;
|
|
|
|
ri = define_rcdata_string ($1.s, $1.length);
|
|
$$.first = ri;
|
|
$$.last = ri;
|
|
}
|
|
| sizedunistring
|
|
{
|
|
rc_rcdata_item *ri;
|
|
|
|
ri = define_rcdata_unistring ($1.s, $1.length);
|
|
$$.first = ri;
|
|
$$.last = ri;
|
|
}
|
|
| sizednumexpr
|
|
{
|
|
rc_rcdata_item *ri;
|
|
|
|
ri = define_rcdata_number ($1.val, $1.dword);
|
|
$$.first = ri;
|
|
$$.last = ri;
|
|
}
|
|
| rcdata_data ',' sizedstring
|
|
{
|
|
rc_rcdata_item *ri;
|
|
|
|
ri = define_rcdata_string ($3.s, $3.length);
|
|
$$.first = $1.first;
|
|
$1.last->next = ri;
|
|
$$.last = ri;
|
|
}
|
|
| rcdata_data ',' sizedunistring
|
|
{
|
|
rc_rcdata_item *ri;
|
|
|
|
ri = define_rcdata_unistring ($3.s, $3.length);
|
|
$$.first = $1.first;
|
|
$1.last->next = ri;
|
|
$$.last = ri;
|
|
}
|
|
| rcdata_data ',' sizednumexpr
|
|
{
|
|
rc_rcdata_item *ri;
|
|
|
|
ri = define_rcdata_number ($3.val, $3.dword);
|
|
$$.first = $1.first;
|
|
$1.last->next = ri;
|
|
$$.last = ri;
|
|
}
|
|
| rcdata_data ','
|
|
{
|
|
$$=$1;
|
|
}
|
|
;
|
|
|
|
/* Stringtable resources. */
|
|
|
|
stringtable:
|
|
STRINGTABLE suboptions BEG
|
|
{ sub_res_info = $2; rcparse_rcdata (); }
|
|
string_data END { rcparse_normal (); }
|
|
;
|
|
|
|
string_data:
|
|
/* empty */
|
|
| string_data numexpr res_unicode_sizedstring_concat
|
|
{
|
|
define_stringtable (&sub_res_info, $2, $3.s, $3.length);
|
|
rcparse_discard_strings ();
|
|
}
|
|
| string_data numexpr ',' res_unicode_sizedstring_concat
|
|
{
|
|
define_stringtable (&sub_res_info, $2, $4.s, $4.length);
|
|
rcparse_discard_strings ();
|
|
}
|
|
| string_data error
|
|
{
|
|
rcparse_warning (_("invalid stringtable resource."));
|
|
abort ();
|
|
}
|
|
;
|
|
|
|
rcdata_id:
|
|
id
|
|
{
|
|
$$=$1;
|
|
}
|
|
| HTML
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = 23;
|
|
}
|
|
| RCDATA
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_RCDATA;
|
|
}
|
|
| MANIFEST
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_MANIFEST;
|
|
}
|
|
| PLUGPLAY
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_PLUGPLAY;
|
|
}
|
|
| VXD
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_VXD;
|
|
}
|
|
| DLGINCLUDE
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_DLGINCLUDE;
|
|
}
|
|
| DLGINIT
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_DLGINIT;
|
|
}
|
|
| ANICURSOR
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_ANICURSOR;
|
|
}
|
|
| ANIICON
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = RT_ANIICON;
|
|
}
|
|
;
|
|
|
|
/* User defined resources. We accept general suboptions in the
|
|
file_name case to keep the parser happy. */
|
|
|
|
user:
|
|
id rcdata_id suboptions BEG optrcdata_data END
|
|
{
|
|
define_user_data ($1, $2, &$3, $5.first);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
| id rcdata_id suboptions file_name
|
|
{
|
|
define_user_file ($1, $2, &$3, $4);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
toolbar:
|
|
id TOOLBAR suboptions numexpr cnumexpr BEG toolbar_data END
|
|
{
|
|
define_toolbar ($1, &$3, $4, $5, $7);
|
|
}
|
|
;
|
|
|
|
toolbar_data: /* empty */ { $$= NULL; }
|
|
| toolbar_data BUTTON id
|
|
{
|
|
rc_toolbar_item *c,*n;
|
|
c = $1;
|
|
n= (rc_toolbar_item *)
|
|
res_alloc (sizeof (rc_toolbar_item));
|
|
if (c != NULL)
|
|
while (c->next != NULL)
|
|
c = c->next;
|
|
n->prev = c;
|
|
n->next = NULL;
|
|
if (c != NULL)
|
|
c->next = n;
|
|
n->id = $3;
|
|
if ($1 == NULL)
|
|
$$ = n;
|
|
else
|
|
$$ = $1;
|
|
}
|
|
| toolbar_data SEPARATOR
|
|
{
|
|
rc_toolbar_item *c,*n;
|
|
c = $1;
|
|
n= (rc_toolbar_item *)
|
|
res_alloc (sizeof (rc_toolbar_item));
|
|
if (c != NULL)
|
|
while (c->next != NULL)
|
|
c = c->next;
|
|
n->prev = c;
|
|
n->next = NULL;
|
|
if (c != NULL)
|
|
c->next = n;
|
|
n->id.named = 0;
|
|
n->id.u.id = 0;
|
|
if ($1 == NULL)
|
|
$$ = n;
|
|
else
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
/* Versioninfo resources. */
|
|
|
|
versioninfo:
|
|
id VERSIONINFO fixedverinfo BEG verblocks END
|
|
{
|
|
define_versioninfo ($1, language, $3, $5);
|
|
if (yychar != YYEMPTY)
|
|
YYERROR;
|
|
rcparse_discard_strings ();
|
|
}
|
|
;
|
|
|
|
fixedverinfo:
|
|
/* empty */
|
|
{
|
|
$$ = ((rc_fixed_versioninfo *)
|
|
res_alloc (sizeof (rc_fixed_versioninfo)));
|
|
memset ($$, 0, sizeof (rc_fixed_versioninfo));
|
|
}
|
|
| fixedverinfo FILEVERSION numexpr optcnumexpr optcnumexpr
|
|
optcnumexpr
|
|
{
|
|
$1->file_version_ms = ($3 << 16) | ($4 & 0xffff);
|
|
$1->file_version_ls = ($5 << 16) | ($6 & 0xffff);
|
|
$$ = $1;
|
|
}
|
|
| fixedverinfo PRODUCTVERSION numexpr optcnumexpr optcnumexpr
|
|
optcnumexpr
|
|
{
|
|
$1->product_version_ms = ($3 << 16) | ($4 & 0xffff);
|
|
$1->product_version_ls = ($5 << 16) | ($6 & 0xffff);
|
|
$$ = $1;
|
|
}
|
|
| fixedverinfo FILEFLAGSMASK numexpr
|
|
{
|
|
$1->file_flags_mask = $3;
|
|
$$ = $1;
|
|
}
|
|
| fixedverinfo FILEFLAGS numexpr
|
|
{
|
|
$1->file_flags = $3;
|
|
$$ = $1;
|
|
}
|
|
| fixedverinfo FILEOS numexpr
|
|
{
|
|
$1->file_os = $3;
|
|
$$ = $1;
|
|
}
|
|
| fixedverinfo FILETYPE numexpr
|
|
{
|
|
$1->file_type = $3;
|
|
$$ = $1;
|
|
}
|
|
| fixedverinfo FILESUBTYPE numexpr
|
|
{
|
|
$1->file_subtype = $3;
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
/* To handle verblocks successfully, the lexer handles BLOCK
|
|
specially. A BLOCK "StringFileInfo" is returned as
|
|
BLOCKSTRINGFILEINFO. A BLOCK "VarFileInfo" is returned as
|
|
BLOCKVARFILEINFO. A BLOCK with some other string returns BLOCK
|
|
with the string as the value. */
|
|
|
|
verblocks:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| verblocks BLOCKSTRINGFILEINFO BEG verstringtables END
|
|
{
|
|
$$ = append_ver_stringfileinfo ($1, $4);
|
|
}
|
|
| verblocks BLOCKVARFILEINFO BEG VALUE res_unicode_string_concat vertrans END
|
|
{
|
|
$$ = append_ver_varfileinfo ($1, $5, $6);
|
|
}
|
|
;
|
|
|
|
verstringtables:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| verstringtables BLOCK BEG vervals END
|
|
{
|
|
$$ = append_ver_stringtable ($1, $2, $4);
|
|
}
|
|
;
|
|
|
|
vervals:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| vervals VALUE res_unicode_string_concat ',' res_unicode_string_concat
|
|
{
|
|
$$ = append_verval ($1, $3, $5);
|
|
}
|
|
;
|
|
|
|
vertrans:
|
|
/* empty */
|
|
{
|
|
$$ = NULL;
|
|
}
|
|
| vertrans cnumexpr cnumexpr
|
|
{
|
|
$$ = append_vertrans ($1, $2, $3);
|
|
}
|
|
;
|
|
|
|
/* A resource ID. */
|
|
|
|
id:
|
|
posnumexpr
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = $1;
|
|
}
|
|
| resname
|
|
{
|
|
res_unistring_to_id (&$$, $1);
|
|
}
|
|
;
|
|
|
|
/* A resource reference. */
|
|
|
|
resname:
|
|
res_unicode_string
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| STRING
|
|
{
|
|
unichar *h = NULL;
|
|
unicode_from_ascii ((rc_uint_type *) NULL, &h, $1);
|
|
$$ = h;
|
|
}
|
|
;
|
|
|
|
|
|
resref:
|
|
posnumexpr ','
|
|
{
|
|
$$.named = 0;
|
|
$$.u.id = $1;
|
|
}
|
|
| resname
|
|
{
|
|
res_unistring_to_id (&$$, $1);
|
|
}
|
|
| resname ','
|
|
{
|
|
res_unistring_to_id (&$$, $1);
|
|
}
|
|
;
|
|
|
|
/* Generic suboptions. These may appear before the BEGIN in any
|
|
multiline statement. */
|
|
|
|
suboptions:
|
|
/* empty */
|
|
{
|
|
memset (&$$, 0, sizeof (rc_res_res_info));
|
|
$$.language = language;
|
|
/* FIXME: Is this the right default? */
|
|
$$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE;
|
|
}
|
|
| suboptions memflag
|
|
{
|
|
$$ = $1;
|
|
$$.memflags |= $2.on;
|
|
$$.memflags &=~ $2.off;
|
|
}
|
|
| suboptions CHARACTERISTICS numexpr
|
|
{
|
|
$$ = $1;
|
|
$$.characteristics = $3;
|
|
}
|
|
| suboptions LANGUAGE numexpr cnumexpr
|
|
{
|
|
$$ = $1;
|
|
$$.language = $3 | ($4 << SUBLANG_SHIFT);
|
|
}
|
|
| suboptions VERSIONK numexpr
|
|
{
|
|
$$ = $1;
|
|
$$.version = $3;
|
|
}
|
|
;
|
|
|
|
/* Memory flags which default to MOVEABLE and DISCARDABLE. */
|
|
|
|
memflags_move_discard:
|
|
/* empty */
|
|
{
|
|
memset (&$$, 0, sizeof (rc_res_res_info));
|
|
$$.language = language;
|
|
$$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_DISCARDABLE;
|
|
}
|
|
| memflags_move_discard memflag
|
|
{
|
|
$$ = $1;
|
|
$$.memflags |= $2.on;
|
|
$$.memflags &=~ $2.off;
|
|
}
|
|
;
|
|
|
|
/* Memory flags which default to MOVEABLE. */
|
|
|
|
memflags_move:
|
|
/* empty */
|
|
{
|
|
memset (&$$, 0, sizeof (rc_res_res_info));
|
|
$$.language = language;
|
|
$$.memflags = MEMFLAG_MOVEABLE | MEMFLAG_PURE | MEMFLAG_DISCARDABLE;
|
|
}
|
|
| memflags_move memflag
|
|
{
|
|
$$ = $1;
|
|
$$.memflags |= $2.on;
|
|
$$.memflags &=~ $2.off;
|
|
}
|
|
;
|
|
|
|
/* Memory flags. This returns a struct with two integers, because we
|
|
sometimes want to set bits and we sometimes want to clear them. */
|
|
|
|
memflag:
|
|
MOVEABLE
|
|
{
|
|
$$.on = MEMFLAG_MOVEABLE;
|
|
$$.off = 0;
|
|
}
|
|
| FIXED
|
|
{
|
|
$$.on = 0;
|
|
$$.off = MEMFLAG_MOVEABLE;
|
|
}
|
|
| PURE
|
|
{
|
|
$$.on = MEMFLAG_PURE;
|
|
$$.off = 0;
|
|
}
|
|
| IMPURE
|
|
{
|
|
$$.on = 0;
|
|
$$.off = MEMFLAG_PURE;
|
|
}
|
|
| PRELOAD
|
|
{
|
|
$$.on = MEMFLAG_PRELOAD;
|
|
$$.off = 0;
|
|
}
|
|
| LOADONCALL
|
|
{
|
|
$$.on = 0;
|
|
$$.off = MEMFLAG_PRELOAD;
|
|
}
|
|
| DISCARDABLE
|
|
{
|
|
$$.on = MEMFLAG_DISCARDABLE;
|
|
$$.off = 0;
|
|
}
|
|
;
|
|
|
|
/* A file name. */
|
|
|
|
file_name:
|
|
QUOTEDSTRING
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| STRING
|
|
{
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
/* Concat string */
|
|
res_unicode_string_concat:
|
|
res_unicode_string
|
|
{
|
|
$$ = $1;
|
|
}
|
|
|
|
|
res_unicode_string_concat res_unicode_string
|
|
{
|
|
rc_uint_type l1 = unichar_len ($1);
|
|
rc_uint_type l2 = unichar_len ($2);
|
|
unichar *h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
|
|
if (l1 != 0)
|
|
memcpy (h, $1, l1 * sizeof (unichar));
|
|
if (l2 != 0)
|
|
memcpy (h + l1, $2, l2 * sizeof (unichar));
|
|
h[l1 + l2] = 0;
|
|
$$ = h;
|
|
}
|
|
;
|
|
|
|
res_unicode_string:
|
|
QUOTEDUNISTRING
|
|
{
|
|
$$ = unichar_dup ($1);
|
|
}
|
|
| QUOTEDSTRING
|
|
{
|
|
unichar *h = NULL;
|
|
unicode_from_ascii ((rc_uint_type *) NULL, &h, $1);
|
|
$$ = h;
|
|
}
|
|
;
|
|
|
|
res_unicode_sizedstring:
|
|
sizedunistring
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| sizedstring
|
|
{
|
|
unichar *h = NULL;
|
|
rc_uint_type l = 0;
|
|
unicode_from_ascii_len (&l, &h, $1.s, $1.length);
|
|
$$.s = h;
|
|
$$.length = l;
|
|
}
|
|
;
|
|
|
|
/* Concat string */
|
|
res_unicode_sizedstring_concat:
|
|
res_unicode_sizedstring
|
|
{
|
|
$$ = $1;
|
|
}
|
|
|
|
|
res_unicode_sizedstring_concat res_unicode_sizedstring
|
|
{
|
|
rc_uint_type l1 = $1.length;
|
|
rc_uint_type l2 = $2.length;
|
|
unichar *h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
|
|
if (l1 != 0)
|
|
memcpy (h, $1.s, l1 * sizeof (unichar));
|
|
if (l2 != 0)
|
|
memcpy (h + l1, $2.s, l2 * sizeof (unichar));
|
|
h[l1 + l2] = 0;
|
|
$$.length = l1 + l2;
|
|
$$.s = h;
|
|
}
|
|
;
|
|
|
|
sizedstring:
|
|
SIZEDSTRING
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| sizedstring SIZEDSTRING
|
|
{
|
|
rc_uint_type l = $1.length + $2.length;
|
|
char *h = (char *) res_alloc (l);
|
|
memcpy (h, $1.s, $1.length);
|
|
memcpy (h + $1.length, $2.s, $2.length);
|
|
$$.s = h;
|
|
$$.length = l;
|
|
}
|
|
;
|
|
|
|
sizedunistring:
|
|
SIZEDUNISTRING
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| sizedunistring SIZEDUNISTRING
|
|
{
|
|
rc_uint_type l = $1.length + $2.length;
|
|
unichar *h = (unichar *) res_alloc (l * sizeof (unichar));
|
|
memcpy (h, $1.s, $1.length * sizeof (unichar));
|
|
memcpy (h + $1.length, $2.s, $2.length * sizeof (unichar));
|
|
$$.s = h;
|
|
$$.length = l;
|
|
}
|
|
;
|
|
|
|
/* A style expression. This changes the static variable STYLE. We do
|
|
it this way because rc appears to permit a style to be set to
|
|
something like
|
|
WS_GROUP | NOT WS_TABSTOP
|
|
to mean that a default of WS_TABSTOP should be removed. Anything
|
|
which wants to accept a style must first set STYLE to the default
|
|
value. The styleexpr nonterminal will change STYLE as specified by
|
|
the user. Note that we do not accept arbitrary expressions here,
|
|
just numbers separated by '|'. */
|
|
|
|
styleexpr:
|
|
parennumber
|
|
{
|
|
style |= $1;
|
|
}
|
|
| NOT parennumber
|
|
{
|
|
style &=~ $2;
|
|
}
|
|
| styleexpr '|' parennumber
|
|
{
|
|
style |= $3;
|
|
}
|
|
| styleexpr '|' NOT parennumber
|
|
{
|
|
style &=~ $4;
|
|
}
|
|
;
|
|
|
|
parennumber:
|
|
NUMBER
|
|
{
|
|
$$ = $1.val;
|
|
}
|
|
| '(' numexpr ')'
|
|
{
|
|
$$ = $2;
|
|
}
|
|
;
|
|
|
|
/* An optional expression with a leading comma. */
|
|
|
|
optcnumexpr:
|
|
/* empty */
|
|
{
|
|
$$ = 0;
|
|
}
|
|
| cnumexpr
|
|
{
|
|
$$ = $1;
|
|
}
|
|
;
|
|
|
|
/* An expression with a leading comma. */
|
|
|
|
cnumexpr:
|
|
',' numexpr
|
|
{
|
|
$$ = $2;
|
|
}
|
|
;
|
|
|
|
/* A possibly negated numeric expression. */
|
|
|
|
numexpr:
|
|
sizednumexpr
|
|
{
|
|
$$ = $1.val;
|
|
}
|
|
;
|
|
|
|
/* A possibly negated expression with a size. */
|
|
|
|
sizednumexpr:
|
|
NUMBER
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| '(' sizednumexpr ')'
|
|
{
|
|
$$ = $2;
|
|
}
|
|
| '~' sizednumexpr %prec '~'
|
|
{
|
|
$$.val = ~ $2.val;
|
|
$$.dword = $2.dword;
|
|
}
|
|
| '-' sizednumexpr %prec NEG
|
|
{
|
|
$$.val = - $2.val;
|
|
$$.dword = $2.dword;
|
|
}
|
|
| sizednumexpr '*' sizednumexpr
|
|
{
|
|
$$.val = $1.val * $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '/' sizednumexpr
|
|
{
|
|
$$.val = $1.val / ($3.val ? $3.val : 1);
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '%' sizednumexpr
|
|
{
|
|
$$.val = $1.val % ($3.val ? $3.val : 1);
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '+' sizednumexpr
|
|
{
|
|
$$.val = $1.val + $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '-' sizednumexpr
|
|
{
|
|
$$.val = $1.val - $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '&' sizednumexpr
|
|
{
|
|
$$.val = $1.val & $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '^' sizednumexpr
|
|
{
|
|
$$.val = $1.val ^ $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizednumexpr '|' sizednumexpr
|
|
{
|
|
$$.val = $1.val | $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
;
|
|
|
|
/* An expression with a leading comma which does not use unary
|
|
negation. */
|
|
|
|
cposnumexpr:
|
|
',' posnumexpr
|
|
{
|
|
$$ = $2;
|
|
}
|
|
;
|
|
|
|
/* An expression which does not use unary negation. */
|
|
|
|
posnumexpr:
|
|
sizedposnumexpr
|
|
{
|
|
$$ = $1.val;
|
|
}
|
|
;
|
|
|
|
/* An expression which does not use unary negation. We separate unary
|
|
negation to avoid parsing conflicts when two numeric expressions
|
|
appear consecutively. */
|
|
|
|
sizedposnumexpr:
|
|
NUMBER
|
|
{
|
|
$$ = $1;
|
|
}
|
|
| '(' sizednumexpr ')'
|
|
{
|
|
$$ = $2;
|
|
}
|
|
| '~' sizednumexpr %prec '~'
|
|
{
|
|
$$.val = ~ $2.val;
|
|
$$.dword = $2.dword;
|
|
}
|
|
| sizedposnumexpr '*' sizednumexpr
|
|
{
|
|
$$.val = $1.val * $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '/' sizednumexpr
|
|
{
|
|
$$.val = $1.val / ($3.val ? $3.val : 1);
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '%' sizednumexpr
|
|
{
|
|
/* PR 17512: file: 89105a25. */
|
|
$$.val = $1.val % ($3.val ? $3.val : 1);
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '+' sizednumexpr
|
|
{
|
|
$$.val = $1.val + $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '-' sizednumexpr
|
|
{
|
|
$$.val = $1.val - $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '&' sizednumexpr
|
|
{
|
|
$$.val = $1.val & $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '^' sizednumexpr
|
|
{
|
|
$$.val = $1.val ^ $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
| sizedposnumexpr '|' sizednumexpr
|
|
{
|
|
$$.val = $1.val | $3.val;
|
|
$$.dword = $1.dword || $3.dword;
|
|
}
|
|
;
|
|
|
|
%%
|
|
|
|
/* Set the language from the command line. */
|
|
|
|
void
|
|
rcparse_set_language (int lang)
|
|
{
|
|
language = lang;
|
|
}
|