Add hexdump for debugging

Signed-off-by: Klaus Kämpf <kkaempf@gmail.com>

Author: kkaempf

Makefile

@@ -36,7 +36,7 @@ MANSEC=1
 MANDIR=/usr/share/man/man$(MANSEC)
 DISTFILES=README vmsbackup.1 Makefile vmsbackup.c match.c NEWS  build.com dclmain.c getoptmain.c vmsbackup.cld vmsbackup.h  sysdep.h
 
-vmsbackup: vmsbackup.o match.o getoptmain.o
+vmsbackup: vmsbackup.o match.o getoptmain.o hexdump.o
 
 vmsbackup.o : vmsbackup.c
 match.o : match.c

hexdump.c

@@ -0,0 +1,51 @@
+#include <stdio.h>
+#include <stdlib.h>
+#include <stdarg.h>
+#include <unistd.h>
+#include <ctype.h>
+
+void
+hexdump (const unsigned char *ptr, int size, FILE *out)
+/*
+ * hex dump 'size' bytes starting at 'ptr'
+ */
+{
+    const unsigned char *lptr = ptr;
+    int count = 0;
+    long start = 0;
+
+    while (size-- > 0)
+    {
+	if ((count % 16) == 0)
+	    fprintf (out, "\t%08lx:", start);
+	fprintf (out, " %02x", *ptr++);
+	count++;
+	start++;
+	if (size == 0)
+	{
+	    while ((count % 16) != 0)
+	    {
+		fprintf(out, "   ");
+		count++;
+	    }
+	}
+	if ((count % 16) == 0)
+	{
+	    fprintf (out, " ");
+	    while (lptr < ptr)
+	    {
+	        unsigned char c = *lptr&0x7f;
+		c = ((c < 32)||(c == 0x7f))?'.':c;
+		fprintf (out, "%c", c);
+		lptr++;
+	    }
+	    fprintf(out,"\n");
+	}
+    }
+    if ((count % 16) != 0)
+	fprintf(out, "\n");
+
+    fflush (out);
+    return;
+}
+

hexdump.h

@@ -0,0 +1 @@
+void hexdump (const unsigned char *ptr, int size, FILE *out);