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

Return to scanner2.c CVS log

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

version 1.7, 2005/01/23 02:41:17

version 1.9, 2005/07/18 10:55:16

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.6 2004/09/12 00:26:21 takayama Exp $ */

/* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.8 2005/07/03 11:08:54 ohara 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 56 static isKakkoSM();

Line 58 static isKakkoSM();

static isSymbolSM();

static struct tokens getokenSM2();

extern int ScannerWhich;

extern unsigned char ScannerBuf[];

extern int ScannerPt;

/**************** code part of lexical analizer ********************/

struct tokens *decomposeToTokens(str,sizep)

Line 107 static int getSM()

Line 113 static int getSM()

}

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

if (c != 0) {

ScannerPt++; if (ScannerPt >= SCANNERBUF_SIZE) ScannerPt = 0;

ScannerBuf[ScannerPt] = c;

}

if (c == '\0') {

StrpSM--;return(EOF);

} else return(c);

Line 208 static struct tokens getokenSM2(kind,str)

Line 218 static struct tokens getokenSM2(kind,str)

int level;

if (kind == INIT) {

ScannerWhich = 2;

ScannerPt = 0;

ScannerBuf[0] = 0;

StrpSM = 0;

ExistSM = 0;