[deliverable/binutils-gdb.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, 1999 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 (kkaempf@rmi.de)

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;
  unsigned 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)
	{
	  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
252b5132 RH	1	/* vms-hdr.c -- BFD back-end for VMS/VAX (openVMS/VAX) and
252b5132 RH	2	EVAX (openVMS/Alpha) files.
e049a0de	3	Copyright 1996, 1997, 1998, 1999 Free Software Foundation, Inc.
252b5132 RH	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 (kkaempf@rmi.de)
	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;
5f771d47	252	unsigned int symnum;
252b5132 RH	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	{
252b5132 RH	337	if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
	338	{
	339	PRIV(flag_hash_long_names) = symbol->name[6] - '0';
	340	PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
	341
	342	if (had_file)
	343	break;
	344	had_case = 1;
	345	continue;
	346	}
	347
	348	_bfd_vms_output_dump (abfd, (unsigned char *)symbol->name, strlen (symbol->name));
	349	if (had_case)
	350	break;
	351	had_file = 1;
	352	}
	353	}
	354
	355	if (symnum == abfd->symcount)
	356	_bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);
	357
	358	_bfd_vms_output_flush (abfd);
	359
	360	/* TTL */
	361
	362	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
	363	_bfd_vms_output_dump (abfd, (unsigned char *)"TTL", 3);
	364	_bfd_vms_output_flush (abfd);
	365
	366	/* CPR */
	367
	368	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
	369	_bfd_vms_output_dump (abfd,