/* 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);
}
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);
}
}
void pr_dir (char *name, void *arg, int level)
{
prlevel(level);
printf("%s\n", name);
}