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); }