1 files changed, 131 insertions, 0 deletions
diff --git a/src/driver/slbt_link_params.c b/src/driver/slbt_link_params.c
new file mode 100644
index 0000000..f76a225
--- /dev/null
+++ b/src/driver/slbt_link_params.c
@@ -0,0 +1,131 @@
+/*******************************************************************/
+/*  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 <stdint.h>
+#include <string.h>
+#include <unistd.h>
+#include <stdlib.h>
+#include <stdbool.h>
+
+#include <slibtool/slibtool.h>
+#include "slibtool_version.h"
+#include "slibtool_driver_impl.h"
+#include "slibtool_errinfo_impl.h"
+#include "slibtool_visibility_impl.h"
+
+
+slbt_hidden int slbt_init_link_params(struct slbt_driver_ctx_impl * ctx)
+{
+	const char * program;
+	const char * libname;
+	const char * prefix;
+	const char * base;
+	char *       dot;
+	bool         fmodule;
+	int          fderr;
+
+	fderr   = ctx->fdctx.fderr;
+	program = slbt_program_name(ctx->cctx.targv[0]);
+	libname = 0;
+	prefix  = 0;
+	fmodule = false;
+
+	/* output */
+	if (!(ctx->cctx.output)) {
+		if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
+			slbt_dprintf(fderr,
+				"%s: error: output file must be "
+				"specified in link mode.\n",
+				program);
+		return -1;
+	}
+
+	/* executable? */
+	if (!(dot = strrchr(ctx->cctx.output,'.')))
+		if (!(ctx->cctx.drvflags & SLBT_DRIVER_MODULE))
+			return 0;
+
+	/* todo: archive? library? wrapper? inlined function, avoid repetition */
+	if ((base = strrchr(ctx->cctx.output,'/')))
+		base++;
+	else
+		base = ctx->cctx.output;
+
+	/* archive? */
+	if (dot && !strcmp(dot,ctx->cctx.settings.arsuffix)) {
+		prefix = ctx->cctx.settings.arprefix;
+
+		if (!strncmp(prefix,base,strlen(prefix)))
+			libname = base;
+		else {
+			if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
+				slbt_dprintf(fderr,
+					"%s: error: output file prefix does "
+					"not match its (archive) suffix; "
+					"the expected prefix was '%s'\n",
+					program,prefix);
+			return -1;
+		}
+	}
+
+	/* library? */
+	else if (dot && !strcmp(dot,ctx->cctx.settings.dsosuffix)) {
+		prefix = ctx->cctx.settings.dsoprefix;
+
+		if (!strncmp(prefix,base,strlen(prefix))) {
+			libname = base;
+
+		} else if (ctx->cctx.drvflags & SLBT_DRIVER_MODULE) {
+			libname = base;
+			fmodule = true;
+
+		} else {
+			if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
+				slbt_dprintf(fderr,
+					"%s: error: output file prefix does "
+					"not match its (shared library) suffix; "
+					"the expected prefix was '%s'\n",
+					program,prefix);
+			return -1;
+		}
+	}
+
+	/* wrapper? */
+	else if (dot && !strcmp(dot,".la")) {
+		prefix = ctx->cctx.settings.dsoprefix;
+
+		if (!strncmp(prefix,base,strlen(prefix))) {
+			libname = base;
+			fmodule = !!(ctx->cctx.drvflags & SLBT_DRIVER_MODULE);
+		} else if (ctx->cctx.drvflags & SLBT_DRIVER_MODULE) {
+			libname = base;
+			fmodule = true;
+		} else {
+			if (ctx->cctx.drvflags & SLBT_DRIVER_VERBOSITY_ERRORS)
+				slbt_dprintf(fderr,
+					"%s: error: output file prefix does "
+					"not match its (libtool wrapper) suffix; "
+					"the expected prefix was '%s'\n",
+					program,prefix);
+			return -1;
+		}
+	} else
+		return 0;
+
+	/* libname alloc */
+	if (!fmodule)
+		libname += strlen(prefix);
+
+	if (!(ctx->libname = strdup(libname)))
+		return -1;
+
+	if ((dot  = strrchr(ctx->libname,'.')))
+		*dot = 0;
+
+	ctx->cctx.libname = ctx->libname;
+
+	return 0;
+}