mirror of https://github.com/GnoConsortium/gno.git
108 lines
2.6 KiB
C
108 lines
2.6 KiB
C
/*
|
|
BINPRINT.C
|
|
|
|
Displays files in hex-dump format (with ascii subdisplay if desired)
|
|
|
|
v1.3 Incorporated sources into GNO base build. Reformatted sources,
|
|
prototyped functions, added calls to fflush(3). (Devin Reade)
|
|
v1.2 Optimized and fixed input from terminal bug (Phil Vandry)
|
|
v1.1 Added stacksize directive (Jawaid Bazyar)
|
|
v1.0 Original version by Derek Taubert
|
|
|
|
$Id: binprint.c,v 1.3 1999/01/16 18:35:57 gdr-ftp Exp $
|
|
*/
|
|
|
|
#define VERSION "1.3"
|
|
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <ctype.h>
|
|
#include <fcntl.h>
|
|
#include <unistd.h>
|
|
#include <gno/gno.h> /* for stack checking routines */
|
|
|
|
unsigned int doline(char *dest, char *source, unsigned int actual,
|
|
unsigned int cols);
|
|
static void printGood(long off, unsigned char *buf, int real, int form);
|
|
|
|
unsigned char *buffer2;
|
|
|
|
int
|
|
main(int argc, char **argv)
|
|
{
|
|
int duh;
|
|
int a;
|
|
int c, errflg = 0, columns = 16;
|
|
size_t pos = 0;
|
|
unsigned char *buffer;
|
|
|
|
__REPORT_STACK();
|
|
while ((c = getopt(argc,argv, "Vc:")) != EOF)
|
|
switch (c) {
|
|
case 'c' :
|
|
columns = atoi(optarg);
|
|
break;
|
|
case 'V' :
|
|
fprintf(stdout, "binprint v%s for GNO/ME\n", VERSION);
|
|
exit(0);
|
|
default :
|
|
errflg++;
|
|
}
|
|
if (errflg) {
|
|
fprintf(stderr,"usage: binprint [-c<columns>] files...\n");
|
|
exit(2);
|
|
}
|
|
argv += optind;
|
|
if (columns < 8) columns = 8;
|
|
if ((buffer2 = (unsigned char *)malloc((size_t)(columns*4)+1)) == NULL) {
|
|
fprintf(stderr,"Cannot allocate buffer space\n");
|
|
exit(1);
|
|
}
|
|
buffer = (unsigned char *)(buffer2+(columns*3));
|
|
if (optind == argc) {
|
|
duh = STDIN_FILENO;
|
|
goto action;
|
|
}
|
|
for (;optind<argc;optind++) {
|
|
if ((duh = open(*argv,O_RDONLY|O_BINARY)) == -1) {
|
|
fprintf(stderr,"error opening %s\n",*argv);
|
|
exit(1);
|
|
}
|
|
printf("\n%s\n",*argv);
|
|
fflush(stdout); /* we write to STDOUT_FILENO directly */
|
|
action:
|
|
while ((a = (int)read(duh, buffer,
|
|
(size_t)(columns * sizeof(unsigned char)))) != 0) {
|
|
printGood(pos,buffer,a,columns);
|
|
pos += a;
|
|
}
|
|
close(duh);
|
|
}
|
|
free(buffer);
|
|
free(buffer2);
|
|
exit(0);
|
|
}
|
|
|
|
static void
|
|
printGood(long off, unsigned char *buf, int real, int form)
|
|
{
|
|
if (!real) return;
|
|
#if 0
|
|
printf("%8lX: ",off);
|
|
fflush(stdout);
|
|
#endif
|
|
|
|
/* The following is a hack required because of buffering by the stdio
|
|
libraries. I wish it was not necesary... */
|
|
|
|
{
|
|
static char puthere[11];
|
|
int howmany;
|
|
|
|
howmany = sprintf(puthere,"%8lX: ",off);
|
|
write(STDOUT_FILENO, puthere, (size_t)howmany);
|
|
}
|
|
|
|
write(STDOUT_FILENO, buffer2, (size_t)doline(buffer2,buf,form,real));
|
|
}
|