#include "bfd.h"
#include "sysdep.h"
#include "libbfd.h"
#include "libiberty.h"
typedef struct
{
bfd_vma low;
bfd_vma high;
} addr_range_type;
typedef struct tekhex_symbol_struct
{
asymbol symbol;
struct tekhex_symbol_struct *prev;
} tekhex_symbol_type;
static const char digs[] = "0123456789ABCDEF";
static char sum_block[256];
#define NOT_HEX 20
#define NIBBLE(x) hex_value(x)
#define HEX(buffer) ((NIBBLE((buffer)[0])<<4) + NIBBLE((buffer)[1]))
#define TOHEX(d,x) \
(d)[1] = digs[(x) & 0xf]; \
(d)[0] = digs[((x)>>4)&0xf];
#define ISHEX(x) hex_p(x)
static void tekhex_init PARAMS ((void));
static bfd_vma getvalue PARAMS ((char **));
static void tekhex_print_symbol
PARAMS ((bfd *, PTR, asymbol *, bfd_print_symbol_type));
static void tekhex_get_symbol_info PARAMS ((bfd *, asymbol *, symbol_info *));
static asymbol *tekhex_make_empty_symbol PARAMS ((bfd *));
static int tekhex_sizeof_headers PARAMS ((bfd *, boolean));
static boolean tekhex_write_object_contents PARAMS ((bfd *));
static void out PARAMS ((bfd *, int, char *, char *));
static void writesym PARAMS ((char **, const char *));
static void writevalue PARAMS ((char **, bfd_vma));
static boolean tekhex_set_section_contents
PARAMS ((bfd*, sec_ptr, PTR, file_ptr, bfd_size_type));
static boolean tekhex_set_arch_mach
PARAMS ((bfd *, enum bfd_architecture, unsigned long));
static boolean tekhex_get_section_contents
PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type));
static void move_section_contents
PARAMS ((bfd *, asection *, PTR, file_ptr, bfd_size_type, boolean));
static const bfd_target *tekhex_object_p PARAMS ((bfd *));
static boolean tekhex_mkobject PARAMS ((bfd *));
static long tekhex_get_symtab_upper_bound PARAMS ((bfd *));
static long tekhex_get_symtab PARAMS ((bfd *, asymbol **));
static void pass_over PARAMS ((bfd *, void (*) (bfd*, int, char *)));
static void first_phase PARAMS ((bfd *, int, char *));
static void insert_byte PARAMS ((bfd *, int, bfd_vma));
static struct data_struct *find_chunk PARAMS ((bfd *, bfd_vma));
static unsigned int getsym PARAMS ((char *, char **));
static void
tekhex_init ()
{
unsigned int i;
static boolean inited = false;
int val;
if (inited == false)
{
inited = true;
hex_init ();
val = 0;
for (i = 0; i < 10; i++)
{
sum_block[i + '0'] = val++;
}
for (i = 'A'; i <= 'Z'; i++)
{
sum_block[i] = val++;
}
sum_block['$'] = val++;
sum_block['%'] = val++;
sum_block['.'] = val++;
sum_block['_'] = val++;
for (i = 'a'; i <= 'z'; i++)
{
sum_block[i] = val++;
}
}
}
#define MAXCHUNK 0xff
#define CHUNK 21
struct tekhex_data_list_struct
{
unsigned char *data;
bfd_vma where;
bfd_size_type size;
struct tekhex_data_list_struct *next;
};
typedef struct tekhex_data_list_struct tekhex_data_list_type;
#define CHUNK_MASK 0x1fff
struct data_struct
{
char chunk_data[CHUNK_MASK + 1];
char chunk_init[CHUNK_MASK + 1];
bfd_vma vma;
struct data_struct *next;
};
typedef struct tekhex_data_struct
{
tekhex_data_list_type *head;
unsigned int type;
struct tekhex_symbol_struct *symbols;
struct data_struct *data;
} tdata_type;
#define enda(x) (x->vma + x->size)
static bfd_vma
getvalue (srcp)
char **srcp;
{
char *src = *srcp;
bfd_vma value = 0;
unsigned int len = hex_value(*src++);
if (len == 0)
len = 16;
while (len--)
{
value = value << 4 | hex_value(*src++);
}
*srcp = src;
return value;
}
static unsigned int
getsym (dstp, srcp)
char *dstp;
char **srcp;
{
char *src = *srcp;
unsigned int i;
unsigned int len = hex_value(*src++);
if (len == 0)
len = 16;
for (i = 0; i < len; i++)
dstp[i] = src[i];
dstp[i] = 0;
*srcp = src + i;
return len;
}
static struct data_struct *
find_chunk (abfd, vma)
bfd *abfd;
bfd_vma vma;
{
struct data_struct *d = abfd->tdata.tekhex_data->data;
vma &= ~CHUNK_MASK;
while (d && (d->vma) != vma)
{
d = d->next;
}
if (!d)
{
char *sname = bfd_alloc (abfd, (bfd_size_type) 12);
d = ((struct data_struct *)
bfd_alloc (abfd, (bfd_size_type) sizeof (struct data_struct)));
if (!sname || !d)
return NULL;
memset (d->chunk_init, 0, CHUNK_MASK + 1);
memset (d->chunk_data, 0, CHUNK_MASK + 1);
d->next = abfd->tdata.tekhex_data->data;
d->vma = vma;
abfd->tdata.tekhex_data->data = d;
}
return d;
}
static void
insert_byte (abfd, value, addr)
bfd *abfd;
int value;
bfd_vma addr;
{
struct data_struct *d = find_chunk (abfd, addr);
d->chunk_data[addr & CHUNK_MASK] = value;
d->chunk_init[addr & CHUNK_MASK] = 1;
}
static void
first_phase (abfd, type, src)
bfd *abfd;
int type;
char *src;
{
asection *section = bfd_abs_section_ptr;
unsigned int len;
char sym[17];
switch (type)
{
case '6':
{
bfd_vma addr = getvalue (&src);
while (*src)
{
insert_byte (abfd, HEX (src), addr);
src += 2;
addr++;
}
}
return;
case '3':
len = getsym (sym, &src);
section = bfd_get_section_by_name (abfd, sym);
if (section == (asection *) NULL)
{
char *n = bfd_alloc (abfd, (bfd_size_type) len + 1);
if (!n)
abort ();
memcpy (n, sym, len + 1);
section = bfd_make_section (abfd, n);
}
while (*src)
{
switch (*src)
{
case '1':
src++;
section->vma = getvalue (&src);
section->_raw_size = getvalue (&src) - section->vma;
section->flags = SEC_HAS_CONTENTS | SEC_LOAD | SEC_ALLOC;
break;
case '0':
case '2':
case '3':
case '4':
case '6':
case '7':
case '8':
{
bfd_size_type amt = sizeof (tekhex_symbol_type);
tekhex_symbol_type *new =
(tekhex_symbol_type *) bfd_alloc (abfd, amt);
char stype = (*src);
if (!new)
abort ();
new->symbol.the_bfd = abfd;
src++;
abfd->symcount++;
abfd->flags |= HAS_SYMS;
new->prev = abfd->tdata.tekhex_data->symbols;
abfd->tdata.tekhex_data->symbols = new;
len = getsym (sym, &src);
new->symbol.name = bfd_alloc (abfd, (bfd_size_type) len + 1);
if (!new->symbol.name)
abort ();
memcpy ((char *) (new->symbol.name), sym, len + 1);
new->symbol.section = section;
if (stype <= '4')
new->symbol.flags = (BSF_GLOBAL | BSF_EXPORT);
else
new->symbol.flags = BSF_LOCAL;
new->symbol.value = getvalue (&src) - section->vma;
}
}
}
}
}
static void
pass_over (abfd, func)
bfd *abfd;
void (*func) PARAMS ((bfd *, int, char *));
{
unsigned int chars_on_line;
boolean eof = false;
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0)
abort ();
while (eof == false)
{
char buffer[MAXCHUNK];
char *src = buffer;
char type;
eof = (boolean) (bfd_bread (src, (bfd_size_type) 1, abfd) != 1);
while (*src != '%' && !eof)
{
eof = (boolean) (bfd_bread (src, (bfd_size_type) 1, abfd) != 1);
}
if (eof)
break;
src++;
if (bfd_bread (src, (bfd_size_type) 5, abfd) != 5)
abort ();
type = src[2];
if (!ISHEX (src[0]) || !ISHEX (src[1]))
break;
chars_on_line = HEX (src) - 5;
if (bfd_bread (src, (bfd_size_type) chars_on_line, abfd) != chars_on_line)
abort ();
src[chars_on_line] = 0;
func (abfd, type, src);
}
}
static long
tekhex_get_symtab (abfd, table)
bfd *abfd;
asymbol **table;
{
tekhex_symbol_type *p = abfd->tdata.tekhex_data->symbols;
unsigned int c = bfd_get_symcount (abfd);
table[c] = 0;
while (p)
{
table[--c] = &(p->symbol);
p = p->prev;
}
return bfd_get_symcount (abfd);
}
static long
tekhex_get_symtab_upper_bound (abfd)
bfd *abfd;
{
return (abfd->symcount + 1) * (sizeof (struct tekhex_asymbol_struct *));
}
static boolean
tekhex_mkobject (abfd)
bfd *abfd;
{
tdata_type *tdata;
tdata = (tdata_type *) bfd_alloc (abfd, (bfd_size_type) sizeof (tdata_type));
if (!tdata)
return false;
abfd->tdata.tekhex_data = tdata;
tdata->type = 1;
tdata->head = (tekhex_data_list_type *) NULL;
tdata->symbols = (struct tekhex_symbol_struct *) NULL;
tdata->data = (struct data_struct *) NULL;
return true;
}
static const bfd_target *
tekhex_object_p (abfd)
bfd *abfd;
{
char b[4];
tekhex_init ();
if (bfd_seek (abfd, (file_ptr) 0, SEEK_SET) != 0
|| bfd_bread (b, (bfd_size_type) 4, abfd) != 4)
return NULL;
if (b[0] != '%' || !ISHEX (b[1]) || !ISHEX (b[2]) || !ISHEX (b[3]))
return (const bfd_target *) NULL;
tekhex_mkobject (abfd);
pass_over (abfd, first_phase);
return abfd->xvec;
}
static void
move_section_contents (abfd, section, locationp, offset, count, get)
bfd *abfd;
asection *section;
PTR locationp;
file_ptr offset;
bfd_size_type count;
boolean get;
{
bfd_vma addr;
char *location = (char *) locationp;
bfd_vma prev_number = 1;
struct data_struct *d = (struct data_struct *) NULL;
BFD_ASSERT (offset == 0);
for (addr = section->vma; count != 0; count--, addr++)
{
bfd_vma chunk_number = addr & ~(bfd_vma) CHUNK_MASK;
bfd_vma low_bits = addr & CHUNK_MASK;
if (chunk_number != prev_number)
{
d = find_chunk (abfd, chunk_number);
}
if (get)
{
if (d->chunk_init[low_bits])
{
*location = d->chunk_data[low_bits];
}
else
{
*location = 0;
}
}
else
{
d->chunk_data[low_bits] = *location;
d->chunk_init[low_bits] = (*location != 0);
}
location++;
}
}
static boolean
tekhex_get_section_contents (abfd, section, locationp, offset, count)
bfd *abfd;
asection *section;
PTR locationp;
file_ptr offset;
bfd_size_type count;
{
if (section->flags & (SEC_LOAD | SEC_ALLOC))
{
move_section_contents (abfd, section, locationp, offset, count, true);
return true;
}
else
return false;
}
static boolean
tekhex_set_arch_mach (abfd, arch, machine)
bfd *abfd;
enum bfd_architecture arch;
unsigned long machine;
{
return bfd_default_set_arch_mach (abfd, arch, machine);
}
static boolean
tekhex_set_section_contents (abfd, section, locationp, offset, bytes_to_do)
bfd *abfd;
sec_ptr section;
PTR locationp;
file_ptr offset;
bfd_size_type bytes_to_do;
{
if (abfd->output_has_begun == false)
{
asection *s = abfd->sections;
bfd_vma vma;
for (s = abfd->sections; s; s = s->next)
{
if (s->flags & SEC_LOAD)
{
for (vma = s->vma & ~(bfd_vma) CHUNK_MASK;
vma < s->vma + s->_raw_size;
vma += CHUNK_MASK)
find_chunk (abfd, vma);
}
}
}
if (section->flags & (SEC_LOAD | SEC_ALLOC))
{
move_section_contents (abfd, section, locationp, offset, bytes_to_do,
false);
return true;
}
else
return false;
}
static void
writevalue (dst, value)
char **dst;
bfd_vma value;
{
char *p = *dst;
int len;
int shift;
for (len = 8, shift = 28; shift; shift -= 4, len--)
{
if ((value >> shift) & 0xf)
{
*p++ = len + '0';
while (len)
{
*p++ = digs[(value >> shift) & 0xf];
shift -= 4;
len--;
}
*dst = p;
return;
}
}
*p++ = '1';
*p++ = '0';
*dst = p;
}
static void
writesym (dst, sym)
char **dst;
const char *sym;
{
char *p = *dst;
int len = (sym ? strlen (sym) : 0);
if (len >= 16)
{
*p++ = '0';
len = 16;
}
else
{
if (len == 0)
{
*p++ = '1';
sym = "$";
len = 1;
}
else
{
*p++ = digs[len];
}
}
while (len--)
{
*p++ = *sym++;
}
*dst = p;
}
static void
out (abfd, type, start, end)
bfd *abfd;
int type;
char *start;
char *end;
{
int sum = 0;
char *s;
char front[6];
bfd_size_type wrlen;
front[0] = '%';
TOHEX (front + 1, end - start + 5);
front[3] = type;
for (s = start; s < end; s++)
{
sum += sum_block[(unsigned char) *s];
}
sum += sum_block[(unsigned char) front[1]];
sum += sum_block[(unsigned char) front[2]];
sum += sum_block[(unsigned char) front[3]];
TOHEX (front + 4, sum);
if (bfd_bwrite (front, (bfd_size_type) 6, abfd) != 6)
abort ();
end[0] = '\n';
wrlen = end - start + 1;
if (bfd_bwrite (start, wrlen, abfd) != wrlen)
abort ();
}
static boolean
tekhex_write_object_contents (abfd)
bfd *abfd;
{
int bytes_written;
char buffer[100];
asymbol **p;
asection *s;
struct data_struct *d;
tekhex_init ();
bytes_written = 0;
for (d = abfd->tdata.tekhex_data->data;
d != (struct data_struct *) NULL;
d = d->next)
{
int low;
const int span = 32;
int addr;
for (addr = 0; addr < CHUNK_MASK + 1; addr += span)
{
int need = 0;
for (low = 0; !need && low < span; low++)
{
if (d->chunk_init[addr + low])
need = 1;
}
if (need)
{
char *dst = buffer;
writevalue (&dst, addr + d->vma);
for (low = 0; low < span; low++)
{
TOHEX (dst, d->chunk_data[addr + low]);
dst += 2;
}
out (abfd, '6', buffer, dst);
}
}
}
for (s = abfd->sections; s != (asection *) NULL; s = s->next)
{
char *dst = buffer;
writesym (&dst, s->name);
*dst++ = '1';
writevalue (&dst, s->vma);
writevalue (&dst, s->vma + s->_raw_size);
out (abfd, '3', buffer, dst);
}
if (abfd->outsymbols)
{
for (p = abfd->outsymbols; *p; p++)
{
int section_code = bfd_decode_symclass (*p);
if (section_code != '?')
{
asymbol *sym = *p;
char *dst = buffer;
writesym (&dst, sym->section->name);
switch (section_code)
{
case 'A':
*dst++ = '2';
break;
case 'a':
*dst++ = '6';
break;
case 'D':
case 'B':
case 'O':
*dst++ = '4';
break;
case 'd':
case 'b':
case 'o':
*dst++ = '8';
break;
case 'T':
*dst++ = '3';
break;
case 't':
*dst++ = '7';
break;
case 'C':
case 'U':
bfd_set_error (bfd_error_wrong_format);
return false;
}
writesym (&dst, sym->name);
writevalue (&dst, sym->value + sym->section->vma);
out (abfd, '3', buffer, dst);
}
}
}
if (bfd_bwrite ("%0781010\n", (bfd_size_type) 9, abfd) != 9)
abort ();
return true;
}
static int
tekhex_sizeof_headers (abfd, exec)
bfd *abfd ATTRIBUTE_UNUSED;
boolean exec ATTRIBUTE_UNUSED;
{
return 0;
}
static asymbol *
tekhex_make_empty_symbol (abfd)
bfd *abfd;
{
bfd_size_type amt = sizeof (struct tekhex_symbol_struct);
tekhex_symbol_type *new = (tekhex_symbol_type *) bfd_zalloc (abfd, amt);
if (!new)
return NULL;
new->symbol.the_bfd = abfd;
new->prev = (struct tekhex_symbol_struct *) NULL;
return &(new->symbol);
}
static void
tekhex_get_symbol_info (ignore_abfd, symbol, ret)
bfd *ignore_abfd ATTRIBUTE_UNUSED;
asymbol *symbol;
symbol_info *ret;
{
bfd_symbol_info (symbol, ret);
}
static void
tekhex_print_symbol (abfd, filep, symbol, how)
bfd *abfd;
PTR filep;
asymbol *symbol;
bfd_print_symbol_type how;
{
FILE *file = (FILE *) filep;
switch (how)
{
case bfd_print_symbol_name:
fprintf (file, "%s", symbol->name);
break;
case bfd_print_symbol_more:
break;
case bfd_print_symbol_all:
{
const char *section_name = symbol->section->name;
bfd_print_symbol_vandf (abfd, (PTR) file, symbol);
fprintf (file, " %-5s %s",
section_name,
symbol->name);
}
}
}
#define tekhex_close_and_cleanup _bfd_generic_close_and_cleanup
#define tekhex_bfd_free_cached_info _bfd_generic_bfd_free_cached_info
#define tekhex_new_section_hook _bfd_generic_new_section_hook
#define tekhex_bfd_is_local_label_name bfd_generic_is_local_label_name
#define tekhex_get_lineno _bfd_nosymbols_get_lineno
#define tekhex_find_nearest_line _bfd_nosymbols_find_nearest_line
#define tekhex_bfd_make_debug_symbol _bfd_nosymbols_bfd_make_debug_symbol
#define tekhex_read_minisymbols _bfd_generic_read_minisymbols
#define tekhex_minisymbol_to_symbol _bfd_generic_minisymbol_to_symbol
#define tekhex_bfd_get_relocated_section_contents \
bfd_generic_get_relocated_section_contents
#define tekhex_bfd_relax_section bfd_generic_relax_section
#define tekhex_bfd_gc_sections bfd_generic_gc_sections
#define tekhex_bfd_merge_sections bfd_generic_merge_sections
#define tekhex_bfd_link_hash_table_create _bfd_generic_link_hash_table_create
#define tekhex_bfd_link_hash_table_free _bfd_generic_link_hash_table_free
#define tekhex_bfd_link_add_symbols _bfd_generic_link_add_symbols
#define tekhex_bfd_final_link _bfd_generic_final_link
#define tekhex_bfd_link_split_section _bfd_generic_link_split_section
#define tekhex_get_section_contents_in_window \
_bfd_generic_get_section_contents_in_window
const bfd_target tekhex_vec =
{
"tekhex",
bfd_target_tekhex_flavour,
BFD_ENDIAN_UNKNOWN,
BFD_ENDIAN_UNKNOWN,
(EXEC_P |
HAS_SYMS | HAS_LINENO | HAS_DEBUG | HAS_RELOC | HAS_LOCALS |
WP_TEXT | D_PAGED),
(SEC_CODE | SEC_DATA | SEC_ROM | SEC_HAS_CONTENTS
| SEC_ALLOC | SEC_LOAD | SEC_RELOC),
0,
' ',
16,
bfd_getb64, bfd_getb_signed_64, bfd_putb64,
bfd_getb32, bfd_getb_signed_32, bfd_putb32,
bfd_getb16, bfd_getb_signed_16, bfd_putb16,
bfd_getb64, bfd_getb_signed_64, bfd_putb64,
bfd_getb32, bfd_getb_signed_32, bfd_putb32,
bfd_getb16, bfd_getb_signed_16, bfd_putb16,
{
_bfd_dummy_target,
tekhex_object_p,
_bfd_dummy_target,
_bfd_dummy_target,
},
{
bfd_false,
tekhex_mkobject,
_bfd_generic_mkarchive,
bfd_false,
},
{
bfd_false,
tekhex_write_object_contents,
_bfd_write_archive_contents,
bfd_false,
},
BFD_JUMP_TABLE_GENERIC (tekhex),
BFD_JUMP_TABLE_COPY (_bfd_generic),
BFD_JUMP_TABLE_CORE (_bfd_nocore),
BFD_JUMP_TABLE_ARCHIVE (_bfd_noarchive),
BFD_JUMP_TABLE_SYMBOLS (tekhex),
BFD_JUMP_TABLE_RELOCS (_bfd_norelocs),
BFD_JUMP_TABLE_WRITE (tekhex),
BFD_JUMP_TABLE_LINK (tekhex),
BFD_JUMP_TABLE_DYNAMIC (_bfd_nodynamic),
NULL,
(PTR) 0
};