version 1.52, 2002/02/16 21:27:48 |
version 1.53, 2002/04/26 16:15:16 |
|
|
int main(int, char *[]); |
int main(int, char *[]); |
|
|
int |
int |
main(argc,argv) |
main(int argc, char *argv[]) |
int argc; |
|
char *argv[]; |
|
{ |
{ |
int c; |
int c; |
int n; |
int n; |
|
|
* 0 if `token' not found; all characters pushed back |
* 0 if `token' not found; all characters pushed back |
*/ |
*/ |
static int |
static int |
do_look_ahead(t, token) |
do_look_ahead(int t, const char *token) |
int t; |
|
const char *token; |
|
{ |
{ |
int i; |
int i; |
|
|
|
|
* output string directly, without pushing it for reparses. |
* output string directly, without pushing it for reparses. |
*/ |
*/ |
void |
void |
outputstr(s) |
outputstr(const char *s) |
const char *s; |
|
{ |
{ |
if (sp < 0) |
if (sp < 0) |
while (*s) |
while (*s) |
|
|
* combo with lookup to speed things up. |
* combo with lookup to speed things up. |
*/ |
*/ |
static ndptr |
static ndptr |
inspect(c, tp) |
inspect(int c, char *tp) |
int c; |
|
char *tp; |
|
{ |
{ |
char *name = tp; |
char *name = tp; |
char *etp = tp+MAXTOK; |
char *etp = tp+MAXTOK; |
|
|
|
|
/* Look up a builtin type, even if overridden by the user */ |
/* Look up a builtin type, even if overridden by the user */ |
int |
int |
builtin_type(key) |
builtin_type(const char *key) |
const char *key; |
|
{ |
{ |
int i; |
int i; |
|
|
|
|
} |
} |
|
|
char * |
char * |
builtin_realname(n) |
builtin_realname(int n) |
int n; |
|
{ |
{ |
int i; |
int i; |
|
|
|
|
} |
} |
|
|
static void |
static void |
record(t, lev) |
record(struct position *t, int lev) |
struct position *t; |
|
int lev; |
|
{ |
{ |
if (lev < MAXRECORD) { |
if (lev < MAXRECORD) { |
t[lev].name = CURRENT_NAME; |
t[lev].name = CURRENT_NAME; |
|
|
} |
} |
|
|
static void |
static void |
dump_stack(t, lev) |
dump_stack(struct position *t, int lev) |
struct position *t; |
|
int lev; |
|
{ |
{ |
int i; |
int i; |
|
|