From 9c5807c7cadf7219a32f3b2c081a8d21aceb4837 Mon Sep 17 00:00:00 2001
From: midipix <writeonce@midipix.org>
Date: Thu, 26 Nov 2015 11:46:46 -0500
Subject: output import libraries and dependency symbols: initial
 implementation.

---
 src/driver/pe_driver_ctx.c              | 17 ++++++++++++++
 src/logic/pe_get_image_meta.c           |  7 ------
 src/output/pe_output_import_libraries.c | 39 +++++++++++++++++++++++++++++++++
 src/perk.c                              | 23 ++++++++++++++++++-
 4 files changed, 78 insertions(+), 8 deletions(-)
 create mode 100644 src/output/pe_output_import_libraries.c

(limited to 'src')

diff --git a/src/driver/pe_driver_ctx.c b/src/driver/pe_driver_ctx.c
index a463e9a..990738b 100644
--- a/src/driver/pe_driver_ctx.c
+++ b/src/driver/pe_driver_ctx.c
@@ -9,6 +9,8 @@ enum app_tags {
 	TAG_VERSION,
 	TAG_OUTPUT,
 	TAG_EXPSYMS,
+	TAG_IMPLIBS,
+	TAG_IMPSYMS,
 };
 
 static const struct argv_option options[] = {
@@ -24,6 +26,13 @@ static const struct argv_option options[] = {
 
 	{"expsyms",	'e',TAG_EXPSYMS,ARGV_OPTARG_NONE,	0,0,
 								"print exported symbols" },
+
+	{"implibs",	'i',TAG_IMPLIBS,ARGV_OPTARG_NONE,	0,0,
+								"list direct dependency libraries"},
+
+	{"impsyms",	'I',TAG_IMPSYMS,ARGV_OPTARG_NONE,	0,0,
+								"list direct dependency libraries "
+								"along with required symbols"},
 	{0}
 };
 
@@ -139,6 +148,14 @@ int pe_get_driver_ctx(
 				case TAG_EXPSYMS:
 					fflags |= PERK_OUTPUT_EXPORT_SYMS;
 					break;
+
+				case TAG_IMPLIBS:
+					fflags |= PERK_OUTPUT_IMPORT_LIBS;
+					break;
+
+				case TAG_IMPSYMS:
+					fflags |= PERK_OUTPUT_IMPORT_SYMS;
+					break;
 			}
 		} else
 			nunits++;
diff --git a/src/logic/pe_get_image_meta.c b/src/logic/pe_get_image_meta.c
index ea76a92..b5bca34 100644
--- a/src/logic/pe_get_image_meta.c
+++ b/src/logic/pe_get_image_meta.c
@@ -138,10 +138,6 @@ int pe_get_image_meta(const struct pe_raw_image * image, struct pe_image_meta **
 				m->idata[i].aitems = (struct pe_import_lookup_item *)(base + m->hidata->ptr_to_raw_data
 							+ m->idata[i].import_lookup_tbl_rva - m->hidata->virtual_addr);
 
-			#ifdef PERK_DEVEL
-			printf("%s\n",m->idata[i].name);
-			#endif
-
 			/* items */
 			m->idata[i].count = 0;
 			if (m->idata[i].import_lookup_tbl_rva) {
@@ -175,9 +171,6 @@ int pe_get_image_meta(const struct pe_raw_image * image, struct pe_image_meta **
 							+ m->idata[i].items[j].u.hint_name_tbl_rva - m->hidata->virtual_addr);
 
 					m->idata[i].items[j].name = (char *)pentry->name;
-					#ifdef PERK_DEVEL
-					printf("%s\n",m->idata[i].items[j].name);
-					#endif
 				}
 			}
 		}
diff --git a/src/output/pe_output_import_libraries.c b/src/output/pe_output_import_libraries.c
new file mode 100644
index 0000000..1e47d81
--- /dev/null
+++ b/src/output/pe_output_import_libraries.c
@@ -0,0 +1,39 @@
+#include <stdint.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <errno.h>
+
+#include <perk/perk.h>
+#include <perk/perk_output.h>
+#include "perk_output_impl.h"
+
+int pe_output_import_libraries(
+	const struct pe_image_meta *	m,
+	const struct pe_common_ctx *	cctx,
+	FILE *				fout)
+{
+	FILE *	ftmp;
+	int	i,j;
+
+	if (!m->summary.num_of_implibs)
+		return 0;
+
+	if (!(fout = pe_output_prolog(cctx,fout,&ftmp)))
+		return -1;
+
+	for (i=0; i<m->summary.num_of_implibs; i++) {
+		if (cctx->fmtflags & PERK_OUTPUT_IMPORT_SYMS)
+			fprintf(fout,"%s:\n",m->idata[i].name);
+		else
+			fprintf(fout,"%s\n",m->idata[i].name);
+
+		if (cctx->fmtflags & PERK_OUTPUT_IMPORT_SYMS)
+			for (j=0; j<m->idata[i].count; j++)
+				if (m->idata[i].items[j].name)
+					fprintf(fout,"==> %s\n",
+						m->idata[i].items[j].name);
+	}
+
+	return pe_output_epilog(0,ftmp);
+}
diff --git a/src/perk.c b/src/perk.c
index 17872a2..72cfa37 100644
--- a/src/perk.c
+++ b/src/perk.c
@@ -1,4 +1,5 @@
 #include <stdio.h>
+#include <unistd.h>
 #include <perk/perk.h>
 #include <perk/perk_output.h>
 
@@ -6,12 +7,32 @@
 #define PERK_DRIVER_FLAGS	PERK_DRIVER_VERBOSITY_ERRORS|PERK_DRIVER_VERBOSITY_USAGE
 #endif
 
+static void perk_paragraph_break(struct pe_unit_ctx * uctx, int * fpara)
+{
+	if (*fpara) {
+		if (uctx->cctx.fdout >= 0)
+			write(uctx->cctx.fdout,"\n",1);
+		else
+			fputc('\n',stdout);
+		*fpara = 0;
+	}
+}
+
 static void perk_perform_unit_actions(struct pe_unit_ctx * uctx)
 {
+	int      fpara = 0;
 	uint64_t flags = uctx->cctx.fmtflags;
 
-	if (flags & PERK_OUTPUT_EXPORT_SYMS)
+	if (flags & PERK_OUTPUT_EXPORT_SYMS) {
 		uctx->cctx.status = pe_output_export_symbols(uctx->meta,&uctx->cctx,0);
+		fpara += uctx->meta->summary.num_of_export_syms;
+	}
+
+	if ((flags & PERK_OUTPUT_IMPORT_LIBS) || (flags & PERK_OUTPUT_IMPORT_SYMS)) {
+		perk_paragraph_break(uctx,&fpara);
+		uctx->cctx.status = pe_output_import_libraries(uctx->meta,&uctx->cctx,0);
+		fpara += (uctx->meta->summary.num_of_implibs > 0);
+	}
 }
 
 static int perk_exit(struct pe_driver_ctx * dctx, int status)
-- 
cgit v1.2.3