summaryrefslogtreecommitdiff
path: root/libc/tests/hd.c
blob: f6af1f952a02a24ca3f180ce4531fe84472e9973 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
#include <stdio.h>
#include <ctype.h>

int  lastnum[16] = { -1 };
long lastaddr = -1;

main(argc, argv)
int argc;
char ** argv;
{
   FILE * fd;
   int j, ch;
   char buf[20];
   int  num[16];
   long offset = 0;

#ifndef MSDOS
   if( argc == 1 )
   {
      fd = stdin;
   }
   else
#endif
   {
      if( argc == 3 ) offset = strtol(argv[2], (char*)0, 16);
      else if( argc != 2 )
      {
         fprintf(stderr, "Usage: hd file [hexoffset]\n");
         exit(1);
      }
      fd = fopen(argv[1], "rb");
      if( fd == 0 )
      {
         fprintf(stderr, "Cannot open file '%s'\n", argv[1]);
         exit(1);
      }
   }

   /* if( offset ) fseek(fd, offset, 0); */

   for(ch=0; ch!=EOF; offset+=16)
   {
      memset(buf, '\0', 16);
      for(j=0; j<16; j++) num[j] = -1;
      for(j=0; j<16; j++)
      {
         ch = fgetc(fd);
         if( ch == EOF ) break;

         num[j] = ch;
         if( isascii(ch) && isprint(ch) ) buf[j] = ch;
         else buf[j] = '.';
      }
      printline(offset, num, buf, ch==EOF);
   }
   fclose(fd);
}

printline(address, num, chr, eofflag)
long address;
int * num;
char * chr;
int eofflag;
{
   int j;

   if( lastaddr >= 0 )
   {
      for(j=0; j<16; j++)
         if( num[j] != lastnum[j] )
            break;
      if( j == 16 && !eofflag ) return;
      if( lastaddr+16 != address )
         printf("*\n");
   }

   lastaddr = address;
   printf("%06lx:", address);
   for(j=0; j<16; j++)
   {
      if( num[j] >= 0 )
         printf(" %02x", num[j]);
      else
         printf("   ");
      lastnum[j] = num[j];
      num[j] = -1;
   }

   printf("  %.16s\n", chr);
}