[deliverable/binutils-gdb.git] / bfd / evax-emh.c

/* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/Alpha) files.
   Copyright 1996, 1997 Free Software Foundation, Inc.

   EMH record handling functions
   and
   EEOM record handling functions

   Written by Klaus K"ampf (kkaempf@progis.de)
   of proGIS Softwareentwicklung, Aachen, Germany

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 <stdio.h>
#include <ctype.h>

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

#include "evax.h"

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


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

int
_bfd_evax_slurp_emh (abfd)
     bfd *abfd;
{
  unsigned char *ptr;
  unsigned char *evax_rec;

  evax_rec = PRIV(evax_rec);

#if EVAX_DEBUG
  evax_debug(2, "EMH\n");
#endif

  switch (bfd_getl16 (evax_rec + 4))
    {

      case EMH_S_C_MHD:
	/*
	 * module header
	 */
	PRIV(emh_data).emh_b_strlvl = evax_rec[6];
	PRIV(emh_data).emh_l_arch1 = bfd_getl32 (evax_rec + 8);
	PRIV(emh_data).emh_l_arch2 = bfd_getl32 (evax_rec + 12);
	PRIV(emh_data).emh_l_recsiz = bfd_getl32 (evax_rec + 16);
	PRIV(emh_data).emh_t_name =
	  _bfd_evax_save_counted_string ((char *)evax_rec + 20);
	ptr = evax_rec + 20 + evax_rec[20] + 1;
	PRIV(emh_data).emh_t_version =
	  _bfd_evax_save_counted_string ((char *)ptr);
	ptr += *ptr + 1;
	PRIV(emh_data).emh_t_date =
	  _bfd_evax_save_sized_string ((char *)ptr, 17);

      break;

      case EMH_S_C_LNM:
	/*
	 *
	 */
	PRIV(emh_data).emh_c_lnm =
	  _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
      break;

      case EMH_S_C_SRC:
	/*
	 *
	 */
	PRIV(emh_data).emh_c_src =
	  _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
      break;

      case EMH_S_C_TTL:
	/*
	 *
	 */
	PRIV(emh_data).emh_c_ttl =
	  _bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
      break;

      case EMH_S_C_CPR:
	/*
	 *
	 */
      break;

      case EMH_S_C_MTC:
	/*
	 *
	 */
      break;

      case EMH_S_C_GTX:
	/*
	 *
	 */
      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 <sys/types.h>
#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 EVAX_DEBUG
  evax_debug (6, "vmstimestring:'%s'\n", tbuf);
#endif

  return tbuf;
}


/* write object header for bfd abfd  */

int
_bfd_evax_write_emh (abfd)
     bfd *abfd;
{
  asymbol *symbol;
  int symnum;
  int had_case = 0;
  int had_file = 0;


#if EVAX_DEBUG
  evax_debug (2, "evax_write_emh(%p)\n", abfd);
#endif

  _bfd_evax_output_alignment (abfd, 2);

  /* MHD */

  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
  _bfd_evax_output_short (abfd, EOBJ_S_C_STRLVL);
  _bfd_evax_output_long (abfd, 0);
  _bfd_evax_output_long (abfd, 0);
  _bfd_evax_output_long (abfd, MAX_OUTREC_SIZE);

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

      char *fname, *fout, *fptr;

      fname = strdup (bfd_get_filename (abfd));
      if (fname == 0)
	{
	  bfd_set_error (bfd_error_no_memory);
	  return -1;
	}
      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_evax_output_counted (abfd, fout);
      free (fname);
    }
  else
    _bfd_evax_output_counted (abfd, "NONAME");

  _bfd_evax_output_counted (abfd, BFD_VERSION);
  _bfd_evax_output_dump (abfd, get_vms_time_string (), 17);
  _bfd_evax_output_fill (abfd, 0, 17);
  _bfd_evax_output_flush (abfd);

  /* LMN */

  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
  _bfd_evax_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
  _bfd_evax_output_flush (abfd);

  /* SRC */

  _bfd_evax_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_evax_output_dump (abfd, (char *)symbol->name, strlen (symbol->name));
	  if (had_case)
	    break;
	  had_file = 1;
	}
    }

  if (symnum == abfd->symcount)
    _bfd_evax_output_dump (abfd, "noname", 6);

  _bfd_evax_output_flush (abfd);

  /* TTL */

  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
  _bfd_evax_output_dump (abfd, (unsigned char *)"TTL", 3);
  _bfd_evax_output_flush (abfd);

  /* CPR */

  _bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
  _bfd_evax_output_dump (abfd,
Commit	Line	Data
8696b2db ILT	1	/* evax-emh.c -- BFD back-end for ALPHA EVAX (openVMS/Alpha) files.
8696b2db ILT	2	Copyright 1996, 1997 Free Software Foundation, Inc.
c3d8e071 ILT	3
	4	EMH record handling functions
	5	and
	6	EEOM record handling functions
	7
8696b2db	8	Written by Klaus K"ampf (kkaempf@progis.de)
c3d8e071 ILT	9	of proGIS Softwareentwicklung, Aachen, Germany
	10
	11	This program is free software; you can redistribute it and/or modify
	12	it under the terms of the GNU General Public License as published by
	13	the Free Software Foundation; either version 2 of the License, or
	14	(at your option) any later version.
	15
	16	This program is distributed in the hope that it will be useful,
	17	but WITHOUT ANY WARRANTY; without even the implied warranty of
	18	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	19	GNU General Public License for more details.
	20
	21	You should have received a copy of the GNU General Public License
	22	along with this program; if not, write to the Free Software
	23	Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
	24
	25	#include <stdio.h>
8696b2db	26	#include <ctype.h>
c3d8e071 ILT	27
	28	#include "bfd.h"
	29	#include "sysdep.h"
	30	#include "bfdlink.h"
	31	#include "libbfd.h"
	32
	33	#include "evax.h"
	34
	35	/---------------------------------------------------------------------------/
	36
	37
	38	/* Read & process emh record
	39	return 0 on success, -1 on error */
	40
	41	int
	42	_bfd_evax_slurp_emh (abfd)
	43	bfd *abfd;
	44	{
	45	unsigned char *ptr;
	46	unsigned char *evax_rec;
	47
	48	evax_rec = PRIV(evax_rec);
	49
	50	#if EVAX_DEBUG
	51	evax_debug(2, "EMH\n");
	52	#endif
	53
	54	switch (bfd_getl16 (evax_rec + 4))
	55	{
	56
	57	case EMH_S_C_MHD:
	58	/*
	59	* module header
	60	*/
	61	PRIV(emh_data).emh_b_strlvl = evax_rec[6];
	62	PRIV(emh_data).emh_l_arch1 = bfd_getl32 (evax_rec + 8);
	63	PRIV(emh_data).emh_l_arch2 = bfd_getl32 (evax_rec + 12);
	64	PRIV(emh_data).emh_l_recsiz = bfd_getl32 (evax_rec + 16);
	65	PRIV(emh_data).emh_t_name =
	66	_bfd_evax_save_counted_string ((char *)evax_rec + 20);
	67	ptr = evax_rec + 20 + evax_rec[20] + 1;
	68	PRIV(emh_data).emh_t_version =
	69	_bfd_evax_save_counted_string ((char *)ptr);
	70	ptr += *ptr + 1;
	71	PRIV(emh_data).emh_t_date =
	72	_bfd_evax_save_sized_string ((char *)ptr, 17);
	73
	74	break;
	75
	76	case EMH_S_C_LNM:
	77	/*
	78	*
	79	*/
	80	PRIV(emh_data).emh_c_lnm =
	81	_bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
	82	break;
	83
	84	case EMH_S_C_SRC:
	85	/*
	86	*
	87	*/
	88	PRIV(emh_data).emh_c_src =
	89	_bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
	90	break;
91
92	case EMH_S_C_TTL:
93	/*
94	*
95	*/
96	PRIV(emh_data).emh_c_ttl =
97	_bfd_evax_save_sized_string ((char *)evax_rec, PRIV(rec_length-6));
98	break;
99
100	case EMH_S_C_CPR:
101	/*
102	*
103	*/
104	break;
105
106	case EMH_S_C_MTC:
107	/*
108	*
109	*/
110	break;
111
112	case EMH_S_C_GTX:
113	/*
114	*
115	*/
116	break;
117
118	default:
119	bfd_set_error (bfd_error_wrong_format);
120	return -1;
121
122	} /* switch */
123
124	return 0;
125	}
126
127
bf53bd9f ILT	128	/-----------------------------------------------------------------------------/
	129	/* Output routines. */
	130
	131
	132	/* Manufacure a VMS like time on a unix based system.
	133	stolen from obj-vms.c */
	134
	135	static unsigned char *
	136	get_vms_time_string ()
	137	{
	138	static unsigned char tbuf[18];
	139	#ifndef VMS
	140	#include <sys/types.h>
	141	#include <time.h>
	142
	143	char *pnt;
	144	time_t timeb;
	145	time (&timeb);
	146	pnt = ctime (&timeb);
	147	pnt[3] = 0;
	148	pnt[7] = 0;
	149	pnt[10] = 0;
	150	pnt[16] = 0;
	151	pnt[24] = 0;
	152	sprintf (tbuf, "%2s-%3s-%s %s", pnt + 8, pnt + 4, pnt + 20, pnt + 11);
	153	#else
	154	#include <starlet.h>
	155	struct
	156	{
	157	int Size;
	158	unsigned char *Ptr;
	159	} Descriptor;
	160	Descriptor.Size = 17;
	161	Descriptor.Ptr = tbuf;
	162	sys$asctim (0, &Descriptor, 0, 0);
	163	#endif /* not VMS */
	164
	165	#if EVAX_DEBUG
	166	evax_debug (6, "vmstimestring:'%s'\n", tbuf);
	167	#endif
	168
	169	return tbuf;
	170	}
	171
	172
c3d8e071 ILT	173	/* write object header for bfd abfd */
	174
	175	int
	176	_bfd_evax_write_emh (abfd)
	177	bfd *abfd;
	178	{
bf53bd9f ILT	179	asymbol *symbol;
	180	int symnum;
	181	int had_case = 0;
	182	int had_file = 0;
	183
c3d8e071 ILT	184
	185	#if EVAX_DEBUG
	186	evax_debug (2, "evax_write_emh(%p)\n", abfd);
	187	#endif
	188
	189	_bfd_evax_output_alignment (abfd, 2);
	190
	191	/* MHD */
	192
	193	_bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_MHD);
	194	_bfd_evax_output_short (abfd, EOBJ_S_C_STRLVL);
	195	_bfd_evax_output_long (abfd, 0);
	196	_bfd_evax_output_long (abfd, 0);
	197	_bfd_evax_output_long (abfd, MAX_OUTREC_SIZE);
bf53bd9f ILT	198
bf53bd9f ILT	199	if (bfd_get_filename (abfd) != 0)
8696b2db ILT	200	{
	201	/* strip path and suffix information */
	202
	203	char fname, fout, *fptr;
	204
	205	fname = strdup (bfd_get_filename (abfd));
	206	if (fname == 0)
	207	{
	208	bfd_set_error (bfd_error_no_memory);
	209	return -1;
	210	}
	211	fout = strrchr (fname, ']');
	212	if (fout == 0)
	213	fout = strchr (fname, ':');
	214	if (fout != 0)
	215	fout++;
	216	else
	217	fout = fname;
	218
	219	/* strip .obj suffix */
	220
	221	fptr = strrchr (fname, '.');
	222	if ((fptr != 0)
	223	&& (strcasecmp (fptr, ".OBJ") == 0))
	224	*fptr = 0;
	225
	226	fptr = fout;
	227	while (*fptr != 0)
	228	{
	229	if (islower (*fptr))
	230	fptr = toupper (fptr);
	231	fptr++;
	232	if ((*fptr == ';')
	233	\|\| ((fptr - fout) > 31))
	234	*fptr = 0;
	235	}
	236	_bfd_evax_output_counted (abfd, fout);
	237	free (fname);
	238	}
c3d8e071 ILT	239	else
c3d8e071 ILT	240	_bfd_evax_output_counted (abfd, "NONAME");
bf53bd9f	241
c3d8e071	242	_bfd_evax_output_counted (abfd, BFD_VERSION);
bf53bd9f	243	_bfd_evax_output_dump (abfd, get_vms_time_string (), 17);
c3d8e071 ILT	244	_bfd_evax_output_fill (abfd, 0, 17);
	245	_bfd_evax_output_flush (abfd);
	246
	247	/* LMN */
	248
	249	_bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_LNM);
	250	_bfd_evax_output_dump (abfd, (unsigned char *)"GAS proGIS", 10);
	251	_bfd_evax_output_flush (abfd);
	252
	253	/* SRC */
	254
	255	_bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_SRC);
bf53bd9f ILT	256
	257	for (symnum = 0; symnum < abfd->symcount; symnum++)
	258	{
	259	symbol = abfd->outsymbols[symnum];
	260
	261	if (symbol->flags & BSF_FILE)
	262	{
	263	char *s;
	264
	265	if (strncmp ((char *)symbol->name, "<CASE:", 6) == 0)
	266	{
	267	PRIV(flag_hash_long_names) = symbol->name[6] - '0';
	268	PRIV(flag_show_after_trunc) = symbol->name[7] - '0';
bf53bd9f ILT	269
	270	if (had_file)
	271	break;
	272	had_case = 1;
	273	continue;
	274	}
	275
	276	_bfd_evax_output_dump (abfd, (char *)symbol->name, strlen (symbol->name));
	277	if (had_case)
	278	break;
	279	had_file = 1;
	280	}
	281	}
	282
	283	if (symnum == abfd->symcount)
	284	_bfd_evax_output_dump (abfd, "noname", 6);
	285
c3d8e071 ILT	286	_bfd_evax_output_flush (abfd);
	287
	288	/* TTL */
	289
	290	_bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_TTL);
	291	_bfd_evax_output_dump (abfd, (unsigned char *)"TTL", 3);
	292	_bfd_evax_output_flush (abfd);
	293
	294	/* CPR */
	295
	296	_bfd_evax_output_begin (abfd, EOBJ_S_C_EMH, EMH_S_C_CPR);
	297	_bfd_evax_output_dump (abfd,