OpenCores
URL https://opencores.org/ocsvn/open8_urisc/open8_urisc/trunk

Subversion Repositories open8_urisc

[/] [open8_urisc/] [trunk/] [gnu/] [binutils/] [gas/] [config/] [te-vms.c] - Blame information for rev 299

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 16 khays
/* te-vms.c -- Utilities for VMS.
2
   Copyright 2009 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
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 *
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
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
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
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 *
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
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.