2 /* Copyright (C) 1991 Free Software Foundation, Inc.
4 This file is part of GLD, the Gnu Linker.
6 GLD is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 1, or (at your option)
11 GLD is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GLD; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
40 #include "ldgram.tab.h"
45 #define input lex_input
46 #define unput lex_unput
50 static boolean ldgram_in_defsym;
51 static boolean ldgram_had_equals;
52 extern boolean ldgram_in_script;
53 static char *command_line;
62 #define RTOKEN(x) { yylval.token = x; return x; }
63 keyword_type keywords[] =
71 "SUBSECTION_ALIGN",SUBSECTION_ALIGN,
75 "ENDSCRIPT", ENDSCRIPT,
80 "SEARCH_DIR",SEARCH_DIR,
84 "CREATE_OBJECT_SYMBOLS",CREATE_OBJECT_SYMBOLS,
85 "FORCE_COMMON_ALLOCATION",FORCE_COMMON_ALLOCATION,
89 "OUTPUT_FORMAT",OUTPUT_FORMAT,
90 "OUTPUT_ARCH", OUTPUT_ARCH,
104 extern boolean hex_mode;
105 FILE *ldlex_input_stack;
106 static unsigned int have_pushback;
109 int pushback[NPUSHBACK];
111 extern char *ldfile_input_filename;
116 if (have_pushback > 0)
119 return thischar = pushback[have_pushback];
121 if (ldlex_input_stack) {
122 thischar = fgetc(ldlex_input_stack);
124 if (thischar == EOF) {
125 fclose(ldlex_input_stack);
126 ldlex_input_stack = (FILE *)NULL;
127 ldfile_input_filename = (char *)NULL;
128 /* First char after script eof is a @ so that we can tell the grammer
134 else if (command_line && *command_line) {
135 thischar = *(command_line++);
140 if(thischar == '\t') thischar = ' ';
141 if (thischar == '\n') { thischar = ' '; lineno++; }
149 if (have_pushback > NPUSHBACK) {
150 info("%F%P Too many pushbacks\n");
153 pushback[have_pushback] = c;
167 fprintf(yyout,"%d",x);
174 fprintf(yyout,"%s",x);
199 for (i= 1; i < ac; i++) {
200 size += strlen(av[i]) + 2;
202 dst = p = (char *)ldmalloc(size + 2);
203 /* Put a space arount each option */
206 for (i =1; i < ac; i++) {
208 unsigned int s = strlen(av[i]);
210 memcpy(dst, av[i], s);
223 DEFUN(number,(default_if_zero,base),
224 int default_if_zero AND
230 base = default_if_zero;
245 case '0': case '1': case '2': case '3': case '4':
246 case '5': case '6': case '7': case '8': case '9':
247 l = l * base + ch - '0';
249 case 'a': case 'b': case 'c' : case 'd' : case 'e': case 'f':
250 l =l *base + ch - 'a' + 10;
252 case 'A': case 'B': case 'C' : case 'D' : case 'E': case 'F':
253 l =l *base + ch - 'A' + 10;
267 FILENAMECHAR [a-zA-Z0-9\/\.\-\_\+\=]
268 FILENAME {FILENAMECHAR}+
274 "\ -defsym\ " { ldgram_in_defsym = true; return OPTION_defsym; }
275 "\ -noinhibit_exec\ " { return OPTION_noinhibit_exec; }
276 "\ -format\ " { return OPTION_format; }
277 "\ -n\ " { return OPTION_n; }
278 "\ -r\ " { return OPTION_r; }
279 "\ -i\ " { return OPTION_r; }
280 "\ -Ur\ " { return OPTION_Ur; }
281 "\ -o\ " { return OPTION_o; }
282 "\ -g\ " { return OPTION_g; }
283 "\ -e\ " { return OPTION_e; }
284 "\ -b\ " { return OPTION_b; }
285 "\ -dc\ " { return OPTION_dc; }
286 "\ -dp\ " { return OPTION_dp; }
287 "\ -d\ " { return OPTION_d; }
288 "\ -v\ " { return OPTION_v; }
289 "\ -M\ " { return OPTION_M; }
290 "\ -t\ " { return OPTION_t; }
291 "\ -X\ " { return OPTION_X; }
292 "\ -x\ " { return OPTION_x; }
293 "\ -c\ " { return OPTION_c; }
294 "\ -R\ " { return OPTION_R; }
295 "\ -u\ " { return OPTION_u; }
296 "\ -s\ " { return OPTION_s; }
297 "\ -S\ " { return OPTION_S; }
298 "\ -B{FILENAME}\ " { /* Ignored */ }
300 yylval.name = buystring(yytext+3);
305 yylval.name = buystring(yytext+3);
309 yylval.name = ".text";
313 yylval.name = ".data";
317 yylval.name = ".bss";
322 yylval.name = buystring(yytext+3);
337 yylval.name = buystring(yytext+3);
342 if (ldgram_had_equals == true) {
343 ldgram_in_defsym = false;
344 ldgram_had_equals = false;
347 "<<=" { RTOKEN(LSHIFTEQ);}
348 ">>=" { RTOKEN(RSHIFTEQ);}
349 "||" { RTOKEN(OROR);}
354 "<<" { RTOKEN(LSHIFT);}
355 ">>" { RTOKEN(RSHIFT);}
356 "+=" { RTOKEN(PLUSEQ);}
357 "-=" { RTOKEN(MINUSEQ);}
358 "*=" { RTOKEN(MULTEQ);}
359 "/=" { RTOKEN(DIVEQ);}
360 "&=" { RTOKEN(ANDEQ);}
361 "|=" { RTOKEN(OREQ);}
362 "&&" { RTOKEN(ANDAND);}
374 "}" { RTOKEN('}') ; }
396 if (input() == '/') {
399 unput(yytext[yyleng-1]);
405 yylval.name = buystring(yytext+1);
406 yylval.name[yyleng-2] = 0; /* Fry final quote */
412 boolean loop = false;
416 /* If we're in hex mode (only after a -T) then all we can see are numbers
417 hex digit we see will be a number. */
420 return number(16, 16);
423 /* If we're in a defsym then all things starting with a digit are in
426 if (isdigit(yytext[0]) && ldgram_in_defsym) {
427 return number(16,16);
431 /* Otherwise if we're in a script we will parse the numbers
434 if (ldgram_in_script == true && isdigit(yytext[0])) {
438 /* Anywhere not in a script or defsym, an opertor is part of a
439 filename, except / and, which is an operator when on its own */
440 if (ldgram_in_script == true|| ldgram_in_defsym == true) {
443 case '*': RTOKEN('*');
446 ldgram_had_equals = true;
451 if (ldgram_in_defsym) RTOKEN('/');
454 case '+': RTOKEN('+');
455 case '-': RTOKEN('-');
456 case '!': RTOKEN('!');
457 case '~': RTOKEN('~');
462 /* Otherwise this must be a file or a symbol name, and it will continue to be a
463 filename until we get to something strange. In scripts operator looking
464 things are taken to be operators, except /, which will be left
469 if (ldgram_in_defsym == true) {
482 if(ldgram_in_script == true) {
494 if (isalpha(ch) || isdigit(ch) || ch == '.' || ch == '_' ||
495 ch == '/' || ch == '.' || ch == '+' || ch == '-' || ch =='=') {
496 yytext[yyleng++] = ch;
506 for(k = keywords; k ->name != (char *)NULL; k++) {
507 if (strcmp(k->name, yytext)==0) {
508 yylval.token = k->value;
512 yylval.name = buystring(yytext);