#pragma ident "@(#)ar.c 1.23 05/06/08 SMI"
#include "syn.h"
#include <ar.h>
#include <stdlib.h>
#include <memory.h>
#include <errno.h>
#include <libelf.h>
#include "decl.h"
#include "msg.h"
#include "member.h"
#include "string.h"
#define MANGLE '\177'
struct x
{
char x[sizeof (struct ar_hdr) - 3 * sizeof (Elf64) - 1];
};
static const char fmag[] = ARFMAG;
unsigned long
_elf_number(char * p, char * end, int base)
{
register unsigned c;
register unsigned long n = 0;
while (p < end) {
if ((c = *p - '0') >= base) {
while (*p++ == ' ')
if (p >= end)
return (n);
return (0);
}
n *= base;
n += c;
++p;
}
return (n);
}
Member *
_elf_armem(Elf * elf, char * file, size_t fsz)
{
register struct ar_hdr *f = (struct ar_hdr *)file;
register Member *m;
register Memlist *l, * ol;
register Memident *i;
if (fsz < sizeof (struct ar_hdr)) {
_elf_seterr(EFMT_ARHDRSZ, 0);
return (0);
}
for (l = elf->ed_memlist, ol = l; l; ol = l, l = l->m_next)
for (i = (Memident *)(l + 1); i < l->m_free; i++)
if (i->m_offset == file)
return (i->m_member);
if (f->ar_fmag[0] != fmag[0] || f->ar_fmag[1] != fmag[1]) {
_elf_seterr(EFMT_ARFMAG, 0);
return (0);
}
if ((m = (Member *)malloc(sizeof (Member))) == 0) {
_elf_seterr(EMEM_ARMEM, errno);
return (0);
}
if ((elf->ed_memlist == 0) || (ol->m_free == ol->m_end)) {
if ((l = (Memlist *)malloc(sizeof (Memlist) +
(sizeof (Memident) * MEMIDENTNO))) == 0) {
_elf_seterr(EMEM_ARMEM, errno);
return (0);
}
l->m_next = 0;
l->m_free = (Memident *)(l + 1);
l->m_end = (Memident *)((uintptr_t)l->m_free +
(sizeof (Memident) * MEMIDENTNO));
if (elf->ed_memlist == 0)
elf->ed_memlist = l;
else
ol->m_next = l;
ol = l;
}
ol->m_free->m_offset = file;
ol->m_free->m_member = m;
ol->m_free++;
m->m_err = 0;
memcpy(m->m_name, f->ar_name, ARSZ(ar_name));
m->m_name[ARSZ(ar_name)] = '\0';
m->m_hdr.ar_name = m->m_name;
(void) memcpy(m->m_raw, f->ar_name, ARSZ(ar_name));
m->m_raw[ARSZ(ar_name)] = '\0';
m->m_hdr.ar_rawname = m->m_raw;
m->m_slide = 0;
if (f->ar_name[0] != '/') {
register char *p;
p = &m->m_name[sizeof (m->m_name)];
while (*--p != '/')
if (p <= m->m_name)
break;
*p = '\0';
} else if (f->ar_name[1] >= '0' && f->ar_name[1] <= '9') {
register unsigned long j;
j = _elf_number(&f->ar_name[1],
&f->ar_name[ARSZ(ar_name)], 10);
if (j < elf->ed_arstrsz)
m->m_hdr.ar_name = elf->ed_arstr + j;
else {
m->m_hdr.ar_name = 0;
m->m_err = (int)EFMT_ARSTRNM;
}
} else if (f->ar_name[1] == ' ')
m->m_name[1] = '\0';
else if (f->ar_name[1] == '/' && f->ar_name[2] == ' ')
m->m_name[2] = '\0';
else {
m->m_hdr.ar_name = 0;
m->m_err = (int)EFMT_ARUNKNM;
}
m->m_hdr.ar_date = (time_t)_elf_number(f->ar_date,
&f->ar_date[ARSZ(ar_date)], 10);
m->m_hdr.ar_uid = (uid_t)_elf_number(f->ar_uid,
&f->ar_uid[ARSZ(ar_uid)], 10);
m->m_hdr.ar_gid = (gid_t)_elf_number(f->ar_gid,
&f->ar_gid[ARSZ(ar_gid)], 10);
m->m_hdr.ar_mode = (mode_t)_elf_number(f->ar_mode,
&f->ar_mode[ARSZ(ar_mode)], 8);
m->m_hdr.ar_size = (off_t)_elf_number(f->ar_size,
&f->ar_size[ARSZ(ar_size)], 10);
return (m);
}
void
_elf_arinit(Elf * elf)
{
char * base = elf->ed_ident;
register char * end = base + elf->ed_fsz;
register struct ar_hdr * a;
register char * hdr = base + SARMAG;
register char * mem;
int j;
size_t sz = SARMAG;
elf->ed_status = ES_COOKED;
elf->ed_nextoff = SARMAG;
for (j = 0; j < 2; ++j) {
unsigned long n;
if (((end - hdr) < sizeof (struct ar_hdr)) ||
(_elf_vm(elf, (size_t)(SARMAG),
sizeof (struct ar_hdr)) != OK_YES))
return;
a = (struct ar_hdr *)hdr;
mem = (char *)a + sizeof (struct ar_hdr);
n = _elf_number(a->ar_size, &a->ar_size[ARSZ(ar_size)], 10);
if ((end - mem < n) || (a->ar_name[0] != '/') ||
((sz = n) != n)) {
return;
}
hdr = mem + sz;
if (a->ar_name[1] == ' ') {
elf->ed_arsym = mem;
elf->ed_arsymsz = sz;
elf->ed_arsymoff = (char *)a - base;
} else if (a->ar_name[1] == '/' && a->ar_name[2] == ' ') {
int k;
if (_elf_vm(elf, (size_t)(mem - elf->ed_ident),
sz) != OK_YES)
return;
if (elf->ed_vm == 0) {
char * nmem;
if ((nmem = malloc(sz)) == 0) {
_elf_seterr(EMEM_ARSTR, errno);
return;
}
(void) memcpy(nmem, mem, sz);
elf->ed_myflags |= EDF_ASTRALLOC;
mem = nmem;
}
elf->ed_arstr = mem;
elf->ed_arstrsz = sz;
elf->ed_arstroff = (char *)a - base;
for (k = 0; k < sz; k++) {
if (*mem == '/')
*mem = '\0';
++mem;
}
*(mem - 1) = '\0';
} else {
return;
}
hdr += sz & 1;
}
}