1 /* vmsutil.c -- Utilities for VMS.
2 Copyright 2009 Free Software Foundation, Inc.
4 Written by Douglas B Rupp <rupp@gnat.com>
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 3 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
23 /* The purspose of the two alternate versions below is to have one that
24 works for native VMS and one that works on an NFS mounted filesystem
25 (Unix Server/VMS client). The main issue being to generate the special
26 VMS file timestamps for the debug info. */
29 #define __NEW_STARLET 1
30 #include <vms/starlet.h>
32 #include <vms/atrdef.h>
33 #include <vms/fibdef.h>
34 #include <vms/stsdef.h>
35 #include <vms/iodef.h>
36 #include <vms/fatdef.h>
38 #include <vms/descrip.h>
44 /* Descrip.h doesn't have everything... */
45 typedef struct fibdef * __fibdef_ptr32 __attribute__ (( mode (SI) ));
47 struct dsc$descriptor_fib
49 unsigned int fib$l_len;
50 __fibdef_ptr32 fib$l_addr;
53 /* I/O Status Block. */
56 unsigned short status, count;
62 /* Variable length string. */
66 char string[NAM$C_MAXRSS+1];
69 static char filename_buff [MAXPATH];
70 static char vms_filespec [MAXPATH];
72 /* Callback function for filespec style conversion. */
75 translate_unix (char *name, int type ATTRIBUTE_UNUSED)
77 strncpy (filename_buff, name, MAXPATH);
78 filename_buff [MAXPATH - 1] = (char) 0;
82 /* Wrapper for DECC function that converts a Unix filespec
83 to VMS style filespec. */
86 to_vms_file_spec (char *filespec)
88 strncpy (vms_filespec, "", MAXPATH);
89 decc$to_vms (filespec, translate_unix, 1, 1);
90 strncpy (vms_filespec, filename_buff, MAXPATH);
92 vms_filespec [MAXPATH - 1] = (char) 0;
100 #include <sys/stat.h>
103 #define VMS_EPOCH_OFFSET 35067168000000000LL
104 #define VMS_GRANULARITY_FACTOR 10000000
108 /* Return VMS file date, size, format, version given a name. */
111 vms_file_stats_name (const char *filename,
121 unsigned long long create;
123 char ascnamebuff [256];
127 { ATR$S_CREDATE, ATR$C_CREDATE, &create },
128 { ATR$S_RECATTR, ATR$C_RECATTR, &recattr },
129 { ATR$S_ASCNAME, ATR$C_ASCNAME, &ascnamebuff },
134 struct dsc$descriptor_fib fibdsc = {sizeof (fib), (void *) &fib};
142 struct dsc$descriptor_s filedsc
143 = {NAM$C_MAXRSS, DSC$K_DTYPE_T, DSC$K_CLASS_S, (void *) file.string};
144 struct vstring device;
145 struct dsc$descriptor_s devicedsc
146 = {NAM$C_MAXRSS, DSC$K_DTYPE_T, DSC$K_CLASS_S, (void *) device.string};
147 struct vstring result;
148 struct dsc$descriptor_s resultdsc
149 = {NAM$C_MAXRSS, DSC$K_DTYPE_VT, DSC$K_CLASS_VS, (void *) result.string};
151 if (strcmp (filename, "<internal>") == 0
152 || strcmp (filename, "<built-in>") == 0)
169 tryfile = to_vms_file_spec ((char *) filename);
171 /* Allocate and initialize a FAB and NAM structures. */
175 nam.nam$l_esa = file.string;
176 nam.nam$b_ess = NAM$C_MAXRSS;
177 nam.nam$l_rsa = result.string;
178 nam.nam$b_rss = NAM$C_MAXRSS;
179 fab.fab$l_fna = tryfile;
180 fab.fab$b_fns = strlen (tryfile);
181 fab.fab$l_nam = &nam;
183 /* Validate filespec syntax and device existence. */
184 status = SYS$PARSE (&fab, 0, 0);
185 if ((status & 1) != 1)
188 file.string[nam.nam$b_esl] = 0;
190 /* Find matching filespec. */
191 status = SYS$SEARCH (&fab, 0, 0);
192 if ((status & 1) != 1)
195 file.string[nam.nam$b_esl] = 0;
196 result.string[result.length=nam.nam$b_rsl] = 0;
198 /* Get the device name and assign an IO channel. */
199 strncpy (device.string, nam.nam$l_dev, nam.nam$b_dev);
200 devicedsc.dsc$w_length = nam.nam$b_dev;
202 status = SYS$ASSIGN (&devicedsc, &chan, 0, 0, 0);
203 if ((status & 1) != 1)
206 /* Initialize the FIB and fill in the directory id field. */
207 memset (&fib, 0, sizeof (fib));
208 fib.fib$w_did[0] = nam.nam$w_did[0];
209 fib.fib$w_did[1] = nam.nam$w_did[1];
210 fib.fib$w_did[2] = nam.nam$w_did[2];
213 strcpy (file.string, (strrchr (result.string, ']') + 1));
214 filedsc.dsc$w_length = strlen (file.string);
215 result.string[result.length = 0] = 0;
217 /* Open and close the file to fill in the attributes. */
219 = SYS$QIOW (0, chan, IO$_ACCESS|IO$M_ACCESS, &iosb, 0, 0,
220 &fibdsc, &filedsc, &result.length, &resultdsc, &atrlst, 0);
221 if ((status & 1) != 1)
223 if ((iosb.status & 1) != 1)
226 result.string[result.length] = 0;
227 status = SYS$QIOW (0, chan, IO$_DEACCESS, &iosb, 0, 0, &fibdsc, 0, 0, 0,
229 if ((status & 1) != 1)
231 if ((iosb.status & 1) != 1)
234 /* Deassign the channel and exit. */
235 status = SYS$DASSGN (chan);
236 if ((status & 1) != 1)
239 if (cdt) *cdt = create;
240 if (siz) *siz = (512 * 65536 * recattr.fat$w_efblkh) +
241 (512 * (recattr.fat$w_efblkl - 1)) +
242 recattr.fat$w_ffbyte;
243 if (rfo) *rfo = recattr.fat$v_rtype;
244 if (ver) *ver = strtol (strrchr (ascnamebuff, ';') + 1, 0, 10);
249 long long gmtoff, secs, nsecs;
251 if ((stat (filename, &buff)) != 0)
256 ts = localtime (& buff.st_mtime);
258 #ifdef HAVE_TM_GMTOFF
259 gmtoff = ts->tm_gmtoff;
262 extern long timezone;
264 if (ts->tm_isdst == 1)
265 gmtoff = - (timezone - 3600);
271 #ifdef HAVE_ST_MTIM_TV_SEC
272 secs = buff.st_mtim.tv_sec;
274 secs = buff.st_mtime;
277 #ifdef HAVE_ST_MTIM_TV_NSEC
278 nsecs = buff.st_mtim.tv_nsec;
283 /* VMS timestamps are stored in local time to 100 nsec accuracy, but by
284 experiment I found timestamps truncated to (at least) microseconds
285 on an NFS mounted filesystem, hence the adjustment below. DBR. */
286 *cdt = ((secs + gmtoff) * VMS_GRANULARITY_FACTOR)
287 + (nsecs / 1000 * 10) + VMS_EPOCH_OFFSET;
294 *rfo = 2; /* Stream LF format. */
296 /* Returning a file version of 0 is never correct for debug info, version 1
297 will be correct if file editing is done only on the Unix side. If editing
298 is done on the VMS side, then its TBD. */