/*******************************************************************/
/* slibtool: a strong libtool implementation, written in C */
/* Copyright (C) 2016--2024 SysDeer Technologies, LLC */
/* Released under the Standard MIT License; see COPYING.SLIBTOOL. */
/*******************************************************************/
#include <stdio.h>
#include <string.h>
#include <stdbool.h>
#include <slibtool/slibtool.h>
#include "slibtool_driver_impl.h"
#include "slibtool_dprintf_impl.h"
#include "slibtool_errinfo_impl.h"
static const char enable[] = "yes";
static const char disable[] = "no";
static const char lconf_begin[] = "# ### BEGIN LIBTOOL CONFIG\n";
static const char lconf_end [] = "# ### END LIBTOOL CONFIG\n";
static const char lconf_guard[] = "# ### ##################\n";
static int slbt_output_config_lconf(
const struct slbt_driver_ctx * dctx,
const struct slbt_map_info * lconf)
{
const char * ch;
const char * cfg_begin;
const char * cfg_end;
const char * map_cap;
size_t cmp_len;
size_t end_len;
size_t min_len;
size_t nbytes;
ssize_t written;
int fdout;
cmp_len = strlen(lconf_begin);
end_len = strlen(lconf_end);
min_len = cmp_len + end_len;
if (lconf->size < min_len)
return SLBT_CUSTOM_ERROR(
dctx,
SLBT_ERR_FLOW_ERROR);
map_cap = lconf->addr;
map_cap += lconf->size;
map_cap -= strlen(lconf_end);
map_cap -= strlen(lconf_begin);
cfg_begin = cfg_end = 0;
for (ch=lconf->addr; !cfg_begin && (ch < map_cap); ch++)
if (!strncmp(ch,lconf_begin,cmp_len))
cfg_begin = ch;
if (!cfg_begin)
return SLBT_CUSTOM_ERROR(
dctx,
SLBT_ERR_FLOW_ERROR);
for (++ch; !cfg_end && (ch < map_cap); ch++)
if (!strncmp(ch,lconf_end,end_len))
cfg_end = ch;
if (!cfg_end)
return SLBT_CUSTOM_ERROR(
dctx,
SLBT_ERR_FLOW_ERROR);
fdout = slbt_driver_fdout(dctx);
nbytes = cfg_end - cfg_begin - cmp_len;
for (ch=&cfg_begin[cmp_len]; nbytes; ) {
written = write(fdout,ch,nbytes);
while ((written < 0) && (errno == EINTR))
written = write(fdout,ch,nbytes);
if (written < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
nbytes -= written;
ch += written;
}
return 0;
}
static int slbt_output_config_mkvars(const struct slbt_driver_ctx * dctx)
{
int fdout;
const char * shared_option;
const char * static_option;
const struct slbt_source_version * verinfo;
const struct slbt_common_ctx * cctx;
/* init */
fdout = slbt_driver_fdout(dctx);
shared_option = (dctx->cctx->drvflags & SLBT_DRIVER_DISABLE_SHARED)
? disable : enable;
static_option = (dctx->cctx->drvflags & SLBT_DRIVER_DISABLE_STATIC)
? disable : enable;
cctx = dctx->cctx;
/* header */
verinfo = slbt_api_source_version();
if (slbt_dprintf(
fdout,
"%s\n\n"
"%s\n"
"# %s\n"
"# Generated by %s (slibtool %d.%d.%d)\n"
"# [commit reference: %s]\n\n",
"#!/dev/null",
lconf_begin,
"Backward compatible build configuration",
dctx->program,
verinfo->major,verinfo->minor,verinfo->revision,
verinfo->commit) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
/* shared & static build options */
if (slbt_dprintf(fdout,"# shared libraries?\n" "build_libtool_libs=%s\n\n",shared_option) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# static libraries?\n" "build_old_libs=%s\n\n",static_option) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# host identification\n" "host=%s\n\n",cctx->host.host) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# archiver\n" "AR=\"%s\"\n\n",cctx->host.ar) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# name mangler\n" "NM=\"%s\"\n\n",cctx->host.nm) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# archive librarian\n" "RANLIB=\"%s\"\n\n",cctx->host.ranlib) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# assembler\n" "AS=\"%s\"\n\n",cctx->host.as) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# PE targets: modern import library compiler\n" "MDSO=%s%s%s\n\n",
cctx->host.mdso[0] ? "\"" : "",
cctx->host.mdso[0] ? cctx->host.mdso : "",
cctx->host.mdso[0] ? "\"" : "") < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# PE targets: coff import library compiler\n" "DLLTOOL=%s%s%s\n\n",
cctx->host.dlltool[0] ? "\"" : "",
cctx->host.dlltool[0] ? cctx->host.dlltool : "",
cctx->host.dlltool[0] ? "\"" : "") < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"# PE targets: resource compiler\n" "WINDRES=%s%s%s\n\n",
cctx->host.windres[0] ? "\"" : "",
cctx->host.windres[0] ? cctx->host.windres : "",
cctx->host.windres[0] ? "\"" : "") < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
if (slbt_dprintf(fdout,"%s%s%s\n",lconf_end,lconf_guard,lconf_guard) < 0)
return SLBT_SYSTEM_ERROR(dctx,0);
return 0;
}
int slbt_output_config(const struct slbt_driver_ctx * dctx)
{
struct slbt_driver_ctx_impl * ictx;
const struct slbt_map_info * lconf;
ictx = slbt_get_driver_ictx(dctx);
lconf = &ictx->lconf;
if (lconf->addr)
return slbt_output_config_lconf(
dctx,lconf);
if (ictx->mkvarsctx || true)
return slbt_output_config_mkvars(dctx);
return 0;
}