279 |
|
|
280 |
for (; data.size > 0; --data.size, data.base++) |
for (; data.size > 0; --data.size, data.base++) |
281 |
{ |
{ |
282 |
fprintf (stderr, "%s:\t", SYMBOL_NAME (data.base[0])); |
fprintf (stderr, "%s:\t", M4_SYMBOL_NAME (data.base[0])); |
283 |
|
|
284 |
switch (SYMBOL_TYPE (data.base[0])) |
switch (M4_SYMBOL_TYPE (data.base[0])) |
285 |
{ |
{ |
286 |
case M4_TOKEN_TEXT: |
case M4_TOKEN_TEXT: |
287 |
if (debug_level & M4_DEBUG_TRACE_QUOTE) |
if (debug_level & M4_DEBUG_TRACE_QUOTE) |
288 |
fprintf (stderr, "%s%s%s\n", |
fprintf (stderr, "%s%s%s\n", |
289 |
lquote.string, SYMBOL_TEXT (data.base[0]), rquote.string); |
lquote.string, M4_SYMBOL_TEXT (data.base[0]), rquote.string); |
290 |
else |
else |
291 |
fprintf (stderr, "%s\n", SYMBOL_TEXT (data.base[0])); |
fprintf (stderr, "%s\n", M4_SYMBOL_TEXT (data.base[0])); |
292 |
break; |
break; |
293 |
|
|
294 |
case M4_TOKEN_FUNC: |
case M4_TOKEN_FUNC: |
295 |
bp = m4_builtin_find_by_func (NULL, SYMBOL_FUNC (data.base[0])); |
bp = m4_builtin_find_by_func (NULL, M4_SYMBOL_FUNC (data.base[0])); |
296 |
if (bp == NULL) |
if (bp == NULL) |
297 |
{ |
{ |
298 |
M4ERROR ((warning_status, 0, |
M4ERROR ((warning_status, 0, |
299 |
_("Undefined name `%s'"), SYMBOL_NAME (data.base[0]))); |
_("Undefined name `%s'"), M4_SYMBOL_NAME (data.base[0]))); |
300 |
abort (); |
abort (); |
301 |
} |
} |
302 |
fprintf (stderr, "<%s>\n", bp->name); |
fprintf (stderr, "<%s>\n", bp->name); |
325 |
if (symbol == NULL) |
if (symbol == NULL) |
326 |
return; |
return; |
327 |
|
|
328 |
switch (SYMBOL_TYPE (symbol)) |
switch (M4_SYMBOL_TYPE (symbol)) |
329 |
{ |
{ |
330 |
case M4_TOKEN_TEXT: |
case M4_TOKEN_TEXT: |
331 |
m4_shipout_string(obs, SYMBOL_TEXT (symbol), 0, TRUE); |
m4_shipout_string(obs, M4_SYMBOL_TEXT (symbol), 0, TRUE); |
332 |
break; |
break; |
333 |
|
|
334 |
case M4_TOKEN_FUNC: |
case M4_TOKEN_FUNC: |
335 |
m4_push_macro (SYMBOL_FUNC (symbol), SYMBOL_HANDLE (symbol), |
m4_push_macro (M4_SYMBOL_FUNC (symbol), M4_SYMBOL_HANDLE (symbol), |
336 |
SYMBOL_TRACED (symbol)); |
M4_SYMBOL_TRACED (symbol)); |
337 |
break; |
break; |
338 |
|
|
339 |
case M4_TOKEN_VOID: |
case M4_TOKEN_VOID: |
611 |
static void |
static void |
612 |
set_trace (m4_symbol *symbol, const char *data) |
set_trace (m4_symbol *symbol, const char *data) |
613 |
{ |
{ |
614 |
SYMBOL_TRACED (symbol) = (boolean) (data != NULL); |
M4_SYMBOL_TRACED (symbol) = (boolean) (data != NULL); |
615 |
} |
} |
616 |
|
|
617 |
M4BUILTIN_HANDLER (traceon) |
M4BUILTIN_HANDLER (traceon) |