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

Return to scanner2.c CVS log

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

version 1.5, 2004/09/10 22:21:27

version 1.8, 2005/07/03 11:08:54

Line 1

/* $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.7 2005/01/23 02:41:17 takayama Exp $ */

/* scanner2.c (SM StackMachine) */

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

scanner2.c is for getting tokens from a string.

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "datatype.h"

#include "stackm.h"

struct tokens lookupTokens(struct tokens t);

Line 106 static int getSM()

Line 108 static int getSM()

fprintf(stderr,"\n");

}

c = StringSM[StrpSM++];

c = (unsigned char) StringSM[StrpSM++];

if (c == '\0') {

StrpSM--;return(EOF);

} else return(c);

Line 147 static struct tokens flushSM()

Line 149 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);