Function CASE2

sys/vms/vmsfiles.c:264–343

i/o error */

(SS$_NOSUCHDEV, SS$_DEVNOTMOUNT)

    CASE2(RMS$_IFI, RMS$_ISI):
        VALUE(EIO); /* i/o error */
    CASE1(RMS$_DEV):
    CASE2(SS$_NOSUCHDEV, SS$_DEVNOTMOUNT):
        VALUE(ENXIO); /* no such device or address codes */
    CASE1(RMS$_DME):
 /* CASE1(LIB$INSVIRMEM): */
    CASE2(SS$_VASFULL, SS$_INSFWSL):
        VALUE(ENOMEM); /* not enough core */
    CASE1(SS$_ACCVIO):
        VALUE(EFAULT); /* bad address */
    CASE2(RMS$_DNR, SS$_DEVASSIGN):
    CASE2(SS$_DEVALLOC, SS$_DEVALRALLOC):
    CASE2(SS$_DEVMOUNT, SS$_DEVACTIVE):
        VALUE(EBUSY); /* mount device busy codes to name a few */
    CASE2(RMS$_FEX, SS$_FILALRACC):
        VALUE(EEXIST); /* file exists */
    CASE2(RMS$_IDR, SS$_BADIRECTORY):
        VALUE(ENOTDIR); /* not a directory */
    CASE1(SS$_NOIOCHAN):
        VALUE(EMFILE); /* too many open files */
    CASE1(RMS$_FUL):
    CASE2(SS$_DEVICEFULL, SS$_EXDISKQUOTA):
        VALUE(ENOSPC); /* no space left on disk codes */
    CASE2(RMS$_WLK, SS$_WRITLCK):
        VALUE(EROFS); /* read-only file system */
    default:
        VALUE(EVMSERR);
    };
/* clang-format on */
/* *INDENT-ON* */

    errno = trans;
    vaxc$errno = code;
    return code; /* (not very useful) */
}

#undef VALUE
#undef CASE1
#undef CASE2

static char base_name[NAM$C_MAXRSS + 1];

/* return a copy of the 'base' portion of a filename */
char *
vms_basename(const char *name, boolean keep_suffix)
{
    unsigned len;
    char *base, *base_p, *xtra_p;
    const char *name_p;

    /* skip directory/path */
    if ((name_p = strrchr(name, ']')) != 0)
        name = name_p + 1;
    if ((name_p = strrchr(name, '>')) != 0)
        name = name_p + 1;
    if ((name_p = strrchr(name, ':')) != 0)
        name = name_p + 1;
    if ((name_p = strrchr(name, '/')) != 0)
        name = name_p + 1;