1.1 --- /dev/null Thu Jan 01 00:00:00 1970 +0000
1.2 +++ b/os/ossrv/ssl/libcrypto/src/crypto/lpdir_vms.c Fri Jun 15 03:10:57 2012 +0200
1.3 @@ -0,0 +1,199 @@
1.4 +/* $LP: LPlib/source/LPdir_vms.c,v 1.20 2004/08/26 13:36:05 _cvs_levitte Exp $ */
1.5 +/*
1.6 + * Copyright (c) 2004, Richard Levitte <richard@levitte.org>
1.7 + * All rights reserved.
1.8 + *
1.9 + * Redistribution and use in source and binary forms, with or without
1.10 + * modification, are permitted provided that the following conditions
1.11 + * are met:
1.12 + * 1. Redistributions of source code must retain the above copyright
1.13 + * notice, this list of conditions and the following disclaimer.
1.14 + * 2. Redistributions in binary form must reproduce the above copyright
1.15 + * notice, this list of conditions and the following disclaimer in the
1.16 + * documentation and/or other materials provided with the distribution.
1.17 + *
1.18 + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
1.19 + * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
1.20 + * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
1.21 + * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
1.22 + * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
1.23 + * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
1.24 + * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
1.25 + * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
1.26 + * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
1.27 + * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
1.28 + * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
1.29 + */
1.30 +
1.31 +#include <stddef.h>
1.32 +#include <stdlib.h>
1.33 +#include <string.h>
1.34 +#include <errno.h>
1.35 +#include <descrip.h>
1.36 +#include <namdef.h>
1.37 +#include <rmsdef.h>
1.38 +#include <libfildef.h>
1.39 +#include <lib$routines.h>
1.40 +#include <strdef.h>
1.41 +#include <str$routines.h>
1.42 +#include <stsdef.h>
1.43 +#ifndef LPDIR_H
1.44 +#include "LPdir.h"
1.45 +#endif
1.46 +
1.47 +/* Because some compiler options hide this macor */
1.48 +#ifndef EVMSERR
1.49 +#define EVMSERR 65535 /* error for non-translatable VMS errors */
1.50 +#endif
1.51 +
1.52 +struct LP_dir_context_st
1.53 +{
1.54 + unsigned long VMS_context;
1.55 +#ifdef NAML$C_MAXRSS
1.56 + char filespec[NAML$C_MAXRSS+1];
1.57 + char result[NAML$C_MAXRSS+1];
1.58 +#else
1.59 + char filespec[256];
1.60 + char result[256];
1.61 +#endif
1.62 + struct dsc$descriptor_d filespec_dsc;
1.63 + struct dsc$descriptor_d result_dsc;
1.64 +};
1.65 +
1.66 +const char *LP_find_file(LP_DIR_CTX **ctx, const char *directory)
1.67 +{
1.68 + int status;
1.69 + char *p, *r;
1.70 + size_t l;
1.71 + unsigned long flags = 0;
1.72 +#ifdef NAML$C_MAXRSS
1.73 + flags |= LIB$M_FIL_LONG_NAMES;
1.74 +#endif
1.75 +
1.76 + if (ctx == NULL || directory == NULL)
1.77 + {
1.78 + errno = EINVAL;
1.79 + return 0;
1.80 + }
1.81 +
1.82 + errno = 0;
1.83 + if (*ctx == NULL)
1.84 + {
1.85 + size_t filespeclen = strlen(directory);
1.86 + char *filespec = NULL;
1.87 +
1.88 + /* MUST be a VMS directory specification! Let's estimate if it is. */
1.89 + if (directory[filespeclen-1] != ']'
1.90 + && directory[filespeclen-1] != '>'
1.91 + && directory[filespeclen-1] != ':')
1.92 + {
1.93 + errno = EINVAL;
1.94 + return 0;
1.95 + }
1.96 +
1.97 + filespeclen += 4; /* "*.*;" */
1.98 +
1.99 + if (filespeclen >
1.100 +#ifdef NAML$C_MAXRSS
1.101 + NAML$C_MAXRSS
1.102 +#else
1.103 + 255
1.104 +#endif
1.105 + )
1.106 + {
1.107 + errno = ENAMETOOLONG;
1.108 + return 0;
1.109 + }
1.110 +
1.111 + *ctx = (LP_DIR_CTX *)malloc(sizeof(LP_DIR_CTX));
1.112 + if (*ctx == NULL)
1.113 + {
1.114 + errno = ENOMEM;
1.115 + return 0;
1.116 + }
1.117 + memset(*ctx, '\0', sizeof(LP_DIR_CTX));
1.118 +
1.119 + strcpy((*ctx)->filespec,directory);
1.120 + strcat((*ctx)->filespec,"*.*;");
1.121 + (*ctx)->filespec_dsc.dsc$w_length = filespeclen;
1.122 + (*ctx)->filespec_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
1.123 + (*ctx)->filespec_dsc.dsc$b_class = DSC$K_CLASS_S;
1.124 + (*ctx)->filespec_dsc.dsc$a_pointer = (*ctx)->filespec;
1.125 + (*ctx)->result_dsc.dsc$w_length = 0;
1.126 + (*ctx)->result_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
1.127 + (*ctx)->result_dsc.dsc$b_class = DSC$K_CLASS_D;
1.128 + (*ctx)->result_dsc.dsc$a_pointer = 0;
1.129 + }
1.130 +
1.131 + (*ctx)->result_dsc.dsc$w_length = 0;
1.132 + (*ctx)->result_dsc.dsc$b_dtype = DSC$K_DTYPE_T;
1.133 + (*ctx)->result_dsc.dsc$b_class = DSC$K_CLASS_D;
1.134 + (*ctx)->result_dsc.dsc$a_pointer = 0;
1.135 +
1.136 + status = lib$find_file(&(*ctx)->filespec_dsc, &(*ctx)->result_dsc,
1.137 + &(*ctx)->VMS_context, 0, 0, 0, &flags);
1.138 +
1.139 + if (status == RMS$_NMF)
1.140 + {
1.141 + errno = 0;
1.142 + vaxc$errno = status;
1.143 + return NULL;
1.144 + }
1.145 +
1.146 + if(!$VMS_STATUS_SUCCESS(status))
1.147 + {
1.148 + errno = EVMSERR;
1.149 + vaxc$errno = status;
1.150 + return NULL;
1.151 + }
1.152 +
1.153 + /* Quick, cheap and dirty way to discard any device and directory,
1.154 + since we only want file names */
1.155 + l = (*ctx)->result_dsc.dsc$w_length;
1.156 + p = (*ctx)->result_dsc.dsc$a_pointer;
1.157 + r = p;
1.158 + for (; *p; p++)
1.159 + {
1.160 + if (*p == '^' && p[1] != '\0') /* Take care of ODS-5 escapes */
1.161 + {
1.162 + p++;
1.163 + }
1.164 + else if (*p == ':' || *p == '>' || *p == ']')
1.165 + {
1.166 + l -= p + 1 - r;
1.167 + r = p + 1;
1.168 + }
1.169 + else if (*p == ';')
1.170 + {
1.171 + l = p - r;
1.172 + break;
1.173 + }
1.174 + }
1.175 +
1.176 + strncpy((*ctx)->result, r, l);
1.177 + (*ctx)->result[l] = '\0';
1.178 + str$free1_dx(&(*ctx)->result_dsc);
1.179 +
1.180 + return (*ctx)->result;
1.181 +}
1.182 +
1.183 +int LP_find_file_end(LP_DIR_CTX **ctx)
1.184 +{
1.185 + if (ctx != NULL && *ctx != NULL)
1.186 + {
1.187 + int status = lib$find_file_end(&(*ctx)->VMS_context);
1.188 +
1.189 + free(*ctx);
1.190 +
1.191 + if(!$VMS_STATUS_SUCCESS(status))
1.192 + {
1.193 + errno = EVMSERR;
1.194 + vaxc$errno = status;
1.195 + return 0;
1.196 + }
1.197 + return 1;
1.198 + }
1.199 + errno = EINVAL;
1.200 + return 0;
1.201 +}
1.202 +