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
42FILE_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
48void
49mdump(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 */
137void
138ckfputs(const char *str, FILE *fil)
139{
140 if (fputs(str,fil) == EOF)
141 error("write failed.\n");
142}
143
144/*VARARGS*/
145void
146ckfprintf(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*/
161void
162error(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*/
178void
179magwarn(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
197char *
198fmttime(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