pintos: Avoid literal control character in Perl variable name.
[pintos-anon] / src / examples / hex-dump.c
1 /* hex-dump.c
2
3    Prints files specified on command line to the console in hex. */
4
5 #include <stdio.h>
6 #include <syscall.h>
7
8 int
9 main (int argc, char *argv[]) 
10 {
11   bool success = true;
12   int i;
13   
14   for (i = 1; i < argc; i++) 
15     {
16       int fd = open (argv[i]);
17       if (fd < 0) 
18         {
19           printf ("%s: open failed\n", argv[i]);
20           success = false;
21           continue;
22         }
23       for (;;) 
24         {
25           char buffer[1024];
26           int pos = tell (fd);
27           int bytes_read = read (fd, buffer, sizeof buffer);
28           if (bytes_read == 0)
29             break;
30           hex_dump (pos, buffer, bytes_read, true);
31         }
32       close (fd);
33     }
34   return success ? EXIT_SUCCESS : EXIT_FAILURE;
35 }