cadey
/
platypus
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

why

This commit is contained in:
Victor Fernandes 2017-03-18 21:10:05 -04:00
parent b822bc1f92
commit da033b6301
1 changed files with 8 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
scanner.c
View File

@ -88,10 +88,10 @@ Token malar_next_token(Buffer * sc_buf)
/*DECLARE YOUR VARIABLES HERE IF NEEDED */ /*DECLARE YOUR VARIABLES HERE IF NEEDED */
/* Counter for loops in string error case */ /* Counter for loops in string error case */
int i; int i;
/*String offset for the str_LTBL*/ /*String offset for the str_LTBL*/
static short str_offset = 0; static short str_offset = 0;
if (sc_buf == NULL) { if (sc_buf == NULL) {
scerrnum = 1; scerrnum = 1;
return aa_table[ES]("RUN TIME ERROR: "); /* WHOOPS */ return aa_table[ES]("RUN TIME ERROR: "); /* WHOOPS */
@ -165,7 +165,7 @@ Token malar_next_token(Buffer * sc_buf)
else { /* Bad character, pump out an error token */ else { /* Bad character, pump out an error token */
t.code = ERR_T; t.code = ERR_T;
b_retract(sc_buf); b_retract(sc_buf);
b_retract(sc_buf); b_retract(sc_buf); /* Retract twice to re-read '!' */
t.attribute.err_lex[0] = c = b_getc(sc_buf); t.attribute.err_lex[0] = c = b_getc(sc_buf);
t.attribute.err_lex[1] = c = b_getc(sc_buf); t.attribute.err_lex[1] = c = b_getc(sc_buf);
t.attribute.err_lex[2] = '\0'; t.attribute.err_lex[2] = '\0';
@ -194,18 +194,18 @@ Token malar_next_token(Buffer * sc_buf)
for (; c != '\"'; c = b_getc(sc_buf), ++lexend) { for (; c != '\"'; c = b_getc(sc_buf), ++lexend) {
if (c == '\n' || c == '\r') if (c == '\n' || c == '\r')
++line; ++line;
if (c == '\0' || b_eob(sc_buf)) { /* Illegal string, make it an error token */ if (c == '\0' || b_eob(sc_buf) || c == 255) { /* Illegal string, make it an error token */
b_retract_to_mark(sc_buf); b_retract_to_mark(sc_buf);
b_retract(sc_buf); b_retract(sc_buf);
b_retract(sc_buf);
t.code = ERR_T; t.code = ERR_T;
for (i = 0; i < lexend; ++i) { c = b_getc(sc_buf);
for (i = 0; i < (lexend - lexstart); c = b_getc(sc_buf), ++i) {
/* Continue until the end of the lexeme where error was found /* Continue until the end of the lexeme where error was found
* (error string attribute full) */ * (error string attribute full) */
if (i == ERR_LEN) continue; if (i < (ERR_LEN - 3)) {
if (i < (ERR_LEN - 3)) t.attribute.err_lex[i] = c;
t.attribute.err_lex[i] = b_getc(sc_buf); }
else { else {
t.attribute.err_lex[i] = '.'; t.attribute.err_lex[i] = '.';
} }
@ -216,7 +216,6 @@ Token malar_next_token(Buffer * sc_buf)
} /* end for loop, string finished and considered valid */ } /* end for loop, string finished and considered valid */
b_retract_to_mark(sc_buf); b_retract_to_mark(sc_buf);
/* Copy the matched string literal to str_LTBL */ /* Copy the matched string literal to str_LTBL */
t.attribute.str_offset = str_offset; t.attribute.str_offset = str_offset;
c = b_getc(sc_buf); c = b_getc(sc_buf);
@ -241,7 +240,6 @@ Token malar_next_token(Buffer * sc_buf)
if (accept != NOAS) { break; } if (accept != NOAS) { break; }
/*c = b_getc(sc_buf);*/
} }
/* /*