| version 1.4, 2005/07/03 11:08:54 |
version 1.6, 2020/10/06 11:33:46 |
|
|
| /* $OpenXM: OpenXM/src/kan96xx/Kan/parserpass0.c,v 1.3 2001/05/04 01:06:24 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; |
| Line 47 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 87 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 173 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 182 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 204 static putstr(str,kind) |
|
| Line 204 static putstr(str,kind) |
|
| Buflimit *= 2; |
Buflimit *= 2; |
| } |
} |
| } |
} |
| |
return 0; |
| } |
} |
| |
|
| |
|