/* parse.c 725d */
XDef readxdef(XDefreader dr) {
    Par p;

    if (dr->pl == NULL) {
        dr->pl = readparlist(dr->r, 1, dr->prompts);
        if (dr->pl == NULL) 
            return NULL;
    }

    p = dr->pl->hd;
    dr->pl = dr->pl->tl;
    return parse(p);
}
Exemplo n.º 2
0
/*
 * <parse.c>=
 */
Def readdef(Defreader dr) {
    Par p;

    if (dr->pl == NULL) {
        dr->pl = readparlist(dr->r, 0, dr->doprompt);
        if (dr->pl == NULL) 
            return NULL;
    }

    p      = dr->pl->hd;
    dr->pl = dr->pl->tl;
    return parse(p);
}