Home | History | Annotate | Line # | Download | only in hexdump
display.c revision 1.14
      1  1.14       agc /*	$NetBSD: display.c,v 1.14 2003/08/07 11:14:03 agc Exp $	*/
      2   1.4       tls 
      3   1.1       cgd /*
      4   1.6       mrg  * Copyright (c) 1989, 1993
      5   1.6       mrg  *	The Regents of the University of California.  All rights reserved.
      6   1.1       cgd  *
      7   1.1       cgd  * Redistribution and use in source and binary forms, with or without
      8   1.1       cgd  * modification, are permitted provided that the following conditions
      9   1.1       cgd  * are met:
     10   1.1       cgd  * 1. Redistributions of source code must retain the above copyright
     11   1.1       cgd  *    notice, this list of conditions and the following disclaimer.
     12   1.1       cgd  * 2. Redistributions in binary form must reproduce the above copyright
     13   1.1       cgd  *    notice, this list of conditions and the following disclaimer in the
     14   1.1       cgd  *    documentation and/or other materials provided with the distribution.
     15  1.14       agc  * 3. Neither the name of the University nor the names of its contributors
     16   1.1       cgd  *    may be used to endorse or promote products derived from this software
     17   1.1       cgd  *    without specific prior written permission.
     18   1.1       cgd  *
     19   1.1       cgd  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
     20   1.1       cgd  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
     21   1.1       cgd  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
     22   1.1       cgd  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
     23   1.1       cgd  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
     24   1.1       cgd  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
     25   1.1       cgd  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
     26   1.1       cgd  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
     27   1.1       cgd  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
     28   1.1       cgd  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
     29   1.1       cgd  * SUCH DAMAGE.
     30   1.1       cgd  */
     31   1.1       cgd 
     32   1.7     lukem #include <sys/cdefs.h>
     33  1.13  augustss #if defined(__RCSID) && !defined(lint)
     34   1.5     mikel #if 0
     35   1.6       mrg static char sccsid[] = "@(#)display.c	8.1 (Berkeley) 6/6/93";
     36   1.5     mikel #else
     37  1.14       agc __RCSID("$NetBSD: display.c,v 1.14 2003/08/07 11:14:03 agc Exp $");
     38   1.5     mikel #endif
     39   1.1       cgd #endif /* not lint */
     40   1.1       cgd 
     41   1.1       cgd #include <sys/param.h>
     42   1.1       cgd #include <sys/stat.h>
     43   1.6       mrg 
     44   1.7     lukem #include <ctype.h>
     45   1.7     lukem #include <err.h>
     46   1.1       cgd #include <errno.h>
     47   1.1       cgd #include <stdio.h>
     48   1.1       cgd #include <stdlib.h>
     49   1.1       cgd #include <string.h>
     50   1.5     mikel #include <unistd.h>
     51   1.6       mrg 
     52   1.1       cgd #include "hexdump.h"
     53   1.1       cgd 
     54   1.1       cgd enum _vflag vflag = FIRST;
     55   1.1       cgd 
     56   1.1       cgd static off_t address;			/* address/offset in stream */
     57   1.1       cgd static off_t eaddress;			/* end address */
     58   1.1       cgd 
     59   1.6       mrg static inline void print __P((PR *, u_char *));
     60   1.1       cgd 
     61   1.5     mikel void
     62   1.1       cgd display()
     63   1.1       cgd {
     64   1.7     lukem 	FS *fs;
     65   1.7     lukem 	FU *fu;
     66   1.7     lukem 	PR *pr;
     67   1.7     lukem 	int cnt;
     68   1.7     lukem 	u_char *bp;
     69   1.1       cgd 	off_t saveaddress;
     70   1.5     mikel 	u_char savech, *savebp;
     71   1.1       cgd 
     72   1.7     lukem 	savech = 0;
     73   1.5     mikel 	while ((bp = get()) != NULL)
     74   1.1       cgd 	    for (fs = fshead, savebp = bp, saveaddress = address; fs;
     75   1.1       cgd 		fs = fs->nextfs, bp = savebp, address = saveaddress)
     76   1.1       cgd 		    for (fu = fs->nextfu; fu; fu = fu->nextfu) {
     77   1.1       cgd 			if (fu->flags&F_IGNORE)
     78   1.1       cgd 				break;
     79   1.1       cgd 			for (cnt = fu->reps; cnt; --cnt)
     80   1.1       cgd 			    for (pr = fu->nextpr; pr; address += pr->bcnt,
     81   1.1       cgd 				bp += pr->bcnt, pr = pr->nextpr) {
     82   1.1       cgd 				    if (eaddress && address >= eaddress &&
     83   1.6       mrg 					!(pr->flags & (F_TEXT|F_BPAD)))
     84   1.1       cgd 					    bpad(pr);
     85   1.1       cgd 				    if (cnt == 1 && pr->nospace) {
     86   1.1       cgd 					savech = *pr->nospace;
     87   1.1       cgd 					*pr->nospace = '\0';
     88   1.1       cgd 				    }
     89   1.6       mrg 				    print(pr, bp);
     90   1.1       cgd 				    if (cnt == 1 && pr->nospace)
     91   1.1       cgd 					*pr->nospace = savech;
     92   1.1       cgd 			    }
     93   1.1       cgd 		    }
     94   1.1       cgd 	if (endfu) {
     95   1.1       cgd 		/*
     96   1.6       mrg 		 * If eaddress not set, error or file size was multiple of
     97   1.1       cgd 		 * blocksize, and no partial block ever found.
     98   1.1       cgd 		 */
     99   1.1       cgd 		if (!eaddress) {
    100   1.1       cgd 			if (!address)
    101   1.1       cgd 				return;
    102   1.1       cgd 			eaddress = address;
    103   1.1       cgd 		}
    104   1.1       cgd 		for (pr = endfu->nextpr; pr; pr = pr->nextpr)
    105   1.1       cgd 			switch(pr->flags) {
    106   1.1       cgd 			case F_ADDRESS:
    107   1.6       mrg 				(void)printf(pr->fmt, (quad_t)eaddress);
    108   1.1       cgd 				break;
    109   1.1       cgd 			case F_TEXT:
    110   1.9    itojun 				(void)printf("%s", pr->fmt);
    111   1.1       cgd 				break;
    112   1.1       cgd 			}
    113   1.1       cgd 	}
    114   1.1       cgd }
    115   1.1       cgd 
    116   1.6       mrg static inline void
    117   1.6       mrg print(pr, bp)
    118   1.6       mrg 	PR *pr;
    119   1.6       mrg 	u_char *bp;
    120   1.6       mrg {
    121   1.6       mrg 	   double f8;
    122   1.6       mrg 	    float f4;
    123   1.6       mrg 	  int16_t s2;
    124   1.6       mrg 	  int32_t s4;
    125  1.11     bjh21 	  int64_t s8;
    126   1.6       mrg 	u_int16_t u2;
    127   1.6       mrg 	u_int32_t u4;
    128   1.6       mrg 	u_int64_t u8;
    129   1.6       mrg 
    130   1.6       mrg 	switch(pr->flags) {
    131   1.6       mrg 	case F_ADDRESS:
    132   1.6       mrg 		(void)printf(pr->fmt, (quad_t)address);
    133   1.6       mrg 		break;
    134   1.6       mrg 	case F_BPAD:
    135   1.6       mrg 		(void)printf(pr->fmt, "");
    136   1.6       mrg 		break;
    137   1.6       mrg 	case F_C:
    138   1.6       mrg 		conv_c(pr, bp);
    139   1.6       mrg 		break;
    140   1.6       mrg 	case F_CHAR:
    141   1.6       mrg 		(void)printf(pr->fmt, *bp);
    142   1.6       mrg 		break;
    143   1.6       mrg 	case F_DBL:
    144   1.6       mrg 		switch(pr->bcnt) {
    145   1.6       mrg 		case 4:
    146   1.7     lukem 			memmove(&f4, bp, sizeof(f4));
    147   1.6       mrg 			(void)printf(pr->fmt, f4);
    148   1.6       mrg 			break;
    149   1.6       mrg 		case 8:
    150   1.7     lukem 			memmove(&f8, bp, sizeof(f8));
    151   1.6       mrg 			(void)printf(pr->fmt, f8);
    152   1.6       mrg 			break;
    153   1.6       mrg 		}
    154   1.6       mrg 		break;
    155   1.6       mrg 	case F_INT:
    156   1.6       mrg 		switch(pr->bcnt) {
    157   1.6       mrg 		case 1:
    158   1.6       mrg 			(void)printf(pr->fmt, (quad_t)*bp);
    159   1.6       mrg 			break;
    160   1.6       mrg 		case 2:
    161   1.7     lukem 			memmove(&s2, bp, sizeof(s2));
    162   1.6       mrg 			(void)printf(pr->fmt, (quad_t)s2);
    163   1.6       mrg 			break;
    164   1.6       mrg 		case 4:
    165   1.7     lukem 			memmove(&s4, bp, sizeof(s4));
    166   1.6       mrg 			(void)printf(pr->fmt, (quad_t)s4);
    167   1.6       mrg 			break;
    168   1.6       mrg 		case 8:
    169   1.7     lukem 			memmove(&s8, bp, sizeof(s8));
    170   1.6       mrg 			(void)printf(pr->fmt, s8);
    171   1.6       mrg 			break;
    172   1.6       mrg 		}
    173   1.6       mrg 		break;
    174   1.6       mrg 	case F_P:
    175   1.6       mrg 		(void)printf(pr->fmt, isprint(*bp) ? *bp : '.');
    176   1.6       mrg 		break;
    177   1.6       mrg 	case F_STR:
    178   1.6       mrg 		(void)printf(pr->fmt, (char *)bp);
    179   1.6       mrg 		break;
    180   1.6       mrg 	case F_TEXT:
    181   1.9    itojun 		(void)printf("%s", pr->fmt);
    182   1.6       mrg 		break;
    183   1.6       mrg 	case F_U:
    184   1.6       mrg 		conv_u(pr, bp);
    185   1.6       mrg 		break;
    186   1.6       mrg 	case F_UINT:
    187   1.6       mrg 		switch(pr->bcnt) {
    188   1.6       mrg 		case 1:
    189   1.6       mrg 			(void)printf(pr->fmt, (u_quad_t)*bp);
    190   1.6       mrg 			break;
    191   1.6       mrg 		case 2:
    192   1.7     lukem 			memmove(&u2, bp, sizeof(u2));
    193   1.6       mrg 			(void)printf(pr->fmt, (u_quad_t)u2);
    194   1.6       mrg 			break;
    195   1.6       mrg 		case 4:
    196   1.7     lukem 			memmove(&u4, bp, sizeof(u4));
    197   1.6       mrg 			(void)printf(pr->fmt, (u_quad_t)u4);
    198   1.6       mrg 			break;
    199   1.6       mrg 		case 8:
    200   1.7     lukem 			memmove(&u8, bp, sizeof(u8));
    201   1.6       mrg 			(void)printf(pr->fmt, u8);
    202   1.6       mrg 			break;
    203   1.6       mrg 		}
    204   1.6       mrg 		break;
    205   1.6       mrg 	}
    206   1.6       mrg }
    207   1.6       mrg 
    208   1.5     mikel void
    209   1.1       cgd bpad(pr)
    210   1.1       cgd 	PR *pr;
    211   1.1       cgd {
    212   1.5     mikel 	static const char *spec = " -0+#";
    213   1.7     lukem 	char *p1, *p2;
    214   1.1       cgd 
    215   1.1       cgd 	/*
    216   1.6       mrg 	 * Remove all conversion flags; '-' is the only one valid
    217   1.1       cgd 	 * with %s, and it's not useful here.
    218   1.1       cgd 	 */
    219   1.1       cgd 	pr->flags = F_BPAD;
    220   1.6       mrg 	pr->cchar[0] = 's';
    221   1.6       mrg 	pr->cchar[1] = '\0';
    222   1.1       cgd 	for (p1 = pr->fmt; *p1 != '%'; ++p1);
    223   1.5     mikel 	for (p2 = ++p1; *p1 && strchr(spec, *p1); ++p1);
    224   1.5     mikel 	while ((*p2++ = *p1++) != '\0');
    225   1.1       cgd }
    226   1.1       cgd 
    227   1.1       cgd static char **_argv;
    228   1.1       cgd 
    229   1.1       cgd u_char *
    230   1.1       cgd get()
    231   1.1       cgd {
    232   1.1       cgd 	static int ateof = 1;
    233   1.1       cgd 	static u_char *curp, *savp;
    234   1.7     lukem 	int n;
    235   1.1       cgd 	int need, nread;
    236   1.1       cgd 	u_char *tmpp;
    237   1.1       cgd 
    238   1.1       cgd 	if (!curp) {
    239   1.6       mrg 		curp = emalloc(blocksize);
    240   1.6       mrg 		savp = emalloc(blocksize);
    241   1.1       cgd 	} else {
    242   1.1       cgd 		tmpp = curp;
    243   1.1       cgd 		curp = savp;
    244   1.1       cgd 		savp = tmpp;
    245   1.6       mrg 		address += blocksize;
    246   1.1       cgd 	}
    247   1.1       cgd 	for (need = blocksize, nread = 0;;) {
    248   1.1       cgd 		/*
    249   1.1       cgd 		 * if read the right number of bytes, or at EOF for one file,
    250   1.1       cgd 		 * and no other files are available, zero-pad the rest of the
    251   1.1       cgd 		 * block and set the end flag.
    252   1.1       cgd 		 */
    253   1.5     mikel 		if (!length || (ateof && !next(NULL))) {
    254   1.1       cgd 			if (need == blocksize)
    255   1.5     mikel 				return(NULL);
    256  1.10  christos 			if (!need && vflag != ALL &&
    257  1.10  christos 			    !memcmp(curp, savp, nread)) {
    258   1.1       cgd 				if (vflag != DUP)
    259   1.1       cgd 					(void)printf("*\n");
    260   1.5     mikel 				return(NULL);
    261   1.1       cgd 			}
    262   1.7     lukem 			memset((char *)curp + nread, 0, need);
    263   1.1       cgd 			eaddress = address + nread;
    264   1.1       cgd 			return(curp);
    265   1.1       cgd 		}
    266   1.1       cgd 		n = fread((char *)curp + nread, sizeof(u_char),
    267   1.1       cgd 		    length == -1 ? need : MIN(length, need), stdin);
    268   1.1       cgd 		if (!n) {
    269   1.1       cgd 			if (ferror(stdin))
    270   1.7     lukem 				warn("%s", _argv[-1]);
    271   1.1       cgd 			ateof = 1;
    272   1.1       cgd 			continue;
    273   1.1       cgd 		}
    274   1.1       cgd 		ateof = 0;
    275   1.1       cgd 		if (length != -1)
    276   1.1       cgd 			length -= n;
    277   1.1       cgd 		if (!(need -= n)) {
    278   1.1       cgd 			if (vflag == ALL || vflag == FIRST ||
    279   1.7     lukem 			    memcmp(curp, savp, blocksize)) {
    280   1.1       cgd 				if (vflag == DUP || vflag == FIRST)
    281   1.1       cgd 					vflag = WAIT;
    282   1.1       cgd 				return(curp);
    283   1.1       cgd 			}
    284   1.1       cgd 			if (vflag == WAIT)
    285   1.1       cgd 				(void)printf("*\n");
    286   1.1       cgd 			vflag = DUP;
    287   1.6       mrg 			address += blocksize;
    288   1.1       cgd 			need = blocksize;
    289   1.1       cgd 			nread = 0;
    290   1.1       cgd 		}
    291   1.1       cgd 		else
    292   1.1       cgd 			nread += n;
    293   1.1       cgd 	}
    294   1.1       cgd }
    295   1.1       cgd 
    296   1.5     mikel int
    297   1.1       cgd next(argv)
    298   1.1       cgd 	char **argv;
    299   1.1       cgd {
    300   1.1       cgd 	static int done;
    301   1.1       cgd 	int statok;
    302   1.1       cgd 
    303   1.1       cgd 	if (argv) {
    304   1.1       cgd 		_argv = argv;
    305   1.1       cgd 		return(1);
    306   1.1       cgd 	}
    307   1.1       cgd 	for (;;) {
    308   1.1       cgd 		if (*_argv) {
    309   1.1       cgd 			if (!(freopen(*_argv, "r", stdin))) {
    310   1.7     lukem 				warn("%s", *_argv);
    311   1.1       cgd 				exitval = 1;
    312   1.1       cgd 				++_argv;
    313   1.1       cgd 				continue;
    314   1.1       cgd 			}
    315   1.1       cgd 			statok = done = 1;
    316   1.1       cgd 		} else {
    317   1.1       cgd 			if (done++)
    318   1.1       cgd 				return(0);
    319   1.1       cgd 			statok = 0;
    320   1.1       cgd 		}
    321   1.1       cgd 		if (skip)
    322   1.1       cgd 			doskip(statok ? *_argv : "stdin", statok);
    323   1.1       cgd 		if (*_argv)
    324   1.1       cgd 			++_argv;
    325   1.1       cgd 		if (!skip)
    326   1.1       cgd 			return(1);
    327   1.1       cgd 	}
    328   1.1       cgd 	/* NOTREACHED */
    329   1.1       cgd }
    330   1.1       cgd 
    331   1.5     mikel void
    332   1.1       cgd doskip(fname, statok)
    333  1.12     bjh21 	const char *fname;
    334   1.1       cgd 	int statok;
    335   1.1       cgd {
    336   1.7     lukem 	int cnt;
    337   1.6       mrg 	struct stat sb;
    338   1.1       cgd 
    339   1.1       cgd 	if (statok) {
    340   1.6       mrg 		if (fstat(fileno(stdin), &sb))
    341   1.7     lukem 			err(1, "fstat %s", fname);
    342   1.6       mrg 		if (S_ISREG(sb.st_mode) && skip >= sb.st_size) {
    343   1.6       mrg 			address += sb.st_size;
    344   1.6       mrg 			skip -= sb.st_size;
    345   1.1       cgd 			return;
    346   1.1       cgd 		}
    347   1.1       cgd 	}
    348   1.6       mrg 	if (S_ISREG(sb.st_mode)) {
    349   1.6       mrg 		if (fseek(stdin, skip, SEEK_SET))
    350   1.7     lukem 			err(1, "fseek %s", fname);
    351   1.6       mrg 		address += skip;
    352   1.6       mrg 		skip = 0;
    353   1.6       mrg 	} else {
    354   1.6       mrg 		for (cnt = 0; cnt < skip; ++cnt)
    355   1.6       mrg 			if (getchar() == EOF)
    356   1.6       mrg 				break;
    357   1.6       mrg 		address += cnt;
    358   1.6       mrg 		skip -= cnt;
    359   1.1       cgd 	}
    360   1.1       cgd }
    361   1.1       cgd 
    362   1.6       mrg void *
    363  1.12     bjh21 emalloc(allocsize)
    364  1.12     bjh21 	int allocsize;
    365   1.1       cgd {
    366   1.6       mrg 	void *p;
    367   1.1       cgd 
    368  1.12     bjh21 	if ((p = malloc((u_int)allocsize)) == NULL)
    369   1.1       cgd 		nomem();
    370  1.12     bjh21 	memset(p, 0, allocsize);
    371   1.1       cgd 	return(p);
    372   1.1       cgd }
    373   1.1       cgd 
    374   1.5     mikel void
    375   1.1       cgd nomem()
    376   1.1       cgd {
    377   1.8  drochner 	err(1, NULL);
    378   1.1       cgd }
    379