[binutils.git] / bfd / vms-hdr.c

/* vms-hdr.c -- BFD back-end for VMS/VAX (openVMS/VAX) and
   EVAX (openVMS/Alpha) files.
   Copyright 1996, 1997, 1998 Free Software Foundation, Inc.

   HDR record handling functions
   EMH record handling functions
   and
   EOM record handling functions
   EEOM record handling functions

   Written by Klaus K"ampf ([email protected])

This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2 of the License, or
(at your option) any later version.

This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */

#include <ctype.h>

#include "bfd.h"
#include "sysdep.h"
#include "bfdlink.h"
#include "libbfd.h"

#include "vms.h"

/*---------------------------------------------------------------------------*/


/* Read & process emh record
   return 0 on success, -1 on error  */

int
_bfd_vms_slurp_hdr (abfd, objtype)
     bfd *abfd;
     int objtype;
{
  unsigned char *ptr;
  unsigned char *vms_rec;
  int subtype;

  vms_rec = PRIV(vms_rec);

#if VMS_DEBUG
  vms_debug(2, "HDR/EMH\n");
#endif

  switch (objtype)
    {
      case OBJ_S_C_HDR:
	subtype = vms_rec[1];
	break;
      case EOBJ_S_C_EMH:
	subtype = bfd_getl16 (vms_rec + 4) + EVAX_OFFSET;
	break;
      default:
	subtype = -1;
    }

#if VMS_DEBUG
  vms_debug(3, "subtype %d\n", subtype);
#endif

  switch (subtype)
    {

      case MHD_S_C_MHD:
	/*
	 * module header
	 */
	PRIV(hdr_data).hdr_b_strlvl = vms_rec[2];
	PRIV(hdr_data).hdr_l_recsiz = bfd_getl16 (vms_rec + 3);
	PRIV(hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 5);
	ptr = vms_rec + 5 + vms_rec[5] + 1;
	PRIV(hdr_data).hdr_t_version = _bfd_vms_save_counted_string (ptr);
	ptr += *ptr + 1;
	PRIV(hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);

      break;

      case MHD_S_C_LNM:
	/*
	 *
	 */
	PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
      break;

      case MHD_S_C_SRC:
	/*
	 *
	 */
	PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
      break;

      case MHD_S_C_TTL:
	/*
	 *
	 */
	PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
      break;

      case MHD_S_C_CPR:
	/*
	 *
	 */
      break;

      case MHD_S_C_MTC:
	/*
	 *
	 */
      break;

      case MHD_S_C_GTX:
	/*
	 *
	 */
      break;

      case EMH_S_C_MHD + EVAX_OFFSET:
	/*
	 * module header
	 */
	PRIV(hdr_data).hdr_b_strlvl = vms_rec[6];
	PRIV(hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
	PRIV(hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
	PRIV(hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
	PRIV(hdr_data).hdr_t_name =
	  _bfd_vms_save_counted_string (vms_rec + 20);
	ptr = vms_rec + 20 + vms_rec[20] + 1;
	PRIV(hdr_data).hdr_t_version =
	  _bfd_vms_save_counted_string (ptr);
	ptr += *ptr + 1;
	PRIV(hdr_data).hdr_t_date =
	  _bfd_vms_save_sized_string (ptr, 17);

      break;

      case EMH_S_C_LNM + EVAX_OFFSET:
	/*
	 *
	 */
	PRIV(hdr_data).hdr_c_lnm =
	  _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
      break;

      case EMH_S_C_SRC + EVAX_OFFSET:
	/*
	 *
	 */
	PRIV(hdr_data).hdr_c_src =
	  _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
      break;

      case EMH_S_C_TTL + EVAX_OFFSET:
	/*
	 *
	 */
	PRIV(hdr_data).hdr_c_ttl =
	  _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
      break;

      case EMH_S_C_CPR + EVAX_OFFSET:
	/*
	 *
	 */
      break;

      case EMH_S_C_MTC + EVAX_OFFSET:
	/*
	 *
	 */
      break;

      case EMH_S_C_GTX + EVAX_OFFSET:
	/*
	 *
	 */
      break;

      default:
	bfd_set_error (bfd_error_wrong_format);
      return -1;

    } /* switch */

  return 0;
}


/*-----------------------------------------------------------------------------*/
/* Output routines.  */


/* Manufacure a VMS like time on a unix based system.
   stolen from obj-vms.c  */

static unsigned char *
get_vms_time_string ()
{
  static unsigned char tbuf[18];
#ifndef VMS
#include <time.h>

  char *pnt;
  time_t timeb;
  time (&timeb);
  pnt = ctime (&timeb);
  pnt[3] = 0;
  pnt[7] = 0;
  pnt[10] = 0;
  pnt[16] = 0;
  pnt[24] = 0;
  sprintf (tbuf, "%2s-%3s-%s %s", pnt + 8, pnt + 4, pnt + 20, pnt + 11);
#else
#include <starlet.h>
  struct
  {
    int Size;
    unsigned char *Ptr;
  } Descriptor;
  Descriptor.Size = 17;
  Descriptor.Ptr = tbuf;
  SYS$ASCTIM (0, &Descriptor, 0, 0);
#endif /* not VMS */

#if VMS_DEBUG
  vms_debug (6, "vmstimestring:'%s'\n", tbuf);
#endif

  return tbuf;
}


/* write object header for bfd abfd  */

int
_bfd_vms_write_hdr (abfd, objtype)
     bfd *abfd;
     int objtype;
{
  asymbol *symbol;
  int symnum;
  int had_case = 0;
  int had_file = 0;


#if VMS_DEBUG
  vms_debug (2, "vms_write_hdr (%p)\n", abfd);
#endif

  _bfd_vms_output_alignment (abfd, 2);

  /* MHD */

  if (objtype == OBJ_S_C_HDR)
    {
    }
  else
    {
      _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
      _bfd_vms_output_short (abfd, EOBJ_S_C_STRLVL);
      _bfd_vms_output_long (abfd, 0);
      _bfd_vms_output_long (abfd, 0);
      _bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
    }

  if (bfd_get_filename (abfd) != 0)
    {
      /* strip path and suffix information */

      char *fname, *fout, *fptr;

      fptr = bfd_get_filename (abfd);
      fname = (char *) alloca (strlen (fptr) + 1);
      strcpy (fname, fptr);
      fout = strrchr (fname, ']');
      if (fout == 0)
	fout = strchr (fname, ':');
      if (fout != 0)
	fout++;
      else
	fout = fname;

      /* strip .obj suffix  */

      fptr = strrchr (fname, '.');
      if ((fptr != 0)
	  && (strcasecmp (fptr, ".OBJ") == 0))
	*fptr = 0;

      fptr = fout;
      while (*fptr != 0)
	{
	  if (islower (*fptr))
	    *fptr = toupper (*fptr);
	  fptr++;
	  if ((*fptr == ';')
	     || ((fptr - fout) > 31))
	    *fptr = 0;
	}
      _bfd_vms_output_counted (abfd, fout);
    }
  else
    _bfd_vms_output_counted (abfd, "NONAME");

  _bfd_vms_output_counted (abfd, BFD_VERSION);
  _bfd_vms_output_dump (abfd, get_vms_time_string (), 17);
  _bfd_vms_output_fill (abfd, 0, 17);
  _bfd_vms_output_flush (abfd);

  /* LMN */

  _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
  _bfd_vms_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
  _bfd_vms_output_flush (abfd);

  /* SRC */

  _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);

  for (symnum = 0; symnum < abfd->symcount; symnum++)
    {
      symbol = abfd->outsymbols[symnum];

      if (symbol->flags & BSF_FILE)
	{
	  char *s;

	  if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
	    {
	      PRIV(flag_hash_long_names) = symbol->name[6] - '0';
	      PRIV(flag_show_after_trunc) = symbol->name[7] - '0';

	      if (had_file)
		break;
	      had_case = 1;
	      continue;
	    }

	  _bfd_vms_output_dump (abfd, (unsigned char *)symbol->name, strlen (symbol->name));
	  if (had_case)
	    break;
	  had_file = 1;
	}
    }

  if (symnum == abfd->symcount)
    _bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);

  _bfd_vms_output_flush (abfd);

  /* TTL */

  _bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
  _bfd_vms_output_dump (abfd, (unsigned char *)"TTL", 3);
  _bfd_vms_output_flush (abfd);

  /* CPR */

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