3 files changed, 74 insertions, 48 deletions
diff --git a/src/internal/slibtool_linkcmd_impl.h b/src/internal/slibtool_linkcmd_impl.h
index df5a731..141d732 100644
--- a/src/internal/slibtool_linkcmd_impl.h
+++ b/src/internal/slibtool_linkcmd_impl.h
@@ -51,4 +51,9 @@ int slbt_exec_link_finalize_argument_vector(
 	const struct slbt_driver_ctx *	dctx,
 	struct slbt_exec_ctx *		ectx);
 
+int slbt_exec_link_create_host_tag(
+	const struct slbt_driver_ctx *	dctx,
+	struct slbt_exec_ctx *		ectx,
+	char *				deffilename);
+
 #endif
diff --git a/src/logic/linkcmd/slbt_linkcmd_host.c b/src/logic/linkcmd/slbt_linkcmd_host.c
new file mode 100644
index 0000000..060975e
--- /dev/null
+++ b/src/logic/linkcmd/slbt_linkcmd_host.c
@@ -0,0 +1,69 @@
+/*******************************************************************/
+/*  slibtool: a skinny libtool implementation, written in C        */
+/*  Copyright (C) 2016--2021  SysDeer Technologies, LLC            */
+/*  Released under the Standard MIT License; see COPYING.SLIBTOOL. */
+/*******************************************************************/
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <sys/stat.h>
+
+#include <slibtool/slibtool.h>
+#include "slibtool_driver_impl.h"
+#include "slibtool_errinfo_impl.h"
+#include "slibtool_linkcmd_impl.h"
+#include "slibtool_mapfile_impl.h"
+#include "slibtool_metafile_impl.h"
+#include "slibtool_snprintf_impl.h"
+#include "slibtool_symlink_impl.h"
+
+int slbt_exec_link_create_host_tag(
+	const struct slbt_driver_ctx *	dctx,
+	struct slbt_exec_ctx *		ectx,
+	char *				deffilename)
+{
+	char *  slash;
+	char	hosttag[PATH_MAX];
+	char	hostlnk[PATH_MAX];
+
+	/* libfoo.so.def.{flavor} */
+	if (slbt_snprintf(hosttag,
+			sizeof(hosttag),
+			"%s.%s",
+			deffilename,
+			dctx->cctx->host.flavor) < 0)
+		return SLBT_BUFFER_ERROR(dctx);
+
+	if (slbt_snprintf(hostlnk,
+			sizeof(hostlnk),
+			"%s.host",
+			deffilename) < 0)
+		return SLBT_BUFFER_ERROR(dctx);
+
+	/* libfoo.so.def is under .libs/ */
+	if (!(slash = strrchr(deffilename,'/')))
+		return SLBT_CUSTOM_ERROR(dctx,SLBT_ERR_LINK_FLOW);
+
+	if (slbt_create_symlink(
+		dctx,ectx,
+		deffilename,
+		hosttag,
+		SLBT_SYMLINK_DEFAULT))
+	return SLBT_NESTED_ERROR(dctx);
+
+	/* libfoo.so.def.{flavor} is under .libs/ */
+	if (!(slash = strrchr(hosttag,'/')))
+		return SLBT_CUSTOM_ERROR(dctx,SLBT_ERR_LINK_FLOW);
+
+	if (slbt_create_symlink(
+			dctx,ectx,
+			++slash,
+			hostlnk,
+			SLBT_SYMLINK_DEFAULT))
+		return SLBT_NESTED_ERROR(dctx);
+
+	return 0;
+}
diff --git a/src/logic/slbt_exec_link.c b/src/logic/slbt_exec_link.c
index c21af58..23cc999 100644
--- a/src/logic/slbt_exec_link.c
+++ b/src/logic/slbt_exec_link.c
@@ -128,54 +128,6 @@ static int slbt_exec_link_remove_file(
 	return SLBT_SYSTEM_ERROR(dctx,0);
 }
 
-static int slbt_exec_link_create_host_tag(
-	const struct slbt_driver_ctx *	dctx,
-	struct slbt_exec_ctx *		ectx,
-	char *				deffilename)
-{
-	char *  slash;
-	char	hosttag[PATH_MAX];
-	char	hostlnk[PATH_MAX];
-
-	/* libfoo.so.def.{flavor} */
-	if (slbt_snprintf(hosttag,
-			sizeof(hosttag),
-			"%s.%s",
-			deffilename,
-			dctx->cctx->host.flavor) < 0)
-		return SLBT_BUFFER_ERROR(dctx);
-
-	if (slbt_snprintf(hostlnk,
-			sizeof(hostlnk),
-			"%s.host",
-			deffilename) < 0)
-		return SLBT_BUFFER_ERROR(dctx);
-
-	/* libfoo.so.def is under .libs/ */
-	if (!(slash = strrchr(deffilename,'/')))
-		return SLBT_CUSTOM_ERROR(dctx,SLBT_ERR_LINK_FLOW);
-
-	if (slbt_create_symlink(
-		dctx,ectx,
-		deffilename,
-		hosttag,
-		SLBT_SYMLINK_DEFAULT))
-	return SLBT_NESTED_ERROR(dctx);
-
-	/* libfoo.so.def.{flavor} is under .libs/ */
-	if (!(slash = strrchr(hosttag,'/')))
-		return SLBT_CUSTOM_ERROR(dctx,SLBT_ERR_LINK_FLOW);
-
-	if (slbt_create_symlink(
-			dctx,ectx,
-			++slash,
-			hostlnk,
-			SLBT_SYMLINK_DEFAULT))
-		return SLBT_NESTED_ERROR(dctx);
-
-	return 0;
-}
-
 static int slbt_exec_link_create_import_library(
 	const struct slbt_driver_ctx *	dctx,
 	struct slbt_exec_ctx *		ectx,