Commit | Line | Data |
---|---|---|
a1ab98f9 LM |
1 | /* depend: */ |
2 | /* cflags: */ | |
3 | /* linker: debug.o */ | |
4 | ||
5 | #include <assert.h> | |
6 | #include <getopt.h> | |
7 | #include <malloc.h> | |
8 | #include <stdio.h> | |
9 | #include <stdlib.h> | |
10 | #include <string.h> | |
11 | ||
12 | #include "debug.h" | |
13 | ||
14 | /* macros */ | |
15 | ||
16 | #define CEIL(x, y) (((x) + (y) - 1) / (y)) | |
17 | #define MIN(x, y) (((x) < (y)) ? (x) : (y)) | |
18 | #define MAX(x, y) (((x) > (y)) ? (x) : (y)) | |
19 | ||
20 | //#define BUFFERSIZE 4096 | |
21 | #define BUFFERSIZE 256 | |
22 | #define NBCOLS 8 | |
23 | ||
24 | /* gobal variables */ | |
25 | ||
ce305529 LM |
26 | char *buffer[BUFFERSIZE] = {0}; |
27 | FILE *fin = NULL; | |
28 | FILE *fout = NULL; | |
a1ab98f9 LM |
29 | char *progname = NULL; |
30 | ||
31 | /* help function */ | |
32 | ||
33 | void usage (int ret) | |
34 | { | |
35 | FILE *fd = ret ? stderr : stdout; | |
36 | fprintf (fd, "usage: %s [-i file] [-h] [-n nbcols] [-o file] [-v]\n", progname); | |
5272fae8 LM |
37 | fprintf (fd, " -i: input file\n"); |
38 | fprintf (fd, " -h: help message\n"); | |
39 | fprintf (fd, " -n: number of columns\n"); | |
40 | fprintf (fd, " -e: commands\n"); | |
41 | fprintf (fd, " -o: output file\n"); | |
42 | fprintf (fd, " -v: verbose level (%d)\n", verbose); | |
43 | fprintf (fd, "\n"); | |
44 | fprintf (fd, "commands: [/hstr/|0xaddr] [a hstr] [d nb|-] [i hstr] [p nb|-] [s/h1/h2/[g]]\n"); | |
45 | fprintf (fd, " 0x: move to address addr\n"); | |
46 | fprintf (fd, " //: move to hexa stringi hstr\n"); | |
47 | fprintf (fd, " a : append hexa string hstr to current address\n"); | |
48 | fprintf (fd, " d : delete nb bytes (- until end file)\n"); | |
49 | fprintf (fd, " i : insert hexa string hstr to current address\n"); | |
50 | fprintf (fd, " p : print nb bytes (- until end file)\n"); | |
51 | fprintf (fd, " s : substitute h1 by h2 (g for globally)\n"); | |
a1ab98f9 LM |
52 | |
53 | exit (ret); | |
54 | } | |
55 | ||
56 | /* get number of digits */ | |
57 | ||
58 | int getnbdigits (long int l) { | |
59 | int n = 0; | |
60 | while (l) { | |
61 | n += 2; | |
62 | l /= 256; | |
63 | } | |
64 | return n; | |
65 | } | |
66 | ||
67 | /* print a line */ | |
68 | ||
69 | void printline (char *buffer, int nbcols, int nb, int addr, int nbdigits) { | |
70 | int i; | |
71 | ||
72 | printf ("0x%0*x:", nbdigits, addr); | |
73 | for (i = 0; i < nb; i++) { | |
74 | printf (" %02x", buffer[i]); | |
75 | } | |
76 | for (i = nb; i < nbcols; i++) { | |
77 | printf (" "); | |
78 | } | |
79 | printf (" "); | |
80 | for (i = 0; i < nb; i++) { | |
81 | char c = buffer[i]; | |
82 | printf ("%c", (c > 31) && (c < 127) ? c : '.'); | |
83 | } | |
84 | printf ("\n"); | |
85 | } | |
86 | ||
ce305529 | 87 | /* write file function */ |
a1ab98f9 | 88 | |
ce305529 LM |
89 | int writefile (char *pt, int nb) { |
90 | if (fout) { | |
91 | fwrite (pt, 1, nb, fout); | |
92 | } | |
93 | return 1; | |
94 | } | |
95 | ||
96 | /* hexadecimal dump function */ | |
97 | ||
98 | int hexdump (int nbcols, int len) { | |
a1ab98f9 LM |
99 | char buffer[BUFFERSIZE] = {0}; |
100 | int i; | |
101 | ||
102 | char *pt = buffer; | |
103 | ||
104 | /* get file size */ | |
105 | int nbdigits = 0; | |
106 | if (fin != stdin) { | |
107 | fseek (fin, 0 , SEEK_END); | |
108 | long int filesize = ftell (fin); | |
109 | fseek (fin, 0 , SEEK_SET); | |
110 | nbdigits = getnbdigits (filesize); | |
111 | } else { | |
112 | nbdigits = 6; | |
113 | } | |
114 | ||
115 | int addr = 0; | |
116 | int nb = 0; | |
117 | while (!feof (fin)) { | |
5272fae8 LM |
118 | int nbtoread = BUFFERSIZE - (pt - buffer); |
119 | if ((len > 0) && (nbtoread > len)) { | |
120 | nbtoread = len; | |
121 | } | |
122 | int nbread = fread (pt, 1, nbtoread, fin); | |
123 | if (len > 0) { | |
124 | len -= nbread; | |
125 | } | |
126 | nb += nbread; | |
a1ab98f9 LM |
127 | pt = buffer; |
128 | ||
129 | /* print line */ | |
130 | while ((nb - (int)(pt - buffer)) / nbcols > 0) { | |
131 | printline (pt, nbcols, nbcols, addr, nbdigits); | |
ce305529 | 132 | writefile (pt, nbcols); |
a1ab98f9 LM |
133 | pt += nbcols; |
134 | addr += nbcols; | |
135 | } | |
136 | ||
137 | /* copy end buffer */ | |
138 | nb -= pt - buffer; | |
139 | for (i = 0; i < nb; i++) { | |
140 | buffer[i] = pt[i]; | |
141 | } | |
142 | pt = buffer + nb; | |
5272fae8 LM |
143 | |
144 | /* end partial reading */ | |
145 | if (len == 0) { | |
146 | break; | |
147 | } | |
a1ab98f9 LM |
148 | } |
149 | ||
150 | /* last line */ | |
151 | if (nb > 0) { | |
152 | printline (buffer, nbcols, nb, addr, nbdigits); | |
ce305529 | 153 | writefile (pt, nb); |
a1ab98f9 LM |
154 | } |
155 | ||
156 | return 0; | |
157 | } | |
158 | ||
159 | /* main function */ | |
160 | ||
161 | int main (int argc, char *argv[]) | |
162 | { | |
5272fae8 | 163 | int rc = 0; |
a1ab98f9 LM |
164 | char *input = NULL; |
165 | char *output = NULL; | |
166 | int nbcols = NBCOLS; | |
5272fae8 LM |
167 | char *commands = NULL; |
168 | int printlen = -1; | |
a1ab98f9 LM |
169 | |
170 | /* get basename */ | |
171 | char *pt = progname = argv[0]; | |
172 | while (*pt) { | |
173 | if ((*pt == '/') || (*pt == '\\')) { | |
174 | progname = pt + 1; | |
175 | } | |
176 | pt++; | |
177 | } | |
178 | ||
179 | int c; | |
5272fae8 | 180 | while ((c = getopt(argc, argv, "e:i:hn:o:v:")) != EOF) { |
a1ab98f9 LM |
181 | switch (c) { |
182 | case 'i': | |
183 | input = optarg; | |
184 | break; | |
5272fae8 LM |
185 | case 'e': |
186 | if (commands == NULL) { | |
187 | commands = optarg; | |
188 | } else { | |
189 | strcat (commands, " "); | |
190 | strcat (commands, optarg); | |
191 | } | |
192 | break; | |
a1ab98f9 LM |
193 | case 'n': |
194 | nbcols = atoi (optarg); | |
195 | break; | |
196 | case 'o': | |
197 | output = optarg; | |
198 | break; | |
199 | case 'v': | |
200 | verbose = atoi (optarg); | |
201 | break; | |
202 | case 'h': | |
203 | default: | |
204 | usage (c != 'h'); | |
205 | } | |
206 | } | |
207 | if (argc - optind != 0) { | |
208 | fprintf (stderr, "%s: invalid option -- %s\n", progname, argv[optind]); | |
209 | usage (1); | |
210 | } | |
211 | ||
212 | /* check input */ | |
a1ab98f9 LM |
213 | if (input) { |
214 | fin = fopen (input, "rb"); | |
215 | if (!fin) { | |
216 | VERBOSE (ERROR, fprintf (stderr, "error: can't open file '%s'\n", input)); | |
5272fae8 | 217 | return 1; |
a1ab98f9 LM |
218 | } |
219 | } else { | |
220 | fin = stdin; | |
221 | } | |
222 | ||
223 | /* check output */ | |
a1ab98f9 | 224 | if (output) { |
ce305529 | 225 | fout = fopen (output, "wb"); |
a1ab98f9 LM |
226 | if (!fout) { |
227 | VERBOSE (ERROR, fprintf (stderr, "error: can't open file '%s'\n", output)); | |
228 | fclose (fin); | |
5272fae8 | 229 | return 1; |
a1ab98f9 LM |
230 | } |
231 | } else { | |
ce305529 | 232 | //fout = stdout; |
a1ab98f9 LM |
233 | } |
234 | ||
5272fae8 | 235 | if (commands == NULL) { |
ce305529 | 236 | hexdump (nbcols, -1); |
5272fae8 LM |
237 | } else { |
238 | VERBOSE (DEBUG, printf ("commands: %s\n", commands)); | |
239 | while ((*commands != '\0') && (rc == 0)) { | |
240 | switch (*commands++) { | |
241 | case ' ': | |
242 | case '\t': | |
243 | break; | |
244 | ||
245 | case '/': /* read patern */ | |
246 | break; | |
247 | ||
248 | case '0': /* read address */ | |
249 | break; | |
250 | ||
251 | case 'a': /* append mode */ | |
252 | break; | |
253 | ||
254 | case 'd': /* delete mode */ | |
255 | break; | |
256 | ||
257 | case 'i': /* insert mode */ | |
258 | break; | |
259 | ||
260 | case 'p': /* print mode */ | |
261 | printlen = -1; | |
262 | while (*commands != '\0') { | |
263 | if ((*commands == ' ') || (*commands == '\t')) { | |
264 | commands++; | |
265 | } else if ((*commands >= '0') && (*commands <= '9')) { | |
266 | printlen = strtol (commands, &commands, 10); | |
267 | break; | |
268 | } else if (*commands == '-') { | |
269 | printlen = -1; | |
270 | commands++; | |
271 | break; | |
272 | } else { | |
273 | VERBOSE (ERROR, fprintf (stderr, "unkown print lenght (%s)\n", commands)); | |
274 | rc = 1; | |
275 | break; | |
276 | } | |
277 | } | |
ce305529 | 278 | if (rc == 0) hexdump (nbcols, printlen); |
5272fae8 LM |
279 | break; |
280 | ||
281 | case 's': /* substitute mode */ | |
282 | break; | |
283 | ||
284 | default: | |
285 | VERBOSE (ERROR, fprintf (stderr, "unknown command (%c)\n", commands[-1])); | |
286 | rc = 1; | |
287 | } | |
288 | } | |
289 | } | |
a1ab98f9 | 290 | |
ce305529 LM |
291 | /* end of file */ |
292 | if ((rc == 0) && (fout != NULL)) { | |
293 | while (!feof (fin)) { | |
294 | int nbread = fread (buffer, 1, BUFFERSIZE, fin); | |
295 | if (nbread) { | |
296 | fwrite (buffer, 1, nbread, fout); | |
297 | } | |
298 | } | |
299 | } | |
300 | ||
a1ab98f9 | 301 | /* close all */ |
5272fae8 LM |
302 | if (fin) fclose (fin); |
303 | if (fout) fclose (fout); | |
a1ab98f9 | 304 | |
5272fae8 | 305 | return rc; |
a1ab98f9 LM |
306 | } |
307 | ||
308 | // test: hexdump.exe -h | |
309 | // test: hexdump.exe -h | awk '/usage:/ { rc=1 } END { exit (1-rc) }' | |
310 | // test: hexdump.exe -_ 2> /dev/null | awk 'END { if (NR == 0) { exit(0) } else exit (1) }' | |
311 | // test: hexdump.exe -_ 2>&1 | awk '/usage:/ { rc=1 } END { exit (1-rc) }' | |
312 | // test: hexdump.exe -i hexdump.c | grep -q '0x[0-9a-f]*: ' | |
ce305529 LM |
313 | // test: hexdump.exe -i hexdump.c -n 3 | head -2 | tail -1 | grep -q '0x0003: 64 65 70 dep' |
314 | // test: hexdump.exe -i hexdump.c -o test.c -e 'p 200' | tail -1 | grep -q '0x00c0:' | |
315 | // test: cmp hexdump.c test.c | |
316 | // test: rm test.c | |
a1ab98f9 LM |
317 | |
318 | /* vim: set ts=4 sw=4 et: */ |