You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
195 lines
5.8 KiB
195 lines
5.8 KiB
/* |
|
* Copyright (c) 2004, Richard Levitte <richard@levitte.org> |
|
* All rights reserved. |
|
* |
|
* Redistribution and use in source and binary forms, with or without |
|
* modification, are permitted provided that the following conditions |
|
* are met: |
|
* 1. Redistributions of source code must retain the above copyright |
|
* notice, this list of conditions and the following disclaimer. |
|
* 2. Redistributions in binary form must reproduce the above copyright |
|
* notice, this list of conditions and the following disclaimer in the |
|
* documentation and/or other materials provided with the distribution. |
|
* |
|
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS |
|
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT |
|
* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR |
|
* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT |
|
* OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, |
|
* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT |
|
* LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, |
|
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY |
|
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT |
|
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE |
|
* OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
|
*/ |
|
|
|
#include <stddef.h> |
|
#include <stdlib.h> |
|
#include <string.h> |
|
#include <errno.h> |
|
#include <descrip.h> |
|
#include <namdef.h> |
|
#include <rmsdef.h> |
|
#include <libfildef.h> |
|
#include <lib$routines.h> |
|
#include <strdef.h> |
|
#include <str$routines.h> |
|
#include <stsdef.h> |
|
#ifndef LPDIR_H |
|
# include "LPdir.h" |
|
#endif |
|
#include "vms_rms.h" |
|
|
|
/* Some compiler options hide EVMSERR. */ |
|
#ifndef EVMSERR |
|
# define EVMSERR 65535 /* error for non-translatable VMS errors */ |
|
#endif |
|
|
|
struct LP_dir_context_st { |
|
unsigned long VMS_context; |
|
char filespec[NAMX_MAXRSS + 1]; |
|
char result[NAMX_MAXRSS + 1]; |
|
struct dsc$descriptor_d filespec_dsc; |
|
struct dsc$descriptor_d result_dsc; |
|
}; |
|
|
|
const char *LP_find_file(LP_DIR_CTX **ctx, const char *directory) |
|
{ |
|
int status; |
|
char *p, *r; |
|
size_t l; |
|
unsigned long flags = 0; |
|
|
|
/* Arrange 32-bit pointer to (copied) string storage, if needed. */ |
|
#if __INITIAL_POINTER_SIZE == 64 |
|
# pragma pointer_size save |
|
# pragma pointer_size 32 |
|
char *ctx_filespec_32p; |
|
# pragma pointer_size restore |
|
char ctx_filespec_32[NAMX_MAXRSS + 1]; |
|
#endif /* __INITIAL_POINTER_SIZE == 64 */ |
|
|
|
#ifdef NAML$C_MAXRSS |
|
flags |= LIB$M_FIL_LONG_NAMES; |
|
#endif |
|
|
|
if (ctx == NULL || directory == NULL) { |
|
errno = EINVAL; |
|
return 0; |
|
} |
|
|
|
errno = 0; |
|
if (*ctx == NULL) { |
|
size_t filespeclen = strlen(directory); |
|
char *filespec = NULL; |
|
|
|
if (filespeclen == 0) { |
|
errno = ENOENT; |
|
return 0; |
|
} |
|
|
|
/* MUST be a VMS directory specification! Let's estimate if it is. */ |
|
if (directory[filespeclen - 1] != ']' |
|
&& directory[filespeclen - 1] != '>' |
|
&& directory[filespeclen - 1] != ':') { |
|
errno = EINVAL; |
|
return 0; |
|
} |
|
|
|
filespeclen += 4; /* "*.*;" */ |
|
|
|
if (filespeclen > NAMX_MAXRSS) { |
|
errno = ENAMETOOLONG; |
|
return 0; |
|
} |
|
|
|
*ctx = (LP_DIR_CTX *)malloc(sizeof(LP_DIR_CTX)); |
|
if (*ctx == NULL) { |
|
errno = ENOMEM; |
|
return 0; |
|
} |
|
memset(*ctx, '\0', sizeof(LP_DIR_CTX)); |
|
|
|
strcpy((*ctx)->filespec, directory); |
|
strcat((*ctx)->filespec, "*.*;"); |
|
|
|
/* Arrange 32-bit pointer to (copied) string storage, if needed. */ |
|
#if __INITIAL_POINTER_SIZE == 64 |
|
# define CTX_FILESPEC ctx_filespec_32p |
|
/* Copy the file name to storage with a 32-bit pointer. */ |
|
ctx_filespec_32p = ctx_filespec_32; |
|
strcpy(ctx_filespec_32p, (*ctx)->filespec); |
|
#else /* __INITIAL_POINTER_SIZE == 64 */ |
|
# define CTX_FILESPEC (*ctx)->filespec |
|
#endif /* __INITIAL_POINTER_SIZE == 64 [else] */ |
|
|
|
(*ctx)->filespec_dsc.dsc$w_length = filespeclen; |
|
(*ctx)->filespec_dsc.dsc$b_dtype = DSC$K_DTYPE_T; |
|
(*ctx)->filespec_dsc.dsc$b_class = DSC$K_CLASS_S; |
|
(*ctx)->filespec_dsc.dsc$a_pointer = CTX_FILESPEC; |
|
} |
|
|
|
(*ctx)->result_dsc.dsc$w_length = 0; |
|
(*ctx)->result_dsc.dsc$b_dtype = DSC$K_DTYPE_T; |
|
(*ctx)->result_dsc.dsc$b_class = DSC$K_CLASS_D; |
|
(*ctx)->result_dsc.dsc$a_pointer = 0; |
|
|
|
status = lib$find_file(&(*ctx)->filespec_dsc, &(*ctx)->result_dsc, |
|
&(*ctx)->VMS_context, 0, 0, 0, &flags); |
|
|
|
if (status == RMS$_NMF) { |
|
errno = 0; |
|
vaxc$errno = status; |
|
return NULL; |
|
} |
|
|
|
if (!$VMS_STATUS_SUCCESS(status)) { |
|
errno = EVMSERR; |
|
vaxc$errno = status; |
|
return NULL; |
|
} |
|
|
|
/* |
|
* Quick, cheap and dirty way to discard any device and directory, since |
|
* we only want file names |
|
*/ |
|
l = (*ctx)->result_dsc.dsc$w_length; |
|
p = (*ctx)->result_dsc.dsc$a_pointer; |
|
r = p; |
|
for (; *p; p++) { |
|
if (*p == '^' && p[1] != '\0') { /* Take care of ODS-5 escapes */ |
|
p++; |
|
} else if (*p == ':' || *p == '>' || *p == ']') { |
|
l -= p + 1 - r; |
|
r = p + 1; |
|
} else if (*p == ';') { |
|
l = p - r; |
|
break; |
|
} |
|
} |
|
|
|
strncpy((*ctx)->result, r, l); |
|
(*ctx)->result[l] = '\0'; |
|
str$free1_dx(&(*ctx)->result_dsc); |
|
|
|
return (*ctx)->result; |
|
} |
|
|
|
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; |
|
}
|
|
|