source: trunk/src/binutils/bfd/vms-hdr.c@ 1917

Last change on this file since 1917 was 610, checked in by bird, 22 years ago

This commit was generated by cvs2svn to compensate for changes in r609,
which included commits to RCS files with non-trunk default branches.
  • Property cvs2svn:cvs-rev set to 1.1.1.2
  • Property svn:eol-style set to native
  • Property svn:executable set to *
File size: 9.8 KB
Line 
1/* vms-hdr.c -- BFD back-end for VMS/VAX (openVMS/VAX) and
2 EVAX (openVMS/Alpha) files.
3 Copyright 1996, 1997, 1998, 1999, 2000, 2001, 2002
4 Free Software Foundation, Inc.
5
6 HDR record handling functions
7 EMH record handling functions
8 and
9 EOM record handling functions
10 EEOM record handling functions
11
12 Written by Klaus K"ampf ([email protected])
13
14This program is free software; you can redistribute it and/or modify
15it under the terms of the GNU General Public License as published by
16the Free Software Foundation; either version 2 of the License, or
17(at your option) any later version.
18
19This program is distributed in the hope that it will be useful,
20but WITHOUT ANY WARRANTY; without even the implied warranty of
21MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
22GNU General Public License for more details.
23
24You should have received a copy of the GNU General Public License
25along with this program; if not, write to the Free Software
26Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
27
28#include "bfd.h"
29#include "bfdver.h"
30#include "sysdep.h"
31#include "bfdlink.h"
32#include "safe-ctype.h"
33#include "libbfd.h"
34
35#include "vms.h"
36
37#ifdef HAVE_ALLOCA_H
38#include <alloca.h>
39#endif
40
41static unsigned char *get_vms_time_string PARAMS ((void));
42
43
44/*---------------------------------------------------------------------------*/
45
46/* Read & process emh record
47 return 0 on success, -1 on error */
48
49int
50_bfd_vms_slurp_hdr (abfd, objtype)
51 bfd *abfd;
52 int objtype;
53{
54 unsigned char *ptr;
55 unsigned char *vms_rec;
56 int subtype;
57
58 vms_rec = PRIV(vms_rec);
59
60#if VMS_DEBUG
61 vms_debug(2, "HDR/EMH\n");
62#endif
63
64 switch (objtype)
65 {
66 case OBJ_S_C_HDR:
67 subtype = vms_rec[1];
68 break;
69 case EOBJ_S_C_EMH:
70 subtype = bfd_getl16 (vms_rec + 4) + EVAX_OFFSET;
71 break;
72 default:
73 subtype = -1;
74 }
75
76#if VMS_DEBUG
77 vms_debug(3, "subtype %d\n", subtype);
78#endif
79
80 switch (subtype)
81 {
82
83 case MHD_S_C_MHD:
84 /*
85 * module header
86 */
87 PRIV(hdr_data).hdr_b_strlvl = vms_rec[2];
88 PRIV(hdr_data).hdr_l_recsiz = bfd_getl16 (vms_rec + 3);
89 PRIV(hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 5);
90 ptr = vms_rec + 5 + vms_rec[5] + 1;
91 PRIV(hdr_data).hdr_t_version = _bfd_vms_save_counted_string (ptr);
92 ptr += *ptr + 1;
93 PRIV(hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);
94
95 break;
96
97 case MHD_S_C_LNM:
98 /*
99 *
100 */
101 PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
102 break;
103
104 case MHD_S_C_SRC:
105 /*
106 *
107 */
108 PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
109 break;
110
111 case MHD_S_C_TTL:
112 /*
113 *
114 */
115 PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
116 break;
117
118 case MHD_S_C_CPR:
119 /*
120 *
121 */
122 break;
123
124 case MHD_S_C_MTC:
125 /*
126 *
127 */
128 break;
129
130 case MHD_S_C_GTX:
131 /*
132 *
133 */
134 break;
135
136 case EMH_S_C_MHD + EVAX_OFFSET:
137 /*
138 * module header
139 */
140 PRIV(hdr_data).hdr_b_strlvl = vms_rec[6];
141 PRIV(hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
142 PRIV(hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
143 PRIV(hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
144 PRIV(hdr_data).hdr_t_name =
145 _bfd_vms_save_counted_string (vms_rec + 20);
146 ptr = vms_rec + 20 + vms_rec[20] + 1;
147 PRIV(hdr_data).hdr_t_version =
148 _bfd_vms_save_counted_string (ptr);
149 ptr += *ptr + 1;
150 PRIV(hdr_data).hdr_t_date =
151 _bfd_vms_save_sized_string (ptr, 17);
152
153 break;
154
155 case EMH_S_C_LNM + EVAX_OFFSET:
156 /*
157 *
158 */
159 PRIV(hdr_data).hdr_c_lnm =
160 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
161 break;
162
163 case EMH_S_C_SRC + EVAX_OFFSET:
164 /*
165 *
166 */
167 PRIV(hdr_data).hdr_c_src =
168 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
169 break;
170
171 case EMH_S_C_TTL + EVAX_OFFSET:
172 /*
173 *
174 */
175 PRIV(hdr_data).hdr_c_ttl =
176 _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
177 break;
178
179 case EMH_S_C_CPR + EVAX_OFFSET:
180 /*
181 *
182 */
183 break;
184
185 case EMH_S_C_MTC + EVAX_OFFSET:
186 /*
187 *
188 */
189 break;
190
191 case EMH_S_C_GTX + EVAX_OFFSET:
192 /*
193 *
194 */
195 break;
196
197 default:
198 bfd_set_error (bfd_error_wrong_format);
199 return -1;
200
201 } /* switch */
202
203 return 0;
204}
205
206/*-----------------------------------------------------------------------------*/
207/* Output routines. */
208
209/* Manufacure a VMS like time on a unix based system.
210 stolen from obj-vms.c */
211
212static unsigned char *
213get_vms_time_string ()
214{
215 static unsigned char tbuf[18];
216#ifndef VMS
217#include <time.h>
218
219 char *pnt;
220 time_t timeb;
221 time (&timeb);
222 pnt = ctime (&timeb);
223 pnt[3] = 0;
224 pnt[7] = 0;
225 pnt[10] = 0;
226 pnt[16] = 0;
227 pnt[24] = 0;
228 sprintf (tbuf, "%2s-%3s-%s %s", pnt + 8, pnt + 4, pnt + 20, pnt + 11);
229#else
230#include <starlet.h>
231 struct
232 {
233 int Size;
234 unsigned char *Ptr;
235 } Descriptor;
236 Descriptor.Size = 17;
237 Descriptor.Ptr = tbuf;
238 SYS$ASCTIM (0, &Descriptor, 0, 0);
239#endif /* not VMS */
240
241#if VMS_DEBUG
242 vms_debug (6, "vmstimestring:'%s'\n", tbuf);
243#endif
244
245 return tbuf;
246}
247
248/* write object header for bfd abfd */
249
250int
251_bfd_vms_write_hdr (abfd, objtype)
252 bfd *abfd;
253 int objtype;
254{
255 asymbol *symbol;
256 unsigned int symnum;
257 int had_case = 0;
258 int had_file = 0;
259
260#if VMS_DEBUG
261 vms_debug (2, "vms_write_hdr (%p)\n", abfd);
262#endif
263
264 _bfd_vms_output_alignment (abfd, 2);
265
266 /* MHD */
267
268 if (objtype == OBJ_S_C_HDR)
269 {
270 }
271 else
272 {
273 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
274 _bfd_vms_output_short (abfd, EOBJ_S_C_STRLVL);
275 _bfd_vms_output_long (abfd, 0);
276 _bfd_vms_output_long (abfd, 0);
277 _bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
278 }
279
280 if (bfd_get_filename (abfd) != 0)
281 {
282 /* strip path and suffix information */
283
284 char *fname, *fout, *fptr;
285
286 fptr = bfd_get_filename (abfd);
287 fname = (char *) alloca (strlen (fptr) + 1);
288 strcpy (fname, fptr);
289 fout = strrchr (fname, ']');
290 if (fout == 0)
291 fout = strchr (fname, ':');
292 if (fout != 0)
293 fout++;
294 else
295 fout = fname;
296
297 /* strip .obj suffix */
298
299 fptr = strrchr (fname, '.');
300 if ((fptr != 0)
301 && (strcasecmp (fptr, ".OBJ") == 0))
302 *fptr = 0;
303
304 fptr = fout;
305 while (*fptr != 0)
306 {
307 *fptr = TOUPPER (*fptr);
308 fptr++;
309 if ((*fptr == ';')
310 || ((fptr - fout) > 31))
311 *fptr = 0;
312 }
313 _bfd_vms_output_counted (abfd, fout);
314 }
315 else
316 _bfd_vms_output_counted (abfd, "NONAME");
317
318 _bfd_vms_output_counted (abfd, BFD_VERSION_STRING);
319 _bfd_vms_output_dump (abfd, get_vms_time_string (), 17);
320 _bfd_vms_output_fill (abfd, 0, 17);
321 _bfd_vms_output_flush (abfd);
322
323 /* LMN */
324
325 _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
326 _bfd_vms_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
327 _bfd_vms_output_flush (abfd);