driver: --mkvars, slbt_get_mkvars_flags(): implementation and integration.

3 files changed, 241 insertions, 0 deletions

diff --git a/src/internal/slibtool_driver_impl.h b/src/internal/slibtool_driver_impl.h
index 65e5f96..41c7e0b 100644
--- a/src/internal/slibtool_driver_impl.h
+++ b/src/internal/slibtool_driver_impl.h
@@ -28,6 +28,7 @@ enum app_tags {
 	TAG_VERSION,
 	TAG_INFO,
 	TAG_CONFIG,
+	TAG_MKVARS,
 	TAG_DUMPMACHINE,
 	TAG_DEBUG,
 	TAG_DRY_RUN,
@@ -160,6 +161,7 @@ struct slbt_driver_ctx_impl {
 	struct slbt_fd_ctx              fdctx;
 	struct slbt_map_info            lconf;
 	struct slbt_txtfile_ctx *       lconfctx;
+	struct slbt_txtfile_ctx *       mkvarsctx;
 	struct slbt_obj_list *          objlistv;
 
 	struct argv_entry **            dlopenv;
diff --git a/src/internal/slibtool_mkvars_impl.c b/src/internal/slibtool_mkvars_impl.c
new file mode 100644
index 0000000..a18dbfe
--- /dev/null
+++ b/src/internal/slibtool_mkvars_impl.c
@@ -0,0 +1,226 @@
+/*******************************************************************/
+/*  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 <ctype.h>
+#include <stdio.h>
+#include <stdint.h>
+#include <stdbool.h>
+
+#include "slibtool_mkvars_impl.h"
+#include "slibtool_driver_impl.h"
+#include "slibtool_errinfo_impl.h"
+#include "slibtool_symlink_impl.h"
+#include "slibtool_readlink_impl.h"
+#include "slibtool_realpath_impl.h"
+#include "slibtool_visibility_impl.h"
+
+static int slbt_get_mkvars_var(
+	const struct slbt_driver_ctx *  dctx,
+	const struct slbt_txtfile_ctx * tctx,
+	const char *                    var,
+	const char                      space,
+	char                            (*val)[PATH_MAX])
+{
+	const char **   pline;
+	const char *    mark;
+	const char *    match;
+	ssize_t         len;
+	int             cint;
+
+	/* init */
+	match = 0;
+	len   = strlen(var);
+
+	/* search for ^var= */
+	for (pline=tctx->txtlinev; !match && *pline; pline++) {
+		if (!strncmp(*pline,var,len)) {
+			if (isspace((*pline)[len]) || ((*pline)[len] == '=')) {
+				mark = &(*pline)[len];
+
+				for (; isspace(cint = *mark); )
+					mark++;
+
+				if (mark[0] != '=')
+					return SLBT_CUSTOM_ERROR(
+						dctx,
+						SLBT_ERR_MKVARS_PARSE);
+
+				mark++;
+
+				for (; isspace(cint = *mark); )
+					mark++;
+
+				match = mark;
+			}
+		}
+	}
+
+	/* not found? */
+	if (!match) {
+		(*val)[0] = '\0';
+		return 0;
+	}
+
+	/* validate */
+	for (mark=match; *mark; mark++) {
+		if ((*mark >= 'a') && (*mark <= 'z'))
+			(void)0;
+
+		else if ((*mark >= 'A') && (*mark <= 'Z'))
+			(void)0;
+
+		else if ((*mark >= '0') && (*mark <= '9'))
+			(void)0;
+
+		else if ((*mark == '+') || (*mark == '-'))
+			(void)0;
+
+		else if ((*mark == '/') || (*mark == '@'))
+			(void)0;
+
+		else if ((*mark == '.') || (*mark == '_'))
+			(void)0;
+
+		else if ((*mark == ':') || (*mark == space))
+			(void)0;
+
+		else
+			return SLBT_CUSTOM_ERROR(
+				dctx,
+				SLBT_ERR_MKVARS_PARSE);
+	}
+
+	/* all done */
+	strcpy(*val,match);
+
+	return 0;
+}
+
+slbt_hidden int slbt_get_mkvars_flags(
+	struct slbt_driver_ctx *	dctx,
+	const char *			mkvars,
+	uint64_t *			flags)
+{
+	struct slbt_driver_ctx_impl *   ctx;
+	struct slbt_txtfile_ctx *       confctx;
+	char *                          dash;
+	uint64_t			optshared;
+	uint64_t			optstatic;
+	char                            val[PATH_MAX];
+
+	/* driver context (ar, ranlib, cc) */
+	ctx = slbt_get_driver_ictx(dctx);
+
+	/* cache the makefile in library friendly form) */
+	if (slbt_lib_get_txtfile_ctx(dctx,mkvars,&ctx->mkvarsctx) < 0)
+		return SLBT_NESTED_ERROR(dctx);
+
+	confctx = ctx->mkvarsctx;
+
+	/* scan */
+	optshared = 0;
+	optstatic = 0;
+
+	/* slibtool */
+	if (slbt_get_mkvars_var(dctx,confctx,"SLIBTOOL",0,&val) < 0)
+		return SLBT_NESTED_ERROR(dctx);
+
+	if ((dash = strrchr(val,'-'))) {
+		if (!strcmp(dash,"-shared")) {
+			optshared = SLBT_DRIVER_SHARED;
+			optstatic = SLBT_DRIVER_DISABLE_STATIC;
+
+		} else if (!strcmp(dash,"-static")) {
+			optshared = SLBT_DRIVER_DISABLE_SHARED;
+			optstatic = SLBT_DRIVER_STATIC;
+		} else {
+			return SLBT_CUSTOM_ERROR(
+				dctx,
+				SLBT_ERR_MKVARS_PARSE);
+		}
+	} else {
+		optshared = SLBT_DRIVER_SHARED;
+		optstatic = SLBT_DRIVER_STATIC;
+	}
+
+	*flags = optshared | optstatic;
+
+	/* host */
+	if (!ctx->cctx.host.host) {
+		if (slbt_get_mkvars_var(dctx,confctx,"host",0,&val) < 0)
+			return SLBT_NESTED_ERROR(dctx);
+
+		if (val[0] && !(ctx->host.host = strdup(val)))
+			return SLBT_SYSTEM_ERROR(dctx,0);
+
+		ctx->cctx.host.host = ctx->host.host;
+	}
+
+
+	/* ar tool */
+	if (!ctx->cctx.host.ar) {
+		if (slbt_get_mkvars_var(dctx,confctx,"AR",0x20,&val) < 0)
+			return SLBT_NESTED_ERROR(dctx);
+
+		if (val[0] && !(ctx->host.ar = strdup(val)))
+			return SLBT_SYSTEM_ERROR(dctx,0);
+
+		ctx->cctx.host.ar = ctx->host.ar;
+	}
+
+
+	/* nm tool */
+	if (!ctx->cctx.host.nm) {
+		if (slbt_get_mkvars_var(dctx,confctx,"NM",0x20,&val) < 0)
+			return SLBT_NESTED_ERROR(dctx);
+
+		if (val[0] && !(ctx->host.nm = strdup(val)))
+			return SLBT_SYSTEM_ERROR(dctx,0);
+
+		ctx->cctx.host.nm = ctx->host.nm;
+	}
+
+
+	/* ranlib tool */
+	if (!ctx->cctx.host.ranlib) {
+		if (slbt_get_mkvars_var(dctx,confctx,"RANLIB",0x20,&val) < 0)
+			return SLBT_NESTED_ERROR(dctx);
+
+		if (val[0] && !(ctx->host.ranlib = strdup(val)))
+			return SLBT_SYSTEM_ERROR(dctx,0);
+
+		ctx->cctx.host.ranlib = ctx->host.ranlib;
+	}
+
+
+	/* as tool (optional) */
+	if (!ctx->cctx.host.as) {
+		if (slbt_get_mkvars_var(dctx,confctx,"AS",0x20,&val) < 0)
+			return SLBT_NESTED_ERROR(dctx);
+
+		if (val[0] && !(ctx->host.as = strdup(val)))
+			return SLBT_SYSTEM_ERROR(dctx,0);
+
+
+		ctx->cctx.host.as = ctx->host.as;
+	}
+
+
+	/* dlltool tool (optional) */
+	if (!ctx->cctx.host.dlltool) {
+		if (slbt_get_mkvars_var(dctx,confctx,"DLLTOOL",0x20,&val) < 0)
+			return SLBT_NESTED_ERROR(dctx);
+
+		if (val[0] && !(ctx->host.dlltool = strdup(val)))
+			return SLBT_SYSTEM_ERROR(dctx,0);
+
+		ctx->cctx.host.dlltool = ctx->host.dlltool;
+	}
+
+
+	/* all done */
+	return 0;
+}
diff --git a/src/internal/slibtool_mkvars_impl.h b/src/internal/slibtool_mkvars_impl.h
new file mode 100644
index 0000000..00ebd99
--- /dev/null
+++ b/src/internal/slibtool_mkvars_impl.h
@@ -0,0 +1,13 @@
+#ifndef SLIBTOOL_MKVARS_IMPL_H
+#define SLIBTOOL_MKVARS_IMPL_H
+
+#include <stdint.h>
+
+struct slbt_driver_ctx;
+
+int slbt_get_mkvars_flags(
+	struct slbt_driver_ctx *	dctx,
+	const char *			mkvars,
+	uint64_t *			flags);
+
+#endif