Exemplo n.º 1
0
/* 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);
}
Exemplo n.º 2
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);
    }
}
Exemplo n.º 3
0
Arquivo: walk.c Projeto: taysom/tau
void pr_dir (char *name, void *arg, int level)
{
    prlevel(level);
    printf("%s\n", name);
}