71 |
m4_string ecomm; |
m4_string ecomm; |
72 |
|
|
73 |
|
|
|
/* Addressable function versions of the macros defined in m4private.h. |
|
|
Since they are functions the caller does not need access to the |
|
|
internal data structure, so they are safe to export for use in |
|
|
external modules. */ |
|
|
m4_symbol_type |
|
|
m4_get_symbol_value_type (m4_symbol_value *name) |
|
|
{ |
|
|
return VALUE_TYPE (name); |
|
|
} |
|
|
|
|
|
char * |
|
|
m4_get_symbol_value_text (m4_symbol_value *name) |
|
|
{ |
|
|
return VALUE_TEXT (name); |
|
|
} |
|
|
|
|
|
m4_builtin_func * |
|
|
m4_get_symbol_value_func (m4_symbol_value *name) |
|
|
{ |
|
|
return VALUE_FUNC (name); |
|
|
} |
|
|
|
|
|
|
|
|
|
|
74 |
/* Give friendly warnings if a builtin macro is passed an |
/* Give friendly warnings if a builtin macro is passed an |
75 |
inappropriate number of arguments. ARGC/ARGV are the arguments, |
inappropriate number of arguments. ARGC/ARGV are the arguments, |
76 |
MIN is the minimum number of acceptable arguments, negative if not |
MIN is the minimum number of acceptable arguments, negative if not |
200 |
int |
int |
201 |
m4_dump_symbol (const void *name, void *symbol, void *data) |
m4_dump_symbol (const void *name, void *symbol, void *data) |
202 |
{ |
{ |
203 |
if (SYMBOL_TYPE ((m4_symbol *) symbol) != M4_SYMBOL_VOID) |
if (((m4_symbol *) symbol)->value->type != M4_SYMBOL_VOID) |
204 |
{ |
{ |
205 |
struct m4_dump_symbol_data *symbol_data |
struct m4_dump_symbol_data *symbol_data |
206 |
= (struct m4_dump_symbol_data *) data; |
= (struct m4_dump_symbol_data *) data; |
234 |
for (i = 1; i < argc; i++) |
for (i = 1; i < argc; i++) |
235 |
{ |
{ |
236 |
symbol = m4_symbol_lookup (M4SYMTAB, M4ARG (i)); |
symbol = m4_symbol_lookup (M4SYMTAB, M4ARG (i)); |
237 |
if (symbol != NULL && SYMBOL_TYPE (symbol) != M4_SYMBOL_VOID) |
if (symbol != NULL && symbol->value->type != M4_SYMBOL_VOID) |
238 |
m4_dump_symbol (M4ARG (i), symbol, data); |
m4_dump_symbol (M4ARG (i), symbol, data); |
239 |
else if (complain) |
else if (complain) |
240 |
M4WARN ((warning_status, 0, |
M4WARN ((warning_status, 0, |