entered into RCS

1 files changed, 219 insertions, 0 deletions

diff --git a/lib-src/hexl.c b/lib-src/hexl.c
new file mode 100644
index 00000000000..8b28880ea79
--- /dev/null
+++ b/lib-src/hexl.c
@@ -0,0 +1,219 @@
+#include <stdio.h>
+#include <ctype.h>
+
+#define DEFAULT_GROUPING        0x01
+#define DEFAULT_BASE            16
+
+#undef TRUE
+#undef FALSE
+#define TRUE  (1)
+#define FALSE (0)
+
+extern void exit(), perror();
+
+int base = DEFAULT_BASE, un_flag = FALSE, iso_flag = FALSE, endian = 1;
+int group_by = DEFAULT_GROUPING;
+char *progname;
+
+main(argc, argv)
+int argc;
+char *argv[];
+{
+    register long address;
+    char string[18];
+    FILE *fp;
+
+    progname = *argv++; --argc;
+
+    /*
+    ** -hex             hex dump
+    ** -oct             Octal dump
+    ** -group-by-8-bits
+    ** -group-by-16-bits
+    ** -group-by-32-bits
+    ** -group-by-64-bits
+    ** -iso             iso character set.
+    ** -big-endian      Big Endian
+    ** -little-endian   Little Endian
+    ** -un || -de       from hexl format to binary.
+    ** --               End switch list.
+    ** <filename>       dump filename
+    ** -                (as filename == stdin)
+    */
+    
+    while (*argv && *argv[0] == '-' && (*argv)[1])
+    {
+        /* A switch! */
+        if (!strcmp(*argv, "--"))
+        {
+            --argc; argv++;
+            break;
+        } else if (!strcmp(*argv, "-un") || !strcmp(*argv, "-de"))
+        {
+            un_flag = TRUE;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-hex"))
+        {
+            base = 16;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-iso"))
+        {
+            iso_flag = TRUE;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-oct"))
+        {
+            base = 8;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-big-endian"))
+        {
+            endian = 1;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-little-endian"))
+        {
+            endian = 0;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-group-by-8-bits"))
+        {
+            group_by = 0x00;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-group-by-16-bits"))
+        {
+            group_by = 0x01;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-group-by-32-bits"))
+        {
+            group_by = 0x03;
+            --argc; argv++;
+        } else if (!strcmp(*argv, "-group-by-64-bits"))
+        {
+            group_by = 0x07;
+            endian = 0;
+            --argc; argv++;
+        } else
+        {
+            (void) fprintf(stderr, "%s: invalid switch: \"%s\".\n", progname,
+                           *argv);
+            usage();
+        }
+    }
+
+    do
+    {
+        if (*argv == NULL)
+            fp = stdin;
+        else
+        {
+            char *filename = *argv++;
+
+            if (!strcmp(filename, "-"))
+                fp = stdin;
+            else
+                if ((fp = fopen(filename, "r")) == NULL)
+                {
+                    perror(filename);
+                    continue;
+                }
+        }
+
+        if (un_flag)
+        {
+            char buf[18];
+
+            for (;;)
+            {
+                register int i, c, d;
+
+#define hexchar(x) (isdigit(x) ? x - '0' : x - 'a' + 10)
+
+                (void) fread(buf, 1, 10, fp); /* skip 10 bytes */
+
+                for (i=0; i < 16; ++i)
+                {
+                    if ((c = getc(fp)) == ' ' || c == EOF)
+                        break;
+
+                    d = getc(fp);
+                    c = hexchar(c) * 0x10 + hexchar(d);
+                    (void) putchar(c);
+
+                    if ((i&group_by) == group_by)
+                        (void) getc(fp);
+                }
+
+                if (c == ' ')
+                {
+                    while ((c = getc(fp)) != '\n' && c != EOF)
+                        ;
+
+                    if (c == EOF)
+                        break;
+                }
+                else
+                {
+                    if (i < 16)
+                        break;
+
+                    (void) fread(buf, 1, 18, fp); /* skip 18 bytes */
+                }
+            }
+        }
+        else
+        {
+            address = 0;
+            string[0] = ' ';
+            string[17] = '\0';
+            for (;;)
+            {
+                register int i, c;
+
+                for (i=0; i < 16; ++i)
+                {
+                    if ((c = getc(fp)) == EOF)
+                    {
+                        if (!i)
+                            break;
+
+                        (void) fputs("  ", stdout);
+                        string[i+1] = '\0';
+                    }
+                    else
+                    {
+                        if (!i)
+                            (void) printf("%08x: ", address);
+
+                        if (iso_flag)
+                            string[i+1] =
+                                (c < 0x20 || (c >= 0x7F && c < 0xa0)) ? '.' :c;
+                        else
+                            string[i+1] = (c < 0x20 || c >= 0x7F) ? '.' : c;
+
+                        (void) printf("%02x", c);
+                    }
+
+                    if ((i&group_by) == group_by)
+                        (void) putchar(' ');
+                }
+
+                if (i)
+                    (void) puts(string);
+
+                if (c == EOF)
+                    break;
+
+                address += 0x10;
+
+            }
+        }
+
+        if (fp != stdin)
+            (void) close(fp);
+
+    } while (*argv != NULL);
+    return 0;
+}
+
+usage()
+{
+    (void) fprintf(stderr, "usage: %s [-de] [-iso]\n", progname);
+    exit(1);
+}