From 4377060a2796df43a700dad39cfc3c13f7f1dea7 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Tue, 15 Nov 2016 21:09:36 -0500
Subject: output: pe_output_image_sections(): implementation and integration.

---
 src/driver/pe_amain.c                 |  3 +++
 src/output/pe_output_image_sections.c | 40 +++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 src/output/pe_output_image_sections.c

(limited to 'src')

diff --git a/src/driver/pe_amain.c b/src/driver/pe_amain.c
index 40eaf9d..59cb8f2 100644
--- a/src/driver/pe_amain.c
+++ b/src/driver/pe_amain.c
@@ -55,6 +55,9 @@ static void pe_perform_unit_actions(
 	if (flags & PERK_OUTPUT_IMAGE_CATEGORY)
 		pe_output_image_category(dctx,uctx->meta,0);
 
+	if (flags & PERK_OUTPUT_IMAGE_SECTIONS)
+		pe_output_image_sections(dctx,uctx->meta,0);
+
 	if (flags & PERK_OUTPUT_EXPORT_SYMS)
 		pe_output_export_symbols(dctx,uctx->meta,0);
 
diff --git a/src/output/pe_output_image_sections.c b/src/output/pe_output_image_sections.c
new file mode 100644
index 0000000..b538cdf
--- /dev/null
+++ b/src/output/pe_output_image_sections.c
@@ -0,0 +1,40 @@
+/***************************************************************/
+/*  perk: PE Resource Kit                                      */
+/*  Copyright (C) 2015--2016  Z. Gilboa                        */
+/*  Released under GPLv2 and GPLv3; see COPYING.PERK.          */
+/***************************************************************/
+
+#include <stdio.h>
+
+#include <perk/perk.h>
+#include <perk/perk_output.h>
+#include "perk_errinfo_impl.h"
+
+int pe_output_image_sections(
+	const struct pe_driver_ctx *	dctx,
+	const struct pe_image_meta *	meta,
+	FILE *				fout)
+{
+	int		i;
+	const char * 	dash = "";
+
+	if (!fout)
+		fout = stdout;
+
+	if (dctx->cctx->fmtflags & PERK_PRETTY_YAML) {
+		if (fputs("sections:\n",fout) < 0)
+			return PERK_FILE_ERROR(dctx);
+
+		dash = "- ";
+	}
+
+	for (i=0; i<meta->coff.num_of_sections; i++)
+		if (fprintf(fout,"%s%s\n",
+				dash,
+				meta->sectbl[i].long_name
+					? meta->sectbl[i].long_name
+					: meta->sectbl[i].name) < 0)
+			return PERK_FILE_ERROR(dctx);
+
+	return 0;
+}
-- 
cgit v1.2.3