version 1.3, 2001/05/04 01:06:24 |
version 1.6, 2020/10/06 11:33:46 |
|
|
/* $OpenXM: OpenXM/src/kan96xx/Kan/parserpass0.c,v 1.2 2000/01/16 07:55:40 takayama Exp $ */ |
/* $OpenXM: OpenXM/src/kan96xx/Kan/parserpass0.c,v 1.5 2013/11/06 06:23:24 takayama Exp $ */ |
/* parserpass0.c */ |
/* parserpass0.c */ |
/* In this preprocessor, for example, the expression |
/* In this preprocessor, for example, the expression |
x^2+y^2-4+x y; |
x^2+y^2-4+x y; |
|
|
*/ |
*/ |
/* 1992/03/05 */ |
/* 1992/03/05 */ |
#include <stdio.h> |
#include <stdio.h> |
|
#include <stdlib.h> |
|
#include <string.h> |
#include "datatype.h" |
#include "datatype.h" |
#include "extern2.h" |
#include "extern2.h" |
|
|
Line 45 static int get0() |
|
Line 47 static int get0() |
|
} else return(c); |
} else return(c); |
} |
} |
|
|
static put0(c) |
static void put0(c) |
int c; |
int c; |
/* put a letter on Buf0 */ |
/* put a letter on Buf0 */ |
{ |
{ |
Line 85 static struct tokens flush() |
|
Line 87 static struct tokens flush() |
|
return(r); |
return(r); |
} |
} |
|
|
static isSpace0(c) |
static int isSpace0(c) |
int c; |
int c; |
{ |
{ |
if (c <= ' ') return(1); |
if (c <= ' ') return(1); |
Line 171 static char Buftmp[STRBUFMAX]; |
|
Line 173 static char Buftmp[STRBUFMAX]; |
|
static char *Buf = Buftmp; |
static char *Buf = Buftmp; |
static int Buflimit = STRBUFMAX; |
static int Buflimit = STRBUFMAX; |
|
|
static putstr(str,kind) |
static int putstr(str,kind) |
char str[]; /* string to be outputted */ |
char str[]; /* string to be outputted */ |
actionType kind; /* kind is INIT or PUT */ |
actionType kind; /* kind is INIT or PUT */ |
{ |
{ |
Line 180 static putstr(str,kind) |
|
Line 182 static putstr(str,kind) |
|
int k; char *newbuf; |
int k; char *newbuf; |
if (kind == INIT) { |
if (kind == INIT) { |
ptr = 0; |
ptr = 0; |
return; |
return 0; |
} |
} |
|
|
i=0; |
i=0; |
Line 202 static putstr(str,kind) |
|
Line 204 static putstr(str,kind) |
|
Buflimit *= 2; |
Buflimit *= 2; |
} |
} |
} |
} |
|
return 0; |
} |
} |
|
|
|
|