(U+5709): Apply new conventions for glyph granularity for components
[chise/xemacs-chise.git.1] / lib-src / hexl.c
1 /* Synched up with: FSF 19.28. */
2
3 #include <config.h>
4
5 #include <stdio.h>
6 #include <ctype.h>
7 #ifdef WIN32_NATIVE
8 #include <io.h>
9 #include <fcntl.h>
10 #endif
11
12 #if __STDC__ || defined(STDC_HEADERS)
13 #include <stdlib.h>
14 #ifdef HAVE_UNISTD_H
15 #include <unistd.h>
16 #endif
17 #include <string.h>
18 #endif
19
20 #define DEFAULT_GROUPING        0x01
21 #define DEFAULT_BASE            16
22
23 #undef TRUE
24 #undef FALSE
25 #define TRUE  (1)
26 #define FALSE (0)
27
28 int base = DEFAULT_BASE, un_flag = FALSE, iso_flag = FALSE, endian = 1;
29 int group_by = DEFAULT_GROUPING;
30 char *progname;
31
32 void usage (void);
33
34 int
35 main (int argc, char *argv[])
36 {
37   register long address;
38   char string[18];
39   FILE *fp;
40   
41   progname = *argv++; --argc;
42   
43   /*
44   ** -hex               hex dump
45   ** -oct               Octal dump
46   ** -group-by-8-bits
47   ** -group-by-16-bits
48   ** -group-by-32-bits
49   ** -group-by-64-bits
50   ** -iso               iso character set.
51   ** -big-endian        Big Endian
52   ** -little-endian     Little Endian
53   ** -un || -de from hexl format to binary.
54   ** --         End switch list.
55   ** <filename> dump filename
56   ** -          (as filename == stdin)
57   */
58     
59   while (*argv && *argv[0] == '-' && (*argv)[1])
60     {
61       /* A switch! */
62       if (!strcmp (*argv, "--"))
63         {
64           --argc; argv++;
65           break;
66         }
67       else if (!strcmp (*argv, "-un") || !strcmp (*argv, "-de"))
68         {
69           un_flag = TRUE;
70           --argc; argv++;
71         }
72       else if (!strcmp (*argv, "-hex"))
73         {
74           base = 16;
75           --argc; argv++;
76         }
77       else if (!strcmp (*argv, "-iso"))
78         {
79           iso_flag = TRUE;
80           --argc; argv++;
81         }
82       else if (!strcmp (*argv, "-oct"))
83         {
84           base = 8;
85           --argc; argv++;
86         }
87       else if (!strcmp (*argv, "-big-endian"))
88         {
89           endian = 1;
90           --argc; argv++;
91         }
92       else if (!strcmp (*argv, "-little-endian"))
93         {
94           endian = 0;
95           --argc; argv++;
96         }
97       else if (!strcmp (*argv, "-group-by-8-bits"))
98         {
99           group_by = 0x00;
100           --argc; argv++;
101         }
102       else if (!strcmp (*argv, "-group-by-16-bits"))
103         {
104           group_by = 0x01;
105           --argc; argv++;
106         }
107       else if (!strcmp (*argv, "-group-by-32-bits"))
108         {
109           group_by = 0x03;
110           --argc; argv++;
111         }
112       else if (!strcmp (*argv, "-group-by-64-bits"))
113         {
114           group_by = 0x07;
115           endian = 0;
116           --argc; argv++;
117         }
118       else
119         {
120           (void) fprintf (stderr, "%s: invalid switch: \"%s\".\n", progname,
121                    *argv);
122           usage ();
123         }
124     }
125
126   do
127     {
128       if (*argv == NULL)
129         fp = stdin;
130       else
131         {
132           char *filename = *argv++;
133
134           if (!strcmp (filename, "-"))
135             fp = stdin;
136           else if ((fp = fopen (filename, "r")) == NULL)
137             {
138               perror (filename);
139               continue;
140             }
141         }
142
143       if (un_flag)
144         {
145           char buf[18];
146
147 #ifdef WIN32_NATIVE
148           _setmode (_fileno (stdout), O_BINARY);
149 #endif
150           for (;;)
151             {
152               register int i, c = 0, d;
153
154 #define hexchar(x) (isdigit (x) ? x - '0' : x - 'a' + 10)
155
156               fread (buf, 1, 10, fp); /* skip 10 bytes */
157
158               for (i=0; i < 16; ++i)
159                 {
160                   if ((c = getc (fp)) == ' ' || c == EOF)
161                     break;
162
163                   d = getc (fp);
164                   c = hexchar (c) * 0x10 + hexchar (d);
165                   putchar (c);
166
167                   if ((i&group_by) == group_by)
168                     getc (fp);
169                 }
170
171               if (c == ' ')
172                 {
173                   while ((c = getc (fp)) != '\n' && c != EOF)
174                     ;
175
176                   if (c == EOF)
177                     break;
178                 }
179               else
180                 {
181                   if (i < 16)
182                     break;
183
184                   fread (buf, 1, 18, fp); /* skip 18 bytes */
185                 }
186             }
187         }
188       else
189         {
190 #ifdef WIN32_NATIVE
191           _setmode (_fileno (fp), O_BINARY);
192 #endif
193           address = 0;
194           string[0] = ' ';
195           string[17] = '\0';
196           for (;;)
197             {
198               register int i, c = 0;
199
200               for (i=0; i < 16; ++i)
201                 {
202                   if ((c = getc (fp)) == EOF)
203                     {
204                       if (!i)
205                         break;
206
207                       fputs ("  ", stdout);
208                       string[i+1] = '\0';
209                     }
210                   else
211                     {
212                       if (!i)
213                         (void) printf ("%08lx: ", address);
214
215                       if (iso_flag)
216                         string[i+1] =
217                           (c < 0x20 || (c >= 0x7F && c < 0xa0)) ? '.' :c;
218                       else
219                         string[i+1] = (c < 0x20 || c >= 0x7F) ? '.' : c;
220
221                       (void) printf ("%02x", c);
222                     }
223
224                   if ((i&group_by) == group_by)
225                     putchar (' ');
226                 }
227
228               if (i)
229                 puts (string);
230
231               if (c == EOF)
232                 break;
233
234               address += 0x10;
235
236             }
237         }
238
239       if (fp != stdin)
240         (void) fclose (fp);
241
242     } while (*argv != NULL);
243   return 0;
244 }
245
246 void
247 usage (void)
248 {
249   fprintf (stderr, "Usage: %s [-de] [-iso]\n", progname);
250   exit (1);
251 }