OpenXM/src/kan96xx/Kan/scanner2.c - diff

Return to scanner2.c CVS log

Up to [local] / OpenXM / src / kan96xx / Kan

version 1.3, 2001/05/04 01:06:25

version 1.6, 2004/09/12 00:26:21

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.2 2000/01/16 07:55:41 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.5 2004/09/10 22:21:27 takayama Exp $ */

/* scanner2.c (SM StackMachine) */

/* export: struct tokens decompostToTokens(char *str,int *sizep);

scanner2.c is for getting tokens from a string.

Line 97 static int getSM()

/* get a letter from StringSM */

{

int c;

if ((StrpSM > 0) && (StringSM[StrpSM] == ',') && (StringSM[StrpSM-1] == ',')) { int i;

fprintf(stderr,"Warning: ,, is found: ");

for (i=(StrpSM-30>0?StrpSM-30:0); i<=StrpSM; i++) {

fprintf(stderr,"%c",StringSM[i]);

}

fprintf(stderr,"\n");

}

c = StringSM[StrpSM++];

if (c == '\0') {

StrpSM--;return(EOF);

Line 138 static struct tokens flushSM()

Line 147 static struct tokens flushSM()

strcpy(token,BufSM);

r.token = token;

r.kind = TypeSM;

r.tflag = 0;

if (r.kind == ID) {

if (isLiteral(r.token)) {

r.object = lookupLiteralString(r.token);

Line 151 static struct tokens flushSM()

Line 161 static struct tokens flushSM()

static isSpaceSM(c)

int c;

{

if ((c <= ' ') && (c!= EOF)) return(1);

if (((c <= ' ') || c == ',') && (c!= EOF)) return(1);

else return(0);

}