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