#define TABOVER(n) tabover(n,stderr)
if (progress
) fprintf(stderr
,"prgraph():\n");
for (v
= 0; v
< nodenum
; ++v
)
fprintf(stderr
,"%d %s:",v
, typename
[NTYPE(v
)]);
for (i
= 0; i
< ARCNUM(v
); ++i
)
ASSERT(UNDEFINED
<= ARC(v
,i
) && ARC(v
,i
) < nodenum
, prgraph
);
prtr(v
,tab
) /* print tree in form of program indenting by tab */
fprintf(stderr
,"%d %s:",v
,typename
[NTYPE(v
)]);
for (i
= 0; i
< ARCNUM(v
); ++i
)
fprintf(stderr
," %d",ARC(v
,i
));
for (i
= 0; i
< CHILDNUM(v
); ++i
)
if (DEFINED(LCHILD(v
,i
)))
tabover(n
,fd
) /* tab n times */