1 /* te-vms.c -- Utilities for VMS.
2 Copyright (C) 2009-2014 Free Software Foundation, Inc.
3
4 Written by Douglas B Rupp <rupp@gnat.com>
5
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.
10
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.
15
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. */
19
20 #include "as.h"
21 #include "te-vms.h"
22
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. */
27
28 #ifdef VMS
29 #define __NEW_STARLET 1
30 #include <vms/starlet.h>
31 #include <vms/rms.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>
37 #include <errno.h>
38 #include <vms/descrip.h>
39 #include <string.h>
40 #include <unixlib.h>
41
42 #define MAXPATH 256
43
44 /* Descrip.h doesn't have everything... */
45 typedef struct fibdef * __fibdef_ptr32 __attribute__ (( mode (SI) ));
46
47 struct dsc$descriptor_fib
48 {
49 unsigned int fib$l_len;
50 __fibdef_ptr32 fib$l_addr;
51 };
52
53 /* I/O Status Block. */
54 struct IOSB
55 {
56 unsigned short status, count;
57 unsigned int devdep;
58 };
59
60 static char *tryfile;
61
62 /* Variable length string. */
63 struct vstring
64 {
65 short length;
66 char string[NAM$C_MAXRSS+1];
67 };
68
69 static char filename_buff [MAXPATH];
70 static char vms_filespec [MAXPATH];
71
72 /* Callback function for filespec style conversion. */
73
74 static int
translate_unix(char * name,int type ATTRIBUTE_UNUSED)75 translate_unix (char *name, int type ATTRIBUTE_UNUSED)
76 {
77 strncpy (filename_buff, name, MAXPATH);
78 filename_buff [MAXPATH - 1] = (char) 0;
79 return 0;
80 }
81
82 /* Wrapper for DECC function that converts a Unix filespec
83 to VMS style filespec. */
84
85 static char *
to_vms_file_spec(char * filespec)86 to_vms_file_spec (char *filespec)
87 {
88 strncpy (vms_filespec, "", MAXPATH);
89 decc$to_vms (filespec, translate_unix, 1, 1);
90 strncpy (vms_filespec, filename_buff, MAXPATH);
91
92 vms_filespec [MAXPATH - 1] = (char) 0;
93
94 return vms_filespec;
95 }
96
97 #else /* not VMS */
98
99 #define _BSD_SOURCE 1
100 #include <sys/stat.h>
101 #include <time.h>
102
103 #define VMS_EPOCH_OFFSET 35067168000000000LL
104 #define VMS_GRANULARITY_FACTOR 10000000
105
106 #endif /* VMS */
107
108 /* Return VMS file date, size, format, version given a name. */
109
110 static int
vms_file_stats_name(const char * dirname,const char * filename,long long * cdt,long * siz,char * rfo,int * ver)111 vms_file_stats_name (const char *dirname,
112 const char *filename,
113 long long *cdt,
114 long *siz,
115 char *rfo,
116 int *ver)
117 {
118 char fullname[strlen (dirname) + strlen (filename) + 1];
119 #ifdef VMS
120 struct FAB fab;
121 struct NAM nam;
122
123 unsigned long long create;
124 FAT recattr;
125 char ascnamebuff [256];
126
127 ATRDEF atrlst[]
128 = {
129 { ATR$S_CREDATE, ATR$C_CREDATE, &create },
130 { ATR$S_RECATTR, ATR$C_RECATTR, &recattr },
131 { ATR$S_ASCNAME, ATR$C_ASCNAME, &ascnamebuff },
132 { 0, 0, 0}
133 };
134
135 FIBDEF fib;
136 struct dsc$descriptor_fib fibdsc = {sizeof (fib), (void *) &fib};
137
138 struct IOSB iosb;
139
140 long status;
141 unsigned short chan;
142
143 struct vstring file;
144 struct dsc$descriptor_s filedsc
145 = {NAM$C_MAXRSS, DSC$K_DTYPE_T, DSC$K_CLASS_S, (void *) file.string};
146 struct vstring device;
147 struct dsc$descriptor_s devicedsc
148 = {NAM$C_MAXRSS, DSC$K_DTYPE_T, DSC$K_CLASS_S, (void *) device.string};
149 struct vstring result;
150 struct dsc$descriptor_s resultdsc
151 = {NAM$C_MAXRSS, DSC$K_DTYPE_VT, DSC$K_CLASS_VS, (void *) result.string};
152
153 if (strcmp (filename, "<internal>") == 0
154 || strcmp (filename, "<built-in>") == 0)
155 {
156 if (cdt)
157 *cdt = 0;
158
159 if (siz)
160 *siz = 0;
161
162 if (rfo)
163 *rfo = 0;
164
165 if (ver)
166 *ver = 0;
167
168 return 0;
169 }
170
171 strcpy (fullname, dirname);
172 strcat (fullname, filename);
173
174 tryfile = to_vms_file_spec (fullname);
175
176 /* Allocate and initialize a FAB and NAM structures. */
177 fab = cc$rms_fab;
178 nam = cc$rms_nam;
179
180 nam.nam$l_esa = file.string;
181 nam.nam$b_ess = NAM$C_MAXRSS;
182 nam.nam$l_rsa = result.string;
183 nam.nam$b_rss = NAM$C_MAXRSS;
184 fab.fab$l_fna = tryfile;
185 fab.fab$b_fns = strlen (tryfile);
186 fab.fab$l_nam = &nam;
187
188 /* Validate filespec syntax and device existence. */
189 status = SYS$PARSE (&fab, 0, 0);
190 if ((status & 1) != 1)
191 return 1;
192
193 file.string[nam.nam$b_esl] = 0;
194
195 /* Find matching filespec. */
196 status = SYS$SEARCH (&fab, 0, 0);
197 if ((status & 1) != 1)
198 return 1;
199
200 file.string[nam.nam$b_esl] = 0;
201 result.string[result.length=nam.nam$b_rsl] = 0;
202
203 /* Get the device name and assign an IO channel. */
204 strncpy (device.string, nam.nam$l_dev, nam.nam$b_dev);
205 devicedsc.dsc$w_length = nam.nam$b_dev;
206 chan = 0;
207 status = SYS$ASSIGN (&devicedsc, &chan, 0, 0, 0);
208 if ((status & 1) != 1)
209 return 1;
210
211 /* Initialize the FIB and fill in the directory id field. */
212 memset (&fib, 0, sizeof (fib));
213 fib.fib$w_did[0] = nam.nam$w_did[0];
214 fib.fib$w_did[1] = nam.nam$w_did[1];
215 fib.fib$w_did[2] = nam.nam$w_did[2];
216 fib.fib$l_acctl = 0;
217 fib.fib$l_wcc = 0;
218 strcpy (file.string, (strrchr (result.string, ']') + 1));
219 filedsc.dsc$w_length = strlen (file.string);
220 result.string[result.length = 0] = 0;
221
222 /* Open and close the file to fill in the attributes. */
223 status
224 = SYS$QIOW (0, chan, IO$_ACCESS|IO$M_ACCESS, &iosb, 0, 0,
225 &fibdsc, &filedsc, &result.length, &resultdsc, &atrlst, 0);
226 if ((status & 1) != 1)
227 return 1;
228 if ((iosb.status & 1) != 1)
229 return 1;
230
231 result.string[result.length] = 0;
232 status = SYS$QIOW (0, chan, IO$_DEACCESS, &iosb, 0, 0, &fibdsc, 0, 0, 0,
233 &atrlst, 0);
234 if ((status & 1) != 1)
235 return 1;
236 if ((iosb.status & 1) != 1)
237 return 1;
238
239 /* Deassign the channel and exit. */
240 status = SYS$DASSGN (chan);
241 if ((status & 1) != 1)
242 return 1;
243
244 if (cdt) *cdt = create;
245 if (siz) *siz = (512 * 65536 * recattr.fat$w_efblkh) +
246 (512 * (recattr.fat$w_efblkl - 1)) +
247 recattr.fat$w_ffbyte;
248 if (rfo) *rfo = recattr.fat$v_rtype;
249 if (ver) *ver = strtol (strrchr (ascnamebuff, ';') + 1, 0, 10);
250 #else /* not VMS */
251
252 struct stat buff;
253 struct tm *ts;
254 long long gmtoff, secs, nsecs;
255
256 strcpy (fullname, dirname);
257 strcat (fullname, filename);
258
259 if ((stat (fullname, &buff)) != 0)
260 return 1;
261
262 if (cdt)
263 {
264 ts = localtime (& buff.st_mtime);
265
266 #ifdef HAVE_TM_GMTOFF
267 gmtoff = ts->tm_gmtoff;
268 #else
269 {
270 extern long timezone;
271
272 if (ts->tm_isdst == 1)
273 gmtoff = - (timezone - 3600);
274 else
275 gmtoff = - timezone;
276 }
277 #endif
278
279 #ifdef HAVE_ST_MTIM_TV_SEC
280 secs = buff.st_mtim.tv_sec;
281 #else
282 secs = buff.st_mtime;
283 #endif
284
285 #ifdef HAVE_ST_MTIM_TV_NSEC
286 nsecs = buff.st_mtim.tv_nsec;
287 #else
288 nsecs = 0;
289 #endif
290
291 /* VMS timestamps are stored in local time to 100 nsec accuracy, but by
292 experiment I found timestamps truncated to (at least) microseconds
293 on an NFS mounted filesystem, hence the adjustment below. DBR. */
294 *cdt = ((secs + gmtoff) * VMS_GRANULARITY_FACTOR)
295 + (nsecs / 1000 * 10) + VMS_EPOCH_OFFSET;
296 }
297
298 if (siz)
299 *siz = buff.st_size;
300
301 if (rfo)
302 *rfo = 2; /* Stream LF format. */
303
304 /* Returning a file version of 0 is never correct for debug info, version 1
305 will be correct if file editing is done only on the Unix side. If editing
306 is done on the VMS side, then its TBD. */
307 if (ver)
308 *ver = 1;
309 #endif /* VMS */
310
311 return 0;
312 }
313
314 bfd_uint64_t
vms_dwarf2_file_time_name(const char * filename,const char * dirname)315 vms_dwarf2_file_time_name (const char *filename, const char *dirname)
316 {
317 long long cdt;
318
319 if (vms_file_stats_name (dirname, filename, &cdt, 0, 0, 0) == 0)
320 return cdt;
321 else
322 return 0;
323 }
324
325 long
vms_dwarf2_file_size_name(const char * filename,const char * dirname)326 vms_dwarf2_file_size_name (const char *filename, const char *dirname)
327 {
328 long siz;
329
330 if (vms_file_stats_name (dirname, filename, 0, &siz, 0, 0) == 0)
331 return siz;
332 else
333 return 0;
334 }
335
336 /* VMS debugger needs the filename with version appended. */
337 /* Longest filename on VMS is 255 characters. Largest version is 32768. */
338 char *
vms_dwarf2_file_name(const char * filename,const char * dirname)339 vms_dwarf2_file_name (const char *filename, const char *dirname)
340 {
341 int ver;
342 static char buff [255 + 7];
343
344 vms_file_stats_name (dirname, filename, 0, 0, 0, &ver);
345 snprintf (buff, 255 + 7, "%s;%d", filename, ver);
346 return buff;
347 }
348