94 |
|
|
95 |
static void include (int argc, m4_token **argv, |
static void include (int argc, m4_token **argv, |
96 |
boolean silent); |
boolean silent); |
97 |
static int set_trace (const void *ignored, void *symbol, |
static int set_trace (m4_hash *hash, const void *ignored, |
98 |
void *data); |
void *symbol, void *userdata); |
99 |
static const char *ntoa (number value, int radix); |
static const char *ntoa (number value, int radix); |
100 |
static void numb_obstack (struct obstack *obs, const number value, |
static void numb_obstack (struct obstack *obs, const number value, |
101 |
const int radix, int min); |
const int radix, int min); |
582 |
tracing of a macro. It disables tracing if DATA is NULL, otherwise it |
tracing of a macro. It disables tracing if DATA is NULL, otherwise it |
583 |
enable tracing. */ |
enable tracing. */ |
584 |
static int |
static int |
585 |
set_trace (const void *ignored, void *symbol, void *data) |
set_trace (m4_hash *hash, const void *ignored, void *symbol, |
586 |
|
void *userdata) |
587 |
{ |
{ |
588 |
SYMBOL_TRACED ((m4_symbol *) symbol) = (boolean) (data != NULL); |
SYMBOL_TRACED ((m4_symbol *) symbol) = (boolean) (userdata != NULL); |
589 |
return 0; |
return 0; |
590 |
} |
} |
591 |
|
|
601 |
const char *name = M4ARG (i); |
const char *name = M4ARG (i); |
602 |
m4_symbol *symbol = m4_symbol_lookup (name); |
m4_symbol *symbol = m4_symbol_lookup (name); |
603 |
if (symbol != NULL) |
if (symbol != NULL) |
604 |
set_trace (name, symbol, (char *) obs); |
set_trace (NULL, NULL, symbol, (char *) obs); |
605 |
else |
else |
606 |
M4WARN ((warning_status, 0, |
M4WARN ((warning_status, 0, |
607 |
_("Warning: %s: undefined name: %s"), M4ARG (0), name)); |
_("Warning: %s: undefined name: %s"), M4ARG (0), name)); |
621 |
const char *name = M4ARG (i); |
const char *name = M4ARG (i); |
622 |
m4_symbol *symbol = m4_symbol_lookup (name); |
m4_symbol *symbol = m4_symbol_lookup (name); |
623 |
if (symbol != NULL) |
if (symbol != NULL) |
624 |
set_trace (name, symbol, NULL); |
set_trace (NULL, NULL, symbol, NULL); |
625 |
else |
else |
626 |
M4WARN ((warning_status, 0, |
M4WARN ((warning_status, 0, |
627 |
_("Warning: %s: undefined name: %s"), M4ARG (0), name)); |
_("Warning: %s: undefined name: %s"), M4ARG (0), name)); |