19339
|
1 /* Convert files for Emacs Hexl mode.
|
75250
|
2 Copyright (C) 1989, 2001, 2002, 2003, 2004, 2005,
|
|
3 2006, 2007 Free Software Foundation, Inc.
|
19339
|
4
|
|
5 This file is not considered part of GNU Emacs.
|
|
6
|
|
7 This program is free software; you can redistribute it and/or modify
|
|
8 it under the terms of the GNU General Public License as published by
|
78257
|
9 the Free Software Foundation; either version 3, or (at your option)
|
|
10 any later version.
|
19339
|
11
|
|
12 This program is distributed in the hope that it will be useful,
|
|
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
15 GNU General Public License for more details.
|
|
16
|
|
17 You should have received a copy of the GNU General Public License
|
78257
|
18 along with this program; see the file COPYING. If not, write to the
|
|
19 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
20 Boston, MA 02110-1301, USA. */
|
19339
|
21
|
15903
|
22 #ifdef HAVE_CONFIG_H
|
|
23 #include <config.h>
|
|
24 #endif
|
|
25
|
26
|
26 #include <stdio.h>
|
|
27 #include <ctype.h>
|
15100
|
28 #ifdef DOS_NT
|
5445
|
29 #include <fcntl.h>
|
15008
|
30 #if __DJGPP__ >= 2
|
|
31 #include <io.h>
|
|
32 #endif
|
5445
|
33 #endif
|
15100
|
34 #ifdef WINDOWSNT
|
|
35 #include <io.h>
|
|
36 #endif
|
26
|
37
|
|
38 #define DEFAULT_GROUPING 0x01
|
|
39 #define DEFAULT_BASE 16
|
|
40
|
|
41 #undef TRUE
|
|
42 #undef FALSE
|
|
43 #define TRUE (1)
|
|
44 #define FALSE (0)
|
|
45
|
|
46 int base = DEFAULT_BASE, un_flag = FALSE, iso_flag = FALSE, endian = 1;
|
|
47 int group_by = DEFAULT_GROUPING;
|
|
48 char *progname;
|
|
49
|
9491
|
50 void usage();
|
|
51
|
|
52 int
|
5445
|
53 main (argc, argv)
|
|
54 int argc;
|
|
55 char *argv[];
|
26
|
56 {
|
5445
|
57 register long address;
|
|
58 char string[18];
|
|
59 FILE *fp;
|
26
|
60
|
5445
|
61 progname = *argv++; --argc;
|
26
|
62
|
5445
|
63 /*
|
|
64 ** -hex hex dump
|
|
65 ** -oct Octal dump
|
|
66 ** -group-by-8-bits
|
|
67 ** -group-by-16-bits
|
|
68 ** -group-by-32-bits
|
|
69 ** -group-by-64-bits
|
|
70 ** -iso iso character set.
|
|
71 ** -big-endian Big Endian
|
|
72 ** -little-endian Little Endian
|
|
73 ** -un || -de from hexl format to binary.
|
|
74 ** -- End switch list.
|
|
75 ** <filename> dump filename
|
|
76 ** - (as filename == stdin)
|
|
77 */
|
42439
|
78
|
5445
|
79 while (*argv && *argv[0] == '-' && (*argv)[1])
|
26
|
80 {
|
5445
|
81 /* A switch! */
|
|
82 if (!strcmp (*argv, "--"))
|
26
|
83 {
|
5445
|
84 --argc; argv++;
|
|
85 break;
|
|
86 }
|
|
87 else if (!strcmp (*argv, "-un") || !strcmp (*argv, "-de"))
|
26
|
88 {
|
5445
|
89 un_flag = TRUE;
|
|
90 --argc; argv++;
|
|
91 }
|
|
92 else if (!strcmp (*argv, "-hex"))
|
26
|
93 {
|
5445
|
94 base = 16;
|
|
95 --argc; argv++;
|
|
96 }
|
|
97 else if (!strcmp (*argv, "-iso"))
|
26
|
98 {
|
5445
|
99 iso_flag = TRUE;
|
|
100 --argc; argv++;
|
|
101 }
|
|
102 else if (!strcmp (*argv, "-oct"))
|
26
|
103 {
|
5445
|
104 base = 8;
|
|
105 --argc; argv++;
|
|
106 }
|
|
107 else if (!strcmp (*argv, "-big-endian"))
|
26
|
108 {
|
5445
|
109 endian = 1;
|
|
110 --argc; argv++;
|
|
111 }
|
|
112 else if (!strcmp (*argv, "-little-endian"))
|
26
|
113 {
|
5445
|
114 endian = 0;
|
|
115 --argc; argv++;
|
|
116 }
|
|
117 else if (!strcmp (*argv, "-group-by-8-bits"))
|
26
|
118 {
|
5445
|
119 group_by = 0x00;
|
|
120 --argc; argv++;
|
|
121 }
|
|
122 else if (!strcmp (*argv, "-group-by-16-bits"))
|
26
|
123 {
|
5445
|
124 group_by = 0x01;
|
|
125 --argc; argv++;
|
|
126 }
|
|
127 else if (!strcmp (*argv, "-group-by-32-bits"))
|
26
|
128 {
|
5445
|
129 group_by = 0x03;
|
|
130 --argc; argv++;
|
|
131 }
|
|
132 else if (!strcmp (*argv, "-group-by-64-bits"))
|
26
|
133 {
|
5445
|
134 group_by = 0x07;
|
|
135 endian = 0;
|
|
136 --argc; argv++;
|
|
137 }
|
|
138 else
|
26
|
139 {
|
5445
|
140 fprintf (stderr, "%s: invalid switch: \"%s\".\n", progname,
|
|
141 *argv);
|
|
142 usage ();
|
26
|
143 }
|
|
144 }
|
|
145
|
5445
|
146 do
|
26
|
147 {
|
5445
|
148 if (*argv == NULL)
|
|
149 fp = stdin;
|
|
150 else
|
26
|
151 {
|
5445
|
152 char *filename = *argv++;
|
26
|
153
|
5445
|
154 if (!strcmp (filename, "-"))
|
|
155 fp = stdin;
|
|
156 else if ((fp = fopen (filename, "r")) == NULL)
|
|
157 {
|
|
158 perror (filename);
|
|
159 continue;
|
|
160 }
|
26
|
161 }
|
|
162
|
5445
|
163 if (un_flag)
|
26
|
164 {
|
5445
|
165 char buf[18];
|
26
|
166
|
15100
|
167 #ifdef DOS_NT
|
|
168 #if (__DJGPP__ >= 2) || (defined WINDOWSNT)
|
15018
|
169 if (!isatty (fileno (stdout)))
|
|
170 setmode (fileno (stdout), O_BINARY);
|
15008
|
171 #else
|
5445
|
172 (stdout)->_flag &= ~_IOTEXT; /* print binary */
|
|
173 _setmode (fileno (stdout), O_BINARY);
|
|
174 #endif
|
15008
|
175 #endif
|
5445
|
176 for (;;)
|
26
|
177 {
|
58078
|
178 register int i, c = 0, d;
|
26
|
179
|
5445
|
180 #define hexchar(x) (isdigit (x) ? x - '0' : x - 'a' + 10)
|
26
|
181
|
5445
|
182 fread (buf, 1, 10, fp); /* skip 10 bytes */
|
|
183
|
|
184 for (i=0; i < 16; ++i)
|
26
|
185 {
|
5445
|
186 if ((c = getc (fp)) == ' ' || c == EOF)
|
|
187 break;
|
26
|
188
|
5445
|
189 d = getc (fp);
|
|
190 c = hexchar (c) * 0x10 + hexchar (d);
|
|
191 putchar (c);
|
26
|
192
|
5445
|
193 if ((i&group_by) == group_by)
|
|
194 getc (fp);
|
26
|
195 }
|
|
196
|
5445
|
197 if (c == ' ')
|
26
|
198 {
|
5445
|
199 while ((c = getc (fp)) != '\n' && c != EOF)
|
|
200 ;
|
26
|
201
|
5445
|
202 if (c == EOF)
|
|
203 break;
|
26
|
204 }
|
5445
|
205 else
|
26
|
206 {
|
5445
|
207 if (i < 16)
|
|
208 break;
|
26
|
209
|
5445
|
210 fread (buf, 1, 18, fp); /* skip 18 bytes */
|
26
|
211 }
|
|
212 }
|
|
213 }
|
5445
|
214 else
|
26
|
215 {
|
15100
|
216 #ifdef DOS_NT
|
|
217 #if (__DJGPP__ >= 2) || (defined WINDOWSNT)
|
15019
|
218 if (!isatty (fileno (fp)))
|
|
219 setmode (fileno (fp), O_BINARY);
|
15008
|
220 #else
|
5445
|
221 (fp)->_flag &= ~_IOTEXT; /* read binary */
|
|
222 _setmode (fileno (fp), O_BINARY);
|
|
223 #endif
|
15008
|
224 #endif
|
5445
|
225 address = 0;
|
|
226 string[0] = ' ';
|
|
227 string[17] = '\0';
|
|
228 for (;;)
|
26
|
229 {
|
58078
|
230 register int i, c = 0;
|
26
|
231
|
5445
|
232 for (i=0; i < 16; ++i)
|
|
233 {
|
|
234 if ((c = getc (fp)) == EOF)
|
26
|
235 {
|
5445
|
236 if (!i)
|
|
237 break;
|
26
|
238
|
5445
|
239 fputs (" ", stdout);
|
|
240 string[i+1] = '\0';
|
|
241 }
|
|
242 else
|
|
243 {
|
|
244 if (!i)
|
19338
|
245 printf ("%08lx: ", address);
|
26
|
246
|
5445
|
247 if (iso_flag)
|
|
248 string[i+1] =
|
|
249 (c < 0x20 || (c >= 0x7F && c < 0xa0)) ? '.' :c;
|
|
250 else
|
|
251 string[i+1] = (c < 0x20 || c >= 0x7F) ? '.' : c;
|
|
252
|
|
253 printf ("%02x", c);
|
26
|
254 }
|
|
255
|
5445
|
256 if ((i&group_by) == group_by)
|
|
257 putchar (' ');
|
26
|
258 }
|
|
259
|
5445
|
260 if (i)
|
|
261 puts (string);
|
26
|
262
|
5445
|
263 if (c == EOF)
|
|
264 break;
|
26
|
265
|
5445
|
266 address += 0x10;
|
26
|
267
|
|
268 }
|
|
269 }
|
|
270
|
5445
|
271 if (fp != stdin)
|
|
272 fclose (fp);
|
26
|
273
|
|
274 } while (*argv != NULL);
|
55442
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
diff
changeset
|
275 return EXIT_SUCCESS;
|
26
|
276 }
|
|
277
|
9491
|
278 void
|
5445
|
279 usage ()
|
26
|
280 {
|
5445
|
281 fprintf (stderr, "usage: %s [-de] [-iso]\n", progname);
|
55442
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
diff
changeset
|
282 exit (EXIT_FAILURE);
|
26
|
283 }
|
52401
|
284
|
|
285 /* arch-tag: 20e04fb7-926e-4e48-be86-64fe869ecdaa
|
|
286 (do not change this comment) */
|
55442
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
diff
changeset
|
287
|
a47704955f8d
Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
diff
changeset
|
288 /* hexl.c ends here */
|