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

Return to scanner.c CVS log

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

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

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

Line 1

/*$OpenXM: OpenXM/src/kan96xx/Kan/scanner.c,v 1.5 2004/09/10 13:20:23 takayama Exp $*/

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

/* scanner.c (SM StackMachine) */

/* export: struct tokens getokenSM(actionType kind,char *str);

scanner.c is used to get tokens from streams.

files: none

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#include "datatype.h"

#include "stackm.h"

struct tokens lookupTokens(struct tokens t);

Line 155 static struct tokens flushSM()

Line 157 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 401 main() {

Line 404 main() {

char *getLOAD_SM1_PATH() {

char *p;

char *p2;

char *getenv(char *s);

char *getenv(const char *s);

p = getenv("LOAD_SM1_PATH");

if (p == NULL) {

p = getenv("OpenXM_HOME");