version 1.3, 1997/02/25 00:04:31 |
version 1.4, 2001/11/19 19:02:18 |
|
|
char *name; |
char *name; |
struct value *v; |
struct value *v; |
{ |
{ |
register struct var **p; |
struct var **p; |
register struct var *r; |
struct var *r; |
struct value val; |
struct value val; |
|
|
/* do this first, easier to recover */ |
/* do this first, easier to recover */ |
|
|
struct var **head; |
struct var **head; |
char *name; |
char *name; |
{ |
{ |
register struct var **p; |
struct var **p; |
register struct var *r; |
struct var *r; |
|
|
if (*(p = var_lookup1(head, name)) == 0) |
if (*(p = var_lookup1(head, name)) == 0) |
return -1; |
return -1; |
|
|
|
|
struct var ** |
struct var ** |
var_lookup1(p, name) |
var_lookup1(p, name) |
register struct var **p; |
struct var **p; |
register char *name; |
char *name; |
{ |
{ |
register cmp; |
int cmp; |
|
|
while (*p != 0) { |
while (*p != 0) { |
if ((cmp = strcmp(name, (*p)->r_name)) < 0) |
if ((cmp = strcmp(name, (*p)->r_name)) < 0) |
|
|
} |
} |
|
|
var_walk1(r, func, a) |
var_walk1(r, func, a) |
register struct var *r; |
struct var *r; |
int (*func)(); |
int (*func)(); |
long a; |
long a; |
{ |
{ |