3bc4d85322146ff032c713b5db5eda2afbc62996
[dragonfly.git] / contrib / file / src / print.c
1 /*
2  * Copyright (c) Ian F. Darwin 1986-1995.
3  * Software written by Ian F. Darwin and others;
4  * maintained 1995-present by Christos Zoulas and others.
5  * 
6  * Redistribution and use in source and binary forms, with or without
7  * modification, are permitted provided that the following conditions
8  * are met:
9  * 1. Redistributions of source code must retain the above copyright
10  *    notice immediately at the beginning of the file, without modification,
11  *    this list of conditions, and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  *  
16  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
17  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
18  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
19  * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
20  * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
21  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
22  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
23  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
24  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
25  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
26  * SUCH DAMAGE.
27  */
28 /*
29  * print.c - debugging printout routines
30  */
31
32 #include "file.h"
33
34 #ifndef lint
35 FILE_RCSID("@(#)$File: print.c,v 1.70 2011/08/14 09:03:12 christos Exp $")
36 #endif  /* lint */
37
38 #include <string.h>
39 #include <stdarg.h>
40 #include <stdlib.h>
41 #ifdef HAVE_UNISTD_H
42 #include <unistd.h>
43 #endif
44 #include <time.h>
45
46 #define SZOF(a) (sizeof(a) / sizeof(a[0]))
47
48 #ifndef COMPILE_ONLY
49 protected void
50 file_mdump(struct magic *m)
51 {
52         private const char optyp[] = { FILE_OPS };
53
54         (void) fprintf(stderr, "%.*s %u", (m->cont_level & 7) + 1, ">>>>>>>>",
55                        m->offset);
56
57         if (m->flag & INDIR) {
58                 (void) fprintf(stderr, "(%s,",
59                                /* Note: type is unsigned */
60                                (m->in_type < file_nnames) ? 
61                                         file_names[m->in_type] : "*bad*");
62                 if (m->in_op & FILE_OPINVERSE)
63                         (void) fputc('~', stderr);
64                 (void) fprintf(stderr, "%c%u),",
65                                ((size_t)(m->in_op & FILE_OPS_MASK) <
66                                SZOF(optyp)) ? 
67                                         optyp[m->in_op & FILE_OPS_MASK] : '?',
68                                 m->in_offset);
69         }
70         (void) fprintf(stderr, " %s%s", (m->flag & UNSIGNED) ? "u" : "",
71                        /* Note: type is unsigned */
72                        (m->type < file_nnames) ? file_names[m->type] : "*bad*");
73         if (m->mask_op & FILE_OPINVERSE)
74                 (void) fputc('~', stderr);
75
76         if (IS_STRING(m->type)) {
77                 if (m->str_flags) {
78                         (void) fputc('/', stderr);
79                         if (m->str_flags & STRING_COMPACT_WHITESPACE) 
80                                 (void) fputc(CHAR_COMPACT_WHITESPACE, stderr);
81                         if (m->str_flags & STRING_COMPACT_OPTIONAL_WHITESPACE) 
82                                 (void) fputc(CHAR_COMPACT_OPTIONAL_WHITESPACE,
83                                     stderr);
84                         if (m->str_flags & STRING_IGNORE_LOWERCASE) 
85                                 (void) fputc(CHAR_IGNORE_LOWERCASE, stderr);
86                         if (m->str_flags & STRING_IGNORE_UPPERCASE) 
87                                 (void) fputc(CHAR_IGNORE_UPPERCASE, stderr);
88                         if (m->str_flags & REGEX_OFFSET_START) 
89                                 (void) fputc(CHAR_REGEX_OFFSET_START, stderr);
90                 }
91                 if (m->str_range)
92                         (void) fprintf(stderr, "/%u", m->str_range);
93         }
94         else {
95                 if ((size_t)(m->mask_op & FILE_OPS_MASK) < SZOF(optyp))
96                         (void) fputc(optyp[m->mask_op & FILE_OPS_MASK], stderr);
97                 else
98                         (void) fputc('?', stderr);
99                         
100                 if (m->num_mask) {
101                         (void) fprintf(stderr, "%.8llx",
102                             (unsigned long long)m->num_mask);
103                 }
104         }
105         (void) fprintf(stderr, ",%c", m->reln);
106
107         if (m->reln != 'x') {
108                 switch (m->type) {
109                 case FILE_BYTE:
110                 case FILE_SHORT:
111                 case FILE_LONG:
112                 case FILE_LESHORT:
113                 case FILE_LELONG:
114                 case FILE_MELONG:
115                 case FILE_BESHORT:
116                 case FILE_BELONG:
117                         (void) fprintf(stderr, "%d", m->value.l);
118                         break;
119                 case FILE_BEQUAD:
120                 case FILE_LEQUAD:
121                 case FILE_QUAD:
122                         (void) fprintf(stderr, "%" INT64_T_FORMAT "d",
123                             (unsigned long long)m->value.q);
124                         break;
125                 case FILE_PSTRING:
126                 case FILE_STRING:
127                 case FILE_REGEX:
128                 case FILE_BESTRING16:
129                 case FILE_LESTRING16:
130                 case FILE_SEARCH:
131                         file_showstr(stderr, m->value.s, (size_t)m->vallen);
132                         break;
133                 case FILE_DATE:
134                 case FILE_LEDATE:
135                 case FILE_BEDATE:
136                 case FILE_MEDATE:
137                         (void)fprintf(stderr, "%s,",
138                             file_fmttime(m->value.l, 1));
139                         break;
140                 case FILE_LDATE:
141                 case FILE_LELDATE:
142                 case FILE_BELDATE:
143                 case FILE_MELDATE:
144                         (void)fprintf(stderr, "%s,",
145                             file_fmttime(m->value.l, 0));
146                         break;
147                 case FILE_QDATE:
148                 case FILE_LEQDATE:
149                 case FILE_BEQDATE:
150                         (void)fprintf(stderr, "%s,",
151                             file_fmttime((uint32_t)m->value.q, 1));
152                         break;
153                 case FILE_QLDATE:
154                 case FILE_LEQLDATE:
155                 case FILE_BEQLDATE:
156                         (void)fprintf(stderr, "%s,",
157                             file_fmttime((uint32_t)m->value.q, 0));
158                         break;
159                 case FILE_FLOAT:
160                 case FILE_BEFLOAT:
161                 case FILE_LEFLOAT:
162                         (void) fprintf(stderr, "%G", m->value.f);
163                         break;
164                 case FILE_DOUBLE:
165                 case FILE_BEDOUBLE:
166                 case FILE_LEDOUBLE:
167                         (void) fprintf(stderr, "%G", m->value.d);
168                         break;
169                 case FILE_DEFAULT:
170                         /* XXX - do anything here? */
171                         break;
172                 default:
173                         (void) fputs("*bad*", stderr);
174                         break;
175                 }
176         }
177         (void) fprintf(stderr, ",\"%s\"]\n", m->desc);
178 }
179 #endif
180
181 /*VARARGS*/
182 protected void
183 file_magwarn(struct magic_set *ms, const char *f, ...)
184 {
185         va_list va;
186
187         /* cuz we use stdout for most, stderr here */
188         (void) fflush(stdout); 
189
190         if (ms->file)
191                 (void) fprintf(stderr, "%s, %lu: ", ms->file,
192                     (unsigned long)ms->line);
193         (void) fprintf(stderr, "Warning: ");
194         va_start(va, f);
195         (void) vfprintf(stderr, f, va);
196         va_end(va);
197         (void) fputc('\n', stderr);
198 }
199
200 protected const char *
201 file_fmttime(uint32_t v, int local)
202 {
203         char *pp;
204         time_t t = (time_t)v;
205         struct tm *tm;
206
207         if (local) {
208                 pp = ctime(&t);
209         } else {
210 #ifndef HAVE_DAYLIGHT
211                 private int daylight = 0;
212 #ifdef HAVE_TM_ISDST
213                 private time_t now = (time_t)0;
214
215                 if (now == (time_t)0) {
216                         struct tm *tm1;
217                         (void)time(&now);
218                         tm1 = localtime(&now);
219                         if (tm1 == NULL)
220                                 goto out;
221                         daylight = tm1->tm_isdst;
222                 }
223 #endif /* HAVE_TM_ISDST */
224 #endif /* HAVE_DAYLIGHT */
225                 if (daylight)
226                         t += 3600;
227                 tm = gmtime(&t);
228                 if (tm == NULL)
229                         goto out;
230                 pp = asctime(tm);
231         }
232
233         if (pp == NULL)
234                 goto out;
235         pp[strcspn(pp, "\n")] = '\0';
236         return pp;
237 out:
238         return "*Invalid time*";
239 }