GNO-Extras/v7/cmd/od.c#b00008
Bobbi Webber-Manners 000d69c9ed Initial checkin
2020-01-28 23:22:35 -05:00

251 lines
3.5 KiB
Plaintext

/*
* od -- octal (also hex, decimal, and character) dump
*/
#include <stdio.h>
unsigned short word[8];
unsigned short lastword[8];
int conv;
int base = 010;
int max;
long addr;
main(argc, argv)
char **argv;
{
register char *p;
register n, f, same;
argv++;
f = 0;
if(argc > 1) {
p = *argv;
if(*p == '-') {
while(*p != '\0') {
switch(*p++) {
case 'o':
conv |= 001;
f = 6;
break;
case 'd':
conv |= 002;
f = 5;
break;
case 'x':
case 'h':
conv |= 010;
f = 4;
break;
case 'c':
conv |= 020;
f = 7;
break;
case 'b':
conv |= 040;
f = 7;
break;
}
if(f > max)
max = f;
}
argc--;
argv++;
}
}
if(!conv) {
max = 6;
conv = 1;
}
if(argc > 1)
if(**argv != '+') {
if (freopen(*argv, "r", stdin) == NULL) {
printf("cannot open %s\n", *argv);
exit(1);
}
argv++;
argc--;
}
if(argc > 1)
offset(*argv);
same = -1;
for ( ; (n = fread((char *)word, 1, sizeof(word), stdin)) > 0; addr += n) {
if (same>=0) {
for (f=0; f<8; f++)
if (lastword[f] != word[f])
goto notsame;
if (same==0) {
printf("*\n");
same = 1;
}
continue;
}
notsame:
line(addr, word, (n+sizeof(word[0])-1)/sizeof(word[0]));
same = 0;
for (f=0; f<8; f++)
lastword[f] = word[f];
for (f=0; f<8; f++)
word[f] = 0;
}
putn(addr, base, 7);
putchar('\n');
}
line(a, w, n)
long a;
unsigned short *w;
{
register i, f, c;
f = 1;
for(c=1; c; c<<=1) {
if((c&conv) == 0)
continue;
if(f) {
putn(a, base, 7);
putchar(' ');
f = 0;
} else
putchar('\t');
for (i=0; i<n; i++) {
putx(w[i], c);
putchar(i==n-1? '\n': ' ');
}
}
}
putx(n, c)
unsigned n;
{
switch(c) {
case 001:
pre(6);
putn((long)n, 8, 6);
break;
case 002:
pre(5);
putn((long)n, 10, 5);
break;
case 010:
pre(4);
putn((long)n, 16, 4);
break;
case 020:
pre(7);
{
unsigned short sn = n;
cput(*(char *)&sn);
putchar(' ');
cput(*((char *)&sn + 1));
break;
}
case 040:
pre(7);
{
unsigned short sn = n;
putn((long)(*(char *)&sn)&0377, 8, 3);
putchar(' ');
putn((long)(*((char *)&sn + 1))&0377, 8, 3);
break;
}
}
}
cput(c)
{
c &= 0377;
if(c>037 && c<0177) {
printf(" ");
putchar(c);
return;
}
switch(c) {
case '\0':
printf(" \\0");
break;
case '\b':
printf(" \\b");
break;
case '\f':
printf(" \\f");
break;
case '\n':
printf(" \\n");
break;
case '\r':
printf(" \\r");
break;
case '\t':
printf(" \\t");
break;
default:
putn((long)c, 8, 3);
}
}
putn(n, b, c)
long n;
{
register d;
if(!c)
return;
putn(n/b, b, c-1);
d = n%b;
if (d > 9)
putchar(d-10+'a');
else
putchar(d+'0');
}
pre(n)
{
int i;
for(i=n; i<max; i++)
putchar(' ');
}
offset(s)
register char *s;
{
register char *p;
long a;
register int d;
if (*s=='+')
s++;
if (*s=='x') {
s++;
base = 16;
} else if (*s=='0' && s[1]=='x') {
s += 2;
base = 16;
} else if (*s == '0')
base = 8;
p = s;
while(*p) {
if (*p++=='.')
base = 10;
}
for (a=0; *s; s++) {
d = *s;
if(d>='0' && d<='9')
a = a*base + d - '0';
else if (d>='a' && d<='f' && base==16)
a = a*base + d + 10 - 'a';
else
break;
}
if (*s == '.')
s++;
if(*s=='b' || *s=='B')
a *= 512;
fseek(stdin, a, 0);
addr = a;
}