Blame src/util/mdso_create_implib_archive.c

c70c0a
/****************************************************************/
c70c0a
/*  mdso: midipix dso scavenger                                 */
c70c0a
/*  Copyright (C) 2015--2017  Z. Gilboa                         */
c70c0a
/*  Released under GPLv2 and GPLv3; see COPYING.MDSO.           */
c70c0a
/****************************************************************/
c70c0a
c70c0a
#include <stdint.h>
c70c0a
#include <stdio.h>
c70c0a
#include <stdlib.h>
c70c0a
#include <string.h>
c70c0a
c70c0a
#include <mdso/mdso.h>
c70c0a
#include "mdso_errinfo_impl.h"
c70c0a
a6209c
static void mdso_free_uctx_vector(
a6209c
	struct mdso_unit_ctx **	uctxv,
a6209c
	const char **		symv,
2f4c03
	int *			stype)
c70c0a
{
c70c0a
	struct mdso_unit_ctx **	puctx;
c70c0a
a6209c
	if (symv)
a6209c
		free(symv);
a6209c
a6209c
	if (stype)
a6209c
		free(stype);
a6209c
c70c0a
	for (puctx=uctxv; *puctx; puctx++)
c70c0a
		mdso_free_unit_ctx(*puctx);
c70c0a
c70c0a
	free(uctxv);
c70c0a
}
c70c0a
c70c0a
int  mdso_create_implib_archive(const struct mdso_driver_ctx * dctx)
c70c0a
{
c70c0a
	size_t			nsym;
c70c0a
	struct mdso_unit_ctx **	uctxv;
c70c0a
	struct mdso_unit_ctx **	puctx;
2f4c03
	struct mdso_object	obj;
c70c0a
	const char * const *	dsym;
c70c0a
	const char **		unit;
c70c0a
	const char **		psym;
c70c0a
	const char **		symv;
a6209c
	int *			stype;
c70c0a
c70c0a
	if (!dctx->cctx->implib)
c70c0a
		return MDSO_CUSTOM_ERROR(dctx,MDSO_ERR_INVALID_NAME);
c70c0a
c70c0a
	for (unit=dctx->units; *unit; unit++)
c70c0a
		(void)0;
c70c0a
c70c0a
	if (!(uctxv = calloc(++unit - dctx->units,sizeof(*uctxv))))
c70c0a
		return MDSO_SYSTEM_ERROR(dctx);
c70c0a
c70c0a
	for (puctx=uctxv,unit=dctx->units; *unit; unit++) {
d1416c
		if (mdso_get_unit_ctx(dctx,*unit,puctx++)) {
2f4c03
			mdso_free_uctx_vector(uctxv,0,0);
c70c0a
			return MDSO_NESTED_ERROR(dctx);
c70c0a
		}
c70c0a
	}
c70c0a
c70c0a
	for (nsym=0,puctx=uctxv; *puctx; puctx++)
c70c0a
		for (dsym=puctx[0]->syms; *dsym; dsym++)
c70c0a
			nsym++;
c70c0a
a6209c
	if (!(symv = calloc(nsym+1,sizeof(const char *)))) {
2f4c03
		mdso_free_uctx_vector(uctxv,0,0);
a6209c
		return MDSO_SYSTEM_ERROR(dctx);
a6209c
	}
c70c0a
a6209c
	if (!(stype = calloc(nsym+1,sizeof(int)))) {
2f4c03
		mdso_free_uctx_vector(uctxv,symv,0);
c70c0a
		return MDSO_SYSTEM_ERROR(dctx);
c70c0a
	}
c70c0a
a6209c
	for (psym=symv,puctx=uctxv; *puctx; puctx++) {
a6209c
		for (dsym=puctx[0]->syms; *dsym; dsym++) {
a6209c
			stype[psym-symv] = puctx[0]->stype[dsym-puctx[0]->syms];
c70c0a
			*psym++ = *dsym;
a6209c
		}
a6209c
	}
c70c0a
2f4c03
	memset(&obj,0,sizeof(obj));
2f4c03
	obj.name = dctx->cctx->implib;
2f4c03
2f4c03
	if (mdso_argen_common(dctx,symv,stype,&obj) < 0) {
2f4c03
		mdso_free_uctx_vector(uctxv,symv,stype);
2f4c03
		return MDSO_NESTED_ERROR(dctx);
2f4c03
	}
c70c0a
2f4c03
	return 0;
c70c0a
}