xref: /netbsd-src/usr.bin/hexdump/odsyntax.c (revision 2a399c6883d870daece976daec6ffa7bb7f934ce)
1 /*	$NetBSD: odsyntax.c,v 1.8 1997/10/19 02:34:09 lukem Exp $	*/
2 
3 /*-
4  * Copyright (c) 1990, 1993
5  *	The Regents of the University of California.  All rights reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. All advertising materials mentioning features or use of this software
16  *    must display the following acknowledgement:
17  *	This product includes software developed by the University of
18  *	California, Berkeley and its contributors.
19  * 4. Neither the name of the University nor the names of its contributors
20  *    may be used to endorse or promote products derived from this software
21  *    without specific prior written permission.
22  *
23  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
24  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
25  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
26  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
27  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
28  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
29  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
30  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
31  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
32  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
33  * SUCH DAMAGE.
34  */
35 
36 #include <sys/cdefs.h>
37 #ifndef lint
38 #if 0
39 static char sccsid[] = "@(#)odsyntax.c	8.2 (Berkeley) 5/4/95";
40 #else
41 __RCSID("$NetBSD: odsyntax.c,v 1.8 1997/10/19 02:34:09 lukem Exp $");
42 #endif
43 #endif /* not lint */
44 
45 #include <sys/types.h>
46 
47 #include <ctype.h>
48 #include <err.h>
49 #include <stdio.h>
50 #include <stdlib.h>
51 #include <unistd.h>
52 
53 #include "hexdump.h"
54 
55 int deprecated;
56 
57 static void odoffset __P((int, char ***));
58 static void odprecede __P((void));
59 
60 void
61 oldsyntax(argc, argvp)
62 	int argc;
63 	char ***argvp;
64 {
65 	int ch;
66 	char **argv;
67 
68 	deprecated = 1;
69 	argv = *argvp;
70 	while ((ch = getopt(argc, argv, "aBbcDdeFfHhIiLlOoPpswvXx")) != -1)
71 		switch (ch) {
72 		case 'a':
73 			odprecede();
74 			add("16/1 \"%3_u \" \"\\n\"");
75 			break;
76 		case 'B':
77 		case 'o':
78 			odprecede();
79 			add("8/2 \" %06o \" \"\\n\"");
80 			break;
81 		case 'b':
82 			odprecede();
83 			add("16/1 \"%03o \" \"\\n\"");
84 			break;
85 		case 'c':
86 			odprecede();
87 			add("16/1 \"%3_c \" \"\\n\"");
88 			break;
89 		case 'd':
90 			odprecede();
91 			add("8/2 \"  %05u \" \"\\n\"");
92 			break;
93 		case 'D':
94 			odprecede();
95 			add("4/4 \"     %010u \" \"\\n\"");
96 			break;
97 		case 'e':		/* undocumented in od */
98 		case 'F':
99 			odprecede();
100 			add("2/8 \"          %21.14e \" \"\\n\"");
101 			break;
102 
103 		case 'f':
104 			odprecede();
105 			add("4/4 \" %14.7e \" \"\\n\"");
106 			break;
107 		case 'H':
108 		case 'X':
109 			odprecede();
110 			add("4/4 \"       %08x \" \"\\n\"");
111 			break;
112 		case 'h':
113 		case 'x':
114 			odprecede();
115 			add("8/2 \"   %04x \" \"\\n\"");
116 			break;
117 		case 'I':
118 		case 'L':
119 		case 'l':
120 			odprecede();
121 			add("4/4 \"    %11d \" \"\\n\"");
122 			break;
123 		case 'i':
124 			odprecede();
125 			add("8/2 \" %6d \" \"\\n\"");
126 			break;
127 		case 'O':
128 			odprecede();
129 			add("4/4 \"    %011o \" \"\\n\"");
130 			break;
131 		case 'v':
132 			vflag = ALL;
133 			break;
134 		case 'P':
135 		case 'p':
136 		case 's':
137 		case 'w':
138 		case '?':
139 		default:
140 			warnx("od(1) has been deprecated for hexdump(1).");
141 			if (ch != '?')
142 				warnx(
143 "hexdump(1) compatibility doesn't support the -%c option%s\n",
144 				    ch, ch == 's' ? "; see strings(1)." : ".");
145 			usage();
146 		}
147 
148 	if (!fshead) {
149 		add("\"%07.7_Ao\n\"");
150 		add("\"%07.7_ao  \" 8/2 \"%06o \" \"\\n\"");
151 	}
152 
153 	argc -= optind;
154 	*argvp += optind;
155 
156 	if (argc)
157 		odoffset(argc, argvp);
158 }
159 
160 static void
161 odoffset(argc, argvp)
162 	int argc;
163 	char ***argvp;
164 {
165 	char *num, *p;
166 	int base;
167 	char *end;
168 
169 	/*
170 	 * The offset syntax of od(1) was genuinely bizarre.  First, if
171 	 * it started with a plus it had to be an offset.  Otherwise, if
172 	 * there were at least two arguments, a number or lower-case 'x'
173 	 * followed by a number makes it an offset.  By default it was
174 	 * octal; if it started with 'x' or '0x' it was hex.  If it ended
175 	 * in a '.', it was decimal.  If a 'b' or 'B' was appended, it
176 	 * multiplied the number by 512 or 1024 byte units.  There was
177 	 * no way to assign a block count to a hex offset.
178 	 *
179 	 * We assume it's a file if the offset is bad.
180 	 */
181 	p = argc == 1 ? (*argvp)[0] : (*argvp)[1];
182 	if (!p)
183 		return;
184 
185 	if (*p != '+' && (argc < 2 ||
186 	    (!isdigit(p[0]) && (p[0] != 'x' || !isxdigit(p[1])))))
187 		return;
188 
189 	base = 0;
190 	/*
191 	 * skip over leading '+', 'x[0-9a-fA-f]' or '0x', and
192 	 * set base.
193 	 */
194 	if (p[0] == '+')
195 		++p;
196 	if (p[0] == 'x' && isxdigit(p[1])) {
197 		++p;
198 		base = 16;
199 	} else if (p[0] == '0' && p[1] == 'x') {
200 		p += 2;
201 		base = 16;
202 	}
203 
204 	/* skip over the number */
205 	if (base == 16)
206 		for (num = p; isxdigit(*p); ++p);
207 	else
208 		for (num = p; isdigit(*p); ++p);
209 
210 	/* check for no number */
211 	if (num == p)
212 		return;
213 
214 	/* if terminates with a '.', base is decimal */
215 	if (*p == '.') {
216 		if (base)
217 			return;
218 		base = 10;
219 	}
220 
221 	skip = strtol(num, &end, base ? base : 8);
222 
223 	/* if end isn't the same as p, we got a non-octal digit */
224 	if (end != p) {
225 		skip = 0;
226 		return;
227 	}
228 
229 	if (*p)
230 		if (*p == 'B') {
231 			skip *= 1024;
232 			++p;
233 		} else if (*p == 'b') {
234 			skip *= 512;
235 			++p;
236 		}
237 
238 	if (*p) {
239 		skip = 0;
240 		return;
241 	}
242 
243 	/*
244 	 * If the offset uses a non-octal base, the base of the offset
245 	 * is changed as well.  This isn't pretty, but it's easy.
246 	 */
247 #define	TYPE_OFFSET	7
248 	if (base == 16) {
249 		fshead->nextfu->fmt[TYPE_OFFSET] = 'x';
250 		fshead->nextfs->nextfu->fmt[TYPE_OFFSET] = 'x';
251 	} else if (base == 10) {
252 		fshead->nextfu->fmt[TYPE_OFFSET] = 'd';
253 		fshead->nextfs->nextfu->fmt[TYPE_OFFSET] = 'd';
254 	}
255 
256 	/* Terminate file list. */
257 	(*argvp)[1] = NULL;
258 }
259 
260 static void
261 odprecede()
262 {
263 	static int first = 1;
264 
265 	if (first) {
266 		first = 0;
267 		add("\"%07.7_Ao\n\"");
268 		add("\"%07.7_ao  \"");
269 	} else
270 		add("\"         \"");
271 }
272