[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, 2000 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"

#ifdef HAVE_ALLOCA_H
#include <alloca.h>
#endif
/*---------------------------------------------------------------------------*/

/* 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.
7898deda	3	Copyright 1996, 1997, 1998, 1999, 2000 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
23ccc829 NC	36	#ifdef HAVE_ALLOCA_H
	37	#include <alloca.h>
	38	#endif
252b5132 RH	39	/---------------------------------------------------------------------------/
252b5132 RH	40
252b5132 RH	41	/* Read & process emh record
	42	return 0 on success, -1 on error */
	43
	44	int
	45	_bfd_vms_slurp_hdr (abfd, objtype)
	46	bfd *abfd;
	47	int objtype;
	48	{
	49	unsigned char *ptr;
	50	unsigned char *vms_rec;
	51	int subtype;
	52
	53	vms_rec = PRIV(vms_rec);
	54
	55	#if VMS_DEBUG
	56	vms_debug(2, "HDR/EMH\n");
	57	#endif
	58
	59	switch (objtype)
	60	{
	61	case OBJ_S_C_HDR:
	62	subtype = vms_rec[1];
	63	break;
	64	case EOBJ_S_C_EMH:
	65	subtype = bfd_getl16 (vms_rec + 4) + EVAX_OFFSET;
	66	break;
	67	default:
	68	subtype = -1;
	69	}
	70
	71	#if VMS_DEBUG
	72	vms_debug(3, "subtype %d\n", subtype);
	73	#endif
	74
	75	switch (subtype)
	76	{
	77
	78	case MHD_S_C_MHD:
	79	/*
	80	* module header
	81	*/
	82	PRIV(hdr_data).hdr_b_strlvl = vms_rec[2];
	83	PRIV(hdr_data).hdr_l_recsiz = bfd_getl16 (vms_rec + 3);
	84	PRIV(hdr_data).hdr_t_name = _bfd_vms_save_counted_string (vms_rec + 5);
	85	ptr = vms_rec + 5 + vms_rec[5] + 1;
	86	PRIV(hdr_data).hdr_t_version = _bfd_vms_save_counted_string (ptr);
	87	ptr += *ptr + 1;
	88	PRIV(hdr_data).hdr_t_date = _bfd_vms_save_sized_string (ptr, 17);
	89
	90	break;
	91
	92	case MHD_S_C_LNM:
	93	/*
	94	*
	95	*/
	96	PRIV(hdr_data).hdr_c_lnm = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
	97	break;
	98
	99	case MHD_S_C_SRC:
	100	/*
	101	*
	102	*/
	103	PRIV(hdr_data).hdr_c_src = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
	104	break;
105
106	case MHD_S_C_TTL:
107	/*
108	*
109	*/
110	PRIV(hdr_data).hdr_c_ttl = _bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-2));
111	break;
112
113	case MHD_S_C_CPR:
114	/*
115	*
116	*/
117	break;
118
119	case MHD_S_C_MTC:
120	/*
121	*
122	*/
123	break;
124
125	case MHD_S_C_GTX:
126	/*
127	*
128	*/
129	break;
130
131	case EMH_S_C_MHD + EVAX_OFFSET:
132	/*
133	* module header
134	*/
135	PRIV(hdr_data).hdr_b_strlvl = vms_rec[6];
136	PRIV(hdr_data).hdr_l_arch1 = bfd_getl32 (vms_rec + 8);
137	PRIV(hdr_data).hdr_l_arch2 = bfd_getl32 (vms_rec + 12);
138	PRIV(hdr_data).hdr_l_recsiz = bfd_getl32 (vms_rec + 16);
139	PRIV(hdr_data).hdr_t_name =
140	_bfd_vms_save_counted_string (vms_rec + 20);
141	ptr = vms_rec + 20 + vms_rec[20] + 1;
142	PRIV(hdr_data).hdr_t_version =
143	_bfd_vms_save_counted_string (ptr);
144	ptr += *ptr + 1;
145	PRIV(hdr_data).hdr_t_date =
146	_bfd_vms_save_sized_string (ptr, 17);
147
148	break;
149
150	case EMH_S_C_LNM + EVAX_OFFSET:
151	/*
152	*
153	*/
154	PRIV(hdr_data).hdr_c_lnm =
155	_bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
156	break;
157
158	case EMH_S_C_SRC + EVAX_OFFSET:
159	/*
160	*
161	*/
162	PRIV(hdr_data).hdr_c_src =
163	_bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
164	break;
165
166	case EMH_S_C_TTL + EVAX_OFFSET:
167	/*
168	*
169	*/
170	PRIV(hdr_data).hdr_c_ttl =
171	_bfd_vms_save_sized_string (vms_rec, PRIV(rec_length-6));
172	break;
173
174	case EMH_S_C_CPR + EVAX_OFFSET:
175	/*
176	*
177	*/
178	break;
179
180	case EMH_S_C_MTC + EVAX_OFFSET:
181	/*
182	*
183	*/
184	break;
185
186	case EMH_S_C_GTX + EVAX_OFFSET:
187	/*
188	*
189	*/
190	break;
191
192	default:
193	bfd_set_error (bfd_error_wrong_format);
194	return -1;
195
196	} /* switch */
197
198	return 0;
199	}
200
252b5132 RH	201	/-----------------------------------------------------------------------------/
	202	/* Output routines. */
	203
252b5132 RH	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
252b5132 RH	243	/* write object header for bfd abfd */
	244
	245	int
	246	_bfd_vms_write_hdr (abfd, objtype)
	247	bfd *abfd;
	248	int objtype;
	249	{
	250	asymbol *symbol;
5f771d47	251	unsigned int symnum;
252b5132 RH	252	int had_case = 0;
	253	int had_file = 0;
	254
252b5132 RH	255	#if VMS_DEBUG
	256	vms_debug (2, "vms_write_hdr (%p)\n", abfd);
	257	#endif
	258
	259	_bfd_vms_output_alignment (abfd, 2);
	260
	261	/* MHD */
	262
	263	if (objtype == OBJ_S_C_HDR)
	264	{
	265	}
	266	else
	267	{
	268	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
	269	_bfd_vms_output_short (abfd, EOBJ_S_C_STRLVL);
	270	_bfd_vms_output_long (abfd, 0);
	271	_bfd_vms_output_long (abfd, 0);
	272	_bfd_vms_output_long (abfd, MAX_OUTREC_SIZE);
	273	}
	274
	275	if (bfd_get_filename (abfd) != 0)
	276	{
	277	/* strip path and suffix information */
	278
	279	char fname, fout, *fptr;
	280
	281	fptr = bfd_get_filename (abfd);
	282	fname = (char *) alloca (strlen (fptr) + 1);
	283	strcpy (fname, fptr);
	284	fout = strrchr (fname, ']');
	285	if (fout == 0)
	286	fout = strchr (fname, ':');
	287	if (fout != 0)
	288	fout++;
	289	else
	290	fout = fname;
	291
	292	/* strip .obj suffix */
	293
	294	fptr = strrchr (fname, '.');
	295	if ((fptr != 0)
	296	&& (strcasecmp (fptr, ".OBJ") == 0))
	297	*fptr = 0;
	298
	299	fptr = fout;
	300	while (*fptr != 0)
	301	{
	302	if (islower (*fptr))
	303	fptr = toupper (fptr);
	304	fptr++;
	305	if ((*fptr == ';')
	306	\|\| ((fptr - fout) > 31))
	307	*fptr = 0;
	308	}
	309	_bfd_vms_output_counted (abfd, fout);
	310	}
	311	else
	312	_bfd_vms_output_counted (abfd, "NONAME");
	313
	314	_bfd_vms_output_counted (abfd, BFD_VERSION);
	315	_bfd_vms_output_dump (abfd, get_vms_time_string (), 17);
	316	_bfd_vms_output_fill (abfd, 0, 17);
	317	_bfd_vms_output_flush (abfd);
	318
319	/* LMN */
320
321	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
322	_bfd_vms_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
323	_bfd_vms_output_flush (abfd);
324
325	/* SRC */
326
327	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
328
329	for (symnum = 0; symnum < abfd->symcount; symnum++)
330	{
331	symbol = abfd->outsymbols[symnum];
332
333	if (symbol->flags & BSF_FILE)
334	{
252b5132 RH	335	if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
	336	{
	337	PRIV(flag_hash_long_names) = symbol->name[6] - '0';
	338	PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
	339
	340	if (had_file)
	341	break;
	342	had_case = 1;
	343	continue;
	344	}
	345
	346	_bfd_vms_output_dump (abfd, (unsigned char *)symbol->name, strlen (symbol->name));
	347	if (had_case)
	348	break;
	349	had_file = 1;
	350	}
	351	}
	352
	353	if (symnum == abfd->symcount)
	354	_bfd_vms_output_dump (abfd, (unsigned char *)"noname", 6);
	355
	356	_bfd_vms_output_flush (abfd);
	357
	358	/* TTL */
	359
	360	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
	361	_bfd_vms_output_dump (abfd, (unsigned char *)"TTL", 3);
	362	_bfd_vms_output_flush (abfd);
	363
	364	/* CPR */
	365
	366	_bfd_vms_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
	367	_bfd_vms_output_dump (abfd,