1 files changed, 83 insertions, 0 deletions
diff --git a/src/internal/slibtool_objlist_impl.c b/src/internal/slibtool_objlist_impl.c
new file mode 100644
index 0000000..9f25529
--- /dev/null
+++ b/src/internal/slibtool_objlist_impl.c
@@ -0,0 +1,83 @@
+/*******************************************************************/
+/*  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 <fcntl.h>
+#include <errno.h>
+#include <unistd.h>
+#include <stdint.h>
+#include <stdlib.h>
+#include <string.h>
+#include <sys/mman.h>
+#include <sys/stat.h>
+
+#include "slibtool_driver_impl.h"
+#include "slibtool_errinfo_impl.h"
+#include "slibtool_mapfile_impl.h"
+#include "slibtool_objlist_impl.h"
+#include "slibtool_visibility_impl.h"
+
+slbt_hidden int slbt_objlist_read(
+	int                     fdcwd,
+	struct slbt_obj_list *  objlist)
+{
+	struct slbt_map_info *	mapinfo;
+	int			objc;
+	char **			objv;
+	char *			src;
+	char *			dst;
+	char *			mark;
+	int			skip;
+
+	/* temporarily map the object list */
+	if (!(mapinfo = slbt_map_file(fdcwd,objlist->name,SLBT_MAP_INPUT)))
+		return -1;
+
+	/* object list, cautionary null termination, vector null termination */
+	objlist->size = mapinfo->size;
+	objlist->size++;
+	objlist->size++;
+
+	if (!(objlist->addr = calloc(1,objlist->size))) {
+		slbt_unmap_file(mapinfo);
+		return -1;
+	}
+
+	/* object list file to normalized object strings */
+	objc = 0;
+	skip = true;
+
+	for (src=mapinfo->addr,dst=objlist->addr; src<mapinfo->cap; src++) {
+		if (!*src || (*src==' ') || (*src=='\n') || (*src=='\r')) {
+			if (!skip)
+				*dst++ = 0;
+
+			skip = true;
+		} else {
+			*dst++ = *src;
+
+			objc += !!skip;
+			skip  = false;
+		}
+	}
+
+	/* object vector */
+	objlist->objc = objc;
+
+	if (!(objlist->objv = calloc(++objc,sizeof(char *)))) {
+		free(objlist->addr);
+		slbt_unmap_file(mapinfo);
+		return -1;
+	}
+
+	for (objv=objlist->objv,mark=objlist->addr; *mark; objv++) {
+		*objv = mark;
+		mark += strlen(mark) + 1;
+	}
+
+	slbt_unmap_file(mapinfo);
+
+	return 0;
+}