OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [binutils/] [rcparse.y] - Blame information for rev 156

Go to most recent revision | Details | Compare with Previous | View Log

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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.