1 /* $LP: LPlib/source/LPdir_vms.c,v 1.20 2004/08/26 13:36:05 _cvs_levitte Exp $ */
3 * Copyright (c) 2004, Richard Levitte <richard@levitte.org>
6 * Redistribution and use in source and binary forms, with or without
7 * modification, are permitted provided that the following conditions
9 * 1. Redistributions of source code must retain the above copyright
10 * notice, this list of conditions and the following disclaimer.
11 * 2. Redistributions in binary form must reproduce the above copyright
12 * notice, this list of conditions and the following disclaimer in the
13 * documentation and/or other materials provided with the distribution.
15 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
16 * ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
17 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR
18 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
19 * OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
20 * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
21 * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
22 * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
23 * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
24 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE
25 * OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
35 #include <libfildef.h>
36 #include <lib$routines.h>
38 #include <str$routines.h>
44 /* Because some compiler options hide this macor */
46 #define EVMSERR 65535 /* error for non-translatable VMS errors */
49 struct LP_dir_context_st
51 unsigned long VMS_context
;
53 char filespec
[NAML$C_MAXRSS
+1];
54 char result
[NAML$C_MAXRSS
+1];
59 struct dsc$descriptor_d filespec_dsc
;
60 struct dsc$descriptor_d result_dsc
;
63 const char *LP_find_file(LP_DIR_CTX
**ctx
, const char *directory
)
68 unsigned long flags
= 0;
70 flags
|= LIB$M_FIL_LONG_NAMES
;
73 if (ctx
== NULL
|| directory
== NULL
)
82 size_t filespeclen
= strlen(directory
);
83 char *filespec
= NULL
;
85 /* MUST be a VMS directory specification! Let's estimate if it is. */
86 if (directory
[filespeclen
-1] != ']'
87 && directory
[filespeclen
-1] != '>'
88 && directory
[filespeclen
-1] != ':')
94 filespeclen
+= 4; /* "*.*;" */
104 errno
= ENAMETOOLONG
;
108 *ctx
= (LP_DIR_CTX
*)malloc(sizeof(LP_DIR_CTX
));
114 memset(*ctx
, '\0', sizeof(LP_DIR_CTX
));
116 strcpy((*ctx
)->filespec
,directory
);
117 strcat((*ctx
)->filespec
,"*.*;");
118 (*ctx
)->filespec_dsc
.dsc$w_length
= filespeclen
;
119 (*ctx
)->filespec_dsc
.dsc$b_dtype
= DSC$K_DTYPE_T
;
120 (*ctx
)->filespec_dsc
.dsc$b_class
= DSC$K_CLASS_S
;
121 (*ctx
)->filespec_dsc
.dsc$a_pointer
= (*ctx
)->filespec
;
122 (*ctx
)->result_dsc
.dsc$w_length
= 0;
123 (*ctx
)->result_dsc
.dsc$b_dtype
= DSC$K_DTYPE_T
;
124 (*ctx
)->result_dsc
.dsc$b_class
= DSC$K_CLASS_D
;
125 (*ctx
)->result_dsc
.dsc$a_pointer
= 0;
128 (*ctx
)->result_dsc
.dsc$w_length
= 0;
129 (*ctx
)->result_dsc
.dsc$b_dtype
= DSC$K_DTYPE_T
;
130 (*ctx
)->result_dsc
.dsc$b_class
= DSC$K_CLASS_D
;
131 (*ctx
)->result_dsc
.dsc$a_pointer
= 0;
133 status
= lib$
find_file(&(*ctx
)->filespec_dsc
, &(*ctx
)->result_dsc
,
134 &(*ctx
)->VMS_context
, 0, 0, 0, &flags
);
136 if (status
== RMS$_NMF
)
143 if(!$
VMS_STATUS_SUCCESS(status
))
150 /* Quick, cheap and dirty way to discard any device and directory,
151 since we only want file names */
152 l
= (*ctx
)->result_dsc
.dsc$w_length
;
153 p
= (*ctx
)->result_dsc
.dsc$a_pointer
;
157 if (*p
== '^' && p
[1] != '\0') /* Take care of ODS-5 escapes */
161 else if (*p
== ':' || *p
== '>' || *p
== ']')
173 strncpy((*ctx
)->result
, r
, l
);
174 (*ctx
)->result
[l
] = '\0';
175 str$
free1_dx(&(*ctx
)->result_dsc
);
177 return (*ctx
)->result
;
180 int LP_find_file_end(LP_DIR_CTX
**ctx
)
182 if (ctx
!= NULL
&& *ctx
!= NULL
)
184 int status
= lib$
find_file_end(&(*ctx
)->VMS_context
);
188 if(!$
VMS_STATUS_SUCCESS(status
))