contrib/file/print.c

   1 /*
   2  * print.c - debugging printout routines
   3  *
   4  * Copyright (c) Ian F. Darwin, 1987.
   5  * Written by Ian F. Darwin.
   6  *
   7  * This software is not subject to any license of the American Telephone
   8  * and Telegraph Company or of the Regents of the University of California.
   9  *
  10  * Permission is granted to anyone to use this software for any purpose on
  11  * any computer system, and to alter it and redistribute it freely, subject
  12  * to the following restrictions:
  13  *
  14  * 1. The author is not responsible for the consequences of use of this
  15  *    software, no matter how awful, even if they arise from flaws in it.
  16  *
  17  * 2. The origin of this software must not be misrepresented, either by
  18  *    explicit claim or by omission.  Since few users ever read sources,
  19  *    credits must appear in the documentation.
  20  *
  21  * 3. Altered versions must be plainly marked as such, and must not be
  22  *    misrepresented as being the original software.  Since few users
  23  *    ever read sources, credits must appear in the documentation.
  24  *
  25  * 4. This notice may not be removed or altered.
  26  */
  27
  28 #include "file.h"
  29 #include <string.h>
  30 #ifdef __STDC__
  31 # include <stdarg.h>
  32 #else
  33 # include <varargs.h>
  34 #endif
  35 #include <stdlib.h>
  36 #ifdef HAVE_UNISTD_H
  37 #include <unistd.h>
  38 #endif
  39 #include <time.h>
  40
  41 #ifndef lint
  42 FILE_RCSID("@(#)$Id: print.c,v 1.38 2002/07/03 18:37:44 christos Exp $")
  43 #endif  /* lint */
  44
  45 #define SZOF(a) (sizeof(a) / sizeof(a[0]))
  46
  47 #ifndef COMPILE_ONLY
  48 void
  49 mdump(struct magic *m)
  50 {
  51         static const char *typ[] = { "invalid", "byte", "short", "invalid",
  52                                      "long", "string", "date", "beshort",
  53                                      "belong", "bedate", "leshort", "lelong",
  54                                      "ledate", "pstring", "ldate", "beldate",
  55                                      "leldate", "regex" };
  56         static const char optyp[] = { '@', '&', '|', '^', '+', '-',
  57                                       '*', '/', '%' };
  58         (void) fputc('[', stderr);
  59         (void) fprintf(stderr, ">>>>>>>> %d" + 8 - (m->cont_level & 7),
  60                        m->offset);
  61
  62         if (m->flag & INDIR) {
  63                 (void) fprintf(stderr, "(%s,",
  64                                /* Note: type is unsigned */
  65                                (m->in_type < SZOF(typ)) ?
  66                                         typ[m->in_type] : "*bad*");
  67                 if (m->in_op & OPINVERSE)
  68                         (void) fputc('~', stderr);
  69                 (void) fprintf(stderr, "%c%d),",
  70                                ((m->in_op&0x7F) < SZOF(optyp)) ?
  71                                         optyp[m->in_op&0x7F] : '?',
  72                                 m->in_offset);
  73         }
  74         (void) fprintf(stderr, " %s%s", (m->flag & UNSIGNED) ? "u" : "",
  75                        /* Note: type is unsigned */
  76                        (m->type < SZOF(typ)) ? typ[m->type] : "*bad*");
  77         if (m->mask_op & OPINVERSE)
  78                 (void) fputc('~', stderr);
  79         if (m->mask) {
  80                 ((m->mask_op&0x7F) < SZOF(optyp)) ?
  81                         (void) fputc(optyp[m->mask_op&0x7F], stderr) :
  82                         (void) fputc('?', stderr);
  83                 if(STRING != m->type || PSTRING != m->type)
  84                         (void) fprintf(stderr, "%.8x", m->mask);
  85                 else {
  86                         if (m->mask & STRING_IGNORE_LOWERCASE)
  87                                 (void) fputc(CHAR_IGNORE_LOWERCASE, stderr);
  88                         if (m->mask & STRING_COMPACT_BLANK)
  89                                 (void) fputc(CHAR_COMPACT_BLANK, stderr);
  90                         if (m->mask & STRING_COMPACT_OPTIONAL_BLANK)
  91                                 (void) fputc(CHAR_COMPACT_OPTIONAL_BLANK,
  92                                 stderr);
  93                 }
  94         }
  95
  96         (void) fprintf(stderr, ",%c", m->reln);
  97
  98         if (m->reln != 'x') {
  99                 switch (m->type) {
 100                 case BYTE:
 101                 case SHORT:
 102                 case LONG:
 103                 case LESHORT:
 104                 case LELONG:
 105                 case BESHORT:
 106                 case BELONG:
 107                         (void) fprintf(stderr, "%d", m->value.l);
 108                         break;
 109                 case STRING:
 110                 case PSTRING:
 111                 case REGEX:
 112                         showstr(stderr, m->value.s, -1);
 113                         break;
 114                 case DATE:
 115                 case LEDATE:
 116                 case BEDATE:
 117                         (void)fprintf(stderr, "%s,", fmttime(m->value.l, 1));
 118                         break;
 119                 case LDATE:
 120                 case LELDATE:
 121                 case BELDATE:
 122                         (void)fprintf(stderr, "%s,", fmttime(m->value.l, 0));
 123                         break;
 124                 default:
 125                         (void) fputs("*bad*", stderr);
 126                         break;
 127                 }
 128         }
 129         (void) fprintf(stderr, ",\"%s\"]\n", m->desc);
 130 }
 131 #endif
 132
 133 /*
 134  * ckfputs - fputs, but with error checking
 135  * ckfprintf - fprintf, but with error checking
 136  */
 137 void
 138 ckfputs(const char *str, FILE *fil)
 139 {
 140         if (fputs(str,fil) == EOF)
 141                 error("write failed.\n");
 142 }
 143
 144 /*VARARGS*/
 145 void
 146 ckfprintf(FILE *f, const char *fmt, ...)
 147 {
 148         va_list va;
 149
 150         va_start(va, fmt);
 151         (void) vfprintf(f, fmt, va);
 152         if (ferror(f))
 153                 error("write failed.\n");
 154         va_end(va);
 155 }
 156
 157 /*
 158  * error - print best error message possible and exit
 159  */
 160 /*VARARGS*/
 161 void
 162 error(const char *f, ...)
 163 {
 164         va_list va;
 165
 166         va_start(va, f);
 167         /* cuz we use stdout for most, stderr here */
 168         (void) fflush(stdout);
 169
 170         if (progname != NULL)
 171                 (void) fprintf(stderr, "%s: ", progname);
 172         (void) vfprintf(stderr, f, va);
 173         va_end(va);
 174         exit(1);
 175 }
 176
 177 /*VARARGS*/
 178 void
 179 magwarn(const char *f, ...)
 180 {
 181         va_list va;
 182
 183         va_start(va, f);
 184         /* cuz we use stdout for most, stderr here */
 185         (void) fflush(stdout);
 186
 187         if (progname != NULL)
 188                 (void) fprintf(stderr, "%s: %s, %d: ",
 189                                progname, magicfile, lineno);
 190         (void) vfprintf(stderr, f, va);
 191         va_end(va);
 192         fputc('\n', stderr);
 193 }
 194
 195
 196 #ifndef COMPILE_ONLY
 197 char *
 198 fmttime(long v, int local)
 199 {
 200         char *pp, *rt;
 201         time_t t = (time_t)v;
 202         struct tm *tm;
 203
 204         if (local) {
 205                 pp = ctime(&t);
 206         } else {
 207 #ifndef HAVE_DAYLIGHT
 208                 static int daylight = 0;
 209 #ifdef HAVE_TM_ISDST
 210                 static time_t now = (time_t)0;
 211
 212                 if (now == (time_t)0) {
 213                         struct tm *tm1;
 214                         (void)time(&now);
 215                         tm1 = localtime(&now);
 216                         daylight = tm1->tm_isdst;
 217                 }
 218 #endif /* HAVE_TM_ISDST */
 219 #endif /* HAVE_DAYLIGHT */
 220                 if (daylight)
 221                         t += 3600;
 222                 tm = gmtime(&t);
 223                 pp = asctime(tm);
 224         }
 225
 226         if ((rt = strchr(pp, '\n')) != NULL)
 227                 *rt = '\0';
 228         return pp;
 229 }
 230 #endif