void
dump_declarator(Declarator * d, int level)
{
PAD;
Trace("%sdeclarator %p\n", pad, d);
Trace("%s name /%s/\n", pad, d->name);
Trace("%s text /%s/\n", pad, d->text);
SHOW_CMTS(("%s begin %ld\n", pad, d->begin))
SHOW_CMTS(("%s begin_comment %ld\n", pad, d->begin_comment))
SHOW_CMTS(("%s end_comment %ld\n", pad, d->end_comment))
Trace("%s func_def %s\n", pad, whatFuncDefStyle(d->func_def));
#if DEBUG > 1
if (d->func_def != FUNC_NONE) {
Trace("%s >PARAMS of %p\n", pad, d);
dump_param_list(&(d->params), level + 1);
}
#endif
Trace("%s pointer %s\n", pad, d->pointer ? "YES" : "NO");
if (d->head != 0 && d != d->head) {
Trace("%s >HEAD of %p\n", pad, d);
dump_declarator(d->head, level + 1);
}
if (d->func_stack != 0) {
Trace("%s >FUNC_STACK of %p\n", pad, d);
dump_declarator(d->func_stack, level + 1);
}
if (d->next != 0) {
Trace("%s >NEXT of %p\n", pad, d);
dump_declarator(d->next, level + 1);
}
}
static void dump_defgeneric_constituent(struct defgeneric_constituent *c)
{
dump_op(fop_DEFINE_GENERIC);
dump_id(c->name);
dump_param_list(c->params);
dump_rettypes(c->rettypes);
dump_plist(c->plist);
}
static void dump_method_parse(struct method *method)
{
if (method->name)
dump_id(method->name);
else
dump_op(fop_FALSE);
dump_param_list(method->params);
dump_rettypes(method->rettypes);
dump_body(method->body);
}
static void dump_bindings(struct bindings *bindings)
{
dump_param_list(bindings->params);
dump_expr(bindings->expr);
}
