1 files changed, 53 insertions, 0 deletions
diff --git a/src/output/pe_output_pecoff_strings.c b/src/output/pe_output_pecoff_strings.c
new file mode 100644
index 0000000..917f655
--- /dev/null
+++ b/src/output/pe_output_pecoff_strings.c
@@ -0,0 +1,53 @@
+/***************************************************************/
+/*  perk: PE Resource Kit                                      */
+/*  Copyright (C) 2015--2025  SysDeer Technologies, LLC        */
+/*  Released under GPLv2 and GPLv3; see COPYING.PERK.          */
+/***************************************************************/
+
+#include <stdio.h>
+#include <string.h>
+
+#include <perk/perk.h>
+#include <perk/perk_output.h>
+#include "perk_reader_impl.h"
+#include "perk_driver_impl.h"
+#include "perk_dprintf_impl.h"
+#include "perk_errinfo_impl.h"
+
+int pe_output_pecoff_strings(
+	const struct pe_driver_ctx *	dctx,
+	const struct pe_image_meta *	meta)
+{
+	int		fdout;
+	const char *	ch;
+	const char *	mark;
+	const char *	cap;
+	const char * 	dash = "";
+
+	fdout = pe_driver_fdout(dctx);
+
+	if (dctx->cctx->fmtflags & PERK_PRETTY_YAML) {
+		if (pe_dprintf(fdout,"strings:\n") < 0)
+			return PERK_FILE_ERROR(dctx);
+
+		dash = "- ";
+	}
+
+	mark  = (char *)meta->r_image.map_addr;
+	mark += meta->m_coff.cfh_ptr_to_str_tbl;
+
+	cap   = mark + meta->m_coff.cfh_size_of_str_tbl;
+	mark += sizeof(uint32_t);
+
+	for (ch=mark; ch<cap; ) {
+		if (pe_dprintf(fdout,"%s%s\n",dash,ch) < 0)
+			return PERK_FILE_ERROR(dctx);
+
+		ch += strlen(ch);
+
+		for (; ch<cap && !*ch; )
+			ch++;
+	}
+
+	return 0;
+}