/* * Retrieve the full name of the archive member. */ char * _libelf_ar_get_name(char *buf, size_t bufsize, Elf *e) { char c, *q, *r, *s; size_t len; size_t offset; assert(e->e_kind == ELF_K_AR); if (buf[0] == '/' && (c = buf[1]) >= '0' && c <= '9') { /* * The value in field ar_name is a decimal offset into * the archive string table where the actual name * resides. */ if (_libelf_ar_get_number(buf + 1, bufsize - 1, 10, &offset) == 0) { LIBELF_SET_ERROR(ARCHIVE, 0); return (NULL); } if (offset > e->e_u.e_ar.e_rawstrtabsz) { LIBELF_SET_ERROR(ARCHIVE, 0); return (NULL); } s = q = e->e_u.e_ar.e_rawstrtab + offset; r = e->e_u.e_ar.e_rawstrtab + e->e_u.e_ar.e_rawstrtabsz; for (s = q; s < r && *s != '/'; s++) ; len = s - q + 1; /* space for the trailing NUL */ if ((s = malloc(len)) == NULL) { LIBELF_SET_ERROR(RESOURCE, 0); return (NULL); } (void) strncpy(s, q, len); s[len - 1] = '\0'; return (s); } /* * Normal 'name' */ return (_libelf_ar_get_string(buf, bufsize, 0)); }
Elf_Arhdr * _libelf_ar_gethdr(Elf *e) { Elf *parent; struct ar_hdr *arh; Elf_Arhdr *eh; size_t n; if ((parent = e->e_parent) == NULL) { LIBELF_SET_ERROR(ARGUMENT, 0); return (NULL); } arh = (struct ar_hdr *) ((uintptr_t) e->e_rawfile - sizeof(struct ar_hdr)); assert((uintptr_t) arh >= (uintptr_t) parent->e_rawfile + SARMAG); assert((uintptr_t) arh <= (uintptr_t) parent->e_rawfile + parent->e_rawsize - sizeof(struct ar_hdr)); if ((eh = malloc(sizeof(Elf_Arhdr))) == NULL) { LIBELF_SET_ERROR(RESOURCE, 0); return (NULL); } e->e_arhdr = eh; eh->ar_name = eh->ar_rawname = NULL; if ((eh->ar_name = _libelf_ar_get_name(arh->ar_name, sizeof(arh->ar_name), parent)) == NULL) goto error; if (_libelf_ar_get_number(arh->ar_uid, sizeof(arh->ar_uid), 10, &n) == 0) goto error; eh->ar_uid = (uid_t) n; if (_libelf_ar_get_number(arh->ar_gid, sizeof(arh->ar_gid), 10, &n) == 0) goto error; eh->ar_gid = (gid_t) n; if (_libelf_ar_get_number(arh->ar_mode, sizeof(arh->ar_mode), 8, &n) == 0) goto error; eh->ar_mode = (mode_t) n; if (_libelf_ar_get_number(arh->ar_size, sizeof(arh->ar_size), 10, &n) == 0) goto error; eh->ar_size = n; if ((eh->ar_rawname = _libelf_ar_get_string(arh->ar_name, sizeof(arh->ar_name), 1)) == NULL) goto error; return (eh); error: if (eh) { if (eh->ar_name) free(eh->ar_name); if (eh->ar_rawname) free(eh->ar_rawname); free(eh); } e->e_arhdr = NULL; return (NULL); }