1a9fa9459Szrj %option nounput
2a9fa9459Szrj
3a9fa9459Szrj %{
4a9fa9459Szrj
5a9fa9459Szrj /* Copyright (C) 1991-2016 Free Software Foundation, Inc.
6a9fa9459Szrj Written by Steve Chamberlain of Cygnus Support.
7a9fa9459Szrj
8a9fa9459Szrj This file is part of the GNU Binutils.
9a9fa9459Szrj
10a9fa9459Szrj This program is free software; you can redistribute it and/or modify
11a9fa9459Szrj it under the terms of the GNU General Public License as published by
12a9fa9459Szrj the Free Software Foundation; either version 3 of the License, or
13a9fa9459Szrj (at your option) any later version.
14a9fa9459Szrj
15a9fa9459Szrj This program is distributed in the hope that it will be useful,
16a9fa9459Szrj but WITHOUT ANY WARRANTY; without even the implied warranty of
17a9fa9459Szrj MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18a9fa9459Szrj GNU General Public License for more details.
19a9fa9459Szrj
20a9fa9459Szrj You should have received a copy of the GNU General Public License
21a9fa9459Szrj along with this program; if not, write to the Free Software
22a9fa9459Szrj Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
23a9fa9459Szrj MA 02110-1301, USA. */
24a9fa9459Szrj
25*14cfea99Szrj #include "sysdep.h"
26a9fa9459Szrj #include "bfd.h"
27a9fa9459Szrj #include "safe-ctype.h"
28a9fa9459Szrj #include "bfdlink.h"
29a9fa9459Szrj #include "ld.h"
30a9fa9459Szrj #include "ldmisc.h"
31a9fa9459Szrj #include "ldexp.h"
32a9fa9459Szrj #include "ldlang.h"
33a9fa9459Szrj #include <ldgram.h>
34a9fa9459Szrj #include "ldfile.h"
35a9fa9459Szrj #include "ldlex.h"
36a9fa9459Szrj #include "ldmain.h"
37a9fa9459Szrj #include "libiberty.h"
38a9fa9459Szrj
39a9fa9459Szrj /* The type of top-level parser input.
40a9fa9459Szrj yylex and yyparse (indirectly) both check this. */
41a9fa9459Szrj input_type parser_input;
42a9fa9459Szrj
43a9fa9459Szrj /* Line number in the current input file.
44a9fa9459Szrj (FIXME Actually, it doesn't appear to get reset for each file?) */
45a9fa9459Szrj unsigned int lineno = 1;
46a9fa9459Szrj
47a9fa9459Szrj /* The string we are currently lexing, or NULL if we are reading a
48a9fa9459Szrj file. */
49a9fa9459Szrj const char *lex_string = NULL;
50a9fa9459Szrj
51a9fa9459Szrj /* Support for flex reading from more than one input file (stream).
52a9fa9459Szrj `include_stack' is flex's input state for each open file;
53a9fa9459Szrj `file_name_stack' is the file names. `lineno_stack' is the current
54a9fa9459Szrj line numbers.
55a9fa9459Szrj
56a9fa9459Szrj If `include_stack_ptr' is 0, we haven't started reading anything yet.
57a9fa9459Szrj Otherwise, stack elements 0 through `include_stack_ptr - 1' are valid. */
58a9fa9459Szrj
59a9fa9459Szrj #undef YY_INPUT
60a9fa9459Szrj #define YY_INPUT(buf,result,max_size) result = yy_input (buf, max_size)
61a9fa9459Szrj
62a9fa9459Szrj #ifndef YY_NO_UNPUT
63a9fa9459Szrj #define YY_NO_UNPUT
64a9fa9459Szrj #endif
65a9fa9459Szrj
66a9fa9459Szrj #define MAX_INCLUDE_DEPTH 10
67a9fa9459Szrj static YY_BUFFER_STATE include_stack[MAX_INCLUDE_DEPTH];
68a9fa9459Szrj static const char *file_name_stack[MAX_INCLUDE_DEPTH];
69a9fa9459Szrj static unsigned int lineno_stack[MAX_INCLUDE_DEPTH];
70a9fa9459Szrj static unsigned int sysrooted_stack[MAX_INCLUDE_DEPTH];
71a9fa9459Szrj static unsigned int include_stack_ptr = 0;
72a9fa9459Szrj static int vers_node_nesting = 0;
73a9fa9459Szrj
74a9fa9459Szrj static int yy_input (char *, int);
75a9fa9459Szrj static void comment (void);
76a9fa9459Szrj static void lex_warn_invalid (char *where, char *what);
77a9fa9459Szrj
78a9fa9459Szrj /* STATES
79a9fa9459Szrj EXPRESSION definitely in an expression
80a9fa9459Szrj SCRIPT definitely in a script
81a9fa9459Szrj INPUTLIST definitely in a script, a filename-list
82a9fa9459Szrj BOTH either EXPRESSION or SCRIPT
83a9fa9459Szrj DEFSYMEXP in an argument to -defsym
84a9fa9459Szrj MRI in an MRI script
85a9fa9459Szrj VERS_START starting a Sun style mapfile
86a9fa9459Szrj VERS_SCRIPT a Sun style mapfile
87a9fa9459Szrj VERS_NODE a node within a Sun style mapfile
88a9fa9459Szrj */
89a9fa9459Szrj #define RTOKEN(x) { yylval.token = x; return x; }
90a9fa9459Szrj
91a9fa9459Szrj /* Some versions of flex want this. */
92a9fa9459Szrj #ifndef yywrap
yywrap(void)93a9fa9459Szrj int yywrap (void) { return 1; }
94a9fa9459Szrj #endif
95a9fa9459Szrj %}
96a9fa9459Szrj
97a9fa9459Szrj %a 4000
98a9fa9459Szrj %o 5000
99a9fa9459Szrj
100a9fa9459Szrj CMDFILENAMECHAR [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\-\~]
101a9fa9459Szrj CMDFILENAMECHAR1 [_a-zA-Z0-9\/\.\\_\+\$\:\[\]\\\,\=\&\!\<\>\~]
102a9fa9459Szrj FILENAMECHAR1 [_a-zA-Z\/\.\\\$\_\~]
103a9fa9459Szrj SYMBOLCHARN [_a-zA-Z\/\.\\\$\_\~0-9]
104a9fa9459Szrj FILENAMECHAR [_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\\,\~]
105a9fa9459Szrj WILDCHAR [_a-zA-Z0-9\/\.\-\_\+\=\$\:\[\]\\\,\~\?\*\^\!]
106a9fa9459Szrj WHITE [ \t\n\r]+
107a9fa9459Szrj
108a9fa9459Szrj NOCFILENAMECHAR [_a-zA-Z0-9\/\.\-\_\+\$\:\[\]\\\~]
109a9fa9459Szrj
110a9fa9459Szrj V_TAG [.$_a-zA-Z][._a-zA-Z0-9]*
111a9fa9459Szrj V_IDENTIFIER [*?.$_a-zA-Z\[\]\-\!\^\\]([*?.$_a-zA-Z0-9\[\]\-\!\^\\]|::)*
112a9fa9459Szrj
113a9fa9459Szrj %s SCRIPT
114a9fa9459Szrj %s INPUTLIST
115a9fa9459Szrj %s EXPRESSION
116a9fa9459Szrj %s BOTH
117a9fa9459Szrj %s DEFSYMEXP
118a9fa9459Szrj %s MRI
119a9fa9459Szrj %s VERS_START
120a9fa9459Szrj %s VERS_SCRIPT
121a9fa9459Szrj %s VERS_NODE
122a9fa9459Szrj %%
123a9fa9459Szrj
124a9fa9459Szrj if (parser_input != input_selected)
125a9fa9459Szrj {
126a9fa9459Szrj /* The first token of the input determines the initial parser state. */
127a9fa9459Szrj input_type t = parser_input;
128a9fa9459Szrj parser_input = input_selected;
129a9fa9459Szrj switch (t)
130a9fa9459Szrj {
131a9fa9459Szrj case input_script: return INPUT_SCRIPT; break;
132a9fa9459Szrj case input_mri_script: return INPUT_MRI_SCRIPT; break;
133a9fa9459Szrj case input_version_script: return INPUT_VERSION_SCRIPT; break;
134a9fa9459Szrj case input_dynamic_list: return INPUT_DYNAMIC_LIST; break;
135a9fa9459Szrj case input_defsym: return INPUT_DEFSYM; break;
136a9fa9459Szrj default: abort ();
137a9fa9459Szrj }
138a9fa9459Szrj }
139a9fa9459Szrj
140a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,VERS_START,VERS_NODE,VERS_SCRIPT,INPUTLIST>"/*" { comment (); }
141a9fa9459Szrj
142a9fa9459Szrj
143a9fa9459Szrj <DEFSYMEXP>"-" { RTOKEN('-');}
144a9fa9459Szrj <DEFSYMEXP>"+" { RTOKEN('+');}
145a9fa9459Szrj <DEFSYMEXP>{FILENAMECHAR1}{SYMBOLCHARN}* { yylval.name = xstrdup (yytext); return NAME; }
146a9fa9459Szrj <DEFSYMEXP>"=" { RTOKEN('='); }
147a9fa9459Szrj
148a9fa9459Szrj <MRI,EXPRESSION>"$"([0-9A-Fa-f])+ {
149a9fa9459Szrj yylval.integer = bfd_scan_vma (yytext + 1, 0, 16);
150a9fa9459Szrj yylval.bigint.str = NULL;
151a9fa9459Szrj return INT;
152a9fa9459Szrj }
153a9fa9459Szrj
154a9fa9459Szrj <MRI,EXPRESSION>([0-9A-Fa-f])+(H|h|X|x|B|b|O|o|D|d) {
155a9fa9459Szrj int ibase ;
156a9fa9459Szrj switch (yytext[yyleng - 1]) {
157a9fa9459Szrj case 'X':
158a9fa9459Szrj case 'x':
159a9fa9459Szrj case 'H':
160a9fa9459Szrj case 'h':
161a9fa9459Szrj ibase = 16;
162a9fa9459Szrj break;
163a9fa9459Szrj case 'O':
164a9fa9459Szrj case 'o':
165a9fa9459Szrj ibase = 8;
166a9fa9459Szrj break;
167a9fa9459Szrj case 'B':
168a9fa9459Szrj case 'b':
169a9fa9459Szrj ibase = 2;
170a9fa9459Szrj break;
171a9fa9459Szrj default:
172a9fa9459Szrj ibase = 10;
173a9fa9459Szrj }
174a9fa9459Szrj yylval.integer = bfd_scan_vma (yytext, 0,
175a9fa9459Szrj ibase);
176a9fa9459Szrj yylval.bigint.str = NULL;
177a9fa9459Szrj return INT;
178a9fa9459Szrj }
179a9fa9459Szrj <SCRIPT,DEFSYMEXP,MRI,BOTH,EXPRESSION>((("$"|0[xX])([0-9A-Fa-f])+)|(([0-9])+))(M|K|m|k)? {
180a9fa9459Szrj char *s = yytext;
181a9fa9459Szrj int ibase = 0;
182a9fa9459Szrj
183a9fa9459Szrj if (*s == '$')
184a9fa9459Szrj {
185a9fa9459Szrj ++s;
186a9fa9459Szrj ibase = 16;
187a9fa9459Szrj }
188a9fa9459Szrj yylval.integer = bfd_scan_vma (s, 0, ibase);
189a9fa9459Szrj yylval.bigint.str = NULL;
190a9fa9459Szrj if (yytext[yyleng - 1] == 'M'
191a9fa9459Szrj || yytext[yyleng - 1] == 'm')
192a9fa9459Szrj {
193a9fa9459Szrj yylval.integer *= 1024 * 1024;
194a9fa9459Szrj }
195a9fa9459Szrj else if (yytext[yyleng - 1] == 'K'
196a9fa9459Szrj || yytext[yyleng - 1]=='k')
197a9fa9459Szrj {
198a9fa9459Szrj yylval.integer *= 1024;
199a9fa9459Szrj }
200a9fa9459Szrj else if (yytext[0] == '0'
201a9fa9459Szrj && (yytext[1] == 'x'
202a9fa9459Szrj || yytext[1] == 'X'))
203a9fa9459Szrj {
204a9fa9459Szrj yylval.bigint.str = xstrdup (yytext + 2);
205a9fa9459Szrj }
206a9fa9459Szrj return INT;
207a9fa9459Szrj }
208a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"]" { RTOKEN(']');}
209a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"[" { RTOKEN('[');}
210a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"<<=" { RTOKEN(LSHIFTEQ);}
211a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>">>=" { RTOKEN(RSHIFTEQ);}
212a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"||" { RTOKEN(OROR);}
213a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"==" { RTOKEN(EQ);}
214a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"!=" { RTOKEN(NE);}
215a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>">=" { RTOKEN(GE);}
216a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"<=" { RTOKEN(LE);}
217a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"<<" { RTOKEN(LSHIFT);}
218a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>">>" { RTOKEN(RSHIFT);}
219a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"+=" { RTOKEN(PLUSEQ);}
220a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"-=" { RTOKEN(MINUSEQ);}
221a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"*=" { RTOKEN(MULTEQ);}
222a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"/=" { RTOKEN(DIVEQ);}
223a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"&=" { RTOKEN(ANDEQ);}
224a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"|=" { RTOKEN(OREQ);}
225a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"&&" { RTOKEN(ANDAND);}
226a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>">" { RTOKEN('>');}
227a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI,INPUTLIST>"," { RTOKEN(',');}
228a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"&" { RTOKEN('&');}
229a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"|" { RTOKEN('|');}
230a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"~" { RTOKEN('~');}
231a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"!" { RTOKEN('!');}
232a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"?" { RTOKEN('?');}
233a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"*" { RTOKEN('*');}
234a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"+" { RTOKEN('+');}
235a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"-" { RTOKEN('-');}
236a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"/" { RTOKEN('/');}
237a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"%" { RTOKEN('%');}
238a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"<" { RTOKEN('<');}
239a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"=" { RTOKEN('=');}
240a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"}" { RTOKEN('}') ; }
241a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>"{" { RTOKEN('{'); }
242a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI,INPUTLIST>")" { RTOKEN(')');}
243a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI,INPUTLIST>"(" { RTOKEN('(');}
244a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>":" { RTOKEN(':'); }
245a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION,MRI>";" { RTOKEN(';');}
246a9fa9459Szrj <BOTH,SCRIPT>"MEMORY" { RTOKEN(MEMORY);}
247a9fa9459Szrj <BOTH,SCRIPT>"REGION_ALIAS" { RTOKEN(REGION_ALIAS);}
248a9fa9459Szrj <BOTH,SCRIPT>"LD_FEATURE" { RTOKEN(LD_FEATURE);}
249a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION>"ORIGIN" { RTOKEN(ORIGIN);}
250a9fa9459Szrj <BOTH,SCRIPT>"VERSION" { RTOKEN(VERSIONK);}
251a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"BLOCK" { RTOKEN(BLOCK);}
252a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"BIND" { RTOKEN(BIND);}
253a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION>"LENGTH" { RTOKEN(LENGTH);}
254a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ALIGN" { RTOKEN(ALIGN_K);}
255a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"DATA_SEGMENT_ALIGN" { RTOKEN(DATA_SEGMENT_ALIGN);}
256a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"DATA_SEGMENT_RELRO_END" { RTOKEN(DATA_SEGMENT_RELRO_END);}
257a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"DATA_SEGMENT_END" { RTOKEN(DATA_SEGMENT_END);}
258a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ADDR" { RTOKEN(ADDR);}
259a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"LOADADDR" { RTOKEN(LOADADDR);}
260a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ALIGNOF" { RTOKEN(ALIGNOF); }
261a9fa9459Szrj <EXPRESSION,BOTH>"MAX" { RTOKEN(MAX_K); }
262a9fa9459Szrj <EXPRESSION,BOTH>"MIN" { RTOKEN(MIN_K); }
263a9fa9459Szrj <EXPRESSION,BOTH>"LOG2CEIL" { RTOKEN(LOG2CEIL); }
264a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ASSERT" { RTOKEN(ASSERT_K); }
265a9fa9459Szrj <BOTH,SCRIPT>"ENTRY" { RTOKEN(ENTRY);}
266a9fa9459Szrj <BOTH,SCRIPT,MRI>"EXTERN" { RTOKEN(EXTERN);}
267a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"NEXT" { RTOKEN(NEXT);}
268a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"sizeof_headers" { RTOKEN(SIZEOF_HEADERS);}
269a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"SIZEOF_HEADERS" { RTOKEN(SIZEOF_HEADERS);}
270a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"SEGMENT_START" { RTOKEN(SEGMENT_START);}
271a9fa9459Szrj <BOTH,SCRIPT>"MAP" { RTOKEN(MAP);}
272a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"SIZEOF" { RTOKEN(SIZEOF);}
273a9fa9459Szrj <BOTH,SCRIPT>"TARGET" { RTOKEN(TARGET_K);}
274a9fa9459Szrj <BOTH,SCRIPT>"SEARCH_DIR" { RTOKEN(SEARCH_DIR);}
275a9fa9459Szrj <BOTH,SCRIPT>"OUTPUT" { RTOKEN(OUTPUT);}
276a9fa9459Szrj <BOTH,SCRIPT>"INPUT" { RTOKEN(INPUT);}
277a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"GROUP" { RTOKEN(GROUP);}
278a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT,INPUTLIST>"AS_NEEDED" { RTOKEN(AS_NEEDED);}
279a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"DEFINED" { RTOKEN(DEFINED);}
280a9fa9459Szrj <BOTH,SCRIPT>"CREATE_OBJECT_SYMBOLS" { RTOKEN(CREATE_OBJECT_SYMBOLS);}
281a9fa9459Szrj <BOTH,SCRIPT>"CONSTRUCTORS" { RTOKEN( CONSTRUCTORS);}
282a9fa9459Szrj <BOTH,SCRIPT>"FORCE_COMMON_ALLOCATION" { RTOKEN(FORCE_COMMON_ALLOCATION);}
283a9fa9459Szrj <BOTH,SCRIPT>"INHIBIT_COMMON_ALLOCATION" { RTOKEN(INHIBIT_COMMON_ALLOCATION);}
284a9fa9459Szrj <BOTH,SCRIPT>"SECTIONS" { RTOKEN(SECTIONS);}
285a9fa9459Szrj <BOTH,SCRIPT>"INSERT" { RTOKEN(INSERT_K);}
286a9fa9459Szrj <BOTH,SCRIPT>"AFTER" { RTOKEN(AFTER);}
287a9fa9459Szrj <BOTH,SCRIPT>"BEFORE" { RTOKEN(BEFORE);}
288a9fa9459Szrj <BOTH,SCRIPT>"FILL" { RTOKEN(FILL);}
289a9fa9459Szrj <BOTH,SCRIPT>"STARTUP" { RTOKEN(STARTUP);}
290a9fa9459Szrj <BOTH,SCRIPT>"OUTPUT_FORMAT" { RTOKEN(OUTPUT_FORMAT);}
291a9fa9459Szrj <BOTH,SCRIPT>"OUTPUT_ARCH" { RTOKEN( OUTPUT_ARCH);}
292a9fa9459Szrj <BOTH,SCRIPT>"HLL" { RTOKEN(HLL);}
293a9fa9459Szrj <BOTH,SCRIPT>"SYSLIB" { RTOKEN(SYSLIB);}
294a9fa9459Szrj <BOTH,SCRIPT>"FLOAT" { RTOKEN(FLOAT);}
295a9fa9459Szrj <BOTH,SCRIPT>"QUAD" { RTOKEN( QUAD);}
296a9fa9459Szrj <BOTH,SCRIPT>"SQUAD" { RTOKEN( SQUAD);}
297a9fa9459Szrj <BOTH,SCRIPT>"LONG" { RTOKEN( LONG);}
298a9fa9459Szrj <BOTH,SCRIPT>"SHORT" { RTOKEN( SHORT);}
299a9fa9459Szrj <BOTH,SCRIPT>"BYTE" { RTOKEN( BYTE);}
300a9fa9459Szrj <BOTH,SCRIPT>"NOFLOAT" { RTOKEN(NOFLOAT);}
301a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"NOCROSSREFS" { RTOKEN(NOCROSSREFS);}
302a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"NOCROSSREFS_TO" { RTOKEN(NOCROSSREFS_TO);}
303a9fa9459Szrj <BOTH,SCRIPT>"OVERLAY" { RTOKEN(OVERLAY); }
304a9fa9459Szrj <BOTH,SCRIPT>"SORT_BY_NAME" { RTOKEN(SORT_BY_NAME); }
305a9fa9459Szrj <BOTH,SCRIPT>"SORT_BY_ALIGNMENT" { RTOKEN(SORT_BY_ALIGNMENT); }
306a9fa9459Szrj <BOTH,SCRIPT>"SORT" { RTOKEN(SORT_BY_NAME); }
307a9fa9459Szrj <BOTH,SCRIPT>"SORT_BY_INIT_PRIORITY" { RTOKEN(SORT_BY_INIT_PRIORITY); }
308a9fa9459Szrj <BOTH,SCRIPT>"SORT_NONE" { RTOKEN(SORT_NONE); }
309a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"NOLOAD" { RTOKEN(NOLOAD);}
310a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"DSECT" { RTOKEN(DSECT);}
311a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"COPY" { RTOKEN(COPY);}
312a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"INFO" { RTOKEN(INFO);}
313a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"OVERLAY" { RTOKEN(OVERLAY);}
314a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ONLY_IF_RO" { RTOKEN(ONLY_IF_RO); }
315a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ONLY_IF_RW" { RTOKEN(ONLY_IF_RW); }
316a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"SPECIAL" { RTOKEN(SPECIAL); }
317a9fa9459Szrj <BOTH,SCRIPT>"o" { RTOKEN(ORIGIN);}
318a9fa9459Szrj <BOTH,SCRIPT>"org" { RTOKEN(ORIGIN);}
319a9fa9459Szrj <BOTH,SCRIPT>"l" { RTOKEN( LENGTH);}
320a9fa9459Szrj <BOTH,SCRIPT>"len" { RTOKEN( LENGTH);}
321a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"INPUT_SECTION_FLAGS" { RTOKEN(INPUT_SECTION_FLAGS); }
322a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"INCLUDE" { RTOKEN(INCLUDE);}
323a9fa9459Szrj <BOTH,SCRIPT>"PHDRS" { RTOKEN (PHDRS); }
324a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"AT" { RTOKEN(AT);}
325a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"ALIGN_WITH_INPUT" { RTOKEN(ALIGN_WITH_INPUT);}
326a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"SUBALIGN" { RTOKEN(SUBALIGN);}
327a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"HIDDEN" { RTOKEN(HIDDEN); }
328a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"PROVIDE" { RTOKEN(PROVIDE); }
329a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"PROVIDE_HIDDEN" { RTOKEN(PROVIDE_HIDDEN); }
330a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"KEEP" { RTOKEN(KEEP); }
331a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"EXCLUDE_FILE" { RTOKEN(EXCLUDE_FILE); }
332a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT>"CONSTANT" { RTOKEN(CONSTANT);}
333a9fa9459Szrj <MRI>"#".*\n? { ++ lineno; }
334a9fa9459Szrj <MRI>"\n" { ++ lineno; RTOKEN(NEWLINE); }
335a9fa9459Szrj <MRI>"*".* { /* Mri comment line */ }
336a9fa9459Szrj <MRI>";".* { /* Mri comment line */ }
337a9fa9459Szrj <MRI>"END" { RTOKEN(ENDWORD); }
338a9fa9459Szrj <MRI>"ALIGNMOD" { RTOKEN(ALIGNMOD);}
339a9fa9459Szrj <MRI>"ALIGN" { RTOKEN(ALIGN_K);}
340a9fa9459Szrj <MRI>"CHIP" { RTOKEN(CHIP); }
341a9fa9459Szrj <MRI>"BASE" { RTOKEN(BASE); }
342a9fa9459Szrj <MRI>"ALIAS" { RTOKEN(ALIAS); }
343a9fa9459Szrj <MRI>"TRUNCATE" { RTOKEN(TRUNCATE); }
344a9fa9459Szrj <MRI>"LOAD" { RTOKEN(LOAD); }
345a9fa9459Szrj <MRI>"PUBLIC" { RTOKEN(PUBLIC); }
346a9fa9459Szrj <MRI>"ORDER" { RTOKEN(ORDER); }
347a9fa9459Szrj <MRI>"NAME" { RTOKEN(NAMEWORD); }
348a9fa9459Szrj <MRI>"FORMAT" { RTOKEN(FORMAT); }
349a9fa9459Szrj <MRI>"CASE" { RTOKEN(CASE); }
350a9fa9459Szrj <MRI>"START" { RTOKEN(START); }
351a9fa9459Szrj <MRI>"LIST".* { RTOKEN(LIST); /* LIST and ignore to end of line */ }
352a9fa9459Szrj <MRI>"SECT" { RTOKEN(SECT); }
353a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT,MRI>"ABSOLUTE" { RTOKEN(ABSOLUTE); }
354a9fa9459Szrj <MRI>"end" { RTOKEN(ENDWORD); }
355a9fa9459Szrj <MRI>"alignmod" { RTOKEN(ALIGNMOD);}
356a9fa9459Szrj <MRI>"align" { RTOKEN(ALIGN_K);}
357a9fa9459Szrj <MRI>"chip" { RTOKEN(CHIP); }
358a9fa9459Szrj <MRI>"base" { RTOKEN(BASE); }
359a9fa9459Szrj <MRI>"alias" { RTOKEN(ALIAS); }
360a9fa9459Szrj <MRI>"truncate" { RTOKEN(TRUNCATE); }
361a9fa9459Szrj <MRI>"load" { RTOKEN(LOAD); }
362a9fa9459Szrj <MRI>"public" { RTOKEN(PUBLIC); }
363a9fa9459Szrj <MRI>"order" { RTOKEN(ORDER); }
364a9fa9459Szrj <MRI>"name" { RTOKEN(NAMEWORD); }
365a9fa9459Szrj <MRI>"format" { RTOKEN(FORMAT); }
366a9fa9459Szrj <MRI>"case" { RTOKEN(CASE); }
367a9fa9459Szrj <MRI>"extern" { RTOKEN(EXTERN); }
368a9fa9459Szrj <MRI>"start" { RTOKEN(START); }
369a9fa9459Szrj <MRI>"list".* { RTOKEN(LIST); /* LIST and ignore to end of line */ }
370a9fa9459Szrj <MRI>"sect" { RTOKEN(SECT); }
371a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT,MRI>"absolute" { RTOKEN(ABSOLUTE); }
372a9fa9459Szrj
373a9fa9459Szrj <MRI>{FILENAMECHAR1}{NOCFILENAMECHAR}* {
374a9fa9459Szrj /* Filename without commas, needed to parse mri stuff */
375a9fa9459Szrj yylval.name = xstrdup (yytext);
376a9fa9459Szrj return NAME;
377a9fa9459Szrj }
378a9fa9459Szrj
379a9fa9459Szrj
380a9fa9459Szrj <BOTH,INPUTLIST>{FILENAMECHAR1}{FILENAMECHAR}* {
381a9fa9459Szrj yylval.name = xstrdup (yytext);
382a9fa9459Szrj return NAME;
383a9fa9459Szrj }
384a9fa9459Szrj <INPUTLIST>"="{FILENAMECHAR1}{FILENAMECHAR}* {
385a9fa9459Szrj /* Filename to be prefixed by --sysroot or when non-sysrooted, nothing. */
386a9fa9459Szrj yylval.name = xstrdup (yytext);
387a9fa9459Szrj return NAME;
388a9fa9459Szrj }
389a9fa9459Szrj <BOTH,INPUTLIST>"-l"{FILENAMECHAR}+ {
390a9fa9459Szrj yylval.name = xstrdup (yytext + 2);
391a9fa9459Szrj return LNAME;
392a9fa9459Szrj }
393a9fa9459Szrj <EXPRESSION>{FILENAMECHAR1}{NOCFILENAMECHAR}* {
394a9fa9459Szrj yylval.name = xstrdup (yytext);
395a9fa9459Szrj return NAME;
396a9fa9459Szrj }
397a9fa9459Szrj <EXPRESSION>"-l"{NOCFILENAMECHAR}+ {
398a9fa9459Szrj yylval.name = xstrdup (yytext + 2);
399a9fa9459Szrj return LNAME;
400a9fa9459Szrj }
401a9fa9459Szrj <SCRIPT>{WILDCHAR}* {
402a9fa9459Szrj /* Annoyingly, this pattern can match comments, and we have
403a9fa9459Szrj longest match issues to consider. So if the first two
404a9fa9459Szrj characters are a comment opening, put the input back and
405a9fa9459Szrj try again. */
406a9fa9459Szrj if (yytext[0] == '/' && yytext[1] == '*')
407a9fa9459Szrj {
408a9fa9459Szrj yyless (2);
409a9fa9459Szrj comment ();
410a9fa9459Szrj }
411a9fa9459Szrj else
412a9fa9459Szrj {
413a9fa9459Szrj yylval.name = xstrdup (yytext);
414a9fa9459Szrj return NAME;
415a9fa9459Szrj }
416a9fa9459Szrj }
417a9fa9459Szrj
418a9fa9459Szrj <EXPRESSION,BOTH,SCRIPT,VERS_NODE,INPUTLIST>"\""[^\"]*"\"" {
419a9fa9459Szrj /* No matter the state, quotes
420a9fa9459Szrj give what's inside */
421a9fa9459Szrj yylval.name = xstrdup (yytext + 1);
422a9fa9459Szrj yylval.name[yyleng - 2] = 0;
423a9fa9459Szrj return NAME;
424a9fa9459Szrj }
425a9fa9459Szrj <BOTH,SCRIPT,EXPRESSION>"\n" { lineno++;}
426a9fa9459Szrj <MRI,BOTH,SCRIPT,EXPRESSION>[ \t\r]+ { }
427a9fa9459Szrj
428a9fa9459Szrj <VERS_NODE,VERS_SCRIPT>[:,;] { return *yytext; }
429a9fa9459Szrj
430a9fa9459Szrj <VERS_NODE>global { RTOKEN(GLOBAL); }
431a9fa9459Szrj
432a9fa9459Szrj <VERS_NODE>local { RTOKEN(LOCAL); }
433a9fa9459Szrj
434a9fa9459Szrj <VERS_NODE>extern { RTOKEN(EXTERN); }
435a9fa9459Szrj
436a9fa9459Szrj <VERS_NODE>{V_IDENTIFIER} { yylval.name = xstrdup (yytext);
437a9fa9459Szrj return VERS_IDENTIFIER; }
438a9fa9459Szrj
439a9fa9459Szrj <VERS_SCRIPT>{V_TAG} { yylval.name = xstrdup (yytext);
440a9fa9459Szrj return VERS_TAG; }
441a9fa9459Szrj
442a9fa9459Szrj <VERS_START>"{" { BEGIN(VERS_SCRIPT); return *yytext; }
443a9fa9459Szrj
444a9fa9459Szrj <VERS_SCRIPT>"{" { BEGIN(VERS_NODE);
445a9fa9459Szrj vers_node_nesting = 0;
446a9fa9459Szrj return *yytext;
447a9fa9459Szrj }
448a9fa9459Szrj <VERS_SCRIPT>"}" { return *yytext; }
449a9fa9459Szrj <VERS_NODE>"{" { vers_node_nesting++; return *yytext; }
450a9fa9459Szrj <VERS_NODE>"}" { if (--vers_node_nesting < 0)
451a9fa9459Szrj BEGIN(VERS_SCRIPT);
452a9fa9459Szrj return *yytext;
453a9fa9459Szrj }
454a9fa9459Szrj
455a9fa9459Szrj <VERS_START,VERS_NODE,VERS_SCRIPT,INPUTLIST>[\n] { lineno++; }
456a9fa9459Szrj
457a9fa9459Szrj <VERS_START,VERS_NODE,VERS_SCRIPT>#.* { /* Eat up comments */ }
458a9fa9459Szrj
459a9fa9459Szrj <VERS_START,VERS_NODE,VERS_SCRIPT,INPUTLIST>[ \t\r]+ { /* Eat up whitespace */ }
460a9fa9459Szrj
461a9fa9459Szrj <<EOF>> {
462a9fa9459Szrj include_stack_ptr--;
463a9fa9459Szrj if (include_stack_ptr == 0)
464a9fa9459Szrj yyterminate ();
465a9fa9459Szrj else
466a9fa9459Szrj yy_switch_to_buffer (include_stack[include_stack_ptr]);
467a9fa9459Szrj
468a9fa9459Szrj lineno = lineno_stack[include_stack_ptr];
469a9fa9459Szrj input_flags.sysrooted = sysrooted_stack[include_stack_ptr];
470a9fa9459Szrj
471a9fa9459Szrj return END;
472a9fa9459Szrj }
473a9fa9459Szrj
474a9fa9459Szrj <SCRIPT,MRI,VERS_START,VERS_SCRIPT,VERS_NODE>. lex_warn_invalid (" in script", yytext);
475a9fa9459Szrj <EXPRESSION,DEFSYMEXP,BOTH>. lex_warn_invalid (" in expression", yytext);
476a9fa9459Szrj
477a9fa9459Szrj %%
478a9fa9459Szrj
479a9fa9459Szrj
480a9fa9459Szrj /* Switch flex to reading script file NAME, open on FILE,
481a9fa9459Szrj saving the current input info on the include stack. */
482a9fa9459Szrj
483a9fa9459Szrj void
484a9fa9459Szrj lex_push_file (FILE *file, const char *name, unsigned int sysrooted)
485a9fa9459Szrj {
486a9fa9459Szrj if (include_stack_ptr >= MAX_INCLUDE_DEPTH)
487a9fa9459Szrj {
488a9fa9459Szrj einfo ("%F:includes nested too deeply\n");
489a9fa9459Szrj }
490a9fa9459Szrj file_name_stack[include_stack_ptr] = name;
491a9fa9459Szrj lineno_stack[include_stack_ptr] = lineno;
492a9fa9459Szrj sysrooted_stack[include_stack_ptr] = input_flags.sysrooted;
493a9fa9459Szrj include_stack[include_stack_ptr] = YY_CURRENT_BUFFER;
494a9fa9459Szrj
495a9fa9459Szrj include_stack_ptr++;
496a9fa9459Szrj lineno = 1;
497a9fa9459Szrj input_flags.sysrooted = sysrooted;
498a9fa9459Szrj yyin = file;
499a9fa9459Szrj yy_switch_to_buffer (yy_create_buffer (yyin, YY_BUF_SIZE));
500a9fa9459Szrj }
501a9fa9459Szrj
502a9fa9459Szrj /* Return a newly created flex input buffer containing STRING,
503a9fa9459Szrj which is SIZE bytes long. */
504a9fa9459Szrj
505a9fa9459Szrj static YY_BUFFER_STATE
506a9fa9459Szrj yy_create_string_buffer (const char *string, size_t size)
507a9fa9459Szrj {
508a9fa9459Szrj YY_BUFFER_STATE b;
509a9fa9459Szrj
510a9fa9459Szrj /* Calls to m-alloc get turned by sed into xm-alloc. */
511a9fa9459Szrj b = malloc (sizeof (struct yy_buffer_state));
512a9fa9459Szrj b->yy_input_file = 0;
513a9fa9459Szrj b->yy_buf_size = size;
514a9fa9459Szrj
515a9fa9459Szrj /* yy_ch_buf has to be 2 characters longer than the size given because
516a9fa9459Szrj we need to put in 2 end-of-buffer characters. */
517a9fa9459Szrj b->yy_ch_buf = malloc ((unsigned) (b->yy_buf_size + 3));
518a9fa9459Szrj
519a9fa9459Szrj b->yy_ch_buf[0] = '\n';
520a9fa9459Szrj strcpy (b->yy_ch_buf+1, string);
521a9fa9459Szrj b->yy_ch_buf[size+1] = YY_END_OF_BUFFER_CHAR;
522a9fa9459Szrj b->yy_ch_buf[size+2] = YY_END_OF_BUFFER_CHAR;
523a9fa9459Szrj b->yy_n_chars = size+1;
524a9fa9459Szrj b->yy_buf_pos = &b->yy_ch_buf[1];
525a9fa9459Szrj
526a9fa9459Szrj b->yy_is_our_buffer = 1;
527a9fa9459Szrj b->yy_is_interactive = 0;
528a9fa9459Szrj b->yy_at_bol = 1;
529a9fa9459Szrj b->yy_fill_buffer = 0;
530a9fa9459Szrj
531a9fa9459Szrj /* flex 2.4.7 changed the interface. FIXME: We should not be using
532a9fa9459Szrj a flex internal interface in the first place! */
533a9fa9459Szrj #ifdef YY_BUFFER_NEW
534a9fa9459Szrj b->yy_buffer_status = YY_BUFFER_NEW;
535a9fa9459Szrj #else
536a9fa9459Szrj b->yy_eof_status = EOF_NOT_SEEN;
537a9fa9459Szrj #endif
538a9fa9459Szrj
539a9fa9459Szrj return b;
540a9fa9459Szrj }
541a9fa9459Szrj
542a9fa9459Szrj /* Switch flex to reading from STRING, saving the current input info
543a9fa9459Szrj on the include stack. */
544a9fa9459Szrj
545a9fa9459Szrj void
546a9fa9459Szrj lex_redirect (const char *string, const char *fake_filename, unsigned int count)
547a9fa9459Szrj {
548a9fa9459Szrj YY_BUFFER_STATE tmp;
549a9fa9459Szrj
550a9fa9459Szrj yy_init = 0;
551a9fa9459Szrj if (include_stack_ptr >= MAX_INCLUDE_DEPTH)
552a9fa9459Szrj {
553a9fa9459Szrj einfo("%F: macros nested too deeply\n");
554a9fa9459Szrj }
555a9fa9459Szrj file_name_stack[include_stack_ptr] = fake_filename;
556a9fa9459Szrj lineno_stack[include_stack_ptr] = lineno;
557a9fa9459Szrj include_stack[include_stack_ptr] = YY_CURRENT_BUFFER;
558a9fa9459Szrj include_stack_ptr++;
559a9fa9459Szrj lineno = count;
560a9fa9459Szrj tmp = yy_create_string_buffer (string, strlen (string));
561a9fa9459Szrj yy_switch_to_buffer (tmp);
562a9fa9459Szrj }
563a9fa9459Szrj
564a9fa9459Szrj /* Functions to switch to a different flex start condition,
565a9fa9459Szrj saving the current start condition on `state_stack'. */
566a9fa9459Szrj
567a9fa9459Szrj static int state_stack[MAX_INCLUDE_DEPTH * 2];
568a9fa9459Szrj static int *state_stack_p = state_stack;
569a9fa9459Szrj
570a9fa9459Szrj void
571a9fa9459Szrj ldlex_script (void)
572a9fa9459Szrj {
573a9fa9459Szrj *(state_stack_p)++ = yy_start;
574a9fa9459Szrj BEGIN (SCRIPT);
575a9fa9459Szrj }
576a9fa9459Szrj
577a9fa9459Szrj void
578a9fa9459Szrj ldlex_inputlist (void)
579a9fa9459Szrj {
580a9fa9459Szrj *(state_stack_p)++ = yy_start;
581a9fa9459Szrj BEGIN (INPUTLIST);
582a9fa9459Szrj }
583a9fa9459Szrj
584a9fa9459Szrj void
585a9fa9459Szrj ldlex_mri_script (void)
586a9fa9459Szrj {
587a9fa9459Szrj *(state_stack_p)++ = yy_start;
588a9fa9459Szrj BEGIN (MRI);
589a9fa9459Szrj }
590a9fa9459Szrj
591a9fa9459Szrj void
592a9fa9459Szrj ldlex_version_script (void)
593a9fa9459Szrj {
594a9fa9459Szrj *(state_stack_p)++ = yy_start;
595a9fa9459Szrj BEGIN (VERS_START);
596a9fa9459Szrj }
597a9fa9459Szrj
598a9fa9459Szrj void
599a9fa9459Szrj ldlex_version_file (void)
600a9fa9459Szrj {
601a9fa9459Szrj *(state_stack_p)++ = yy_start;
602a9fa9459Szrj BEGIN (VERS_SCRIPT);
603a9fa9459Szrj }
604a9fa9459Szrj
605a9fa9459Szrj void
606a9fa9459Szrj ldlex_defsym (void)
607a9fa9459Szrj {
608a9fa9459Szrj *(state_stack_p)++ = yy_start;
609a9fa9459Szrj BEGIN (DEFSYMEXP);
610a9fa9459Szrj }
611a9fa9459Szrj
612a9fa9459Szrj void
613a9fa9459Szrj ldlex_expression (void)
614a9fa9459Szrj {
615a9fa9459Szrj *(state_stack_p)++ = yy_start;
616a9fa9459Szrj BEGIN (EXPRESSION);
617a9fa9459Szrj }
618a9fa9459Szrj
619a9fa9459Szrj void
620a9fa9459Szrj ldlex_both (void)
621a9fa9459Szrj {
622a9fa9459Szrj *(state_stack_p)++ = yy_start;
623a9fa9459Szrj BEGIN (BOTH);
624a9fa9459Szrj }
625a9fa9459Szrj
626a9fa9459Szrj void
627a9fa9459Szrj ldlex_popstate (void)
628a9fa9459Szrj {
629a9fa9459Szrj yy_start = *(--state_stack_p);
630a9fa9459Szrj }
631a9fa9459Szrj
632a9fa9459Szrj /* Return the current file name, or the previous file if no file is
633a9fa9459Szrj current. */
634a9fa9459Szrj
635a9fa9459Szrj const char*
636a9fa9459Szrj ldlex_filename (void)
637a9fa9459Szrj {
638a9fa9459Szrj return file_name_stack[include_stack_ptr - (include_stack_ptr != 0)];
639a9fa9459Szrj }
640a9fa9459Szrj
641a9fa9459Szrj
642a9fa9459Szrj /* Place up to MAX_SIZE characters in BUF and return
643a9fa9459Szrj either the number of characters read, or 0 to indicate EOF. */
644a9fa9459Szrj
645a9fa9459Szrj static int
646a9fa9459Szrj yy_input (char *buf, int max_size)
647a9fa9459Szrj {
648a9fa9459Szrj int result = 0;
649a9fa9459Szrj if (YY_CURRENT_BUFFER->yy_input_file)
650a9fa9459Szrj {
651a9fa9459Szrj if (yyin)
652a9fa9459Szrj {
653a9fa9459Szrj result = fread (buf, 1, max_size, yyin);
654a9fa9459Szrj if (result < max_size && ferror (yyin))
655a9fa9459Szrj einfo ("%F%P: read in flex scanner failed\n");
656a9fa9459Szrj }
657a9fa9459Szrj }
658a9fa9459Szrj return result;
659a9fa9459Szrj }
660a9fa9459Szrj
661a9fa9459Szrj /* Eat the rest of a C-style comment. */
662a9fa9459Szrj
663a9fa9459Szrj static void
664a9fa9459Szrj comment (void)
665a9fa9459Szrj {
666a9fa9459Szrj int c;
667a9fa9459Szrj
668a9fa9459Szrj while (1)
669a9fa9459Szrj {
670a9fa9459Szrj c = input();
671a9fa9459Szrj while (c != '*' && c != EOF)
672a9fa9459Szrj {
673a9fa9459Szrj if (c == '\n')
674a9fa9459Szrj lineno++;
675a9fa9459Szrj c = input();
676a9fa9459Szrj }
677a9fa9459Szrj
678a9fa9459Szrj if (c == '*')
679a9fa9459Szrj {
680a9fa9459Szrj c = input();
681a9fa9459Szrj while (c == '*')
682a9fa9459Szrj c = input();
683a9fa9459Szrj if (c == '/')
684a9fa9459Szrj break; /* found the end */
685a9fa9459Szrj }
686a9fa9459Szrj
687a9fa9459Szrj if (c == '\n')
688a9fa9459Szrj lineno++;
689a9fa9459Szrj
690a9fa9459Szrj if (c == EOF)
691a9fa9459Szrj {
692a9fa9459Szrj einfo( "%F%P: EOF in comment\n");
693a9fa9459Szrj break;
694a9fa9459Szrj }
695a9fa9459Szrj }
696a9fa9459Szrj }
697a9fa9459Szrj
698a9fa9459Szrj /* Warn the user about a garbage character WHAT in the input
699a9fa9459Szrj in context WHERE. */
700a9fa9459Szrj
701a9fa9459Szrj static void
702a9fa9459Szrj lex_warn_invalid (char *where, char *what)
703a9fa9459Szrj {
704a9fa9459Szrj char buf[5];
705a9fa9459Szrj
706a9fa9459Szrj /* If we have found an input file whose format we do not recognize,
707a9fa9459Szrj and we are therefore treating it as a linker script, and we find
708a9fa9459Szrj an invalid character, then most likely this is a real object file
709a9fa9459Szrj of some different format. Treat it as such. */
710a9fa9459Szrj if (ldfile_assumed_script)
711a9fa9459Szrj {
712a9fa9459Szrj bfd_set_error (bfd_error_file_not_recognized);
713a9fa9459Szrj einfo ("%F%s: file not recognized: %E\n", ldlex_filename ());
714a9fa9459Szrj }
715a9fa9459Szrj
716a9fa9459Szrj if (! ISPRINT (*what))
717a9fa9459Szrj {
718a9fa9459Szrj sprintf (buf, "\\%03o", *(unsigned char *) what);
719a9fa9459Szrj what = buf;
720a9fa9459Szrj }
721a9fa9459Szrj
722a9fa9459Szrj einfo ("%P:%S: ignoring invalid character `%s'%s\n", NULL, what, where);
723a9fa9459Szrj }
724