|
 |
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,
|
|
|
a6209c |
int * stype,
|
|
|
a6209c |
FILE * fout)
|
|
|
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);
|
|
|
12fb1d |
fclose(fout);
|
|
|
c70c0a |
}
|
|
|
c70c0a |
|
|
|
c70c0a |
int mdso_create_implib_archive(const struct mdso_driver_ctx * dctx)
|
|
|
c70c0a |
{
|
|
|
c70c0a |
int ret;
|
|
|
c70c0a |
FILE * fout;
|
|
|
c70c0a |
size_t nsym;
|
|
|
c70c0a |
struct mdso_unit_ctx ** uctxv;
|
|
|
c70c0a |
struct mdso_unit_ctx ** puctx;
|
|
|
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 |
|
|
|
12fb1d |
if (!(fout = mdso_create_archive(dctx,dctx->cctx->implib)))
|
|
|
12fb1d |
return MDSO_NESTED_ERROR(dctx);
|
|
|
12fb1d |
|
|
|
c70c0a |
for (puctx=uctxv,unit=dctx->units; *unit; unit++) {
|
|
|
d1416c |
if (mdso_get_unit_ctx(dctx,*unit,puctx++)) {
|
|
|
a6209c |
mdso_free_uctx_vector(uctxv,0,0,fout);
|
|
|
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 *)))) {
|
|
|
a6209c |
mdso_free_uctx_vector(uctxv,0,0,fout);
|
|
|
a6209c |
return MDSO_SYSTEM_ERROR(dctx);
|
|
|
a6209c |
}
|
|
|
c70c0a |
|
|
|
a6209c |
if (!(stype = calloc(nsym+1,sizeof(int)))) {
|
|
|
a6209c |
mdso_free_uctx_vector(uctxv,symv,0,fout);
|
|
|
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 |
|
|
|
a6209c |
ret = mdso_argen_common(dctx,symv,stype,fout,0);
|
|
|
a6209c |
mdso_free_uctx_vector(uctxv,symv,stype,fout);
|
|
|
c70c0a |
|
|
|
c70c0a |
return ret ? MDSO_NESTED_ERROR(dctx) : 0;
|
|
|
c70c0a |
}
|