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

Return to scanner2.c CVS log

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

Diff for /OpenXM/src/kan96xx/Kan/scanner2.c between version 1.6 and 1.9

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

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

Line 1

/* $OpenXM: OpenXM/src/kan96xx/Kan/scanner2.c,v 1.5 2004/09/10 22:21:27 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 106 static int getSM()

Line 112 static int getSM()

fprintf(stderr,"\n");

}

c = StringSM[StrpSM++];

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;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>