URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [binutils/] [mcparse.y] - Blame information for rev 272

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


%{ /* mcparse.y -- parser for Windows mc files
  Copyright 2007
  Free Software Foundation, Inc.
 
  Parser for Windows mc files
  Written 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 .  */
 
#include "sysdep.h"
#include "bfd.h"
#include "bucomm.h"
#include "libiberty.h"
#include "windmc.h"
#include "safe-ctype.h"
 
static rc_uint_type mc_last_id = 0;
static rc_uint_type mc_sefa_val = 0;
static unichar *mc_last_symbol = NULL;
static const mc_keyword *mc_cur_severity = NULL;
static const mc_keyword *mc_cur_facility = NULL;
static mc_node *cur_node = NULL;
 
%}
 
%union
{
  rc_uint_type ival;
  unichar *ustr;
  const mc_keyword *tok;
  mc_node *nod;
};
 
%start input
 
%token NL
%token MCIDENT MCFILENAME MCLINE MCCOMMENT
%token MCTOKEN
%token MCENDLINE
%token MCLANGUAGENAMES MCFACILITYNAMES MCSEVERITYNAMES MCOUTPUTBASE MCMESSAGEIDTYPEDEF
%token MCLANGUAGE MCMESSAGEID MCSEVERITY MCFACILITY MCSYMBOLICNAME
%token  MCNUMBER
 
%type id vid sefasy_def
%type alias_name token lines comments
%type lang
 
%%
input:    entities
        ;
 
entities:
          /* empty */
        | entities entity
        ;
entity:   global_section
        | message
        | comments
          {
            cur_node = mc_add_node ();
            cur_node->user_text = $1;
          }
        | error { mc_fatal ("syntax error"); }
;
 
global_section:
          MCSEVERITYNAMES '=' '(' severitymaps ')'
        | MCSEVERITYNAMES '=' '(' severitymaps error { mc_fatal ("missing ')' in SeverityNames"); }
        | MCSEVERITYNAMES '=' error { mc_fatal ("missing '(' in SeverityNames"); }
        | MCSEVERITYNAMES error { mc_fatal ("missing '=' for SeverityNames"); }
        | MCLANGUAGENAMES '=' '(' langmaps ')'
        | MCLANGUAGENAMES '=' '(' langmaps error { mc_fatal ("missing ')' in LanguageNames"); }
        | MCLANGUAGENAMES '=' error { mc_fatal ("missing '(' in LanguageNames"); }
        | MCLANGUAGENAMES error { mc_fatal ("missing '=' for LanguageNames"); }
        | MCFACILITYNAMES '=' '(' facilitymaps ')'
        | MCFACILITYNAMES '=' '(' facilitymaps error { mc_fatal ("missing ')' in FacilityNames"); }
        | MCFACILITYNAMES '=' error { mc_fatal ("missing '(' in FacilityNames"); }
        | MCFACILITYNAMES error { mc_fatal ("missing '=' for FacilityNames"); }
        | MCOUTPUTBASE '=' MCNUMBER
          {
            if ($3 != 10 && $3 != 16)
              mc_fatal ("OutputBase allows 10 or 16 as value");
            mcset_out_values_are_decimal = ($3 == 10 ? 1 : 0);
          }
        | MCMESSAGEIDTYPEDEF '=' MCIDENT
          {
            mcset_msg_id_typedef = $3;
          }
        | MCMESSAGEIDTYPEDEF '=' error
          {
            mc_fatal ("MessageIdTypedef expects an identifier");
          }
        | MCMESSAGEIDTYPEDEF error
          {
            mc_fatal ("missing '=' for MessageIdTypedef");
          }
;
 
severitymaps:
          severitymap
        | severitymaps severitymap
        | error { mc_fatal ("severity ident missing"); }
;
 
severitymap:
          token '=' MCNUMBER alias_name
          {
            mc_add_keyword ($1, MCTOKEN, "severity", $3, $4);
          }
        | token '=' error { mc_fatal ("severity number missing"); }
        | token error { mc_fatal ("severity missing '='"); }
;
 
facilitymaps:
          facilitymap
        | facilitymaps facilitymap
        | error { mc_fatal ("missing ident in FacilityNames"); }
;
 
facilitymap:
          token '=' MCNUMBER alias_name
          {
            mc_add_keyword ($1, MCTOKEN, "facility", $3, $4);
          }
        | token '=' error { mc_fatal ("facility number missing"); }
        | token error { mc_fatal ("facility missing '='"); }
;
 
langmaps:
          langmap
        | langmaps langmap
        | error { mc_fatal ("missing ident in LanguageNames"); }
;
 
langmap:
          token '=' MCNUMBER lex_want_filename ':' MCFILENAME
          {
            mc_add_keyword ($1, MCTOKEN, "language", $3, $6);
          }
        | token '=' MCNUMBER lex_want_filename ':' error { mc_fatal ("missing filename in LanguageNames"); }
        | token '=' MCNUMBER error { mc_fatal ("missing ':' in LanguageNames"); }
        | token '=' error { mc_fatal ("missing language code in LanguageNames"); }
        | token error { mc_fatal ("missing '=' for LanguageNames"); }
;
 
alias_name:
          /* empty */
          {
            $$ = NULL;
          }
        | ':' MCIDENT
          {
            $$ = $2;
          }
        | ':' error { mc_fatal ("illegal token in identifier"); $$ = NULL; }
;
 
message:
          id sefasy_def
          {
            cur_node = mc_add_node ();
            cur_node->symbol = mc_last_symbol;
            cur_node->facility = mc_cur_facility;
            cur_node->severity = mc_cur_severity;
            cur_node->id = ($1 & 0xffffUL);
            cur_node->vid = ($1 & 0xffffUL) | mc_sefa_val;
            mc_last_id = $1;
          }
          lang_entities
;
 
id:       MCMESSAGEID '=' vid { $$ = $3; }
        | MCMESSAGEID '=' error { mc_fatal ("missing number in MessageId"); $$ = 0; }
        | MCMESSAGEID error { mc_fatal ("missing '=' for MessageId"); $$ = 0; }
;
 
vid:      /* empty */
          {
            $$ = ++mc_last_id;
          }
        | MCNUMBER
          {
            $$ = $1;
          }
        | '+' MCNUMBER
          {
            $$ = mc_last_id + $2;
          }
        | '+' error { mc_fatal ("missing number after MessageId '+'"); }
;
 
sefasy_def:
          /* empty */
          {
            $$ = 0;
            mc_sefa_val = (mcset_custom_bit ? 1 : 0) << 29;
            mc_last_symbol = NULL;
            mc_cur_severity = NULL;
            mc_cur_facility = NULL;
          }
        | sefasy_def severity
          {
            if ($1 & 1)
              mc_warn (_("duplicate definition of Severity"));
            $$ = $1 | 1;
          }
        | sefasy_def facility
          {
            if ($1 & 2)
              mc_warn (_("duplicate definition of Facility"));
            $$ = $1 | 2;
          }
        | sefasy_def symbol
          {
            if ($1 & 4)
              mc_warn (_("duplicate definition of SymbolicName"));
            $$ = $1 | 4;
          }
;
 
severity: MCSEVERITY '=' MCTOKEN
          {
            mc_sefa_val &= ~ (0x3UL << 30);
            mc_sefa_val |= (($3->nval & 0x3UL) << 30);
            mc_cur_severity = $3;
          }
;
 
facility: MCFACILITY '=' MCTOKEN
          {
            mc_sefa_val &= ~ (0xfffUL << 16);
            mc_sefa_val |= (($3->nval & 0xfffUL) << 16);
            mc_cur_facility = $3;
          }
;
 
symbol: MCSYMBOLICNAME '=' MCIDENT
        {
          mc_last_symbol = $3;
        }
;
 
lang_entities:
          lang_entity
        | lang_entities lang_entity
;
 
lang_entity:
          lang lex_want_line lines MCENDLINE
          {
            mc_node_lang *h;
            h = mc_add_node_lang (cur_node, $1, cur_node->vid);
            h->message = $3;
            if (mcset_max_message_length != 0 && unichar_len (h->message) > mcset_max_message_length)
              mc_warn ("message length to long");
          }
;
 
lines:    MCLINE
          {
            $$ = $1;
          }
        | lines MCLINE
          {
            unichar *h;
            rc_uint_type l1,l2;
            l1 = unichar_len ($1);
            l2 = unichar_len ($2);
            h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
            if (l1) memcpy (h, $1, l1 * sizeof (unichar));
            if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar));
            h[l1 + l2] = 0;
            $$ = h;
          }
        | error { mc_fatal ("missing end of message text"); $$ = NULL; }
        | lines error { mc_fatal ("missing end of message text"); $$ = $1; }
;
 
comments: MCCOMMENT { $$ = $1; }
        | comments MCCOMMENT
          {
            unichar *h;
            rc_uint_type l1,l2;
            l1 = unichar_len ($1);
            l2 = unichar_len ($2);
            h = (unichar *) res_alloc ((l1 + l2 + 1) * sizeof (unichar));
            if (l1) memcpy (h, $1, l1 * sizeof (unichar));
            if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar));
            h[l1 + l2] = 0;
            $$ = h;
          }
;
 
lang:     MCLANGUAGE lex_want_nl '=' MCTOKEN NL
          {
            $$ = $4;
          }
        | MCLANGUAGE lex_want_nl '=' MCIDENT NL
          {
            $$ = NULL;
            mc_fatal (_("undeclared language identifier"));
          }
        | MCLANGUAGE lex_want_nl '=' token error
          {
            $$ = NULL;
            mc_fatal ("missing newline after Language");
          }
        | MCLANGUAGE lex_want_nl '=' error
          {
            $$ = NULL;
            mc_fatal ("missing ident for Language");
          }
        | MCLANGUAGE error
          {
            $$ = NULL;
            mc_fatal ("missing '=' for Language");
          }
;
 
token:  MCIDENT { $$ = $1; }
        |  MCTOKEN { $$ = $1->usz; }
;
 
lex_want_nl:
          /* Empty */   { mclex_want_nl = 1; }
;
 
lex_want_line:
          /* Empty */   { mclex_want_line = 1; }
;
 
lex_want_filename:
          /* Empty */   { mclex_want_filename = 1; }
;
 
%%
 
/* Something else.  */

Browse

Tools

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [trunk/] [gnu-src/] [binutils-2.20.1/] [binutils/] [mcparse.y] - Blame information for rev 272

Line No.	Rev	Author	Line
1	205	julius	`%{ /* mcparse.y -- parser for Windows mc files`
2			`Copyright 2007`
3			`Free Software Foundation, Inc.`
4
5			`Parser for Windows mc files`
6			`Written by Kai Tietz, Onevision.`
7
8			`This file is part of GNU Binutils.`
9
10			`This program is free software; you can redistribute it and/or modify`
11			`it under the terms of the GNU General Public License as published by`
12			`the Free Software Foundation; either version 3 of the License, or`
13			`(at your option) any later version.`
14
15			`This program is distributed in the hope that it will be useful,`
16			`but WITHOUT ANY WARRANTY; without even the implied warranty of`
17			`MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the`
18			`GNU General Public License for more details.`
19
20			`You should have received a copy of the GNU General Public License`
21			`along with this program; if not, write to the Free Software`
22			`Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA`
23			`02110-1301, USA. */`
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 "windmc.h"`
33			`#include "safe-ctype.h"`
34
35			`static rc_uint_type mc_last_id = 0;`
36			`static rc_uint_type mc_sefa_val = 0;`
37			`static unichar *mc_last_symbol = NULL;`
38			`static const mc_keyword *mc_cur_severity = NULL;`
39			`static const mc_keyword *mc_cur_facility = NULL;`
40			`static mc_node *cur_node = NULL;`
41
42			`%}`
43
44			`%union`
45			`{`
46			`rc_uint_type ival;`
47			`unichar *ustr;`
48			`const mc_keyword *tok;`
49			`mc_node *nod;`
50			`};`
51
52			`%start input`
53
54			`%token NL`
55			`%token MCIDENT MCFILENAME MCLINE MCCOMMENT`
56			`%token MCTOKEN`
57			`%token MCENDLINE`
58			`%token MCLANGUAGENAMES MCFACILITYNAMES MCSEVERITYNAMES MCOUTPUTBASE MCMESSAGEIDTYPEDEF`
59			`%token MCLANGUAGE MCMESSAGEID MCSEVERITY MCFACILITY MCSYMBOLICNAME`
60			`%token MCNUMBER`
61
62			`%type id vid sefasy_def`
63			`%type alias_name token lines comments`
64			`%type lang`
65
66			`%%`
67			`input: entities`
68			`;`
69
70			`entities:`
71			`/* empty */`
72			`\| entities entity`
73			`;`
74			`entity: global_section`
75			`\| message`
76			`\| comments`
77			`{`
78			`cur_node = mc_add_node ();`
79			`cur_node->user_text = $1;`
80			`}`
81			`\| error { mc_fatal ("syntax error"); }`
82			`;`
83
84			`global_section:`
85			`MCSEVERITYNAMES '=' '(' severitymaps ')'`
86			`\| MCSEVERITYNAMES '=' '(' severitymaps error { mc_fatal ("missing ')' in SeverityNames"); }`
87			`\| MCSEVERITYNAMES '=' error { mc_fatal ("missing '(' in SeverityNames"); }`
88			`\| MCSEVERITYNAMES error { mc_fatal ("missing '=' for SeverityNames"); }`
89			`\| MCLANGUAGENAMES '=' '(' langmaps ')'`
90			`\| MCLANGUAGENAMES '=' '(' langmaps error { mc_fatal ("missing ')' in LanguageNames"); }`
91			`\| MCLANGUAGENAMES '=' error { mc_fatal ("missing '(' in LanguageNames"); }`
92			`\| MCLANGUAGENAMES error { mc_fatal ("missing '=' for LanguageNames"); }`
93			`\| MCFACILITYNAMES '=' '(' facilitymaps ')'`
94			`\| MCFACILITYNAMES '=' '(' facilitymaps error { mc_fatal ("missing ')' in FacilityNames"); }`
95			`\| MCFACILITYNAMES '=' error { mc_fatal ("missing '(' in FacilityNames"); }`
96			`\| MCFACILITYNAMES error { mc_fatal ("missing '=' for FacilityNames"); }`
97			`\| MCOUTPUTBASE '=' MCNUMBER`
98			`{`
99			`if ($3 != 10 && $3 != 16)`
100			`mc_fatal ("OutputBase allows 10 or 16 as value");`
101			`mcset_out_values_are_decimal = ($3 == 10 ? 1 : 0);`
102			`}`
103			`\| MCMESSAGEIDTYPEDEF '=' MCIDENT`
104			`{`
105			`mcset_msg_id_typedef = $3;`
106			`}`
107			`\| MCMESSAGEIDTYPEDEF '=' error`
108			`{`
109			`mc_fatal ("MessageIdTypedef expects an identifier");`
110			`}`
111			`\| MCMESSAGEIDTYPEDEF error`
112			`{`
113			`mc_fatal ("missing '=' for MessageIdTypedef");`
114			`}`
115			`;`
116
117			`severitymaps:`
118			`severitymap`
119			`\| severitymaps severitymap`
120			`\| error { mc_fatal ("severity ident missing"); }`
121			`;`
122
123			`severitymap:`
124			`token '=' MCNUMBER alias_name`
125			`{`
126			`mc_add_keyword ($1, MCTOKEN, "severity", $3, $4);`
127			`}`
128			`\| token '=' error { mc_fatal ("severity number missing"); }`
129			`\| token error { mc_fatal ("severity missing '='"); }`
130			`;`
131
132			`facilitymaps:`
133			`facilitymap`
134			`\| facilitymaps facilitymap`
135			`\| error { mc_fatal ("missing ident in FacilityNames"); }`
136			`;`
137
138			`facilitymap:`
139			`token '=' MCNUMBER alias_name`
140			`{`
141			`mc_add_keyword ($1, MCTOKEN, "facility", $3, $4);`
142			`}`
143			`\| token '=' error { mc_fatal ("facility number missing"); }`
144			`\| token error { mc_fatal ("facility missing '='"); }`
145			`;`
146
147			`langmaps:`
148			`langmap`
149			`\| langmaps langmap`
150			`\| error { mc_fatal ("missing ident in LanguageNames"); }`
151			`;`
152
153			`langmap:`
154			`token '=' MCNUMBER lex_want_filename ':' MCFILENAME`
155			`{`
156			`mc_add_keyword ($1, MCTOKEN, "language", $3, $6);`
157			`}`
158			`\| token '=' MCNUMBER lex_want_filename ':' error { mc_fatal ("missing filename in LanguageNames"); }`
159			`\| token '=' MCNUMBER error { mc_fatal ("missing ':' in LanguageNames"); }`
160			`\| token '=' error { mc_fatal ("missing language code in LanguageNames"); }`
161			`\| token error { mc_fatal ("missing '=' for LanguageNames"); }`
162			`;`
163
164			`alias_name:`
165			`/* empty */`
166			`{`
167			`$$ = NULL;`
168			`}`
169			`\| ':' MCIDENT`
170			`{`
171			`$$ = $2;`
172			`}`
173			`\| ':' error { mc_fatal ("illegal token in identifier"); $$ = NULL; }`
174			`;`
175
176			`message:`
177			`id sefasy_def`
178			`{`
179			`cur_node = mc_add_node ();`
180			`cur_node->symbol = mc_last_symbol;`
181			`cur_node->facility = mc_cur_facility;`
182			`cur_node->severity = mc_cur_severity;`
183			`cur_node->id = ($1 & 0xffffUL);`
184			`cur_node->vid = ($1 & 0xffffUL) \| mc_sefa_val;`
185			`mc_last_id = $1;`
186			`}`
187			`lang_entities`
188			`;`
189
190			`id: MCMESSAGEID '=' vid { $$ = $3; }`
191			`\| MCMESSAGEID '=' error { mc_fatal ("missing number in MessageId"); $$ = 0; }`
192			`\| MCMESSAGEID error { mc_fatal ("missing '=' for MessageId"); $$ = 0; }`
193			`;`
194
195			`vid: /* empty */`
196			`{`
197			`$$ = ++mc_last_id;`
198			`}`
199			`\| MCNUMBER`
200			`{`
201			`$$ = $1;`
202			`}`
203			`\| '+' MCNUMBER`
204			`{`
205			`$$ = mc_last_id + $2;`
206			`}`
207			`\| '+' error { mc_fatal ("missing number after MessageId '+'"); }`
208			`;`
209
210			`sefasy_def:`
211			`/* empty */`
212			`{`
213			`$$ = 0;`
214			`mc_sefa_val = (mcset_custom_bit ? 1 : 0) << 29;`
215			`mc_last_symbol = NULL;`
216			`mc_cur_severity = NULL;`
217			`mc_cur_facility = NULL;`
218			`}`
219			`\| sefasy_def severity`
220			`{`
221			`if ($1 & 1)`
222			`mc_warn (_("duplicate definition of Severity"));`
223			`$$ = $1 \| 1;`
224			`}`
225			`\| sefasy_def facility`
226			`{`
227			`if ($1 & 2)`
228			`mc_warn (_("duplicate definition of Facility"));`
229			`$$ = $1 \| 2;`
230			`}`
231			`\| sefasy_def symbol`
232			`{`
233			`if ($1 & 4)`
234			`mc_warn (_("duplicate definition of SymbolicName"));`
235			`$$ = $1 \| 4;`
236			`}`
237			`;`
238
239			`severity: MCSEVERITY '=' MCTOKEN`
240			`{`
241			`mc_sefa_val &= ~ (0x3UL << 30);`
242			`mc_sefa_val \|= (($3->nval & 0x3UL) << 30);`
243			`mc_cur_severity = $3;`
244			`}`
245			`;`
246
247			`facility: MCFACILITY '=' MCTOKEN`
248			`{`
249			`mc_sefa_val &= ~ (0xfffUL << 16);`
250			`mc_sefa_val \|= (($3->nval & 0xfffUL) << 16);`
251			`mc_cur_facility = $3;`
252			`}`
253			`;`
254
255			`symbol: MCSYMBOLICNAME '=' MCIDENT`
256			`{`
257			`mc_last_symbol = $3;`
258			`}`
259			`;`
260
261			`lang_entities:`
262			`lang_entity`
263			`\| lang_entities lang_entity`
264			`;`
265
266			`lang_entity:`
267			`lang lex_want_line lines MCENDLINE`
268			`{`
269			`mc_node_lang *h;`
270			`h = mc_add_node_lang (cur_node, $1, cur_node->vid);`
271			`h->message = $3;`
272			`if (mcset_max_message_length != 0 && unichar_len (h->message) > mcset_max_message_length)`
273			`mc_warn ("message length to long");`
274			`}`
275			`;`
276
277			`lines: MCLINE`
278			`{`
279			`$$ = $1;`
280			`}`
281			`\| lines MCLINE`
282			`{`
283			`unichar *h;`
284			`rc_uint_type l1,l2;`
285			`l1 = unichar_len ($1);`
286			`l2 = unichar_len ($2);`
287			`h = (unichar ) res_alloc ((l1 + l2 + 1) sizeof (unichar));`
288			`if (l1) memcpy (h, $1, l1 * sizeof (unichar));`
289			`if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar));`
290			`h[l1 + l2] = 0;`
291			`$$ = h;`
292			`}`
293			`\| error { mc_fatal ("missing end of message text"); $$ = NULL; }`
294			`\| lines error { mc_fatal ("missing end of message text"); $$ = $1; }`
295			`;`
296
297			`comments: MCCOMMENT { $$ = $1; }`
298			`\| comments MCCOMMENT`
299			`{`
300			`unichar *h;`
301			`rc_uint_type l1,l2;`
302			`l1 = unichar_len ($1);`
303			`l2 = unichar_len ($2);`
304			`h = (unichar ) res_alloc ((l1 + l2 + 1) sizeof (unichar));`
305			`if (l1) memcpy (h, $1, l1 * sizeof (unichar));`
306			`if (l2) memcpy (&h[l1], $2, l2 * sizeof (unichar));`
307			`h[l1 + l2] = 0;`
308			`$$ = h;`
309			`}`
310			`;`
311
312			`lang: MCLANGUAGE lex_want_nl '=' MCTOKEN NL`
313			`{`
314			`$$ = $4;`
315			`}`
316			`\| MCLANGUAGE lex_want_nl '=' MCIDENT NL`
317			`{`
318			`$$ = NULL;`
319			`mc_fatal (_("undeclared language identifier"));`
320			`}`
321			`\| MCLANGUAGE lex_want_nl '=' token error`
322			`{`
323			`$$ = NULL;`
324			`mc_fatal ("missing newline after Language");`
325			`}`
326			`\| MCLANGUAGE lex_want_nl '=' error`
327			`{`
328			`$$ = NULL;`
329			`mc_fatal ("missing ident for Language");`
330			`}`
331			`\| MCLANGUAGE error`
332			`{`
333			`$$ = NULL;`
334			`mc_fatal ("missing '=' for Language");`
335			`}`
336			`;`
337
338			`token: MCIDENT { $$ = $1; }`
339			`\| MCTOKEN { $$ = $1->usz; }`
340			`;`
341
342			`lex_want_nl:`
343			`/* Empty */ { mclex_want_nl = 1; }`
344			`;`
345
346			`lex_want_line:`
347			`/* Empty */ { mclex_want_line = 1; }`
348			`;`
349
350			`lex_want_filename:`
351			`/* Empty */ { mclex_want_filename = 1; }`
352			`;`
353
354			`%%`
355
356			`/* Something else. */`