static void
prlevel(char *name, value_t*root, int level)
{
ARRAY_S *arr;
for(arr=root->arr->next; arr != root->arr; arr=arr->next) {
printf("%*s%s[", level*3, "", name);
prtval(arr->idx);
printf("]=");
prtval(arr->val);
printf("\n");
prlevel(name, arr->val, level+1);
}
}
/* eppic_prarr builtin */
value_t*
eppic_prarr(value_t*vname, value_t*root)
{
char *name=eppic_getptr(vname, char);
printf("%s=", name);
prtval(root);
printf("\n");
prlevel(name, root, 1);
return eppic_makebtype(0);
}
void prtreg(char * name, long val) {
prtval(val);
fprintf(stderr," %s",name);
}