1 files changed, 149 insertions, 0 deletions
diff --git a/src/driver/slbt_symlist_ctx.c b/src/driver/slbt_symlist_ctx.c
new file mode 100644
index 0000000..2a4997d
--- /dev/null
+++ b/src/driver/slbt_symlist_ctx.c
@@ -0,0 +1,149 @@
+/*******************************************************************/
+/*  slibtool: a skinny 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 <stdint.h>
+#include <stddef.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/mman.h>
+
+#include <slibtool/slibtool.h>
+#include "slibtool_driver_impl.h"
+#include "slibtool_errinfo_impl.h"
+
+static int slbt_lib_free_symlist_ctx_impl(
+	struct slbt_symlist_ctx_impl *  ctx,
+	struct slbt_input *             mapinfo,
+	int                             ret)
+{
+	if (mapinfo)
+		slbt_fs_unmap_input(mapinfo);
+
+	if (ctx) {
+		if (ctx->pathbuf)
+			free(ctx->pathbuf);
+
+		if (ctx->symstrs)
+			free(ctx->symstrs);
+
+		if (ctx->symstrv)
+			free(ctx->symstrv);
+
+		free(ctx);
+	}
+
+	return ret;
+}
+
+int slbt_lib_get_symlist_ctx(
+	const struct slbt_driver_ctx *  dctx,
+	const char *                    path,
+	struct slbt_symlist_ctx **      pctx)
+{
+	struct slbt_symlist_ctx_impl *  ctx;
+	struct slbt_input               mapinfo;
+	size_t                          nsyms;
+	char *                          ch;
+	char *                          cap;
+	char *                          src;
+	const char **                   psym;
+	char                            dummy;
+	bool                            fvalid;
+
+	/* map symlist file temporarily */
+	if (slbt_fs_map_input(dctx,-1,path,PROT_READ,&mapinfo) < 0)
+		return SLBT_NESTED_ERROR(dctx);
+
+	/* alloc context */
+	if (!(ctx = calloc(1,sizeof(*ctx))))
+		return slbt_lib_free_symlist_ctx_impl(
+			ctx,&mapinfo,
+			SLBT_BUFFER_ERROR(dctx));
+
+	/* count symbols */
+	src = mapinfo.size ? mapinfo.addr : &dummy;
+	cap = &src[mapinfo.size];
+
+	for (; (src<cap) && isspace(*src); )
+		src++;
+
+	for (ch=src,nsyms=0; ch<cap; nsyms++) {
+		for (; (ch<cap) && !isspace(*ch); )
+			ch++;
+
+		fvalid = false;
+
+		for (; (ch<cap) && isspace(*ch); )
+			fvalid = (*ch++ == '\n') || fvalid;
+
+		if (!fvalid)
+			return slbt_lib_free_symlist_ctx_impl(
+				ctx,&mapinfo,
+				SLBT_CUSTOM_ERROR(
+					dctx,
+					SLBT_ERR_FLOW_ERROR));
+	}
+
+	/* clone path, alloc string buffer and symbol vector */
+	if (!(ctx->pathbuf = strdup(path)))
+		return slbt_lib_free_symlist_ctx_impl(
+			ctx,&mapinfo,
+			SLBT_SYSTEM_ERROR(dctx,0));
+
+	if (!(ctx->symstrs = calloc(mapinfo.size+1,1)))
+		return slbt_lib_free_symlist_ctx_impl(
+			ctx,&mapinfo,
+			SLBT_SYSTEM_ERROR(dctx,0));
+
+	if (!(ctx->symstrv = calloc(nsyms+1,sizeof(char *))))
+		return slbt_lib_free_symlist_ctx_impl(
+			ctx,&mapinfo,
+			SLBT_SYSTEM_ERROR(dctx,0));
+
+	/* copy the source to the allocated string buffer */
+	memcpy(ctx->symstrs,mapinfo.addr,mapinfo.size);
+	slbt_fs_unmap_input(&mapinfo);
+
+	/* populate the symbol vector, handle whitespace */
+	src = ctx->symstrs;
+	cap = &src[mapinfo.size];
+
+	for (; (src<cap) && isspace(*src); )
+		src++;
+
+	for (ch=src,psym=ctx->symstrv; ch<cap; psym++) {
+		*psym = ch;
+
+		for (; (ch<cap) && !isspace(*ch); )
+			ch++;
+
+		for (; (ch<cap) && isspace(*ch); )
+			*ch++ = '\0';
+	}
+
+	/* all done */
+	ctx->dctx         = dctx;
+	ctx->path         = ctx->pathbuf;
+	ctx->sctx.path	  = &ctx->path;
+	ctx->sctx.symstrv = ctx->symstrv;
+
+	*pctx = &ctx->sctx;
+
+	return 0;
+}
+
+void slbt_lib_free_symlist_ctx(struct slbt_symlist_ctx * ctx)
+{
+	struct slbt_symlist_ctx_impl *	ictx;
+	uintptr_t			addr;
+
+	if (ctx) {
+		addr = (uintptr_t)ctx - offsetof(struct slbt_symlist_ctx_impl,sctx);
+		ictx = (struct slbt_symlist_ctx_impl *)addr;
+		slbt_lib_free_symlist_ctx_impl(ictx,0,0);
+	}
+}