Blame src/arbits/slbt_archive_merge.c

db49af
/*******************************************************************/
eac61a
/*  slibtool: a strong libtool implementation, written in C        */
db49af
/*  Copyright (C) 2016--2024  SysDeer Technologies, LLC            */
db49af
/*  Released under the Standard MIT License; see COPYING.SLIBTOOL. */
db49af
/*******************************************************************/
db49af
db49af
#include <time.h>
db49af
#include <stdio.h>
db49af
#include <stdint.h>
db49af
#include <stddef.h>
db49af
#include <stdlib.h>
db49af
#include <string.h>
db49af
#include <inttypes.h>
db49af
#include <sys/mman.h>
db49af
#include <sys/types.h>
db49af
db49af
#include <slibtool/slibtool.h>
db49af
#include <slibtool/slibtool_arbits.h>
db49af
#include "slibtool_ar_impl.h"
db49af
#include "slibtool_driver_impl.h"
db49af
#include "slibtool_errinfo_impl.h"
db49af
db49af
/* anonymous fun */
db49af
#ifndef MAP_ANONYMOUS
db49af
#define MAP_ANONYMOUS MAP_ANON
db49af
#endif
db49af
db49af
/* time stamp format specifier */
db49af
#define PPRII64 "%"PRIi64
db49af
db49af
/* file size format specifier */
db49af
#define PPRIU64 "%"PRIu64
db49af
e06cc0
/* dlopen self/force */
e06cc0
static const char slbt_ar_self_dlunit[] = "@PROGRAM@";
e06cc0
db49af
struct armap_buffer_32 {
db49af
	uint32_t        moffset;
db49af
	const char *    symname;
db49af
	uint32_t        baseidx;
db49af
};
db49af
db49af
struct armap_buffer_64 {
db49af
	uint64_t        moffset;
db49af
	const char *    symname;
db49af
	uint64_t        baseidx;
db49af
};
db49af
db49af
static const char ar_signature[] = AR_SIGNATURE;
db49af
db49af
static int slbt_create_anonymous_archive_ctx(
db49af
	const struct slbt_driver_ctx *	dctx,
db49af
	size_t                          size,
db49af
	struct slbt_archive_ctx **	pctx)
db49af
{
db49af
	struct slbt_archive_ctx_impl *	ctx;
db49af
db49af
	if (!(ctx = calloc(1,sizeof(*ctx))))
db49af
		return SLBT_BUFFER_ERROR(dctx);
db49af
db49af
	ctx->map.map_size = size;
db49af
	ctx->map.map_addr = mmap(
db49af
		0,size,
db49af
		PROT_READ|PROT_WRITE,
db49af
		MAP_PRIVATE|MAP_ANONYMOUS,
db49af
		-1,0);
db49af
db49af
	if (ctx->map.map_addr == MAP_FAILED) {
db49af
		free(ctx);
db49af
		return SLBT_SYSTEM_ERROR(dctx,0);
db49af
	}
db49af
db49af
	ctx->dctx       = dctx;
db49af
	ctx->actx.map	= &ctx->map;
db49af
db49af
	*pctx = &ctx->actx;
db49af
db49af
	return 0;
db49af
}
db49af
db49af
static off_t slbt_armap_write_be_32(unsigned char * mark, uint32_t val)
db49af
{
db49af
	mark[0] = val >> 24;
db49af
	mark[1] = val >> 16;
db49af
	mark[2] = val >> 8;
db49af
	mark[3] = val;
db49af
db49af
	return sizeof(uint32_t);
db49af
}
db49af
db49af
static off_t slbt_armap_write_le_32(unsigned char * mark, uint32_t val)
db49af
{
db49af
	mark[0] = val;
db49af
	mark[1] = val >> 8;
db49af
	mark[2] = val >> 16;
db49af
	mark[3] = val >> 24;
db49af
db49af
	return sizeof(uint32_t);
db49af
}
db49af
db49af
static off_t slbt_armap_write_be_64(unsigned char * mark, uint64_t val)
db49af
{
db49af
	slbt_armap_write_be_32(&mark[0],val >> 32);
db49af
	slbt_armap_write_be_32(&mark[4],val);
db49af
db49af
	return sizeof(uint64_t);
db49af
}
db49af
db49af
static off_t slbt_armap_write_le_64(unsigned char * mark, uint64_t val)
db49af
{
db49af
	slbt_armap_write_be_32(&mark[0],val);
db49af
	slbt_armap_write_be_32(&mark[4],val >> 32);
db49af
db49af
	return sizeof(uint64_t);
db49af
}
db49af
db49af
51c276
static int slbt_ar_merge_archives_fail(
db49af
	struct slbt_archive_ctx *   arctx,
db49af
	struct armap_buffer_32 *    bsdmap32,
db49af
	struct armap_buffer_64 *    bsdmap64,
db49af
	int                         ret)
db49af
{
db49af
	if (bsdmap32)
db49af
		free(bsdmap32);
db49af
db49af
	if (bsdmap64)
db49af
		free(bsdmap64);
db49af
db49af
	if (arctx)
51c276
		slbt_ar_free_archive_ctx(arctx);
db49af
db49af
	return ret;
db49af
}
db49af
db49af
51c276
int slbt_ar_merge_archives(
db49af
	struct slbt_archive_ctx * const arctxv[],
db49af
	struct slbt_archive_ctx **      arctxm)
db49af
{
db49af
	struct slbt_archive_ctx * const *       arctxp;
db49af
	struct slbt_archive_ctx *               arctx;
db49af
db49af
	const struct slbt_driver_ctx *          dctx;
db49af
	const struct slbt_archive_meta *        meta;
db49af
db49af
	struct ar_raw_file_header *             arhdr;
db49af
	struct ar_meta_member_info **           memberp;
db49af
	struct ar_meta_member_info *            meminfo;
db49af
db49af
	struct ar_meta_member_info *            armap;
db49af
	struct ar_meta_member_info *            arnames;
db49af
db49af
	const struct ar_meta_armap_common_32 *  armap32;
db49af
	const struct ar_meta_armap_common_64 *  armap64;
db49af
	const struct ar_meta_armap_ref_32 *     symref32;
db49af
	const struct ar_meta_armap_ref_64 *     symref64;
db49af
db49af
	struct armap_buffer_32 *                bsdmap32;
db49af
	struct armap_buffer_64 *                bsdmap64;
db49af
	struct armap_buffer_32 *                bsdsort32;
db49af
	struct armap_buffer_64 *                bsdsort64;
db49af
db49af
	size_t                                  nbytes;
db49af
	ssize_t                                 nwritten;
db49af
db49af
	uint32_t                                mapattr;
db49af
	uint64_t                                nmembers;
db49af
	uint64_t                                nsymrefs;
db49af
db49af
	uint64_t                                sarmap;
db49af
	uint64_t                                sarname;
db49af
	uint64_t                                sarchive;
db49af
	uint64_t                                smembers;
db49af
	uint64_t                                ssymrefs;
db49af
	uint64_t                                ssymstrs;
db49af
	uint64_t                                snamestrs;
db49af
db49af
	int64_t                                 omembers;
db49af
	int64_t                                 osymrefs;
db49af
	int64_t                                 onamestrs;
db49af
	int64_t                                 omemfixup;
db49af
db49af
	char *                                  base;
db49af
	unsigned char *                         ubase;
db49af
db49af
	char *                                  ch;
db49af
	unsigned char *                         uch;
db49af
db49af
	char *                                  namebase;
db49af
	char *                                  namestr;
db49af
	char *                                  strtbl;
db49af
db49af
	uint64_t                                idx;
db49af
	uint64_t                                mapidx;
db49af
	uint64_t                                cmpidx;
db49af
db49af
	off_t (*armap_write_uint32)(
db49af
		unsigned char *,
db49af
		uint32_t);
db49af
db49af
	off_t (*armap_write_uint64)(
db49af
		unsigned char *,
db49af
		uint64_t);
db49af
db49af
	/* init */
db49af
	nmembers = nsymrefs = ssymstrs = mapattr   = 0;
db49af
	sarchive = smembers = ssymrefs = snamestrs = 0;
db49af
	omembers = osymrefs = onamestrs = 0;
db49af
db49af
	if (!arctxv || !arctxv[0])
db49af
		return -1;
db49af
db49af
	if (!(dctx = slbt_get_archive_ictx(arctxv[0])->dctx))
db49af
		return -1;
db49af
db49af
	/* determine armap type and size of archive elements */
db49af
	for (armap=0,arnames=0,arctxp=arctxv; *arctxp; arctxp++) {
db49af
		if (slbt_get_archive_ictx(*arctxp)->dctx != dctx)
db49af
			return SLBT_CUSTOM_ERROR(
db49af
				dctx,
db49af
				SLBT_ERR_AR_DRIVER_MISMATCH);
db49af
db49af
		meta    = (*arctxp)->meta;
db49af
		armap32 = meta->a_armap_primary.ar_armap_common_32;
db49af
		armap64 = meta->a_armap_primary.ar_armap_common_64;
db49af
db49af
		for (memberp=meta->a_memberv; memberp && *memberp; memberp++) {
db49af
			meminfo = *memberp;
db49af
db49af
			switch (meminfo->ar_member_attr) {
db49af
				case AR_MEMBER_ATTR_ARMAP:
db49af
					if (armap32) {
db49af
						if (mapattr == 0) {
db49af
							armap   = meminfo;
db49af
							mapattr = armap32->ar_armap_attr;
db49af
						} else if (mapattr != armap32->ar_armap_attr) {
db49af
							return SLBT_CUSTOM_ERROR(
db49af
								dctx,
db49af
								SLBT_ERR_AR_ARMAP_MISMATCH);
db49af
						}
db49af
db49af
						nsymrefs += armap32->ar_num_of_symbols;
db49af
						ssymstrs += armap32->ar_size_of_strs;
db49af
db49af
					} else if (armap64) {
db49af
						if (mapattr == 0) {
db49af
							armap   = meminfo;
db49af
							mapattr = armap64->ar_armap_attr;
db49af
						} else if (mapattr != armap64->ar_armap_attr) {
db49af
							return SLBT_CUSTOM_ERROR(
db49af
								dctx,
db49af
								SLBT_ERR_AR_ARMAP_MISMATCH);
db49af
						}
db49af
db49af
						nsymrefs += armap64->ar_num_of_symbols;
db49af
					}
db49af
db49af
					break;
db49af
db49af
				case AR_MEMBER_ATTR_LINKINFO:
db49af
					break;
db49af
db49af
				case AR_MEMBER_ATTR_NAMESTRS:
db49af
					snamestrs += meminfo->ar_object_size;
db49af
db49af
					if (!arnames)
db49af
						arnames = meminfo;
db49af
db49af
					break;
db49af
db49af
				default:
db49af
					smembers += sizeof(struct ar_raw_file_header);
db49af
					smembers += meminfo->ar_file_header.ar_file_size;
db49af
					smembers += 1;
db49af
					smembers |= 1;
db49af
					smembers ^= 1;
db49af
					nmembers++;
db49af
db49af
					break;
db49af
			}
db49af
		}
db49af
	}
db49af
db49af
	/* armap size */
db49af
	if (sarmap = 0, sarname = 0, (mapattr == 0)) {
db49af
		(void)0;
db49af
db49af
	} else if (mapattr & AR_ARMAP_ATTR_SYSV) {
db49af
		if (mapattr & (AR_ARMAP_ATTR_LE_32|AR_ARMAP_ATTR_BE_32)) {
db49af
			sarmap += sizeof(uint32_t);
db49af
			sarmap += sizeof(uint32_t) * nsymrefs;
db49af
		} else {
db49af
			sarmap += sizeof(uint64_t);
db49af
			sarmap += sizeof(uint64_t) * nsymrefs;
db49af
		}
db49af
db49af
	} else if (mapattr & AR_ARMAP_ATTR_BSD) {
db49af
		if (mapattr & (AR_ARMAP_ATTR_LE_32|AR_ARMAP_ATTR_BE_32)) {
db49af
			sarmap += 2 * sizeof(uint32_t);
db49af
			sarmap += 2 * sizeof(uint32_t) * nsymrefs;
db49af
		} else {
db49af
			sarmap += 2 * sizeof(uint64_t);
db49af
			sarmap += 2 * sizeof(uint64_t) * nsymrefs;
db49af
		}
db49af
db49af
		sarname += armap->ar_file_header.ar_file_size;
db49af
		sarname -= armap->ar_object_size;
db49af
	} else {
db49af
		return SLBT_CUSTOM_ERROR(dctx,SLBT_ERR_FLOW_ERROR);
db49af
	}
db49af
32c230
	ssymstrs += 1;
32c230
	ssymstrs |= 1;
32c230
	ssymstrs ^= 1;
32c230
6b3bd5
	/* (debugging) */
6b3bd5
	(void)nmembers;
6b3bd5
db49af
	/* long-names member alignment */
db49af
	snamestrs += 1;
db49af
	snamestrs |= 1;
db49af
	snamestrs ^= 1;
db49af
db49af
	/* archive size */
db49af
	sarchive  = sizeof(struct ar_raw_signature);
db49af
	sarchive += armap   ? sizeof(struct ar_raw_file_header) : 0;
db49af
	sarchive += arnames ? sizeof(struct ar_raw_file_header) : 0;
db49af
	sarchive += sarname;
db49af
	sarchive += sarmap;
db49af
	sarchive += ssymstrs;
db49af
	sarchive += snamestrs;
db49af
	sarchive += smembers;
db49af
db49af
	/* offset from archive base to first public member */
db49af
	omembers  = sarchive;
db49af
	omembers -= smembers;
db49af
db49af
db49af
	/* create in-memory archive */
db49af
	if (slbt_create_anonymous_archive_ctx(dctx,sarchive,&arctx) < 0)
db49af
		return SLBT_NESTED_ERROR(dctx);
db49af
db49af
db49af
	/* get ready for writing */
db49af
	base  = arctx->map->map_addr;
db49af
	ubase = arctx->map->map_addr;
db49af
db49af
db49af
	/* archive header */
db49af
	ch = base;
db49af
	memcpy(ch,ar_signature,sizeof(struct ar_raw_signature));
db49af
	ch += sizeof(struct ar_raw_signature);
db49af
db49af
db49af
	/* armap header */
db49af
	if (armap) {
db49af
		arhdr = (struct ar_raw_file_header *)ch;
db49af
		memcpy(arhdr,armap->ar_member_data,sizeof(*arhdr)+sarname);
db49af
db49af
		nwritten = armap->ar_file_header.ar_time_date_stamp
db49af
				? sprintf(arhdr->ar_time_date_stamp,PPRII64,time(0))
db49af
				: 0;
db49af
db49af
		if (nwritten < 0)
51c276
			return slbt_ar_merge_archives_fail(
db49af
				arctx,0,0,
db49af
				SLBT_SYSTEM_ERROR(dctx,0));
db49af
db49af
		for (nbytes=nwritten; nbytes < sizeof(arhdr->ar_time_date_stamp); nbytes++)
db49af
			arhdr->ar_time_date_stamp[nbytes] = AR_DEC_PADDING;
db49af
db49af
		nwritten = sprintf(
db49af
			arhdr->ar_file_size,PPRIU64,
db49af
			sarname + sarmap + ssymstrs);
db49af
db49af
		if (nwritten < 0)
51c276
			return slbt_ar_merge_archives_fail(
db49af
				arctx,0,0,
db49af
				SLBT_SYSTEM_ERROR(dctx,0));
db49af
db49af
		for (nbytes=nwritten; nbytes < sizeof(arhdr->ar_file_size); nbytes++)
db49af
			arhdr->ar_file_size[nbytes] = AR_DEC_PADDING;
db49af
	}
db49af
db49af
db49af
	/* arnames header (sysv only) */
db49af
	if (arnames) {
db49af
		ch  = base;
db49af
		ch += omembers;
db49af
		ch -= snamestrs;
db49af
		ch -= sizeof(struct ar_raw_file_header);
db49af
db49af
		namebase  = ch;
db49af
		namebase += sizeof(struct ar_raw_file_header);
db49af
db49af
		memset(namebase,0,snamestrs);
db49af
		namestr = namebase;
db49af
db49af
		arhdr = (struct ar_raw_file_header *)ch;
db49af
		memcpy(arhdr,arnames->ar_member_data,sizeof(*arhdr));
db49af
db49af
		nwritten = arnames->ar_file_header.ar_time_date_stamp
db49af
				? sprintf(arhdr->ar_time_date_stamp,PPRII64,time(0))
db49af
				: 0;
db49af
db49af
		if (nwritten < 0)
51c276
			return slbt_ar_merge_archives_fail(
db49af
				arctx,0,0,
db49af
				SLBT_SYSTEM_ERROR(dctx,0));
db49af
db49af
		for (nbytes=nwritten; nbytes < sizeof(arhdr->ar_time_date_stamp); nbytes++)
db49af
			arhdr->ar_time_date_stamp[nbytes] = AR_DEC_PADDING;
db49af
db49af
		nwritten = sprintf(
db49af
			arhdr->ar_file_size,PPRIU64,
db49af
			snamestrs);
db49af
db49af
		if (nwritten < 0)
51c276
			return slbt_ar_merge_archives_fail(
db49af
				arctx,0,0,
db49af
				SLBT_SYSTEM_ERROR(dctx,0));
db49af
db49af
		for (nbytes=nwritten; nbytes < sizeof(arhdr->ar_file_size); nbytes++)
db49af
			arhdr->ar_file_size[nbytes] = AR_DEC_PADDING;
db49af
	}
db49af
db49af
db49af
	/* armap data (preparation) */
db49af
	armap_write_uint32 = 0;
db49af
	armap_write_uint64 = 0;
db49af
db49af
	bsdmap32 = 0;
db49af
	bsdmap64 = 0;
db49af
db49af
	if (mapattr & AR_ARMAP_ATTR_BE_32)
db49af
		armap_write_uint32 = slbt_armap_write_be_32;
db49af
db49af
	else if (mapattr & AR_ARMAP_ATTR_LE_32)
db49af
		armap_write_uint32 = slbt_armap_write_le_32;
db49af
db49af
	else if (mapattr & AR_ARMAP_ATTR_BE_64)
db49af
		armap_write_uint64 = slbt_armap_write_be_64;
db49af
db49af
	else if (mapattr & AR_ARMAP_ATTR_LE_64)
db49af
		armap_write_uint64 = slbt_armap_write_le_64;
db49af
db49af
	uch  = ubase;
db49af
	uch += sizeof(struct ar_raw_signature);
db49af
	uch += sizeof(struct ar_raw_file_header);
db49af
	uch += sarname;
db49af
db49af
	if (mapattr & AR_ARMAP_ATTR_SYSV) {
db49af
		if (armap_write_uint32) {
db49af
			uch += armap_write_uint32(uch,nsymrefs);
db49af
db49af
			ch  = base;
db49af
			ch += uch - ubase;
db49af
			ch += sizeof(uint32_t) * nsymrefs;
db49af
		} else {
db49af
			uch += armap_write_uint64(uch,nsymrefs);
db49af
db49af
			ch  = base;
db49af
			ch += uch - ubase;
db49af
			ch += sizeof(uint64_t) * nsymrefs;
db49af
		}
db49af
db49af
	} else if (mapattr & AR_ARMAP_ATTR_BSD) {
db49af
		strtbl  = base;
db49af
		strtbl += omembers;
db49af
		strtbl -= ssymstrs;
db49af
db49af
		memset(strtbl,0,ssymstrs);
db49af
db49af
		if (armap_write_uint32) {
db49af
			if (!(bsdmap32 = calloc(2*nsymrefs,sizeof(struct armap_buffer_32))))
51c276
				return slbt_ar_merge_archives_fail(
db49af
					arctx,0,0,
db49af
					SLBT_SYSTEM_ERROR(dctx,0));
db49af
db49af
			bsdsort32 = &bsdmap32[nsymrefs];
db49af
db49af
		} else {
db49af
			if (!(bsdmap64 = calloc(2*nsymrefs,sizeof(struct armap_buffer_64))))
51c276
				return slbt_ar_merge_archives_fail(
db49af
					arctx,0,0,
db49af
					SLBT_SYSTEM_ERROR(dctx,0));
db49af
db49af
			bsdsort64 = &bsdmap64[nsymrefs];
db49af
		}
db49af
	}
db49af
db49af
	/* main iteration (armap data, long-names, public members) */
db49af
	for (mapidx=0,arctxp=arctxv; *arctxp; arctxp++) {
db49af
		meta    = (*arctxp)->meta;
db49af
		armap32 = meta->a_armap_primary.ar_armap_common_32;
db49af
		armap64 = meta->a_armap_primary.ar_armap_common_64;
db49af
db49af
		if ((memberp = meta->a_memberv)) {
db49af
			for (omemfixup=0; *memberp && !omemfixup; memberp++) {
db49af
				meminfo = *memberp;
db49af
db49af
				switch (meminfo->ar_member_attr) {
db49af
					case AR_MEMBER_ATTR_ARMAP:
db49af
					case AR_MEMBER_ATTR_LINKINFO:
db49af
					case AR_MEMBER_ATTR_NAMESTRS:
db49af
						break;
db49af
db49af
					default:
db49af
						omemfixup  = (int64_t)meminfo->ar_member_data;
db49af
						omemfixup -= (int64_t)meta->r_archive.map_addr;
db49af
						break;
db49af
				}
db49af
			}
db49af
		}
db49af
db49af
		for (memberp=meta->a_memberv; memberp && *memberp; memberp++) {
db49af
			meminfo = *memberp;
db49af
db49af
			switch (meminfo->ar_member_attr) {
db49af
				case AR_MEMBER_ATTR_ARMAP:
db49af
					if (armap32 && (mapattr & AR_ARMAP_ATTR_SYSV)) {
db49af
						symref32 = armap32->ar_symrefs;
db49af
db49af
						for (idx=0; idx<armap32->ar_num_of_symbols; idx++) {
db49af
							uch += armap_write_uint32(
db49af
								uch,
db49af
								symref32[idx].ar_member_offset + omembers - omemfixup);
db49af
db49af
							strcpy(ch,&armap32->ar_string_table[symref32[idx].ar_name_offset]);
db49af
							ch += strlen(ch);
db49af
							ch++;
db49af
						}
db49af
db49af
					} else if (armap64 && (mapattr & AR_ARMAP_ATTR_SYSV)) {
db49af
						symref64 = armap64->ar_symrefs;
db49af
db49af
						for (idx=0; idx<armap64->ar_num_of_symbols; idx++) {
db49af
							uch += armap_write_uint64(
db49af
								uch,
db49af
								symref64[idx].ar_member_offset + omembers - omemfixup);
db49af
db49af
							strcpy(ch,&armap64->ar_string_table[symref64[idx].ar_name_offset]);
db49af
							ch += strlen(ch);
db49af
							ch++;
db49af
						}
db49af
db49af
					} else if (armap32 && (mapattr & AR_ARMAP_ATTR_BSD)) {
db49af
						symref32 = armap32->ar_symrefs;
db49af
db49af
						for (idx=0; idx<armap32->ar_num_of_symbols; idx++) {
db49af
							bsdmap32[mapidx].moffset  = symref32[idx].ar_member_offset;
db49af
							bsdmap32[mapidx].moffset += omembers - omemfixup;
db49af
db49af
							bsdmap32[mapidx].symname  = armap32->ar_string_table;
db49af
							bsdmap32[mapidx].symname += symref32[idx].ar_name_offset;
db49af
db49af
							mapidx++;
db49af
						}
db49af
db49af
					} else if (armap64 && (mapattr & AR_ARMAP_ATTR_BSD)) {
db49af
						symref64 = armap64->ar_symrefs;
db49af
db49af
						for (idx=0; idx<armap64->ar_num_of_symbols; idx++) {
db49af
							bsdmap64[mapidx].moffset  = symref64[idx].ar_member_offset;
db49af
							bsdmap64[mapidx].moffset += omembers - omemfixup;
db49af
db49af
							bsdmap64[mapidx].symname  = armap64->ar_string_table;
db49af
							bsdmap64[mapidx].symname += symref64[idx].ar_name_offset;
db49af
db49af
							mapidx++;
db49af
						}
db49af
					}
db49af
db49af
					break;
db49af
db49af
				case AR_MEMBER_ATTR_LINKINFO:
db49af
					break;
db49af
db49af
				case AR_MEMBER_ATTR_NAMESTRS:
db49af
					break;
db49af
db49af
				default:
db49af
					arhdr = meminfo->ar_member_data;
db49af
db49af
					memcpy(
db49af
						&base[omembers],arhdr,
db49af
						sizeof(*arhdr) + meminfo->ar_file_header.ar_file_size);
db49af
db49af
					if (meminfo->ar_file_header.ar_header_attr & AR_HEADER_ATTR_SYSV) {
db49af
						if (meminfo->ar_file_header.ar_header_attr & AR_HEADER_ATTR_NAME_REF) {
db49af
							nwritten = sprintf(
db49af
								&base[omembers],"/"PPRII64,
db49af
								namestr - namebase);
db49af
db49af
							if (nwritten < 0)
db49af
								SLBT_SYSTEM_ERROR(dctx,0);
db49af
db49af
							for (nbytes=nwritten; nbytes < sizeof(arhdr->ar_file_id); nbytes++)
db49af
								base[omembers + nbytes] = AR_DEC_PADDING;
db49af
db49af
							strcpy(namestr,meminfo->ar_file_header.ar_member_name);
db49af
							namestr += strlen(namestr);
db49af
							*namestr++ = '/';
db49af
							*namestr++ = AR_OBJ_PADDING;
db49af
						}
db49af
					}
db49af
db49af
					omembers += sizeof(*arhdr);
db49af
					omembers += meminfo->ar_file_header.ar_file_size;
db49af
					omembers += 1;
db49af
					omembers |= 1;
db49af
					omembers ^= 1;
db49af
					break;
db49af
			}
db49af
		}
db49af
	}
db49af
db49af
	/* bsd variant: also sort the string table (because we can:=)) */
db49af
	if (bsdmap32) {
db49af
		for (mapidx=0; mapidx
db49af
			for (cmpidx=0; cmpidx
db49af
				if (strcmp(bsdmap32[cmpidx].symname,bsdmap32[mapidx].symname) < 0)
db49af
					bsdmap32[mapidx].baseidx++;
db49af
db49af
		/* a symbol might be present in more than one member; */
db49af
		/* see whether ar_member_offset has already been set) */
db49af
		for (mapidx=0,ch=strtbl; mapidx
db49af
			idx = bsdmap32[mapidx].baseidx;
db49af
db49af
			for (; bsdsort32[idx].moffset; )
db49af
				idx++;
db49af
db49af
			bsdsort32[idx].moffset = bsdmap32[mapidx].moffset;
db49af
			bsdsort32[idx].symname = bsdmap32[mapidx].symname;
db49af
		}
db49af
db49af
		uch += armap_write_uint32(uch,2*sizeof(uint32_t)*nsymrefs);
db49af
db49af
		for (mapidx=0,ch=strtbl; mapidx
db49af
			uch += armap_write_uint32(uch,ch-strtbl);
db49af
			uch += armap_write_uint32(uch,bsdsort32[mapidx].moffset);
db49af
db49af
			strcpy(ch,bsdsort32[mapidx].symname);
db49af
			ch += strlen(ch);
db49af
			ch++;
db49af
		}
db49af
e094ec
		uch += armap_write_uint32(uch,ssymstrs);
db49af
db49af
		free(bsdmap32);
db49af
db49af
	} else if (bsdmap64) {
db49af
		for (mapidx=0; mapidx
db49af
			for (cmpidx=0; cmpidx
db49af
				if (strcmp(bsdmap64[cmpidx].symname,bsdmap64[mapidx].symname) < 0)
db49af
					bsdmap64[mapidx].baseidx++;
db49af
db49af
		/* a symbol might be present in more than one member; */
db49af
		/* see whether ar_member_offset has already been set) */
db49af
		for (mapidx=0,ch=strtbl; mapidx
db49af
			idx = bsdmap64[mapidx].baseidx;
db49af
db49af
			for (; bsdsort64[idx].moffset; )
db49af
				idx++;
db49af
db49af
			bsdsort64[idx].moffset = bsdmap64[mapidx].moffset;
db49af
			bsdsort64[idx].symname = bsdmap64[mapidx].symname;
db49af
		}
db49af
db49af
		uch += armap_write_uint64(uch,2*sizeof(uint64_t)*nsymrefs);
db49af
db49af
		for (mapidx=0,ch=strtbl; mapidx
db49af
			uch += armap_write_uint64(uch,ch-strtbl);
db49af
			uch += armap_write_uint64(uch,bsdsort64[mapidx].moffset);
db49af
db49af
			strcpy(ch,bsdsort64[mapidx].symname);
db49af
			ch += strlen(ch);
db49af
			ch++;
db49af
		}
db49af
e094ec
		uch += armap_write_uint64(uch,ssymstrs);
db49af
db49af
		free(bsdmap64);
db49af
	}
db49af
db49af
	struct slbt_archive_ctx_impl * ictx;
db49af
	ictx = slbt_get_archive_ictx(arctx);
db49af
51c276
	if (slbt_ar_get_archive_meta(dctx,arctx->map,&ictx->meta) < 0)
51c276
		return slbt_ar_merge_archives_fail(
db49af
			arctx,0,0,
db49af
			SLBT_NESTED_ERROR(dctx));
db49af
db49af
	ictx->actx.meta = ictx->meta;
db49af
db49af
	*arctxm = arctx;
db49af
db49af
	return 0;
db49af
}
e06cc0
e06cc0
e06cc0
int slbt_ar_get_varchive_ctx(
e06cc0
	const struct slbt_driver_ctx *	dctx,
e06cc0
	struct slbt_archive_ctx **	pctx)
e06cc0
{
e06cc0
	struct slbt_archive_ctx *       ctx;
e06cc0
	struct slbt_archive_ctx_impl *  ictx;
e06cc0
	void *                          base;
e06cc0
	size_t                          size;
e06cc0
e06cc0
	size = sizeof(struct ar_raw_signature);
e06cc0
e06cc0
	if (slbt_create_anonymous_archive_ctx(dctx,size,&ctx) < 0)
e06cc0
		return SLBT_NESTED_ERROR(dctx);
e06cc0
e06cc0
	ictx = slbt_get_archive_ictx(ctx);
e06cc0
e06cc0
	base = ctx->map->map_addr;
e06cc0
	memcpy(base,ar_signature,size);
e06cc0
e06cc0
	if (slbt_ar_get_archive_meta(dctx,ctx->map,&ictx->meta) < 0) {
e06cc0
		slbt_ar_free_archive_ctx(ctx);
e06cc0
		return SLBT_NESTED_ERROR(dctx);
e06cc0
	}
e06cc0
e06cc0
	ictx->path       = slbt_ar_self_dlunit;
e06cc0
	ictx->actx.meta  = ictx->meta;
e06cc0
	ictx->actx.path  = &ictx->path;
e06cc0
e06cc0
	*pctx = ctx;
e06cc0
e06cc0
	return 0;
e06cc0
}