Add __P in dcl of format_address function.
[platform/upstream/coreutils.git] / src / od.c
1 /* od -- dump files in octal and other formats
2    Copyright (C) 1992, 1995 Free Software Foundation, Inc.
3
4    This program is free software; you can redistribute it and/or modify
5    it under the terms of the GNU General Public License as published by
6    the Free Software Foundation; either version 2, or (at your option)
7    any later version.
8
9    This program is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12    GNU General Public License for more details.
13
14    You should have received a copy of the GNU General Public License
15    along with this program; if not, write to the Free Software Foundation,
16    Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
17
18 /* Written by Jim Meyering.  */
19
20 /* AIX requires this to be the first thing in the file.  */
21 #include <config.h>
22
23 #ifdef __GNUC__
24 #define alloca __builtin_alloca
25 #else /* not __GNUC__ */
26 #if HAVE_ALLOCA_H
27 #include <alloca.h>
28 #else /* not HAVE_ALLOCA_H */
29 #ifdef _AIX
30  #pragma alloca
31 #else /* not _AIX */
32 char *alloca ();
33 #endif /* not _AIX */
34 #endif /* not HAVE_ALLOCA_H */
35 #endif /* not __GNUC__ */
36
37 #include <stdio.h>
38 #include <assert.h>
39 #include <getopt.h>
40 #include <sys/types.h>
41 #include "system.h"
42 #include "version.h"
43 #include "xstrtoul.h"
44 #include "error.h"
45
46 #if defined(__GNUC__) || defined(STDC_HEADERS)
47 #include <float.h>
48 #endif
49
50 #ifdef HAVE_LONG_DOUBLE
51 typedef long double LONG_DOUBLE;
52 #else
53 typedef double LONG_DOUBLE;
54 #endif
55
56 #if HAVE_LIMITS_H
57 # include <limits.h>
58 #endif
59 #ifndef SCHAR_MAX
60 # define SCHAR_MAX 127
61 #endif
62 #ifndef SCHAR_MIN
63 # define SCHAR_MIN (-128)
64 #endif
65 #ifndef SHRT_MAX
66 # define SHRT_MAX 32767
67 #endif
68 #ifndef SHRT_MIN
69 # define SHRT_MIN (-32768)
70 #endif
71 #ifndef ULONG_MAX
72 # define ULONG_MAX ((unsigned long) ~(unsigned long) 0)
73 #endif
74 #ifndef OFF_T_MAX
75 /* FIXME: is there a way to do this without relying on the
76    `8 bits per byte' assumption?  */
77 # define OFF_T_MAX (~((off_t)1 << (sizeof (off_t) * 8 - 1)))
78 #endif
79
80 #define STREQ(a,b) (strcmp((a), (b)) == 0)
81
82 #ifndef MAX
83 # define MAX(a, b) ((a) > (b) ? (a) : (b))
84 #endif
85
86 #ifndef MIN
87 # define MIN(a,b) (((a) < (b)) ? (a) : (b))
88 #endif
89
90 /* The default number of input bytes per output line.  */
91 #define DEFAULT_BYTES_PER_BLOCK 16
92
93 /* The number of decimal digits of precision in a float.  */
94 #ifndef FLT_DIG
95 # define FLT_DIG 7
96 #endif
97
98 /* The number of decimal digits of precision in a double.  */
99 #ifndef DBL_DIG
100 # define DBL_DIG 15
101 #endif
102
103 /* The number of decimal digits of precision in a long double.  */
104 #ifndef LDBL_DIG
105 # define LDBL_DIG DBL_DIG
106 #endif
107
108 char *xmalloc ();
109 char *xrealloc ();
110
111 enum size_spec
112   {
113     NO_SIZE,
114     CHAR,
115     SHORT,
116     INT,
117     LONG,
118     FLOAT_SINGLE,
119     FLOAT_DOUBLE,
120     FLOAT_LONG_DOUBLE
121   };
122
123 enum output_format
124   {
125     SIGNED_DECIMAL,
126     UNSIGNED_DECIMAL,
127     OCTAL,
128     HEXADECIMAL,
129     FLOATING_POINT,
130     NAMED_CHARACTER,
131     CHARACTER
132   };
133
134 /* Each output format specification (from POSIX `-t spec' or from
135    old-style options) is represented by one of these structures.  */
136 struct tspec
137   {
138     enum output_format fmt;
139     enum size_spec size;
140     void (*print_function) ();
141     char *fmt_string;
142   };
143
144 /* The name this program was run with.  */
145 char *program_name;
146
147 /* Convert the number of 8-bit bytes of a binary representation to
148    the number of characters (digits + sign if the type is signed)
149    required to represent the same quantity in the specified base/type.
150    For example, a 32-bit (4-byte) quantity may require a field width
151    as wide as the following for these types:
152    11   unsigned octal
153    11   signed decimal
154    10   unsigned decimal
155    8    unsigned hexadecimal  */
156
157 static const unsigned int bytes_to_oct_digits[] =
158 {0, 3, 6, 8, 11, 14, 16, 19, 22, 25, 27, 30, 32, 35, 38, 41, 43};
159
160 static const unsigned int bytes_to_signed_dec_digits[] =
161 {1, 4, 6, 8, 11, 13, 16, 18, 20, 23, 25, 28, 30, 33, 35, 37, 40};
162
163 static const unsigned int bytes_to_unsigned_dec_digits[] =
164 {0, 3, 5, 8, 10, 13, 15, 17, 20, 22, 25, 27, 29, 32, 34, 37, 39};
165
166 static const unsigned int bytes_to_hex_digits[] =
167 {0, 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32};
168
169 /* Convert enum size_spec to the size of the named type.  */
170 static const int width_bytes[] =
171 {
172   -1,
173   sizeof (char),
174   sizeof (short int),
175   sizeof (int),
176   sizeof (long int),
177   sizeof (float),
178   sizeof (double),
179   sizeof (LONG_DOUBLE)
180 };
181
182 /* Names for some non-printing characters.  */
183 static const char *const charname[33] =
184 {
185   "nul", "soh", "stx", "etx", "eot", "enq", "ack", "bel",
186   "bs", "ht", "nl", "vt", "ff", "cr", "so", "si",
187   "dle", "dc1", "dc2", "dc3", "dc4", "nak", "syn", "etb",
188   "can", "em", "sub", "esc", "fs", "gs", "rs", "us",
189   "sp"
190 };
191
192 /* A printf control string for printing a file offset.  */
193 static const char *output_address_fmt_string;
194
195 /* FIXME: make this the number of octal digits in an unsigned long.  */
196 #define MAX_ADDRESS_LENGTH 13
197
198 /* Space for a normal address, a space, a pseudo address, parentheses
199    around the pseudo address, and a trailing zero byte. */
200 static char address_fmt_buffer[2 * MAX_ADDRESS_LENGTH + 4];
201 static char address_pad[MAX_ADDRESS_LENGTH + 1];
202
203 static unsigned long int string_min;
204 static unsigned long int flag_dump_strings;
205
206 /* Non-zero if we should recognize the pre-POSIX non-option arguments
207    that specified at most one file and optional arguments specifying
208    offset and pseudo-start address.  */
209 static int traditional;
210
211 /* Non-zero if an old-style `pseudo-address' was specified.  */
212 static long int flag_pseudo_start;
213
214 /* The difference between the old-style pseudo starting address and
215    the number of bytes to skip.  */
216 static long int pseudo_offset;
217
218 /* Function to format an address and optionally an additional parenthesized
219    pseudo-address; it returns the formatted string.  */
220 static const char *(*format_address) (__P (long unsigned int));
221
222 /* The number of input bytes to skip before formatting and writing.  */
223 static off_t n_bytes_to_skip = 0;
224
225 /* When non-zero, MAX_BYTES_TO_FORMAT is the maximum number of bytes
226    to be read and formatted.  Otherwise all input is formatted.  */
227 static int limit_bytes_to_format = 0;
228
229 /* The maximum number of bytes that will be formatted.  This
230    value is used only when LIMIT_BYTES_TO_FORMAT is non-zero.  */
231 static off_t max_bytes_to_format;
232
233 /* When non-zero and two or more consecutive blocks are equal, format
234    only the first block and output an asterisk alone on the following
235    line to indicate that identical blocks have been elided.  */
236 static int abbreviate_duplicate_blocks = 1;
237
238 /* An array of specs describing how to format each input block.  */
239 static struct tspec *spec;
240
241 /* The number of format specs.  */
242 static unsigned int n_specs;
243
244 /* The allocated length of SPEC.  */
245 static unsigned int n_specs_allocated;
246
247 /* The number of input bytes formatted per output line.  It must be
248    a multiple of the least common multiple of the sizes associated with
249    the specified output types.  It should be as large as possible, but
250    no larger than 16 -- unless specified with the -w option.  */
251 static unsigned int bytes_per_block;
252
253 /* Human-readable representation of *file_list (for error messages).
254    It differs from *file_list only when *file_list is "-".  */
255 static char const *input_filename;
256
257 /* A NULL-terminated list of the file-arguments from the command line.
258    If no file-arguments were specified, this variable is initialized
259    to { "-", NULL }.  */
260 static char const *const *file_list;
261
262 /* The input stream associated with the current file.  */
263 static FILE *in_stream;
264
265 /* If non-zero, at least one of the files we read was standard input.  */
266 static int have_read_stdin;
267
268 #define LONGEST_INTEGRAL_TYPE long int
269
270 #define MAX_INTEGRAL_TYPE_SIZE sizeof(LONGEST_INTEGRAL_TYPE)
271 static enum size_spec integral_type_size[MAX_INTEGRAL_TYPE_SIZE + 1];
272
273 #define MAX_FP_TYPE_SIZE sizeof(LONG_DOUBLE)
274 static enum size_spec fp_type_size[MAX_FP_TYPE_SIZE + 1];
275
276 /* If non-zero, display usage information and exit.  */
277 static int show_help;
278
279 /* If non-zero, print the version on standard output then exit.  */
280 static int show_version;
281
282 static struct option const long_options[] =
283 {
284   /* POSIX options.  */
285   {"skip-bytes", required_argument, NULL, 'j'},
286   {"address-radix", required_argument, NULL, 'A'},
287   {"read-bytes", required_argument, NULL, 'N'},
288   {"format", required_argument, NULL, 't'},
289   {"output-duplicates", no_argument, NULL, 'v'},
290
291   /* non-POSIX options.  */
292   {"strings", optional_argument, NULL, 's'},
293   {"traditional", no_argument, NULL, 'B'},
294   {"width", optional_argument, NULL, 'w'},
295   {"help", no_argument, &show_help, 1},
296   {"version", no_argument, &show_version, 1},
297   {NULL, 0, NULL, 0}
298 };
299
300 static void
301 usage (int status)
302 {
303   if (status != 0)
304     fprintf (stderr, _("Try `%s --help' for more information.\n"),
305              program_name);
306   else
307     {
308       printf (_("\
309 Usage: %s [OPTION]... [FILE]...\n\
310   or:  %s --traditional [FILE] [[+]OFFSET [[+]LABEL]]\n\
311 "),
312               program_name, program_name);
313       printf (_("\
314 Write an unambiguous representation, octal bytes by default, of FILE\n\
315 to standard output.  With no FILE, or when FILE is -, read standard input.\n\
316 \n\
317   -A, --address-radix=RADIX   decide how file offsets are printed\n\
318   -N, --read-bytes=BYTES      limit dump to BYTES input bytes per file\n\
319   -j, --skip-bytes=BYTES      skip BYTES input bytes first on each file\n\
320   -s, --strings[=BYTES]       output strings of at least BYTES graphic chars\n\
321   -t, --format=TYPE           select output format or formats\n\
322   -v, --output-duplicates     do not use * to mark line suppression\n\
323   -w, --width[=BYTES]         output BYTES bytes per output line\n\
324       --traditional           accept arguments in pre-POSIX form\n\
325       --help                  display this help and exit\n\
326       --version               output version information and exit\n\
327 \n\
328 Pre-POSIX format specifications may be intermixed, they accumulate:\n\
329   -a   same as -t a,  select named characters\n\
330   -b   same as -t oC, select octal bytes\n\
331   -c   same as -t c,  select ASCII characters or backslash escapes\n\
332   -d   same as -t u2, select unsigned decimal shorts\n\
333   -f   same as -t fF, select floats\n\
334   -h   same as -t x2, select hexadecimal shorts\n\
335   -i   same as -t d2, select decimal shorts\n\
336   -l   same as -t d4, select decimal longs\n\
337   -o   same as -t o2, select octal shorts\n\
338   -x   same as -t x2, select hexadecimal shorts\n\
339 "));
340       printf (_("\
341 \n\
342 For older syntax (second call format), OFFSET means -j OFFSET.  LABEL\n\
343 is the pseudo-address at first byte printed, incremented when dump is\n\
344 progressing.  For OFFSET and LABEL, a 0x or 0X prefix indicates\n\
345 hexadecimal, suffixes maybe . for octal and b multiply by 512.\n\
346 \n\
347 TYPE is made up of one or more of these specifications:\n\
348 \n\
349   a          named character\n\
350   c          ASCII character or backslash escape\n\
351   d[SIZE]    signed decimal, SIZE bytes per integer\n\
352   f[SIZE]    floating point, SIZE bytes per integer\n\
353   o[SIZE]    octal, SIZE bytes per integer\n\
354   u[SIZE]    unsigned decimal, SIZE bytes per integer\n\
355   x[SIZE]    hexadecimal, SIZE bytes per integer\n\
356 \n\
357 SIZE is a number.  For TYPE in doux, SIZE may also be C for\n\
358 sizeof(char), S for sizeof(short), I for sizeof(int) or L for\n\
359 sizeof(long).  If TYPE is f, SIZE may also be F for sizeof(float), D\n\
360 for sizeof(double) or L for sizeof(long double).\n\
361 \n\
362 RADIX is d for decimal, o for octal, x for hexadecimal or n for none.\n\
363 BYTES is hexadecimal with 0x or 0X prefix, it is multiplied by 512\n\
364 with b suffix, by 1024 with k and by 1048576 with m.  -s without a\n\
365 number implies 3.  -w without a number implies 32.  By default, od\n\
366 uses -A o -t d2 -w 16.\n\
367 "));
368     }
369   exit (status);
370 }
371
372 /* Compute the greatest common denominator of U and V
373    using Euclid's algorithm.  */
374
375 static unsigned int
376 gcd (unsigned int u, unsigned int v)
377 {
378   unsigned int t;
379   while (v != 0)
380     {
381       t = u % v;
382       u = v;
383       v = t;
384     }
385   return u;
386 }
387
388 /* Compute the least common multiple of U and V.  */
389
390 static unsigned int
391 lcm (unsigned int u, unsigned int v)
392 {
393   unsigned int t = gcd (u, v);
394   if (t == 0)
395     return 0;
396   return u * v / t;
397 }
398
399 static void
400 print_s_char (long unsigned int n_bytes, const char *block,
401               const char *fmt_string)
402 {
403   int i;
404   for (i = n_bytes; i > 0; i--)
405     {
406       int tmp = (unsigned) *(const unsigned char *) block;
407       if (tmp > SCHAR_MAX)
408         tmp -= SCHAR_MAX - SCHAR_MIN + 1;
409       assert (tmp <= SCHAR_MAX);
410       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
411       block += sizeof (unsigned char);
412     }
413 }
414
415 static void
416 print_char (long unsigned int n_bytes, const char *block,
417             const char *fmt_string)
418 {
419   int i;
420   for (i = n_bytes; i > 0; i--)
421     {
422       unsigned int tmp = *(const unsigned char *) block;
423       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
424       block += sizeof (unsigned char);
425     }
426 }
427
428 static void
429 print_s_short (long unsigned int n_bytes, const char *block,
430                const char *fmt_string)
431 {
432   int i;
433   for (i = n_bytes / sizeof (unsigned short); i > 0; i--)
434     {
435       int tmp = (unsigned) *(const unsigned short *) block;
436       if (tmp > SHRT_MAX)
437         tmp -= SHRT_MAX - SHRT_MIN + 1;
438       assert (tmp <= SHRT_MAX);
439       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
440       block += sizeof (unsigned short);
441     }
442 }
443 static void
444 print_short (long unsigned int n_bytes, const char *block,
445              const char *fmt_string)
446 {
447   int i;
448   for (i = n_bytes / sizeof (unsigned short); i > 0; i--)
449     {
450       unsigned int tmp = *(const unsigned short *) block;
451       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
452       block += sizeof (unsigned short);
453     }
454 }
455
456 static void
457 print_int (long unsigned int n_bytes, const char *block,
458            const char *fmt_string)
459 {
460   int i;
461   for (i = n_bytes / sizeof (unsigned int); i > 0; i--)
462     {
463       unsigned int tmp = *(const unsigned int *) block;
464       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
465       block += sizeof (unsigned int);
466     }
467 }
468
469 static void
470 print_long (long unsigned int n_bytes, const char *block,
471             const char *fmt_string)
472 {
473   int i;
474   for (i = n_bytes / sizeof (unsigned long); i > 0; i--)
475     {
476       unsigned long tmp = *(const unsigned long *) block;
477       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
478       block += sizeof (unsigned long);
479     }
480 }
481
482 static void
483 print_float (long unsigned int n_bytes, const char *block,
484              const char *fmt_string)
485 {
486   int i;
487   for (i = n_bytes / sizeof (float); i > 0; i--)
488     {
489       float tmp = *(const float *) block;
490       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
491       block += sizeof (float);
492     }
493 }
494
495 static void
496 print_double (long unsigned int n_bytes, const char *block,
497               const char *fmt_string)
498 {
499   int i;
500   for (i = n_bytes / sizeof (double); i > 0; i--)
501     {
502       double tmp = *(const double *) block;
503       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
504       block += sizeof (double);
505     }
506 }
507
508 #ifdef HAVE_LONG_DOUBLE
509 static void
510 print_long_double (long unsigned int n_bytes, const char *block,
511                    const char *fmt_string)
512 {
513   int i;
514   for (i = n_bytes / sizeof (LONG_DOUBLE); i > 0; i--)
515     {
516       LONG_DOUBLE tmp = *(const LONG_DOUBLE *) block;
517       printf (fmt_string, tmp, (i == 1 ? '\n' : ' '));
518       block += sizeof (LONG_DOUBLE);
519     }
520 }
521
522 #endif
523
524 static void
525 print_named_ascii (long unsigned int n_bytes, const char *block,
526                    const char *unused_fmt_string)
527 {
528   int i;
529   for (i = n_bytes; i > 0; i--)
530     {
531       unsigned int c = *(const unsigned char *) block;
532       unsigned int masked_c = (0x7f & c);
533       const char *s;
534       char buf[5];
535
536       if (masked_c == 127)
537         s = "del";
538       else if (masked_c <= 040)
539         s = charname[masked_c];
540       else
541         {
542           sprintf (buf, "  %c", masked_c);
543           s = buf;
544         }
545
546       printf ("%3s%c", s, (i == 1 ? '\n' : ' '));
547       block += sizeof (unsigned char);
548     }
549 }
550
551 static void
552 print_ascii (long unsigned int n_bytes, const char *block,
553              const char *unused_fmt_string)
554 {
555   int i;
556   for (i = n_bytes; i > 0; i--)
557     {
558       unsigned int c = *(const unsigned char *) block;
559       const char *s;
560       char buf[5];
561
562       switch (c)
563         {
564         case '\0':
565           s = " \\0";
566           break;
567
568         case '\007':
569           s = " \\a";
570           break;
571
572         case '\b':
573           s = " \\b";
574           break;
575
576         case '\f':
577           s = " \\f";
578           break;
579
580         case '\n':
581           s = " \\n";
582           break;
583
584         case '\r':
585           s = " \\r";
586           break;
587
588         case '\t':
589           s = " \\t";
590           break;
591
592         case '\v':
593           s = " \\v";
594           break;
595
596         default:
597           sprintf (buf, (ISPRINT (c) ? "  %c" : "%03o"), c);
598           s = (const char *) buf;
599         }
600
601       printf ("%3s%c", s, (i == 1 ? '\n' : ' '));
602       block += sizeof (unsigned char);
603     }
604 }
605
606 /* Convert a null-terminated (possibly zero-length) string S to an
607    unsigned long integer value.  If S points to a non-digit set *P to S,
608    *VAL to 0, and return 0.  Otherwise, accumulate the integer value of
609    the string of digits.  If the string of digits represents a value
610    larger than ULONG_MAX, don't modify *VAL or *P and return non-zero.
611    Otherwise, advance *P to the first non-digit after S, set *VAL to
612    the result of the conversion and return zero.  */
613
614 static int
615 simple_strtoul (const char *s, const char **p, long unsigned int *val)
616 {
617   unsigned long int sum;
618
619   sum = 0;
620   while (ISDIGIT (*s))
621     {
622       unsigned int c = *s++ - '0';
623       if (sum > (ULONG_MAX - c) / 10)
624         return 1;
625       sum = sum * 10 + c;
626     }
627   *p = s;
628   *val = sum;
629   return 0;
630 }
631
632 /* If S points to a single valid POSIX-style od format string, put a
633    description of that format in *TSPEC, make *NEXT point at the character
634    following the just-decoded format (if *NEXT is non-NULL), and return
635    zero.  If S is not valid, don't modify *NEXT or *TSPEC and return
636    non-zero.  For example, if S were "d4afL" *NEXT would be set to "afL"
637    and *TSPEC would be
638      {
639        fmt = SIGNED_DECIMAL;
640        size = INT or LONG; (whichever integral_type_size[4] resolves to)
641        print_function = print_int; (assuming size == INT)
642        fmt_string = "%011d%c";
643       }
644    */
645
646 static int
647 decode_one_format (const char *s, const char **next, struct tspec *tspec)
648 {
649   enum size_spec size_spec;
650   unsigned long int size;
651   enum output_format fmt;
652   const char *pre_fmt_string;
653   char *fmt_string;
654   void (*print_function) ();
655   const char *p;
656   unsigned int c;
657
658   assert (tspec != NULL);
659
660   switch (*s)
661     {
662     case 'd':
663     case 'o':
664     case 'u':
665     case 'x':
666       c = *s;
667       ++s;
668       switch (*s)
669         {
670         case 'C':
671           ++s;
672           size = sizeof (char);
673           break;
674
675         case 'S':
676           ++s;
677           size = sizeof (short);
678           break;
679
680         case 'I':
681           ++s;
682           size = sizeof (int);
683           break;
684
685         case 'L':
686           ++s;
687           size = sizeof (long int);
688           break;
689
690         default:
691           if (simple_strtoul (s, &p, &size) != 0)
692             return 1;
693           if (p == s)
694             size = sizeof (int);
695           else
696             {
697               if (size > MAX_INTEGRAL_TYPE_SIZE
698                   || integral_type_size[size] == NO_SIZE)
699                 return 1;
700               s = p;
701             }
702           break;
703         }
704
705 #define FMT_BYTES_ALLOCATED 9
706       fmt_string = xmalloc (FMT_BYTES_ALLOCATED);
707
708       size_spec = integral_type_size[size];
709
710       switch (c)
711         {
712         case 'd':
713           fmt = SIGNED_DECIMAL;
714           sprintf (fmt_string, "%%%u%sd%%c",
715                    bytes_to_signed_dec_digits[size],
716                    (size_spec == LONG ? "l" : ""));
717           break;
718
719         case 'o':
720           fmt = OCTAL;
721           sprintf (fmt_string, "%%0%u%so%%c",
722                    bytes_to_oct_digits[size],
723                    (size_spec == LONG ? "l" : ""));
724           break;
725
726         case 'u':
727           fmt = UNSIGNED_DECIMAL;
728           sprintf (fmt_string, "%%%u%su%%c",
729                    bytes_to_unsigned_dec_digits[size],
730                    (size_spec == LONG ? "l" : ""));
731           break;
732
733         case 'x':
734           fmt = HEXADECIMAL;
735           sprintf (fmt_string, "%%0%u%sx%%c",
736                    bytes_to_hex_digits[size],
737                    (size_spec == LONG ? "l" : ""));
738           break;
739
740         default:
741           abort ();
742         }
743
744       assert (strlen (fmt_string) < FMT_BYTES_ALLOCATED);
745
746       switch (size_spec)
747         {
748         case CHAR:
749           print_function = (fmt == SIGNED_DECIMAL
750                             ? print_s_char
751                             : print_char);
752           break;
753
754         case SHORT:
755           print_function = (fmt == SIGNED_DECIMAL
756                             ? print_s_short
757                             : print_short);
758           break;
759
760         case INT:
761           print_function = print_int;
762           break;
763
764         case LONG:
765           print_function = print_long;
766           break;
767
768         default:
769           abort ();
770         }
771       break;
772
773     case 'f':
774       fmt = FLOATING_POINT;
775       ++s;
776       switch (*s)
777         {
778         case 'F':
779           ++s;
780           size = sizeof (float);
781           break;
782
783         case 'D':
784           ++s;
785           size = sizeof (double);
786           break;
787
788         case 'L':
789           ++s;
790           size = sizeof (LONG_DOUBLE);
791           break;
792
793         default:
794           if (simple_strtoul (s, &p, &size) != 0)
795             return 1;
796           if (p == s)
797             size = sizeof (double);
798           else
799             {
800               if (size > MAX_FP_TYPE_SIZE
801                   || fp_type_size[size] == NO_SIZE)
802                 return 1;
803               s = p;
804             }
805           break;
806         }
807       size_spec = fp_type_size[size];
808
809       switch (size_spec)
810         {
811         case FLOAT_SINGLE:
812           print_function = print_float;
813           /* Don't use %#e; not all systems support it.  */
814           pre_fmt_string = "%%%d.%de%%c";
815           fmt_string = xmalloc (strlen (pre_fmt_string));
816           sprintf (fmt_string, pre_fmt_string,
817                    FLT_DIG + 8, FLT_DIG);
818           break;
819
820         case FLOAT_DOUBLE:
821           print_function = print_double;
822           pre_fmt_string = "%%%d.%de%%c";
823           fmt_string = xmalloc (strlen (pre_fmt_string));
824           sprintf (fmt_string, pre_fmt_string,
825                    DBL_DIG + 8, DBL_DIG);
826           break;
827
828 #ifdef HAVE_LONG_DOUBLE
829         case FLOAT_LONG_DOUBLE:
830           print_function = print_long_double;
831           pre_fmt_string = "%%%d.%dle%%c";
832           fmt_string = xmalloc (strlen (pre_fmt_string));
833           sprintf (fmt_string, pre_fmt_string,
834                    LDBL_DIG + 8, LDBL_DIG);
835           break;
836 #endif
837
838         default:
839           abort ();
840         }
841       break;
842
843     case 'a':
844       ++s;
845       fmt = NAMED_CHARACTER;
846       size_spec = CHAR;
847       fmt_string = NULL;
848       print_function = print_named_ascii;
849       break;
850
851     case 'c':
852       ++s;
853       fmt = CHARACTER;
854       size_spec = CHAR;
855       fmt_string = NULL;
856       print_function = print_ascii;
857       break;
858
859     default:
860       return 1;
861     }
862
863   tspec->size = size_spec;
864   tspec->fmt = fmt;
865   tspec->print_function = print_function;
866   tspec->fmt_string = fmt_string;
867
868   if (next != NULL)
869     *next = s;
870
871   return 0;
872 }
873
874 /* Decode the POSIX-style od format string S.  Append the decoded
875    representation to the global array SPEC, reallocating SPEC if
876    necessary.  Return zero if S is valid, non-zero otherwise.  */
877
878 static int
879 decode_format_string (const char *s)
880 {
881   assert (s != NULL);
882
883   while (*s != '\0')
884     {
885       struct tspec tspec;
886       const char *next;
887
888       if (decode_one_format (s, &next, &tspec))
889         return 1;
890
891       assert (s != next);
892       s = next;
893
894       if (n_specs >= n_specs_allocated)
895         {
896           n_specs_allocated = 1 + (3 * n_specs_allocated) / 2;
897           spec = (struct tspec *) xrealloc (spec, (n_specs_allocated
898                                                    * sizeof (struct tspec)));
899         }
900
901       memcpy ((char *) &spec[n_specs], (char *) &tspec, sizeof (struct tspec));
902       ++n_specs;
903     }
904
905   return 0;
906 }
907
908 /* Given a list of one or more input filenames FILE_LIST, set the global
909    file pointer IN_STREAM to position N_SKIP in the concatenation of
910    those files.  If any file operation fails or if there are fewer than
911    N_SKIP bytes in the combined input, give an error message and return
912    non-zero.  When possible, use seek- rather than read operations to
913    advance IN_STREAM.  A file name of "-" is interpreted as standard
914    input.  */
915
916 static int
917 skip (off_t n_skip)
918 {
919   int err;
920
921   err = 0;
922   for ( /* empty */ ; *file_list != NULL; ++file_list)
923     {
924       struct stat file_stats;
925       int j;
926
927       if (STREQ (*file_list, "-"))
928         {
929           input_filename = _("standard input");
930           in_stream = stdin;
931           have_read_stdin = 1;
932         }
933       else
934         {
935           input_filename = *file_list;
936           in_stream = fopen (input_filename, "r");
937           if (in_stream == NULL)
938             {
939               error (0, errno, "%s", input_filename);
940               err = 1;
941               continue;
942             }
943         }
944
945       if (n_skip == 0)
946         break;
947
948       /* First try using fseek.  For large offsets, this extra work is
949          worthwhile.  If the offset is below some threshold it may be
950          more efficient to move the pointer by reading.  There are two
951          issues when trying to use fseek:
952            - the file must be seekable.
953            - before seeking to the specified position, make sure
954              that the new position is in the current file.
955              Try to do that by getting file's size using fstat().
956              But that will work only for regular files and dirs.  */
957
958       if (fstat (fileno (in_stream), &file_stats))
959         {
960           error (0, errno, "%s", input_filename);
961           err = 1;
962           continue;
963         }
964
965       /* The st_size field is valid only for regular files and
966          directories.  FIXME: is the preceding true?
967          If the number of bytes left to skip is at least as large as
968          the size of the current file, we can decrement
969          n_skip and go on to the next file.  */
970       if (S_ISREG (file_stats.st_mode) || S_ISDIR (file_stats.st_mode))
971         {
972           if (n_skip >= file_stats.st_size)
973             {
974               n_skip -= file_stats.st_size;
975               if (in_stream != stdin && fclose (in_stream) == EOF)
976                 {
977                   error (0, errno, "%s", input_filename);
978                   err = 1;
979                 }
980               continue;
981             }
982           else
983             {
984               if (fseek (in_stream, n_skip, SEEK_SET) == 0)
985                 {
986                   n_skip = 0;
987                   break;
988                 }
989             }
990         }
991
992       /* fseek didn't work or wasn't attempted; do it the slow way.  */
993
994       for (j = n_skip / BUFSIZ; j >= 0; j--)
995         {
996           char buf[BUFSIZ];
997           size_t n_bytes_to_read = (j > 0
998                                     ? BUFSIZ
999                                     : n_skip % BUFSIZ);
1000           size_t n_bytes_read;
1001           n_bytes_read = fread (buf, 1, n_bytes_to_read, in_stream);
1002           n_skip -= n_bytes_read;
1003           if (n_bytes_read != n_bytes_to_read)
1004             break;
1005         }
1006
1007       if (n_skip == 0)
1008         break;
1009     }
1010
1011   if (n_skip != 0)
1012     error (2, 0, _("cannot skip past end of combined input"));
1013
1014   return err;
1015 }
1016
1017 static const char *
1018 format_address_none (long unsigned int address)
1019 {
1020   return "";
1021 }
1022
1023 static const char *
1024 format_address_std (long unsigned int address)
1025 {
1026   const char *address_string;
1027
1028   sprintf (address_fmt_buffer, output_address_fmt_string, address);
1029   address_string = address_fmt_buffer;
1030   return address_string;
1031 }
1032
1033 static const char *
1034 format_address_label (long unsigned int address)
1035 {
1036   const char *address_string;
1037   assert (output_address_fmt_string != NULL);
1038
1039   sprintf (address_fmt_buffer, output_address_fmt_string,
1040            address, address + pseudo_offset);
1041   address_string = address_fmt_buffer;
1042   return address_string;
1043 }
1044
1045 /* Write N_BYTES bytes from CURR_BLOCK to standard output once for each
1046    of the N_SPEC format specs.  CURRENT_OFFSET is the byte address of
1047    CURR_BLOCK in the concatenation of input files, and it is printed
1048    (optionally) only before the output line associated with the first
1049    format spec.  When duplicate blocks are being abbreviated, the output
1050    for a sequence of identical input blocks is the output for the first
1051    block followed by an asterisk alone on a line.  It is valid to compare
1052    the blocks PREV_BLOCK and CURR_BLOCK only when N_BYTES == BYTES_PER_BLOCK.
1053    That condition may be false only for the last input block -- and then
1054    only when it has not been padded to length BYTES_PER_BLOCK.  */
1055
1056 static void
1057 write_block (long unsigned int current_offset, long unsigned int n_bytes,
1058              const char *prev_block, const char *curr_block)
1059 {
1060   static int first = 1;
1061   static int prev_pair_equal = 0;
1062
1063 #define EQUAL_BLOCKS(b1, b2) (memcmp ((b1), (b2), bytes_per_block) == 0)
1064
1065   if (abbreviate_duplicate_blocks
1066       && !first && n_bytes == bytes_per_block
1067       && EQUAL_BLOCKS (prev_block, curr_block))
1068     {
1069       if (prev_pair_equal)
1070         {
1071           /* The two preceding blocks were equal, and the current
1072              block is the same as the last one, so print nothing.  */
1073         }
1074       else
1075         {
1076           printf ("*\n");
1077           prev_pair_equal = 1;
1078         }
1079     }
1080   else
1081     {
1082       unsigned int i;
1083
1084       prev_pair_equal = 0;
1085       for (i = 0; i < n_specs; i++)
1086         {
1087           printf ("%s ", (i == 0
1088                           ? format_address (current_offset)
1089                           : address_pad));
1090           (*spec[i].print_function) (n_bytes, curr_block, spec[i].fmt_string);
1091         }
1092     }
1093   first = 0;
1094 }
1095
1096 /* Test whether there have been errors on in_stream, and close it if
1097    it is not standard input.  Return non-zero if there has been an error
1098    on in_stream or stdout; return zero otherwise.  This function will
1099    report more than one error only if both a read and a write error
1100    have occurred.  */
1101
1102 static int
1103 check_and_close (void)
1104 {
1105   int err;
1106
1107   err = 0;
1108   if (ferror (in_stream))
1109     {
1110       error (0, errno, "%s", input_filename);
1111       if (in_stream != stdin)
1112         fclose (in_stream);
1113       err = 1;
1114     }
1115   else if (in_stream != stdin && fclose (in_stream) == EOF)
1116     {
1117       error (0, errno, "%s", input_filename);
1118       err = 1;
1119     }
1120
1121   if (ferror (stdout))
1122     {
1123       error (0, errno, _("standard output"));
1124       err = 1;
1125     }
1126
1127   return err;
1128 }
1129
1130 /* Read a single byte into *C from the concatenation of the input files
1131    named in the global array FILE_LIST.  On the first call to this
1132    function, the global variable IN_STREAM is expected to be an open
1133    stream associated with the input file *FILE_LIST.  If IN_STREAM is
1134    at end-of-file, close it and update the global variables IN_STREAM,
1135    FILE_LIST, and INPUT_FILENAME so they correspond to the next file in
1136    the list.  Then try to read a byte from the newly opened file.
1137    Repeat if necessary until *FILE_LIST is NULL.  When EOF is reached
1138    for the last file in FILE_LIST, set *C to EOF and return.  Subsequent
1139    calls do likewise.  The return value is non-zero if any errors
1140    occured, zero otherwise.  */
1141
1142 static int
1143 read_char (int *c)
1144 {
1145   int err;
1146
1147   if (*file_list == NULL)
1148     {
1149       *c = EOF;
1150       return 0;
1151     }
1152
1153   err = 0;
1154   while (1)
1155     {
1156       *c = fgetc (in_stream);
1157
1158       if (*c != EOF)
1159         return err;
1160
1161       err |= check_and_close ();
1162
1163       do
1164         {
1165           ++file_list;
1166           if (*file_list == NULL)
1167             return err;
1168
1169           if (STREQ (*file_list, "-"))
1170             {
1171               input_filename = _("standard input");
1172               in_stream = stdin;
1173               have_read_stdin = 1;
1174             }
1175           else
1176             {
1177               input_filename = *file_list;
1178               in_stream = fopen (input_filename, "r");
1179               if (in_stream == NULL)
1180                 {
1181                   error (0, errno, "%s", input_filename);
1182                   err = 1;
1183                 }
1184             }
1185         }
1186       while (in_stream == NULL);
1187     }
1188 }
1189
1190 /* Read N bytes into BLOCK from the concatenation of the input files
1191    named in the global array FILE_LIST.  On the first call to this
1192    function, the global variable IN_STREAM is expected to be an open
1193    stream associated with the input file *FILE_LIST.  On subsequent
1194    calls, if *FILE_LIST is NULL, don't modify BLOCK and return zero.
1195    If all N bytes cannot be read from IN_STREAM, close IN_STREAM and
1196    update the global variables IN_STREAM, FILE_LIST, and INPUT_FILENAME.
1197    Then try to read the remaining bytes from the newly opened file.
1198    Repeat if necessary until *FILE_LIST is NULL.  Set *N_BYTES_IN_BUFFER
1199    to the number of bytes read.  If an error occurs, it will be detected
1200    through ferror when the stream is about to be closed.  If there is an
1201    error, give a message but continue reading as usual and return non-zero.
1202    Otherwise return zero.  */
1203
1204 static int
1205 read_block (size_t n, char *block, size_t *n_bytes_in_buffer)
1206 {
1207   int err;
1208
1209   assert (n > 0 && n <= bytes_per_block);
1210
1211   *n_bytes_in_buffer = 0;
1212
1213   if (n == 0)
1214     return 0;
1215
1216   if (*file_list == NULL)
1217     return 0;                   /* EOF.  */
1218
1219   err = 0;
1220   while (1)
1221     {
1222       size_t n_needed;
1223       size_t n_read;
1224
1225       n_needed = n - *n_bytes_in_buffer;
1226       n_read = fread (block + *n_bytes_in_buffer, 1, n_needed, in_stream);
1227
1228       *n_bytes_in_buffer += n_read;
1229
1230       if (n_read == n_needed)
1231         return err;
1232
1233       err |= check_and_close ();
1234
1235       do
1236         {
1237           ++file_list;
1238           if (*file_list == NULL)
1239             return err;
1240
1241           if (STREQ (*file_list, "-"))
1242             {
1243               input_filename = _("standard input");
1244               in_stream = stdin;
1245               have_read_stdin = 1;
1246             }
1247           else
1248             {
1249               input_filename = *file_list;
1250               in_stream = fopen (input_filename, "r");
1251               if (in_stream == NULL)
1252                 {
1253                   error (0, errno, "%s", input_filename);
1254                   err = 1;
1255                 }
1256             }
1257         }
1258       while (in_stream == NULL);
1259     }
1260 }
1261
1262 /* Return the least common multiple of the sizes associated
1263    with the format specs.  */
1264
1265 static int
1266 get_lcm (void)
1267 {
1268   unsigned int i;
1269   int l_c_m = 1;
1270
1271   for (i = 0; i < n_specs; i++)
1272     l_c_m = lcm (l_c_m, width_bytes[(int) spec[i].size]);
1273   return l_c_m;
1274 }
1275
1276 /* If S is a valid pre-POSIX offset specification with an optional leading '+'
1277    return the offset it denotes.  Otherwise, return -1.  */
1278
1279 off_t
1280 parse_old_offset (const char *s)
1281 {
1282   int radix;
1283   off_t offset;
1284   enum strtol_error s_err;
1285   long unsigned int tmp;
1286
1287   if (*s == '\0')
1288     return -1;
1289
1290   /* Skip over any leading '+'. */
1291   if (s[0] == '+')
1292     ++s;
1293
1294   /* Determine the radix we'll use to interpret S.  If there is a `.',
1295      it's decimal, otherwise, if the string begins with `0X'or `0x',
1296      it's hexadecimal, else octal.  */
1297   if (strchr (s, '.') != NULL)
1298     radix = 10;
1299   else
1300     {
1301       if (s[0] == '0' && (s[1] == 'x' || s[1] == 'X'))
1302         radix = 16;
1303       else
1304         radix = 8;
1305     }
1306
1307   s_err = xstrtoul (s, NULL, radix, &tmp, "Bb");
1308   if (s_err != LONGINT_OK)
1309     {
1310       STRTOL_FAIL_WARN (s, _("old-style offset"), s_err);
1311       return -1;
1312     }
1313   offset = tmp;
1314   return offset;
1315 }
1316
1317 /* Read a chunk of size BYTES_PER_BLOCK from the input files, write the
1318    formatted block to standard output, and repeat until the specified
1319    maximum number of bytes has been read or until all input has been
1320    processed.  If the last block read is smaller than BYTES_PER_BLOCK
1321    and its size is not a multiple of the size associated with a format
1322    spec, extend the input block with zero bytes until its length is a
1323    multiple of all format spec sizes.  Write the final block.  Finally,
1324    write on a line by itself the offset of the byte after the last byte
1325    read.  Accumulate return values from calls to read_block and
1326    check_and_close, and if any was non-zero, return non-zero.
1327    Otherwise, return zero.  */
1328
1329 static int
1330 dump (void)
1331 {
1332   char *block[2];
1333   off_t current_offset;
1334   off_t end_offset;
1335   int idx;
1336   int err;
1337   size_t n_bytes_read;
1338
1339 #ifdef lint  /* Suppress `used before initialized' warning.  */
1340   end_offset = 0;
1341 #endif
1342
1343   block[0] = (char *) alloca (bytes_per_block);
1344   block[1] = (char *) alloca (bytes_per_block);
1345
1346   current_offset = n_bytes_to_skip;
1347
1348   idx = 0;
1349   err = 0;
1350   if (limit_bytes_to_format)
1351     {
1352       end_offset = n_bytes_to_skip + max_bytes_to_format;
1353
1354       while (1)
1355         {
1356           size_t n_needed;
1357           if (current_offset >= end_offset)
1358             {
1359               n_bytes_read = 0;
1360               break;
1361             }
1362           n_needed = MIN (end_offset - current_offset,
1363                           (off_t) bytes_per_block);
1364           err |= read_block (n_needed, block[idx], &n_bytes_read);
1365           if (n_bytes_read < bytes_per_block)
1366             break;
1367           assert (n_bytes_read == bytes_per_block);
1368           write_block (current_offset, n_bytes_read,
1369                        block[!idx], block[idx]);
1370           current_offset += n_bytes_read;
1371           idx = !idx;
1372         }
1373     }
1374   else
1375     {
1376       while (1)
1377         {
1378           err |= read_block (bytes_per_block, block[idx], &n_bytes_read);
1379           if (n_bytes_read < bytes_per_block)
1380             break;
1381           assert (n_bytes_read == bytes_per_block);
1382           write_block (current_offset, n_bytes_read,
1383                        block[!idx], block[idx]);
1384           current_offset += n_bytes_read;
1385           idx = !idx;
1386         }
1387     }
1388
1389   if (n_bytes_read > 0)
1390     {
1391       int l_c_m;
1392       size_t bytes_to_write;
1393
1394       l_c_m = get_lcm ();
1395
1396       /* Make bytes_to_write the smallest multiple of l_c_m that
1397          is at least as large as n_bytes_read.  */
1398       bytes_to_write = l_c_m * (int) ((n_bytes_read + l_c_m - 1) / l_c_m);
1399
1400       memset (block[idx] + n_bytes_read, 0, bytes_to_write - n_bytes_read);
1401       write_block (current_offset, bytes_to_write,
1402                    block[!idx], block[idx]);
1403       current_offset += n_bytes_read;
1404     }
1405
1406   if (output_address_fmt_string != NULL)
1407     printf ("%s\n", format_address (current_offset));
1408
1409   if (limit_bytes_to_format && current_offset > end_offset)
1410     err |= check_and_close ();
1411
1412   return err;
1413 }
1414
1415 /* STRINGS mode.  Find each "string constant" in the input.
1416    A string constant is a run of at least `string_min' ASCII
1417    graphic (or formatting) characters terminated by a null.
1418    Based on a function written by Richard Stallman for a
1419    pre-POSIX version of od.  Return non-zero if an error
1420    occurs.  Otherwise, return zero.  */
1421
1422 static int
1423 dump_strings (void)
1424 {
1425   size_t bufsize = MAX (100, string_min);
1426   char *buf = xmalloc (bufsize);
1427   off_t address = n_bytes_to_skip;
1428   int err;
1429
1430   err = 0;
1431   while (1)
1432     {
1433       unsigned int i;
1434       int c;
1435
1436       /* See if the next `string_min' chars are all printing chars.  */
1437     tryline:
1438
1439       if (limit_bytes_to_format
1440           && address >= (n_bytes_to_skip + max_bytes_to_format - string_min))
1441         break;
1442
1443       for (i = 0; i < string_min; i++)
1444         {
1445           err |= read_char (&c);
1446           address++;
1447           if (c < 0)
1448             {
1449               free (buf);
1450               return err;
1451             }
1452           if (!ISPRINT (c))
1453             /* Found a non-printing.  Try again starting with next char.  */
1454             goto tryline;
1455           buf[i] = c;
1456         }
1457
1458       /* We found a run of `string_min' printable characters.
1459          Now see if it is terminated with a null byte.  */
1460       while (!limit_bytes_to_format
1461              || address < n_bytes_to_skip + max_bytes_to_format)
1462         {
1463           if (i == bufsize)
1464             {
1465               bufsize = 1 + 3 * bufsize / 2;
1466               buf = xrealloc (buf, bufsize);
1467             }
1468           err |= read_char (&c);
1469           address++;
1470           if (c < 0)
1471             {
1472               free (buf);
1473               return err;
1474             }
1475           if (c == '\0')
1476             break;              /* It is; print this string.  */
1477           if (!ISPRINT (c))
1478             goto tryline;       /* It isn't; give up on this string.  */
1479           buf[i++] = c;         /* String continues; store it all.  */
1480         }
1481
1482       /* If we get here, the string is all printable and null-terminated,
1483          so print it.  It is all in `buf' and `i' is its length.  */
1484       buf[i] = 0;
1485       if (output_address_fmt_string != NULL)
1486         {
1487           printf ("%s ", format_address (address - i - 1));
1488         }
1489       for (i = 0; (c = buf[i]); i++)
1490         {
1491           switch (c)
1492             {
1493             case '\007':
1494               fputs ("\\a", stdout);
1495               break;
1496
1497             case '\b':
1498               fputs ("\\b", stdout);
1499               break;
1500
1501             case '\f':
1502               fputs ("\\f", stdout);
1503               break;
1504
1505             case '\n':
1506               fputs ("\\n", stdout);
1507               break;
1508
1509             case '\r':
1510               fputs ("\\r", stdout);
1511               break;
1512
1513             case '\t':
1514               fputs ("\\t", stdout);
1515               break;
1516
1517             case '\v':
1518               fputs ("\\v", stdout);
1519               break;
1520
1521             default:
1522               putc (c, stdout);
1523             }
1524         }
1525       putchar ('\n');
1526     }
1527
1528   /* We reach this point only if we search through
1529      (max_bytes_to_format - string_min) bytes before reachine EOF.  */
1530
1531   free (buf);
1532
1533   err |= check_and_close ();
1534   return err;
1535 }
1536
1537 int
1538 main (int argc, char **argv)
1539 {
1540   int c;
1541   int n_files;
1542   unsigned int i;
1543   unsigned int l_c_m;
1544   unsigned int address_pad_len;
1545   unsigned long int desired_width;
1546   int width_specified = 0;
1547   int err;
1548
1549   /* The old-style `pseudo starting address' to be printed in parentheses
1550      after any true address.  */
1551   long int pseudo_start;
1552
1553 #ifdef lint  /* Suppress `used before initialized' warning.  */
1554   pseudo_start = 0;
1555 #endif
1556
1557   program_name = argv[0];
1558   err = 0;
1559
1560   for (i = 0; i <= MAX_INTEGRAL_TYPE_SIZE; i++)
1561     integral_type_size[i] = NO_SIZE;
1562
1563   integral_type_size[sizeof (char)] = CHAR;
1564   integral_type_size[sizeof (short int)] = SHORT;
1565   integral_type_size[sizeof (int)] = INT;
1566   integral_type_size[sizeof (long int)] = LONG;
1567
1568   for (i = 0; i <= MAX_FP_TYPE_SIZE; i++)
1569     fp_type_size[i] = NO_SIZE;
1570
1571   fp_type_size[sizeof (float)] = FLOAT_SINGLE;
1572   /* The array entry for `double' is filled in after that for LONG_DOUBLE
1573      so that if `long double' is the same type or if long double isn't
1574      supported FLOAT_LONG_DOUBLE will never be used.  */
1575   fp_type_size[sizeof (LONG_DOUBLE)] = FLOAT_LONG_DOUBLE;
1576   fp_type_size[sizeof (double)] = FLOAT_DOUBLE;
1577
1578   n_specs = 0;
1579   n_specs_allocated = 5;
1580   spec = (struct tspec *) xmalloc (n_specs_allocated * sizeof (struct tspec));
1581
1582   output_address_fmt_string = "%07o";
1583   format_address = format_address_std;
1584   address_pad_len = 7;
1585   flag_dump_strings = 0;
1586
1587   while ((c = getopt_long (argc, argv, "abcdfhilos::xw::A:j:N:t:v",
1588                            long_options, (int *) 0))
1589          != EOF)
1590     {
1591       unsigned long int tmp;
1592       enum strtol_error s_err;
1593
1594       switch (c)
1595         {
1596         case 0:
1597           break;
1598
1599         case 'A':
1600           switch (optarg[0])
1601             {
1602             case 'd':
1603               output_address_fmt_string = "%07d";
1604               format_address = format_address_std;
1605               address_pad_len = 7;
1606               break;
1607             case 'o':
1608               output_address_fmt_string = "%07o";
1609               format_address = format_address_std;
1610               address_pad_len = 7;
1611               break;
1612             case 'x':
1613               output_address_fmt_string = "%06x";
1614               format_address = format_address_std;
1615               address_pad_len = 6;
1616               break;
1617             case 'n':
1618               output_address_fmt_string = NULL;
1619               format_address = format_address_none;
1620               address_pad_len = 0;
1621               break;
1622             default:
1623               error (2, 0,
1624                      _("invalid output address radix `%c'; it must be one character from [doxn]"),
1625                      optarg[0]);
1626               break;
1627             }
1628           break;
1629
1630         case 'j':
1631           s_err = xstrtoul (optarg, NULL, 0, &tmp, "bkm");
1632           n_bytes_to_skip = tmp;
1633           if (s_err != LONGINT_OK)
1634             STRTOL_FATAL_ERROR (optarg, _("skip argument"), s_err);
1635           break;
1636
1637         case 'N':
1638           limit_bytes_to_format = 1;
1639
1640           /* FIXME: if off_t is long long and that's an 8-byte type,
1641              use xstrtouq here.  */
1642           s_err = xstrtoul (optarg, NULL, 0, &tmp, "bkm");
1643           max_bytes_to_format = tmp;
1644           if (s_err != LONGINT_OK)
1645             STRTOL_FATAL_ERROR (optarg, _("limit argument"), s_err);
1646
1647           if (tmp > OFF_T_MAX)
1648             error (2, 0, _("specified number of bytes `%s' is larger than \
1649 the maximum\nrepresentable value of type off_t"), optarg);
1650           break;
1651
1652         case 's':
1653           if (optarg == NULL)
1654             string_min = 3;
1655           else
1656             {
1657               s_err = xstrtoul (optarg, NULL, 0, &string_min, "bkm");
1658               if (s_err != LONGINT_OK)
1659                 STRTOL_FATAL_ERROR (optarg, _("minimum string length"), s_err);
1660             }
1661           ++flag_dump_strings;
1662           break;
1663
1664         case 't':
1665           if (decode_format_string (optarg))
1666             error (2, 0, _("invalid type string `%s'"), optarg);
1667           break;
1668
1669         case 'v':
1670           abbreviate_duplicate_blocks = 0;
1671           break;
1672
1673         case 'B':
1674           traditional = 1;
1675           break;
1676
1677           /* The next several cases map the old, pre-POSIX format
1678              specification options to the corresponding POSIX format
1679              specs.  GNU od accepts any combination of old- and
1680              new-style options.  Format specification options accumulate.  */
1681
1682 #define CASE_OLD_ARG(old_char,new_string)               \
1683         case old_char:                                  \
1684           {                                             \
1685             int tmp;                                    \
1686             tmp = decode_format_string (new_string);    \
1687             assert (tmp == 0);                          \
1688           }                                             \
1689           break
1690
1691           CASE_OLD_ARG ('a', "a");
1692           CASE_OLD_ARG ('b', "oC");
1693           CASE_OLD_ARG ('c', "c");
1694           CASE_OLD_ARG ('d', "u2");
1695           CASE_OLD_ARG ('f', "fF");
1696           CASE_OLD_ARG ('h', "x2");
1697           CASE_OLD_ARG ('i', "d2");
1698           CASE_OLD_ARG ('l', "d4");
1699           CASE_OLD_ARG ('o', "o2");
1700           CASE_OLD_ARG ('x', "x2");
1701
1702 #undef CASE_OLD_ARG
1703
1704         case 'w':
1705           width_specified = 1;
1706           if (optarg == NULL)
1707             {
1708               desired_width = 32;
1709             }
1710           else
1711             {
1712               s_err = xstrtoul (optarg, NULL, 10, &desired_width, NULL);
1713               if (s_err != LONGINT_OK)
1714                 STRTOL_FATAL_ERROR (optarg, _("width specification"), s_err);
1715             }
1716           break;
1717
1718         default:
1719           usage (1);
1720           break;
1721         }
1722     }
1723
1724   if (show_version)
1725     {
1726       printf ("od - %s\n", version_string);
1727       exit (0);
1728     }
1729
1730   if (show_help)
1731     usage (0);
1732
1733   if (flag_dump_strings && n_specs > 0)
1734     error (2, 0, _("no type may be specified when dumping strings"));
1735
1736   n_files = argc - optind;
1737
1738   /* If the --backward-compatible option is used, there may be from
1739      0 to 3 remaining command line arguments;  handle each case
1740      separately.
1741         od [file] [[+]offset[.][b] [[+]label[.][b]]]
1742      The offset and pseudo_start have the same syntax.  */
1743
1744   if (traditional)
1745     {
1746       off_t offset;
1747
1748       if (n_files == 1)
1749         {
1750           if ((offset = parse_old_offset (argv[optind])) >= 0)
1751             {
1752               n_bytes_to_skip = offset;
1753               --n_files;
1754               ++argv;
1755             }
1756         }
1757       else if (n_files == 2)
1758         {
1759           off_t o1, o2;
1760           if ((o1 = parse_old_offset (argv[optind])) >= 0
1761               && (o2 = parse_old_offset (argv[optind + 1])) >= 0)
1762             {
1763               n_bytes_to_skip = o1;
1764               flag_pseudo_start = 1;
1765               pseudo_start = o2;
1766               argv += 2;
1767               n_files -= 2;
1768             }
1769           else if ((o2 = parse_old_offset (argv[optind + 1])) >= 0)
1770             {
1771               n_bytes_to_skip = o2;
1772               --n_files;
1773               argv[optind + 1] = argv[optind];
1774               ++argv;
1775             }
1776           else
1777             {
1778               error (0, 0,
1779                      _("invalid second operand in compatibility mode `%s'"),
1780                      argv[optind + 1]);
1781               usage (1);
1782             }
1783         }
1784       else if (n_files == 3)
1785         {
1786           off_t o1, o2;
1787           if ((o1 = parse_old_offset (argv[optind + 1])) >= 0
1788               && (o2 = parse_old_offset (argv[optind + 2])) >= 0)
1789             {
1790               n_bytes_to_skip = o1;
1791               flag_pseudo_start = 1;
1792               pseudo_start = o2;
1793               argv[optind + 2] = argv[optind];
1794               argv += 2;
1795               n_files -= 2;
1796             }
1797           else
1798             {
1799               error (0, 0,
1800               _("in compatibility mode the last 2 arguments must be offsets"));
1801               usage (1);
1802             }
1803         }
1804       else
1805         {
1806           error (0, 0,
1807              _("in compatibility mode there may be no more than 3 arguments"));
1808           usage (1);
1809         }
1810
1811       if (flag_pseudo_start)
1812         {
1813           static char buf[10];
1814
1815           if (output_address_fmt_string == NULL)
1816             {
1817               output_address_fmt_string = "(%07o)";
1818               format_address = format_address_std;
1819             }
1820           else
1821             {
1822               sprintf (buf, "%s (%s)",
1823                        output_address_fmt_string,
1824                        output_address_fmt_string);
1825               output_address_fmt_string = buf;
1826               format_address = format_address_label;
1827             }
1828         }
1829     }
1830
1831   assert (address_pad_len <= MAX_ADDRESS_LENGTH);
1832   for (i = 0; i < address_pad_len; i++)
1833     address_pad[i] = ' ';
1834   address_pad[address_pad_len] = '\0';
1835
1836   if (n_specs == 0)
1837     {
1838       int d_err = decode_one_format ("o2", NULL, &(spec[0]));
1839
1840       assert (d_err == 0);
1841       n_specs = 1;
1842     }
1843
1844   if (n_files > 0)
1845     file_list = (char const *const *) &argv[optind];
1846   else
1847     {
1848       /* If no files were listed on the command line, set up the
1849          global array FILE_LIST so that it contains the null-terminated
1850          list of one name: "-".  */
1851       static char const *const default_file_list[] = {"-", NULL};
1852
1853       file_list = default_file_list;
1854     }
1855
1856   err |= skip (n_bytes_to_skip);
1857   if (in_stream == NULL)
1858     goto cleanup;
1859
1860   pseudo_offset = (flag_pseudo_start ? pseudo_start - n_bytes_to_skip : 0);
1861
1862   /* Compute output block length.  */
1863   l_c_m = get_lcm ();
1864
1865   if (width_specified)
1866     {
1867       if (desired_width != 0 && desired_width % l_c_m == 0)
1868         bytes_per_block = desired_width;
1869       else
1870         {
1871           error (0, 0, _("warning: invalid width %lu; using %d instead"),
1872                  desired_width, l_c_m);
1873           bytes_per_block = l_c_m;
1874         }
1875     }
1876   else
1877     {
1878       if (l_c_m < DEFAULT_BYTES_PER_BLOCK)
1879         bytes_per_block = l_c_m * (int) (DEFAULT_BYTES_PER_BLOCK / l_c_m);
1880       else
1881         bytes_per_block = l_c_m;
1882     }
1883
1884 #ifdef DEBUG
1885   for (i = 0; i < n_specs; i++)
1886     {
1887       printf (_("%d: fmt=\"%s\" width=%d\n"),
1888               i, spec[i].fmt_string, width_bytes[spec[i].size]);
1889     }
1890 #endif
1891
1892   err |= (flag_dump_strings ? dump_strings () : dump ());
1893
1894 cleanup:;
1895
1896   if (have_read_stdin && fclose (stdin) == EOF)
1897     error (2, errno, _("standard input"));
1898
1899   if (fclose (stdout) == EOF)
1900     error (2, errno, _("write error"));
1901
1902   exit (err);
1903 }