/* * print.c - debugging printout routines * * Copyright (c) Ian F. Darwin, 1987. * Written by Ian F. Darwin. * * This software is not subject to any license of the American Telephone * and Telegraph Company or of the Regents of the University of California. * * Permission is granted to anyone to use this software for any purpose on * any computer system, and to alter it and redistribute it freely, subject * to the following restrictions: * * 1. The author is not responsible for the consequences of use of this * software, no matter how awful, even if they arise from flaws in it. * * 2. The origin of this software must not be misrepresented, either by * explicit claim or by omission. Since few users ever read sources, * credits must appear in the documentation. * * 3. Altered versions must be plainly marked as such, and must not be * misrepresented as being the original software. Since few users * ever read sources, credits must appear in the documentation. * * 4. This notice may not be removed or altered. */ #include #include #include #if __STDC__ # include #else # include #endif #include #include #include #include "file.h" #ifndef lint static char *moduleid = "@(#)$Id: print.c,v 1.1.1.1 1994/09/03 19:16:22 csgr Exp $"; #endif /* lint */ #define SZOF(a) (sizeof(a) / sizeof(a[0])) void mdump(m) struct magic *m; { static char *typ[] = { "invalid", "byte", "short", "invalid", "long", "string", "date", "beshort", "belong", "bedate", "leshort", "lelong", "ledate" }; (void) fputc('[', stderr); (void) fprintf(stderr, ">>>>>>>> %d" + 8 - (m->cont_level & 7), m->offset); if (m->flag & INDIR) (void) fprintf(stderr, "(%s,%d),", (m->in.type >= 0 && m->in.type < SZOF(typ)) ? typ[(unsigned char) m->in.type] : "*bad*", m->in.offset); (void) fprintf(stderr, " %s%s", (m->flag & UNSIGNED) ? "u" : "", (m->type >= 0 && m->type < SZOF(typ)) ? typ[(unsigned char) m->type] : "*bad*"); if (m->mask != ~0L) (void) fprintf(stderr, " & %.8x", m->mask); (void) fprintf(stderr, ",%c", m->reln); if (m->reln != 'x') { switch (m->type) { case BYTE: case SHORT: case LONG: case LESHORT: case LELONG: case BESHORT: case BELONG: (void) fprintf(stderr, "%d", m->value.l); break; case STRING: showstr(stderr, m->value.s, -1); break; case DATE: case LEDATE: case BEDATE: { char *rt, *pp = ctime((time_t*) &m->value.l); if ((rt = strchr(pp, '\n')) != NULL) *rt = '\0'; (void) fprintf(stderr, "%s,", pp); if (rt) *rt = '\n'; } break; default: (void) fputs("*bad*", stderr); break; } } (void) fprintf(stderr, ",\"%s\"]\n", m->desc); } /* * ckfputs - futs, but with error checking * ckfprintf - fprintf, but with error checking */ void ckfputs(str, fil) const char *str; FILE *fil; { if (fputs(str,fil) == EOF) error("write failed.\n"); } /*VARARGS*/ void #if __STDC__ ckfprintf(FILE *f, const char *fmt, ...) #else ckfprintf(va_alist) va_dcl #endif { va_list va; #if __STDC__ va_start(va, fmt); #else FILE *f; const char *fmt; va_start(va); f = va_arg(va, FILE *); fmt = va_arg(va, const char *); #endif (void) vfprintf(f, fmt, va); if (ferror(f)) error("write failed.\n"); va_end(va); } /* * error - print best error message possible and exit */ /*VARARGS*/ void #if __STDC__ error(const char *f, ...) #else error(va_alist) va_dcl #endif { va_list va; #if __STDC__ va_start(va, f); #else const char *f; va_start(va); f = va_arg(va, const char *); #endif /* cuz we use stdout for most, stderr here */ (void) fflush(stdout); if (progname != NULL) (void) fprintf(stderr, "%s: ", progname); (void) vfprintf(stderr, f, va); va_end(va); exit(1); } /*VARARGS*/ void #if __STDC__ magwarn(const char *f, ...) #else magwarn(va_alist) va_dcl #endif { va_list va; #if __STDC__ va_start(va, f); #else const char *f; va_start(va); f = va_arg(va, const char *); #endif /* cuz we use stdout for most, stderr here */ (void) fflush(stdout); if (progname != NULL) (void) fprintf(stderr, "%s: %s, %d: ", progname, magicfile, lineno); (void) vfprintf(stderr, f, va); va_end(va); fputc('\n', stderr); }