static const char *
odformatfp(char fchar __unused, const char *fmt)
{
size_t isize;
int digits;
char *end, *hdfmt;
isize = sizeof(double);
switch (*fmt) {
case 'F':
isize = sizeof(float);
fmt++;
break;
case 'D':
isize = sizeof(double);
fmt++;
break;
case 'L':
isize = sizeof(long double);
fmt++;
break;
default:
if (isdigit((unsigned char)*fmt)) {
errno = 0;
isize = (size_t)strtoul(fmt, &end, 10);
if (errno != 0 || isize == 0)
errx(1, "%s: invalid size", fmt);
fmt = (const char *)end;
}
}
switch (isize) {
case sizeof(float):
digits = FLT_DIG;
break;
case sizeof(double):
digits = DBL_DIG;
break;
default:
if (isize == sizeof(long double))
digits = LDBL_DIG;
else
errx(1, "unsupported floating point size %lu",
(u_long)isize);
}
asprintf(&hdfmt, "%lu/%lu \" %%%d.%de \" \"\\n\"",
16UL / (u_long)isize, (u_long)isize, digits + 8, digits);
if (hdfmt == NULL)
err(1, NULL);
odadd(hdfmt);
free(hdfmt);
return (fmt);
}
static void
odformat(const char *fmt)
{
char fchar;
while (*fmt != '\0') {
switch ((fchar = *fmt++)) {
case 'a':
odadd("16/1 \"%3_u \" \"\\n\"");
break;
case 'c':
odadd("16/1 \"%3_c \" \"\\n\"");
break;
case 'o': case 'u': case 'd': case 'x':
fmt = odformatint(fchar, fmt);
break;
case 'f':
fmt = odformatfp(fchar, fmt);
break;
default:
errx(1, "%c: unrecognised format character", fchar);
}
}
}
static const char *
odformatint(char fchar, const char *fmt)
{
unsigned long long n;
size_t isize;
int digits;
char *end, *hdfmt;
isize = sizeof(int);
switch (*fmt) {
case 'C':
isize = sizeof(char);
fmt++;
break;
case 'I':
isize = sizeof(int);
fmt++;
break;
case 'L':
isize = sizeof(long);
fmt++;
break;
case 'S':
isize = sizeof(short);
fmt++;
break;
default:
if (isdigit((unsigned char)*fmt)) {
errno = 0;
isize = (size_t)strtoul(fmt, &end, 10);
if (errno != 0 || isize == 0)
errx(1, "%s: invalid size", fmt);
if (isize != sizeof(char) && isize != sizeof(short) &&
isize != sizeof(int) && isize != sizeof(long))
errx(1, "unsupported int size %lu",
(u_long)isize);
fmt = (const char *)end;
}
}
/*
* Calculate the maximum number of digits we need to
* fit the number. Overestimate for decimal with log
* base 8. We need one extra space for signed numbers
* to store the sign.
*/
n = (1ULL << (8 * isize)) - 1;
digits = 0;
while (n != 0) {
digits++;
n >>= (fchar == 'x') ? 4 : 3;
}
if (fchar == 'd')
digits++;
asprintf(&hdfmt, "%lu/%lu \"%*s%%%s%d%c\" \"\\n\"",
16UL / (u_long)isize, (u_long)isize, (int)(4 * isize - digits),
"", (fchar == 'd' || fchar == 'u') ? "" : "0", digits, fchar);
if (hdfmt == NULL)
err(1, NULL);
odadd(hdfmt);
free(hdfmt);
return (fmt);
}
void
oldsyntax(int argc, char ***argvp)
{
static char empty[] = "", padding[] = PADDING;
int ch;
char *p, **argv;
#define TYPE_OFFSET 7
add("\"%07.7_Ao\n\"");
add("\"%07.7_ao \"");
deprecated = 1;
argv = *argvp;
while ((ch = getopt(argc, argv,
"A:aBbcDdeFfHhIij:LlN:OoPpst:wvXx")) != -1)
switch (ch) {
case 'A':
switch (*optarg) {
case 'd': case 'o': case 'x':
fshead->nextfu->fmt[TYPE_OFFSET] = *optarg;
fshead->nextfs->nextfu->fmt[TYPE_OFFSET] =
*optarg;
break;
case 'n':
fshead->nextfu->fmt = empty;
fshead->nextfs->nextfu->fmt = padding;
break;
default:
errx(1, "%s: invalid address base", optarg);
}
break;
case 'a':
odadd("16/1 \"%3_u \" \"\\n\"");
break;
case 'B':
case 'o':
odadd("8/2 \" %06o \" \"\\n\"");
break;
case 'b':
odadd("16/1 \"%03o \" \"\\n\"");
break;
case 'c':
odadd("16/1 \"%3_c \" \"\\n\"");
break;
case 'd':
odadd("8/2 \" %05u \" \"\\n\"");
break;
case 'D':
odadd("4/4 \" %010u \" \"\\n\"");
break;
case 'e':
case 'F':
odadd("2/8 \" %21.14e \" \"\\n\"");
break;
case 'f':
odadd("4/4 \" %14.7e \" \"\\n\"");
break;
case 'H':
case 'X':
odadd("4/4 \" %08x \" \"\\n\"");
break;
case 'h':
case 'x':
odadd("8/2 \" %04x \" \"\\n\"");
break;
case 'I':
case 'L':
case 'l':
odadd("4/4 \" %11d \" \"\\n\"");
break;
case 'i':
odadd("8/2 \" %6d \" \"\\n\"");
break;
case 'j':
if ((skip = strtol(optarg, &p, 0)) < 0)
errx(1, "%s: bad skip value", optarg);
switch(*p) {
case 'b':
skip *= 512;
break;
case 'k':
skip *= 1024;
break;
case 'm':
skip *= 1048576;
break;
}
break;
case 'N':
if ((length = atoi(optarg)) < 0)
errx(1, "%s: bad length value", optarg);
break;
case 'O':
odadd("4/4 \" %011o \" \"\\n\"");
break;
case 't':
posixtypes(optarg);
break;
case 'v':
vflag = ALL;
break;
case 'P':
case 'p':
case 's':
case 'w':
case '?':
default:
warnx("od(1) has been deprecated for hexdump(1).");
if (ch != '?')
warnx(
"hexdump(1) compatibility doesn't"
" support the -%c option%s",
ch, ch == 's' ? "; see strings(1)." : ".");
oldusage();
}
if (fshead->nextfs->nextfs == NULL)
odadd(" 8/2 \"%06o \" \"\\n\"");
argc -= optind;
*argvp += optind;
if (argc)
odoffset(argc, argvp);
}
/*
* Interpret a POSIX-style -t argument.
*/
static void
posixtypes(char *type_string)
{
int x, y, nbytes;
while (*type_string) {
switch (*type_string) {
case 'a':
type_string++;
odadd("16/1 \"%3_u \" \"\\n\"");
break;
case 'c':
type_string++;
odadd("16/1 \"%3_c \" \"\\n\"");
break;
case 'f':
type_string++;
if (*type_string == 'F' ||
*type_string == '4') {
type_string++;
odadd("4/4 \" %14.7e\" \"\\n\"");
} else if (*type_string == 'L' ||
*type_string == '8') {
type_string++;
odadd("2/8 \" %16.14e\" \"\\n\"");
} else if (*type_string == 'D')
/* long doubles vary in size */
oldusage();
else
odadd("2/8 \" %16.14e\" \"\\n\"");
break;
case 'd':
x = 0;
goto extensions;
case 'o':
x = 1;
goto extensions;
case 'u':
x = 2;
goto extensions;
case 'x':
x = 3;
extensions:
type_string++;
y = 2;
if (isupper(*type_string)) {
switch(*type_string) {
case 'C':
nbytes = sizeof(char);
break;
case 'S':
nbytes = sizeof(short);
break;
case 'I':
nbytes = sizeof(int);
break;
case 'L':
nbytes = sizeof(long);
break;
default:
warnx("Bad type-size qualifier '%c'",
*type_string);
oldusage();
}
type_string++;
} else if (isdigit(*type_string))
nbytes = strtol(type_string, &type_string, 10);
else
nbytes = 4;
switch (nbytes) {
case 1:
y = 0;
break;
case 2:
y = 1;
break;
case 4:
y = 2;
break;
case 8:
y = 3;
break;
default:
warnx("%d-byte integer formats are not "
"supported", nbytes);
oldusage();
}
odadd(fmt[x][y]);
break;
default:
oldusage();
}
}
}
