| version 1.5, 2004/09/10 22:21:27 |
version 1.6, 2004/09/12 00:26:21 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.4 2004/09/10 13:20:23 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.5 2004/09/10 22:21:27 takayama Exp $ */ |
| /* scanner2.c (SM StackMachine) */ |
/* scanner2.c (SM StackMachine) */ |
| /* export: struct tokens decompostToTokens(char *str,int *sizep); |
/* export: struct tokens decompostToTokens(char *str,int *sizep); |
| scanner2.c is for getting tokens from a string. |
scanner2.c is for getting tokens from a string. |
| Line 147 static struct tokens flushSM() |
|
| Line 147 static struct tokens flushSM() |
|
| strcpy(token,BufSM); |
strcpy(token,BufSM); |
| r.token = token; |
r.token = token; |
| r.kind = TypeSM; |
r.kind = TypeSM; |
| |
r.tflag = 0; |
| if (r.kind == ID) { |
if (r.kind == ID) { |
| if (isLiteral(r.token)) { |
if (isLiteral(r.token)) { |
| r.object = lookupLiteralString(r.token); |
r.object = lookupLiteralString(r.token); |