/* $OpenBSD: display.c,v 1.8 2001/11/19 19:02:14 mpech Exp $ */ /* * Copyright (c) 1989 The Regents of the University of California. * All rights reserved. * * Redistribution and use in source and binary forms, with or without * modification, are permitted provided that the following conditions * are met: * 1. Redistributions of source code must retain the above copyright * notice, this list of conditions and the following disclaimer. * 2. Redistributions in binary form must reproduce the above copyright * notice, this list of conditions and the following disclaimer in the * documentation and/or other materials provided with the distribution. * 3. All advertising materials mentioning features or use of this software * must display the following acknowledgement: * This product includes software developed by the University of * California, Berkeley and its contributors. * 4. Neither the name of the University nor the names of its contributors * may be used to endorse or promote products derived from this software * without specific prior written permission. * * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF * SUCH DAMAGE. */ #ifndef lint /*static char sccsid[] = "from: @(#)display.c 5.11 (Berkeley) 3/9/91";*/ static char rcsid[] = "$OpenBSD: display.c,v 1.8 2001/11/19 19:02:14 mpech Exp $"; #endif /* not lint */ #include #include #include #include #include #include #include #include #include #include "hexdump.h" enum _vflag vflag = FIRST; static off_t address; /* address/offset in stream */ static off_t eaddress; /* end address */ static off_t savaddress; /* saved address/offset in stream */ #define PRINT { \ switch(pr->flags) { \ case F_ADDRESS: \ (void)printf(pr->fmt, address); \ break; \ case F_BPAD: \ (void)printf(pr->fmt, ""); \ break; \ case F_C: \ conv_c(pr, bp); \ break; \ case F_CHAR: \ (void)printf(pr->fmt, *bp); \ break; \ case F_DBL: { \ double dval; \ float fval; \ switch(pr->bcnt) { \ case 4: \ bcopy((char *)bp, (char *)&fval, sizeof(fval)); \ (void)printf(pr->fmt, fval); \ break; \ case 8: \ bcopy((char *)bp, (char *)&dval, sizeof(dval)); \ (void)printf(pr->fmt, dval); \ break; \ } \ break; \ } \ case F_INT: { \ int ival; \ short sval; \ switch(pr->bcnt) { \ case 1: \ (void)printf(pr->fmt, (int)*bp); \ break; \ case 2: \ bcopy((char *)bp, (char *)&sval, sizeof(sval)); \ (void)printf(pr->fmt, (int)sval); \ break; \ case 4: \ bcopy((char *)bp, (char *)&ival, sizeof(ival)); \ (void)printf(pr->fmt, ival); \ break; \ } \ break; \ } \ case F_P: \ (void)printf(pr->fmt, isprint(*bp) ? *bp : '.'); \ break; \ case F_STR: \ (void)printf(pr->fmt, (char *)bp); \ break; \ case F_TEXT: \ (void)printf(pr->fmt); \ break; \ case F_U: \ conv_u(pr, bp); \ break; \ case F_UINT: { \ u_int ival; \ u_short sval; \ switch(pr->bcnt) { \ case 1: \ (void)printf(pr->fmt, (u_int)*bp); \ break; \ case 2: \ bcopy((char *)bp, (char *)&sval, sizeof(sval)); \ (void)printf(pr->fmt, (u_int)sval); \ break; \ case 4: \ bcopy((char *)bp, (char *)&ival, sizeof(ival)); \ (void)printf(pr->fmt, ival); \ break; \ } \ break; \ } \ } \ } void display() { extern FU *endfu; FS *fs; FU *fu; PR *pr; int cnt; u_char *bp; off_t saveaddress; u_char savech, *savebp, *get(); while ((bp = get())) for (fs = fshead, savebp = bp, saveaddress = address; fs; fs = fs->nextfs, bp = savebp, address = saveaddress) for (fu = fs->nextfu; fu; fu = fu->nextfu) { if (fu->flags&F_IGNORE) break; for (cnt = fu->reps; cnt; --cnt) for (pr = fu->nextpr; pr; address += pr->bcnt, bp += pr->bcnt, pr = pr->nextpr) { if (eaddress && address >= eaddress && !(pr->flags&(F_TEXT|F_BPAD))) bpad(pr); if (cnt == 1 && pr->nospace) { savech = *pr->nospace; *pr->nospace = '\0'; } PRINT; if (cnt == 1 && pr->nospace) *pr->nospace = savech; } } if (endfu) { /* * if eaddress not set, error or file size was multiple of * blocksize, and no partial block ever found. */ if (!eaddress) { if (!address) return; eaddress = address; } for (pr = endfu->nextpr; pr; pr = pr->nextpr) switch(pr->flags) { case F_ADDRESS: (void)printf(pr->fmt, eaddress); break; case F_TEXT: (void)printf(pr->fmt); break; } } } void bpad(pr) PR *pr; { static char *spec = " -0+#"; char *p1, *p2; /* * remove all conversion flags; '-' is the only one valid * with %s, and it's not useful here. */ pr->flags = F_BPAD; *pr->cchar = 's'; for (p1 = pr->fmt; *p1 != '%'; ++p1); for (p2 = ++p1; *p1 && strchr(spec, *p1); ++p1); while ((*p2++ = *p1++)) ; } static char **_argv; u_char * get() { extern enum _vflag vflag; extern int length; static int ateof = 1; static u_char *curp, *savp; int n; int need, nread; int valid_save = 0; u_char *tmpp; if (!curp) { curp = (u_char *)emalloc(blocksize); savp = (u_char *)emalloc(blocksize); } else { tmpp = curp; curp = savp; savp = tmpp; address = savaddress += blocksize; valid_save = 1; } for (need = blocksize, nread = 0;;) { /* * if read the right number of bytes, or at EOF for one file, * and no other files are available, zero-pad the rest of the * block and set the end flag. */ if (!length || ateof && !next((char **)NULL)) { if (need == blocksize) return((u_char *)NULL); if (vflag != ALL && valid_save && !bcmp(curp, savp, nread)) { if (vflag != DUP) (void)printf("*\n"); return((u_char *)NULL); } bzero((char *)curp + nread, need); eaddress = address + nread; return(curp); } n = fread((char *)curp + nread, sizeof(u_char), length == -1 ? need : MIN(length, need), stdin); if (!n) { if (ferror(stdin)) warn("%s", _argv[-1]); ateof = 1; continue; } ateof = 0; if (length != -1) length -= n; if (!(need -= n)) { if (vflag == ALL || vflag == FIRST || !valid_save || bcmp(curp, savp, blocksize)) { if (vflag == DUP || vflag == FIRST) vflag = WAIT; return(curp); } if (vflag == WAIT) (void)printf("*\n"); vflag = DUP; address = savaddress += blocksize; need = blocksize; nread = 0; } else nread += n; } } extern off_t skip; /* bytes to skip */ int next(argv) char **argv; { extern int exitval; static int done; int statok; if (argv) { _argv = argv; return(1); } for (;;) { if (*_argv) { if (!(freopen(*_argv, "r", stdin))) { warn("%s", *_argv); exitval = 1; ++_argv; continue; } statok = done = 1; } else { if (done++) return(0); statok = 0; } if (skip) doskip(statok ? *_argv : "stdin", statok); if (*_argv) ++_argv; if (!skip) return(1); } /* NOTREACHED */ } void doskip(fname, statok) char *fname; int statok; { struct stat sbuf; if (statok) { if (fstat(fileno(stdin), &sbuf)) err(1, "%s", fname); if (skip >= sbuf.st_size) { skip -= sbuf.st_size; address += sbuf.st_size; return; } } if (fseek(stdin, skip, SEEK_SET)) err(1, "%s", fname); savaddress = address += skip; skip = 0; } char * emalloc(size) int size; { char *p; if (!(p = malloc((u_int)size))) err(1, "malloc"); bzero(p, size); return(p); }