/****************************************************************/

/*  mdso: midipix dso scavenger                                 */

/*  Copyright (C) 2015--2024  SysDeer Technologies, LLC         */

/*  Released under GPLv2 and GPLv3; see COPYING.MDSO.           */

/****************************************************************/

#include <stdint.h>

#include <stdio.h>

#include <string.h>

#include <mdso/mdso.h>

#include "mdso_driver_impl.h"

#include "mdso_hexfmt_impl.h"

#include "mdso_errinfo_impl.h"

static void mdso_init_symentry(char * ch, const char * str)

{

	uint64_t crc64;

	unsigned slen = 11;

	ch[0] = '.';

	ch++;

	if (strlen(str) > (PATH_MAX - slen - 1)) {

		crc64 = mdso_crc64_mbstr((unsigned char *)str,0);

		mdso_write_hex_64(ch,crc64);

		ch = &ch[16];

	} else {

		for (; *str; )

			*ch++ = *str++;

	}

	memcpy(ch,"_symentry.s",slen);

	ch[slen] = '\0';

}

static void mdso_init_dsometa(char * ch, const char * str)

{

	uint64_t crc64;

	unsigned slen = 9;

	memcpy(ch,".dsometa_",slen);

	ch = &ch[slen];

	if (strlen(str) > (PATH_MAX - slen - 1)) {

		crc64 = mdso_crc64_mbstr((unsigned char *)str,0);

		mdso_write_hex_64(ch,crc64);

		ch = &ch[16];

	} else {

		for (; *str; )

			*ch++ = *str++;

	}

	ch[0] = '.';

	ch[1] = 's';

	ch[2] = '\0';

}

int  mdso_create_implib_sources(const struct mdso_driver_ctx * dctx)

{

	struct mdso_unit_ctx *	uctx;

	const char **		unit;

	int			fdout;

	char			asmname[PATH_MAX];

	const char * const *	sym;

	int			ret;

	/* symentry */

	for (unit=dctx->units; *unit; unit++) {

		if (mdso_get_unit_ctx(dctx,*unit,&uctx))

			return MDSO_NESTED_ERROR(dctx);

		for (sym=uctx->syms; *sym; sym++) {

			mdso_init_symentry(asmname,*sym);

			if ((fdout = mdso_create_asmsrc(dctx,asmname)) < 0)

				return MDSO_NESTED_ERROR(dctx);

			ret = mdso_asmgen_symentry(dctx,*sym,fdout);

			if (fdout != mdso_driver_fdout(dctx))

				close(fdout);

			if (ret < 0)

				return MDSO_NESTED_ERROR(dctx);

		}

		mdso_free_unit_ctx(uctx);

	}

	/* dsometa */

	mdso_init_dsometa(asmname,dctx->cctx->libname);

	if ((fdout = mdso_create_asmsrc(dctx,asmname)) < 0)

		return MDSO_NESTED_ERROR(dctx);

	ret = mdso_asmgen_dsometa(dctx,fdout);

	if (fdout != mdso_driver_fdout(dctx))

		close(fdout);

	return (ret < 0) ? MDSO_NESTED_ERROR(dctx) : 0;

}