void getFilename()
{
int i;
char j;
for(i = 0;i < MAX_STRLEN;++i) {
if(lastch == '>')
break;
if((j = getsch()) == -1)
break;
else
laststr[i] = j;
}
laststr[i] = 0;
lastst = sconst;
if(lastch != '>')
error(ERR_SYNTAX);
else
getch();
}
/*
* getsch - get a character in a quoted string.
*
* this routine handles all of the escape mechanisms
* for characters in strings and character constants.
*/
int getsch() /* return an in-quote character */
{ register int i, j;
if(lastch == '\n')
return -1;
if(lastch != '\\' || !parseEsc) {
i = lastch;
getch();
return i;
}
getch(); /* get an escaped character */
if(isdigit(lastch)) {
i = 0;
for(j = i = 0;j < 3;++j) {
if(lastch <= '7' && lastch >= '0')
i = (i << 3) + lastch - '0';
else
break;
getch();
}
return i;
}
i = lastch;
getch();
switch(i) {
case '\n':
getch();
return getsch();
case 'b':
return '\b';
case 'f':
return '\f';
case 'n':
return '\n';
case 'r':
return '\r';
case 't':
return '\t';
default:
return i;
}
}
int getsym2(void)
/*
* translate character sequences to appropriate token names
*/
{
register int i, j, k;
int size;
//swlp:
switch (lastch)
{
case '+':
getch();
if (lastch == '+')
{
getch();
lastst = autoinc;
}
else if (lastch == '=')
{
getch();
lastst = asplus;
}
else
lastst = plus;
break;
case '-':
getch();
if (lastch == '-')
{
getch();
lastst = autodec;
}
else if (lastch == '=')
{
getch();
lastst = asminus;
}
else if (lastch == '>')
{
getch();
lastst = pointsto;
}
else
lastst = minus;
break;
case '*':
getch();
if (lastch == '=')
{
getch();
lastst = astimes;
}
else
lastst = star;
break;
case '/':
getch();
if (lastch == '=')
{
getch();
lastst = asdivide;
}
else
lastst = divide;
break;
case '^':
getch();
if (lastch == '=')
{
getch();
lastst = asxor;
}
else
lastst = uparrow;
break;
case ';':
getch();
lastst = semicolon;
break;
case ':':
getch();
lastst = colon;
break;
case '=':
getch();
if (lastch == '=')
{
getch();
lastst = eq;
}
else
lastst = assign;
break;
case '>':
getch();
if (lastch == '=')
{
getch();
lastst = geq;
}
else if (lastch == '>')
{
getch();
if (lastch == '=')
{
getch();
lastst = asrshift;
}
else
lastst = rshift;
}
else
lastst = gt;
break;
case '<':
getch();
if (incconst)
{
incconst = FALSE;
for (i = 0; i < MAX_STRLEN; ++i)
{
if (lastch == '>')
break;
if ((j = getsch()) == - 1)
break;
else
laststr[i] = j;
}
laststr[i] = 0;
lastst = sconst;
laststrlen = i;
if (lastch != '>')
generror(ERR_NEEDCHAR, '>');
else
getch();
}
else
if (lastch == '=')
{
getch();
lastst = leq;
}
else if (lastch == '<')
{
getch();
if (lastch == '=')
{
getch();
lastst = aslshift;
}
else
lastst = lshift;
}
else
lastst = lt;
break;
case '\\':
getch();
lastst = backslash;
break;
case '\'':
getch();
j = 0;
k = 0;
ival = 0;
for (i = 0, j = 0, k = 0; i < 4; i++, k += 8)
{
if (lastch == '\'')
break;
j = getsch(); /* get a string char */
ival += j << k;
}
if (i == 0)
{
generror(ERR_CHAR4CHAR, 0);
getch();
}
else if (lastch != '\'')
{
while (*lptr && *lptr != '\'')
lptr++;
if (*lptr)
lptr++;
generror(ERR_CHAR4CHAR, 0);
}
else
getch();
lastst = cconst;
break;
case '\"':
size = 0;
while (lastch == '\"')
{
getch();
for (i = size; i < MAX_STRLEN; ++i)
{
if (lastch == '\"')
break;
if ((j = getsch()) == - 1)
break;
else
laststr[i] = j;
}
laststr[i] = 0;
laststrlen = size = i;
lastst = sconst;
if (lastch != '\"')
generror(ERR_NEEDCHAR, '\"');
else
{
getch();
while (iswhitespacechar(lastch) && lastch >= 32)
getch();
}
}
break;
case '!':
getch();
if (lastch == '=')
{
getch();
lastst = neq;
}
else
lastst = not;
break;
case '%':
getch();
if (lastch == '=')
{
getch();
lastst = asmodop;
}
else
lastst = modop;
break;
case '~':
getch();
lastst = compl;
break;
case '.':
if (isdigit(*lptr))
getnum();
else
{
getch();
if (lastch == '.')
{
getch();
if (lastch == '.')
{
getch();
lastst = ellipse;
break;
}
else
{
generror(ERR_ILLCHAR, lastch);
}
}
else
lastst = dot;
}
break;
case ',':
getch();
lastst = comma;
break;
case '&':
getch();
if (lastch == '&')
{
lastst = land;
getch();
}
else if (lastch == '=')
{
lastst = asand;
getch();
}
else
lastst = and;
break;
case '|':
getch();
if (lastch == '|')
{
lastst = lor;
getch();
}
else if (lastch == '=')
{
lastst = asor;
getch();
}
else
lastst = or;
break;
case '(':
getch();
lastst = openpa;
break;
case ')':
getch();
lastst = closepa;
break;
case '[':
getch();
lastst = openbr;
break;
case ']':
getch();
lastst = closebr;
break;
case '{':
getch();
lastst = begin;
break;
case '}':
getch();
lastst = end;
break;
case '?':
getch();
lastst = hook;
break;
default:
generror(ERR_ILLCHAR, lastch);
getch();
return 1;
}
return 0;
}
/*
* getsch - get a character in a quoted string.
*
* this routine handles all of the escape mechanisms
* for characters in strings and character constants.
*/
int getsch(void) /* return an in-quote character */
{
register int i, j;
if (lastch == '\n')
return - 1;
if (incconst || lastch != '\\')
{
i = lastch;
getch();
return i;
}
getch(); /* get an escaped character */
if (isdigit(lastch))
{
for (i = 0, j = 0; j < 3; ++j)
{
if (lastch <= '7' && lastch >= '0')
i = (i << 3) + lastch - '0';
else
break;
getch();
}
return i;
}
i = lastch;
getch();
switch (i)
{
case '\n':
getch();
return getsch();
case 'a':
return '\a';
case 'b':
return '\b';
case 'f':
return '\f';
case 'n':
return '\n';
case 'r':
return '\r';
case 't':
return '\t';
case '\'':
return '\'';
case '\"':
return '\"';
case '\\':
return '\\';
case 'x':
{
int n = 0, count = 0;
while (isxdigit(lastch))
{
count++;
lastch -= 0x30;
if (lastch > 10)
lastch -= 7;
if (lastch > 15)
lastch -= 32;
n *= 16;
n += lastch;
getch();
}
if (count > 2)
generror(ERR_CONSTTOOLARGE, 0);
return n;
}
default:
if (isdigit(i) && i < '8')
{
int n = 0;
while (isdigit(i) && i < '8')
{
n = n * 8+(lastch - '0');
getch();
}
return n;
}
return i;
}
}
/*
* NextToken - get next symbol from input stream.
*
* NextToken is the basic lexical analyzer. It builds
* basic tokens out of the characters on the input
* stream and sets the following global variables:
*
* lastch: A look behind buffer.
* lastst: type of last symbol read.
* laststr: last string constant read.
* lastid: last identifier read.
* ival: last integer constant read.
* rval: last real constant read.
*
* NextToken should be called for all your input needs...
*/
void NextToken()
{
int i, j;
SYM *sp;
int tch;
restart: /* we come back here after comments */
if (backup_token) {
backup_token = 0;
lastch = '(';
lastst = openpa;
return;
}
SkipSpaces();
if( lastch == -1) {
lastst = my_eof;
dfs.printf("Returning EOF from NextToken.\n");
}
else if(isdigit(lastch)) {
getnum();
}
else if(isidch(lastch)) {
getid();
if( (sp = defsyms.Find(lastid,false)) != NULL) {
tch = lastch;
if (!(lastch==')' && sp->value.s[0]=='(')) {
if (lstackptr < 19) {
linstack[lstackptr] = lptr;
chstack[lstackptr++] = tch;
lptr = sp->value.s;
}
getch();
goto restart;
}
}
}
else {
switch(lastch) {
case '+':
getch();
if(lastch == '+') {
getch();
lastst = autoinc;
}
else if(lastch == '=') {
getch();
lastst = asplus;
}
else
lastst = plus;
break;
case '-':
getch();
if(lastch == '-') {
getch();
lastst = autodec;
}
else if(lastch == '=') {
getch();
lastst = asminus;
}
else if(lastch == '>') {
getch();
lastst = pointsto;
}
else
lastst = minus;
break;
case '*':
getch();
if(lastch == '=') {
getch();
lastst = astimes;
}
else lastst = star;
break;
case '/':
getch();
if(lastch == '=') {
getch();
lastst = asdivide;
}
else if(lastch == '*') {
inComment = TRUE;
getch();
for(;;) {
if(lastch == '*') {
getch();
if(lastch == '/') {
getch();
inComment = FALSE;
goto restart;
}
}
else
getch();
}
}
else if (lastch == '/') {
inComment = TRUE;
for(;;) {
getch();
if (lastch=='\n' || lastch==-1) {
//getch();
inComment = FALSE;
goto restart;
}
}
}
else lastst = divide;
break;
case '^':
getch();
if( lastch == '=') {
lastst = asxor;
getch();
}
else
lastst = uparrow;
break;
case ';':
getch();
lastst = semicolon;
break;
case ':':
getch();
if (lastch==':') {
lastst = double_colon;
getch();
}
else
lastst = colon;
break;
case '=':
getch();
if(lastch == '=') {
getch();
lastst = eq;
}
else lastst = assign;
break;
case '>':
getch();
if(lastch == '=') {
getch();
lastst = geq;
}
else if(lastch == '>') {
getch();
if(lastch == '=') {
getch();
lastst = asrshift;
}
else if (lastch=='>') {
getch();
if (lastch=='=') {
getch();
lastst = asrrot;
}
else
lastst = rrot;
}
else lastst = rshift;
}
else lastst = gt;
break;
case '<':
getch();
if(lastch == '=') {
getch();
lastst = leq;
}
else if(lastch == '<') {
getch();
if(lastch == '=') {
getch();
lastst = aslshift;
}
else if (lastch=='<') {
getch();
if (lastch=='=') {
getch();
lastst = aslrot;
}
else
lastst = lrot;
}
else
lastst = lshift;
}
else if (lastch == '>') {
getch();
lastst = neq;
}
else lastst = lt;
break;
case '\'':
getch();
ival = getsch(); /* get a string char */
if(lastch != '\'')
error(ERR_SYNTAX);
else
getch();
lastst = cconst;
break;
case '\"':
getch();
for(i = 0;i < MAX_STRLEN;++i) {
if(lastch == '\"')
break;
if((j = getsch()) == -1)
break;
else
laststr[i] = j;
}
laststr[i] = 0;
lastst = sconst;
if(lastch != '\"')
error(ERR_SYNTAX);
else
getch();
break;
case '!':
getch();
if(lastch == '=') {
getch();
lastst = neq;
}
else lastst = nott;
break;
case '%':
getch();
if(lastch == '=') {
getch();
lastst = asmodop;
}
else lastst = modop;
break;
case '~':
getch();
lastst = cmpl;
break;
case '.':
getch();
lastst = dot;
if (lastch=='.') {
getch();
if (lastch=='.') {
getch();
lastst = ellipsis;
strcpy_s(lastid, sizeof(lastid), "...");
}
}
break;
case ',':
getch();
lastst = comma;
break;
case '&':
getch();
if( lastch == '&') {
lastst = land;
getch();
}
else if( lastch == '=') {
lastst = asand;
getch();
}
else
lastst = bitandd;
break;
case '|':
getch();
if(lastch == '|') {
lastst = lor;
getch();
}
else if( lastch == '=') {
lastst = asor;
getch();
}
else
lastst = bitorr;
break;
case '(':
getch();
lastst = openpa;
break;
case ')':
getch();
lastst = closepa;
break;
case '[':
getch();
lastst = openbr;
break;
case ']':
getch();
lastst = closebr;
break;
case '{':
getch();
lastst = begin;
break;
case '}':
getch();
lastst = end;
break;
case '?':
getch();
lastst = hook;
break;
case '\\':
getch();
goto restart;
default:
getch();
error(ERR_ILLCHAR);
goto restart; /* get a real token */
}
}
if(lastst == id)
IdentifyKeyword();
// printf("token: %d",lastst);
// if (lastst==id)
// printf("lastid=%s| ", lastid);
}
/*
* NextToken - get next symbol from input stream.
*
* NextToken is the basic lexical analyzer. It builds
* basic tokens out of the characters on the input
* stream and sets the following global variables:
*
* lastch: A look behind buffer.
* lastst: type of last symbol read.
* laststr: last string constant read.
* lastid: last identifier read.
* ival: last integer constant read.
* rval: last real constant read.
*
* NextToken should be called for all your input needs...
*/
void NextToken()
{ register int i, j;
SYM *sp;
restart: /* we come back here after comments */
SkipSpaces();
if( lastch == -1)
lastst = tk_eof;
else if(isdigit(lastch))
getnum();
else if(isidch(lastch)) {
getid();
if( (sp = search(lastid,&defsyms)) != NULL ) {
linstack[lstackptr] = lptr;
chstack[lstackptr++] = lastch;
lptr = sp->value.s;
getch();
goto restart;
}
}
else switch(lastch) {
case '+':
getch();
if(lastch == '+') {
getch();
lastst = autoinc;
}
else if(lastch == '=') {
getch();
lastst = asplus;
}
else lastst = plus;
break;
case '-':
getch();
if(lastch == '-') {
getch();
lastst = autodec;
}
else if(lastch == '=') {
getch();
lastst = asminus;
}
else if(lastch == '>') {
getch();
lastst = pointsto;
}
else lastst = minus;
break;
case '*':
getch();
if(lastch == '=') {
getch();
lastst = astimes;
}
else lastst = star;
break;
case '/':
getch();
if(lastch == '=') {
getch();
lastst = asdivide;
}
else if(lastch == '*') {
inComment = TRUE;
getch();
for(;;) {
if(lastch == '*') {
getch();
if(lastch == '/') {
//getch();
inComment = FALSE;
goto restart;
}
}
else
getch();
}
}
else if (lastch == '/') {
inComment = TRUE;
for(;;) {
getch();
if (lastch=='\n') {
//getch();
inComment = FALSE;
goto restart;
}
}
}
else lastst = divide;
break;
case '^':
getch();
lastst = uparrow;
break;
case ';':
getch();
lastst = semicolon;
break;
case ':':
getch();
lastst = colon;
break;
case '=':
getch();
if(lastch == '=') {
getch();
lastst = eq;
}
else lastst = assign;
break;
case '>':
getch();
if(lastch == '=') {
getch();
lastst = geq;
}
else if(lastch == '>') {
getch();
if(lastch == '=') {
getch();
lastst = asrshift;
}
else lastst = rshift;
}
else lastst = gt;
break;
case '<':
getch();
if(lastch == '=') {
getch();
lastst = leq;
}
else if(lastch == '<') {
getch();
if(lastch == '=') {
getch();
lastst = aslshift;
}
else lastst = lshift;
}
else if (lastch == '>') {
getch();
lastst = neq;
}
else lastst = lt;
break;
case '\'':
getch();
ival = getsch(); /* get a string char */
if(lastch != '\'')
error(ERR_SYNTAX);
else
getch();
lastst = iconst;
break;
case '\"':
getch();
for(i = 0;i < MAX_STRLEN;++i) {
if(lastch == '\"')
break;
if((j = getsch()) == -1)
break;
else
laststr[i] = j;
}
laststr[i] = 0;
lastst = sconst;
if(lastch != '\"')
error(ERR_SYNTAX);
else
getch();
break;
case '!':
getch();
if(lastch == '=') {
getch();
lastst = neq;
}
else lastst = not;
break;
case '%':
getch();
if(lastch == '=') {
getch();
lastst = asmodop;
}
else lastst = modop;
break;
case '~':
getch();
lastst = compl;
break;
case '.':
getch();
lastst = dot;
if (lastch=='.') {
getch();
if (lastch=='.') {
getch();
lastst = ellipsis;
strcpy(lastid, "...");
}
}
break;
case ',':
getch();
lastst = comma;
break;
case '&':
getch();
if( lastch == '&') {
lastst = land;
getch();
}
else if( lastch == '=') {
lastst = asand;
getch();
}
else
lastst = and;
break;
case '|':
getch();
if(lastch == '|') {
lastst = lor;
getch();
}
else if( lastch == '=') {
lastst = asor;
getch();
}
else
lastst = or;
break;
case '(':
getch();
lastst = openpa;
break;
case ')':
getch();
lastst = closepa;
break;
case '[':
getch();
lastst = openbr;
break;
case ']':
getch();
lastst = closebr;
break;
case '{':
getch();
lastst = begin;
break;
case '}':
getch();
lastst = end;
break;
case '?':
getch();
lastst = hook;
break;
default:
getch();
error(ERR_ILLCHAR);
goto restart; /* get a real token */
}
if(lastst == id)
IdentifyKeyword();
}
