From 47341a61ee94ca64c96b781f8c987233a682d739 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Jan 27 2024 19:41:03 +0000
Subject: archiver output api: added slbt_ar_output_members().


---

diff --git a/include/slibtool/slibtool.h b/include/slibtool/slibtool.h
index a4edfee..fe605d1 100644
--- a/include/slibtool/slibtool.h
+++ b/include/slibtool/slibtool.h
@@ -393,6 +393,9 @@ slbt_api int  slbt_output_uninstall     (const struct slbt_driver_ctx *, const s
 slbt_api int  slbt_output_error_record  (const struct slbt_driver_ctx *, const struct slbt_error_info *);
 slbt_api int  slbt_output_error_vector  (const struct slbt_driver_ctx *);
 
+/* archiver utility api */
+slbt_api int  slbt_ar_output_members    (const struct slbt_archive_meta *);
+
 /* package info */
 slbt_api const struct slbt_source_version * slbt_source_version(void);
 
diff --git a/project/common.mk b/project/common.mk
index f314281..5465f72 100644
--- a/project/common.mk
+++ b/project/common.mk
@@ -1,6 +1,7 @@
 API_SRCS = \
 	src/arbits/slbt_archive_ctx.c \
 	src/arbits/slbt_archive_meta.c \
+	src/arbits/output/slbt_ar_output_members.c \
 	src/driver/slbt_amain.c \
 	src/driver/slbt_driver_ctx.c \
 	src/helper/slbt_archive_import.c \
diff --git a/project/tree.mk b/project/tree.mk
index 9e5383f..f147466 100644
--- a/project/tree.mk
+++ b/project/tree.mk
@@ -7,4 +7,5 @@ tree.tag:
 		mkdir -p src/logic
 		mkdir -p src/output
 		mkdir -p src/skin
+		mkdir -p src/arbits/output
 		touch tree.tag
diff --git a/src/arbits/output/slbt_ar_output_members.c b/src/arbits/output/slbt_ar_output_members.c
new file mode 100644
index 0000000..5397675
--- /dev/null
+++ b/src/arbits/output/slbt_ar_output_members.c
@@ -0,0 +1,103 @@
+/*******************************************************************/
+/*  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 <slibtool/slibtool.h>
+#include <slibtool/slibtool_output.h>
+#include "slibtool_driver_impl.h"
+#include "slibtool_dprintf_impl.h"
+#include "slibtool_errinfo_impl.h"
+#include "slibtool_ar_impl.h"
+
+#define SLBT_PRETTY_FLAGS       (SLBT_PRETTY_YAML      \
+	                         | SLBT_PRETTY_POSIX    \
+	                         | SLBT_PRETTY_HEXDATA)
+
+
+static int slbt_ar_output_members_posix(
+	const struct slbt_driver_ctx *  dctx,
+	const struct slbt_archive_meta * meta,
+	const struct slbt_fd_ctx *       fdctx)
+{
+	struct ar_meta_member_info **   memberp;
+	const char *                    name;
+
+	for (memberp=meta->a_memberv; *memberp; memberp++) {
+		switch ((*memberp)->ar_member_attr) {
+			case AR_MEMBER_ATTR_ARMAP:
+			case AR_MEMBER_ATTR_LINKINFO:
+			case AR_MEMBER_ATTR_NAMESTRS:
+				break;
+
+			default:
+				name = (*memberp)->ar_file_header.ar_member_name;
+
+				if (slbt_dprintf(fdctx->fdout,"%s\n",name) < 0)
+					return SLBT_SYSTEM_ERROR(dctx,0);
+		}
+	}
+
+	return 0;
+}
+
+static int slbt_ar_output_members_yaml(
+	const struct slbt_driver_ctx *  dctx,
+	const struct slbt_archive_meta * meta,
+	const struct slbt_fd_ctx *       fdctx)
+{
+	struct ar_meta_member_info **   memberp;
+	const char *                    name;
+
+	if (slbt_dprintf(fdctx->fdout,"  - Members = {\n") < 0)
+		return SLBT_SYSTEM_ERROR(dctx,0);
+
+	for (memberp=meta->a_memberv; *memberp; memberp++) {
+		switch ((*memberp)->ar_member_attr) {
+			case AR_MEMBER_ATTR_ARMAP:
+			case AR_MEMBER_ATTR_LINKINFO:
+			case AR_MEMBER_ATTR_NAMESTRS:
+				break;
+
+			default:
+				name = (*memberp)->ar_file_header.ar_member_name;
+
+				if (slbt_dprintf(fdctx->fdout,"    - %s\n",name) < 0)
+					return SLBT_SYSTEM_ERROR(dctx,0);
+		}
+	}
+
+	if (slbt_dprintf(fdctx->fdout,"  }\n") < 0)
+		return SLBT_SYSTEM_ERROR(dctx,0);
+
+	return 0;
+}
+
+int slbt_ar_output_members(const struct slbt_archive_meta * meta)
+{
+	const struct slbt_driver_ctx *  dctx;
+	struct slbt_fd_ctx              fdctx;
+
+	dctx = (slbt_archive_meta_ictx(meta))->dctx;
+
+	if (slbt_get_driver_fdctx(dctx,&fdctx) < 0)
+		return SLBT_NESTED_ERROR(dctx);
+
+	if (!meta->a_memberv)
+		return 0;
+
+	switch (dctx->cctx->fmtflags & SLBT_PRETTY_FLAGS) {
+		case SLBT_PRETTY_YAML:
+			return slbt_ar_output_members_yaml(
+				dctx,meta,&fdctx);
+
+		case SLBT_PRETTY_POSIX:
+			return slbt_ar_output_members_posix(
+				dctx,meta,&fdctx);
+
+		default:
+			return slbt_ar_output_members_yaml(
+				dctx,meta,&fdctx);
+	}
+}