From c6e3d10c29a69dda3d2d2e9ab3edc927bd899a93 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Apr 19 2016 18:17:36 +0000
Subject: intall mode: PE support: added slbt_exec_install_import_libraries().


---

diff --git a/src/logic/slbt_exec_install.c b/src/logic/slbt_exec_install.c
index d1147aa..60fb3eb 100644
--- a/src/logic/slbt_exec_install.c
+++ b/src/logic/slbt_exec_install.c
@@ -87,6 +87,130 @@ static int slbt_exec_install_init_dstdir(
 	return 0;
 }
 
+static int slbt_exec_install_import_libraries(
+	const struct slbt_driver_ctx *	dctx,
+	struct slbt_exec_ctx *		ectx,
+	char *				srcdso,
+	char *				dstdir)
+{
+	char *	host;
+	char *	slash;
+	char *	dot;
+	char *	mark;
+	char	srcbuf [PATH_MAX];
+	char	implib [PATH_MAX];
+	char	hosttag[PATH_MAX];
+	char	hostlnk[PATH_MAX];
+	char	major  [128];
+	char	minor  [128];
+	char	rev    [128];
+
+	/* .libs/libfoo.so.x.y.z */
+	if ((size_t)snprintf(srcbuf,sizeof(srcbuf),"%s",
+			srcdso) >= sizeof(srcbuf))
+		return -1;
+
+	/* (dso is under .libs) */
+	if (!(slash = strrchr(srcbuf,'/')))
+		return -1;
+
+	/* libfoo.so.x.y.z */
+	if ((size_t)snprintf(implib,sizeof(implib),"%s",
+			++slash) >= sizeof(implib)
+				    - strlen(dctx->cctx->settings.impsuffix))
+		return -1;
+
+	/* guard againt an infinitely long version */
+	mark = srcbuf + strlen(srcbuf);
+
+	/* rev */
+	if (!(dot = strrchr(srcbuf,'.')))
+		return -1;
+	else if ((size_t)(mark - dot) > sizeof(rev))
+		return -1;
+	else {
+		strcpy(rev,dot);
+		*dot = '\0';
+	}
+
+	/* minor */
+	if (!(dot = strrchr(srcbuf,'.')))
+		return -1;
+	else if ((size_t)(mark - dot) > sizeof(minor))
+		return -1;
+	else {
+		strcpy(minor,dot);
+		*dot = '\0';
+	}
+
+	/* major */
+	if (!(dot = strrchr(srcbuf,'.')))
+		return -1;
+	else if ((size_t)(mark - dot) > sizeof(major))
+		return -1;
+	else {
+		strcpy(major,dot);
+		*dot = '\0';
+	}
+
+	if (!(dot = strrchr(srcbuf,'.')))
+		return -1;
+
+	/* .libs/libfoo.so.def.host */
+	if ((size_t)snprintf(hostlnk,sizeof(hostlnk),"%s.def.host",
+			srcbuf) >= sizeof(hostlnk))
+		return -1;
+
+	/* libfoo.so.def.{flavor} */
+	if (slbt_readlink(hostlnk,hosttag,sizeof(hosttag)))
+		return -1;
+
+	/* host/flabor */
+	if (!(host = strrchr(hosttag,'.')))
+		return -1;
+	else
+		host++;
+
+	/* symlink-based alternate host */
+	if (slbt_set_alternate_host(dctx,host,host))
+		return -1;
+
+	/* .libs/libfoo.x.y.z.lib.a */
+	sprintf(dot,"%s%s%s%s",
+		major,minor,rev,
+		dctx->cctx->asettings.impsuffix);
+
+	/* copy: .libs/libfoo.x.y.z.lib.a --> dstdir */
+	if (slbt_copy_file(dctx,ectx,srcbuf,dstdir))
+		return -1;
+
+	/* .libs/libfoo.x.lib.a */
+	sprintf(dot,"%s%s",
+		major,
+		dctx->cctx->asettings.impsuffix);
+
+	/* copy: .libs/libfoo.x.lib.a --> dstdir */
+	if (slbt_copy_file(dctx,ectx,srcbuf,dstdir))
+		return -1;
+
+	/* /dstdir/libfoo.lib.a */
+	strcpy(implib,slash);
+	strcpy(dot,dctx->cctx->asettings.impsuffix);
+
+	if ((size_t)snprintf(hostlnk,sizeof(hostlnk),"%s/%s",
+			dstdir,slash) >= sizeof(hostlnk))
+		return -1;
+
+	if (slbt_create_symlink(
+			dctx,ectx,
+			implib,
+			hostlnk,
+			false))
+		return -1;
+
+	return 0;
+}
+
 static int slbt_exec_install_entry(
 	const struct slbt_driver_ctx *	dctx,
 	struct slbt_exec_ctx *		ectx,
@@ -259,6 +383,13 @@ static int slbt_exec_install_entry(
 				srcfile,
 				dlnkname))
 			return -1;
+
+		/* import libraries */
+		if (slbt_exec_install_import_libraries(
+				dctx,ectx,
+				srcfile,
+				dstdir))
+			return -1;
 	} else {
 		/* create symlink: libfoo.so.x --> libfoo.so.x.y.z */
 		if (slbt_create_symlink(