| Line 1... |
Line 1... |
/* chew
|
/* chew
|
Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001,
|
Copyright 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1998, 2000, 2001,
|
2002, 2003, 2005, 2007
|
2002, 2003, 2005, 2007, 2009
|
Free Software Foundation, Inc.
|
Free Software Foundation, Inc.
|
Contributed by steve chamberlain @cygnus
|
Contributed by steve chamberlain @cygnus
|
|
|
This file is part of BFD, the Binary File Descriptor library.
|
This file is part of BFD, the Binary File Descriptor library.
|
|
|
| Line 1265... |
Line 1265... |
|
|
dict_type *
|
dict_type *
|
newentry (word)
|
newentry (word)
|
char *word;
|
char *word;
|
{
|
{
|
dict_type *new = (dict_type *) malloc (sizeof (dict_type));
|
dict_type *new_d = (dict_type *) malloc (sizeof (dict_type));
|
new->word = word;
|
new_d->word = word;
|
new->next = root;
|
new_d->next = root;
|
root = new;
|
root = new_d;
|
new->code = (stinst_type *) malloc (sizeof (stinst_type));
|
new_d->code = (stinst_type *) malloc (sizeof (stinst_type));
|
new->code_length = 1;
|
new_d->code_length = 1;
|
new->code_end = 0;
|
new_d->code_end = 0;
|
return new;
|
return new_d;
|
}
|
}
|
|
|
unsigned int
|
unsigned int
|
add_to_definition (entry, word)
|
add_to_definition (entry, word)
|
dict_type *entry;
|
dict_type *entry;
|
| Line 1297... |
Line 1297... |
void
|
void
|
add_intrinsic (name, func)
|
add_intrinsic (name, func)
|
char *name;
|
char *name;
|
void (*func) ();
|
void (*func) ();
|
{
|
{
|
dict_type *new = newentry (name);
|
dict_type *new_d = newentry (name);
|
add_to_definition (new, func);
|
add_to_definition (new_d, func);
|
add_to_definition (new, 0);
|
add_to_definition (new_d, 0);
|
}
|
}
|
|
|
void
|
void
|
add_var (name)
|
add_var (name)
|
char *name;
|
char *name;
|
{
|
{
|
dict_type *new = newentry (name);
|
dict_type *new_d = newentry (name);
|
add_to_definition (new, push_number);
|
add_to_definition (new_d, push_number);
|
add_to_definition (new, (stinst_type) (&(new->var)));
|
add_to_definition (new_d, (stinst_type) (&(new_d->var)));
|
add_to_definition (new, 0);
|
add_to_definition (new_d, 0);
|
}
|
}
|
|
|
void
|
void
|
compile (string)
|
compile (string)
|
char *string;
|
char *string;
|
