/* atob(vp,p,base) converts p to binary result in vp, rtn 1 on success  */
int atob(u_int32_t *vp, char *p, int base)
/* atob(vp,p,base) converts p to binary result in vp, rtn 1 on success  */
int atob(u_int32_t *vp, char *p, int base)
{
    u_quad_t v;
    if (base == 0)
        p = _getbase (p, &base);
    if (_atob (&v, p, base)) {
        *vp = v;
        return (1);
    }
    return (0);
}