void closedir(int context) { lib$find_file_end(&dircontext[context]); free(searchpath[context]); searchpath[context] = (char *) 0; dircontext[context] = 0; }
PRIVATE int HTVMSclosedir(DIR *dirp) { long status; status = lib$find_file_end(&(dirp->context)); if (!(status & 0x01)) exit(status); dirp->context = 0; return(0); }
int LP_find_file_end(LP_DIR_CTX **ctx) { if (ctx != NULL && *ctx != NULL) { int status = lib$find_file_end(&(*ctx)->VMS_context); free(*ctx); if (!$VMS_STATUS_SUCCESS(status)) { errno = EVMSERR; vaxc$errno = status; return 0; } return 1; } errno = EINVAL; return 0; }