From b3940afbd36d80909adf04e2e1e6545d0870ce3d Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Sun, 3 Apr 2016 19:22:46 -0400
Subject: link mode: slbt_exec_link_create_library(): initial implementation.

---
 src/logic/slbt_exec_link.c | 167 +++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 167 insertions(+)

diff --git a/src/logic/slbt_exec_link.c b/src/logic/slbt_exec_link.c
index c025a97..7327cb6 100644
--- a/src/logic/slbt_exec_link.c
+++ b/src/logic/slbt_exec_link.c
@@ -88,6 +88,57 @@ static bool slbt_adjust_input_argument(char * arg, bool fpic)
 	return true;
 }
 
+static bool slbt_adjust_linker_argument(
+	char *		arg,
+	bool		fpic,
+	const char *	dsosuffix,
+	const char *	arsuffix)
+{
+	int	fdlib;
+	char *	slash;
+	char *	dot;
+	char	base[PATH_MAX];
+
+	if (*arg == '-')
+		return false;
+
+	if (!(dot = strrchr(arg,'.')))
+		return false;
+
+	if (strcmp(dot,".la"))
+		return false;
+
+	if (fpic) {
+		if ((slash = strrchr(arg,'/')))
+			slash++;
+		else
+			slash = arg;
+
+		if ((size_t)snprintf(base,sizeof(base),"%s",
+				slash) >= sizeof(base))
+			return false;
+
+		sprintf(slash,".libs/%s",base);
+		dot = strrchr(arg,'.');
+	}
+
+	/* shared library dependency? */
+	if (fpic) {
+		sprintf(dot,"%s",dsosuffix);
+
+		if ((fdlib = open(arg,O_RDONLY)) >= 0)
+			close(fdlib);
+		else
+			sprintf(dot,"%s",arsuffix);
+
+		return true;
+	}
+
+	/* input archive */
+	sprintf(dot,"%s",arsuffix);
+	return true;
+}
+
 static int slbt_exec_link_remove_file(
 	const struct slbt_driver_ctx *	dctx,
 	struct slbt_exec_ctx *		ectx,
@@ -182,6 +233,67 @@ static int slbt_exec_link_create_archive(
 	return 0;
 }
 
+static int slbt_exec_link_create_library(
+	const struct slbt_driver_ctx *	dctx,
+	struct slbt_exec_ctx *		ectx,
+	const char *			dsofilename)
+{
+	char ** parg;
+	char	output [PATH_MAX];
+
+	/* initial state */
+	slbt_reset_arguments(ectx);
+
+	/* placeholders */
+	slbt_reset_placeholders(ectx);
+
+	/* using default argument vector */
+	ectx->argv    = ectx->cargv;
+	ectx->program = ectx->cargv[0];
+
+	/* input argument adjustment */
+	for (parg=ectx->cargv; *parg; parg++)
+		slbt_adjust_input_argument(*parg,true);
+
+	/* linker argument adjustment */
+	for (parg=ectx->cargv; *parg; parg++)
+		slbt_adjust_linker_argument(
+			*parg,true,
+			dctx->cctx->settings.dsosuffix,
+			dctx->cctx->settings.arsuffix);
+
+	/* --no-undefined */
+	if (dctx->cctx->drvflags & SLBT_DRIVER_NO_UNDEFINED)
+		*ectx->noundef = "-Wl,--no-undefined";
+
+	/* shared object */
+	*ectx->dpic = "-shared";
+	*ectx->fpic = "-fPIC";
+
+	/* output */
+	if ((size_t)snprintf(output,sizeof(output),"%s.%d.%d.%d",
+				dsofilename,
+				dctx->cctx->verinfo.major,
+				dctx->cctx->verinfo.minor,
+				dctx->cctx->verinfo.revision)
+			>= sizeof(output))
+		return -1;
+
+	*ectx->lout[0] = "-o";
+	*ectx->lout[1] = output;
+
+	/* step output */
+	if (!(dctx->cctx->drvflags & SLBT_DRIVER_SILENT))
+		if (slbt_output_link(dctx,ectx))
+			return -1;
+
+	/* spawn */
+	if ((slbt_spawn(ectx,true) < 0) || ectx->exitcode)
+		return -1;
+
+	return 0;
+}
+
 static int slbt_exec_link_create_symlink(
 	const struct slbt_driver_ctx *	dctx,
 	struct slbt_exec_ctx *		ectx,
@@ -227,6 +339,34 @@ static int slbt_exec_link_create_symlink(
 	return symlink(atarget,lnkname);
 }
 
+static int slbt_exec_link_create_library_symlink(
+	const struct slbt_driver_ctx *	dctx,
+	struct slbt_exec_ctx *		ectx,
+	bool				fmajor)
+{
+	char	target[PATH_MAX];
+	char	lnkname[PATH_MAX];
+
+	sprintf(target,"%s.%d.%d.%d",
+		ectx->dsofilename,
+		dctx->cctx->verinfo.major,
+		dctx->cctx->verinfo.minor,
+		dctx->cctx->verinfo.revision);
+
+	if (fmajor)
+		sprintf(lnkname,"%s.%d",
+			ectx->dsofilename,
+			dctx->cctx->verinfo.major);
+
+	else
+		strcpy(lnkname,ectx->dsofilename);
+
+	return slbt_exec_link_create_symlink(
+		dctx,ectx,
+		target,lnkname,
+		false);
+}
+
 int slbt_exec_link(
 	const struct slbt_driver_ctx *	dctx,
 	struct slbt_exec_ctx *		ectx)
@@ -277,6 +417,33 @@ int slbt_exec_link(
 			return -1;
 		}
 
+	/* dynamic library */
+	if (dot && !strcmp(dot,".la") && dctx->cctx->rpath) {
+		/* linking: libfoo.so.x.y.z */
+		if (slbt_exec_link_create_library(
+				dctx,ectx,
+				ectx->dsofilename)) {
+			slbt_free_exec_ctx(actx);
+			return -1;
+		}
+
+		/* symlink: libfoo.so.x --> libfoo.so.x.y.z */
+		if (slbt_exec_link_create_library_symlink(
+				dctx,ectx,
+				true)) {
+			slbt_free_exec_ctx(actx);
+			return -1;
+		}
+
+		/* symlink: libfoo.so --> libfoo.so.x.y.z */
+		if (slbt_exec_link_create_library_symlink(
+				dctx,ectx,
+				false)) {
+			slbt_free_exec_ctx(actx);
+			return -1;
+		}
+	}
+
 	/* no wrapper? */
 	if (!dot || strcmp(dot,".la")) {
 		slbt_free_exec_ctx(actx);
-- 
cgit v1.2.3