%{ /* SPIM S20 MIPS simulator. Lexical scanner. Copyright (C) 1990-1994 by James Larus (larus@cs.wisc.edu). ALL RIGHTS RESERVED. SPIM is distributed under the following conditions: You may make copies of SPIM for your own use and modify those copies. All copies of SPIM must retain my name and copyright notice. You may not sell SPIM or distributed SPIM in conjunction with a commerical product or service without the expressed written consent of James Larus. THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. */ /* $Header: /home/primost/larus/Software/SPIM/RCS/scanner.l,v 1.37 1994/01/18 03:21:45 larus Exp larus $ */ #include "spim.h" #include "spim-utils.h" #include "inst.h" #include "sym-tbl.h" #include "y.tab.h" #include "parser.h" #include "scanner.h" #ifndef YY_CHAR #define YY_CHAR char #endif /* Exported Variables: */ int only_id; int yylval; /* Value of token from YYLEX */ int line_no; /* Line number in input file*/ int y_str_length; /* Length of Y_STR */ /* Local Variables: */ /* Track which line we are reading and where it began in the buffer. */ static YY_CHAR *line_start = NULL; static double scan_float; /* Where FP values are kept */ static int line_returned = 0; /* Returned current line yet? */ /* Local functions: */ #ifdef __STDC__ static int check_keyword (YY_CHAR *id, int allow_pseudo_ops); static YY_CHAR *copy_str (YY_CHAR *str, int chop); #else static int check_keyword (); static YY_CHAR *copy_str (); #endif %} %% [ \t] { if (line_start == NULL) line_start = yytext; } [\n;] { line_no += 1; return (Y_NL); } (-[0-9]+)|([0-9]+) { yylval = atoi (yytext); if (line_start == NULL) line_start = yytext; return (Y_INT); } ((0x)|(-0x))[0-9A-Fa-f]+ { if (*yytext == '-') { sscanf(yytext+3, "%lx", &yylval); yylval = -yylval; } else { sscanf(yytext+2, "%lx", &yylval); } if (line_start == NULL) line_start = yytext; return (Y_INT); } (\+|\-)?[0-9]+\.[0-9]*(e)?(\+|\-)?[0-9]* { scan_float = atof (yytext); yylval = (int) &scan_float; if (line_start == NULL) line_start = yytext; return (Y_FP); } [a-zA-Z_\.][a-zA-Z0-9_\.]* { int token = check_keyword (yytext, !bare_machine); label *l; if (line_start == NULL) line_start = yytext; if (!only_id && token != 0) { yylval = token; line_start = yytext; return (token); } if (only_id && token != 0) yyerror ("Cannot use opcodes as labels"); if ((l = label_is_defined (yytext)) != NULL && l->const_flag) { yylval = (int) l->addr; return (Y_INT); } else { yylval = (int) str_copy (yytext); return (Y_ID); } } \$[a-zA-Z0-9_\.$]+ { int reg_no = register_name_to_number (yytext + 1); if (line_start == NULL) line_start = yytext; if (reg_no != -1 && *(yytext + 1) == 'f' && *(yytext + 2) != 'p') { yylval = reg_no; return (Y_FP_REG); } else if (reg_no < 0 || reg_no > 31) { label *l = label_is_defined (yytext); if (l != NULL && l->const_flag) { yylval = (int) l->addr; return (Y_INT); } else { yylval = (int) str_copy (yytext); return (Y_ID); } } else { yylval = reg_no; return (Y_REG); } } "#".* {if (line_start == NULL) line_start = yytext;} [:()+-]|">"|"=" { if (line_start == NULL) line_start = yytext; return (*yytext); } "," {if (line_start == NULL) line_start = yytext;} "?" { if (line_start == NULL) line_start = yytext; yylval = (int) str_copy (yytext); /* For top level */ return (Y_ID); } \"(([^"])|(\\\"))*\" { if (line_start == NULL) line_start = yytext; yylval = (int) copy_str (yytext + 1, 1); return (Y_STR); } \'(([^'])|(\\[^']))\' { if (line_start == NULL) line_start = yytext; yylval = (int) *(yytext + 1); return (Y_INT); } . { if (line_start == NULL) line_start = yytext; yyerror ("Unknown character"); } %% #ifdef __STDC__ void initialize_scanner (FILE *in_file) #else void initialize_scanner (in_file) FILE *in_file; #endif { yyin = in_file; #ifdef FLEX_SCANNER yy_init = 1; #endif line_no = 1; line_start = NULL; line_returned = 0; } #ifdef __STDC__ void scanner_start_line (void) #else void scanner_start_line () #endif { line_start = NULL; line_returned = 0; } #ifndef FLEX_SCANNER /* We don't use -ll */ int yywrap () {return 1;} #endif /* Return a freshly-allocated copy of STRING with the last CHOP characters removed. */ #ifdef __STDC__ static YY_CHAR * copy_str (YY_CHAR *str, int chop) #else static YY_CHAR * copy_str (str, chop) YY_CHAR *str; int chop; #endif { register int new_len = strlen (str) - chop; register YY_CHAR *new_str = (YY_CHAR *) xmalloc (new_len + 1), *n; for (n = new_str; *str != '\0' && new_len > 0; new_len -= 1) if (*str == '\\') switch (*(str + 1)) { case 'n': { *n ++ = '\n'; str += 2; new_len -= 1; continue; } case 't': { *n ++ = '\t'; str += 2; new_len -= 1; continue; } case '"': { *n ++ = '"'; str += 2; new_len -= 1; continue; } case 'X': { YY_CHAR c1 = *(str + 2), c2 = *(str + 3); int b = 0; if ('0' <= c1 && c1 <= '9') b = c1 - '0'; else if ('A' <= c1 && c1 <= 'F') b = c1 - 'A' + 10; else yyerror ("Bad character in \\X construct in string"); b <<= 4; if ('0' <= c2 && c2 <= '9') b += c2 - '0'; else if ('A' <= c2 && c2 <= 'F') b += c2 - 'A' + 10; else yyerror ("Bad character in \\X construct in string"); *n ++ = (YY_CHAR) b; str += 4; new_len -= 3; continue; } default: { *n ++ = *str ++; continue; } } else *n ++ = *str ++; *n = '\0'; y_str_length = n - new_str; return (new_str); } /* On a parse error, write out the current line and print a caret (^) below the point at which the error occured. Also, reset the input stream to the begining of the next line. */ #ifdef __STDC__ void print_erroneous_line (void) #else void print_erroneous_line () #endif { int prefix_length = yytext - line_start; int i, c; YY_CHAR buffer[1024], *bp = buffer; if (line_start == NULL) return; error (" "); c = *(line_start + prefix_length); *(line_start + prefix_length) = '\0'; error ("%s", line_start); *(line_start + prefix_length) = c; error ("%s", yytext); /* Flush the rest of the line. */ if (*yytext != '\n') { while ((c = input ()) != '\n' && c != EOF) *bp ++ = c; *bp = '\0'; error ("%s\n", buffer); if (c == '\n') unput ('\n'); line_start = NULL; } error (" "); for (i = 0; i < prefix_length; i ++) buffer[i] = ' '; buffer[i] = '\0'; error ("%s^\n", buffer); } static inst_info keyword_tbl [] = { #undef OP #define OP(NAME, OPCODE, TYPE, R_OPCODE) {NAME, OPCODE, TYPE}, #include "op.h" }; #ifdef __STDC__ static int check_keyword (YY_CHAR *id, int allow_pseudo_ops) #else static int check_keyword (id, allow_pseudo_ops) YY_CHAR *id; int allow_pseudo_ops; #endif { inst_info *entry = map_string_to_inst_info (keyword_tbl, sizeof(keyword_tbl) / sizeof (inst_info), id); if (entry == NULL) return (0); else if (!allow_pseudo_ops && entry->value2 == PSEUDO_OP) return (0); else return (entry->value1); } static inst_info register_tbl [] = { {"a0", 4, 0}, {"a1", 5, 0}, {"a2", 6, 0}, {"a3", 7, 0}, {"at", 1, 0}, {"fp", 30, 0}, {"gp", 28, 0}, {"k0", 26, 0}, {"k1", 27, 0}, {"kt0", 26, 0}, {"kt1", 27, 0}, {"ra", 31, 0}, {"s0", 16, 0}, {"s1", 17, 0}, {"s2", 18, 0}, {"s3", 19, 0}, {"s4", 20, 0}, {"s5", 21, 0}, {"s6", 22, 0}, {"s7", 23, 0}, {"s8", 30, 0}, {"sp", 29, 0}, {"t0", 8, 0}, {"t1", 9, 0}, {"t2", 10, 0}, {"t3", 11, 0}, {"t4", 12, 0}, {"t5", 13, 0}, {"t6", 14, 0}, {"t7", 15, 0}, {"t8", 24, 0}, {"t9", 25, 0}, {"v0", 2, 0}, {"v1", 3, 0}, {"zero", 0, 0} }; #ifdef __STDC__ int register_name_to_number (char *name) #else int register_name_to_number (name) char *name; #endif { register int c1 = *name, c2 = *(name + 1); if ('0' <= c1 && c1 <= '9' && (c2 == '\0' || (('0' <= c2 && c2 <= '9') && *(name + 2) == '\0'))) return (atoi (name)); else if (c1 == 'f' && c2 >= '0' && c2 <= '9') return atoi (name + 1); else { inst_info *entry = map_string_to_inst_info (register_tbl, sizeof (register_tbl) / sizeof (inst_info), name); if (entry == NULL) return (-1); else return (entry->value1); } } /* Exactly once, return the current source line, as a printable string with a line number. Subsequent calls receive NULL instead of the line. */ #ifdef __STDC__ char * source_line () #else char * source_line () #endif { if (line_returned) return (NULL); else if (line_start == NULL) /* Error on line */ return (NULL); else { YY_CHAR *nl, c; char *r; /* Find end of line: */ for (nl = line_start; *nl != '\0' && *nl != '\n'; ) nl += 1; c = *nl; *nl = '\0'; r = (char *) xmalloc (nl - line_start + 10); sprintf (r, "%d: %s", line_no, line_start); *nl = c; line_returned = 1; return ((char *) r); } }