print.c 6.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239
  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. #include "file.h"
  32. #ifndef lint
  33. FILE_RCSID("@(#)$File: print.c,v 1.70 2011/08/14 09:03:12 christos Exp $")
  34. #endif /* lint */
  35. #include <string.h>
  36. #include <stdarg.h>
  37. #include <stdlib.h>
  38. #ifdef HAVE_UNISTD_H
  39. #include <unistd.h>
  40. #endif
  41. #include <time.h>
  42. #define SZOF(a) (sizeof(a) / sizeof(a[0]))
  43. #ifndef COMPILE_ONLY
  44. protected void
  45. file_mdump(struct magic *m)
  46. {
  47. private const char optyp[] = { FILE_OPS };
  48. (void) fprintf(stderr, "%.*s %u", (m->cont_level & 7) + 1, ">>>>>>>>",
  49. m->offset);
  50. if (m->flag & INDIR) {
  51. (void) fprintf(stderr, "(%s,",
  52. /* Note: type is unsigned */
  53. (m->in_type < file_nnames) ?
  54. file_names[m->in_type] : "*bad*");
  55. if (m->in_op & FILE_OPINVERSE)
  56. (void) fputc('~', stderr);
  57. (void) fprintf(stderr, "%c%u),",
  58. ((size_t)(m->in_op & FILE_OPS_MASK) <
  59. SZOF(optyp)) ?
  60. optyp[m->in_op & FILE_OPS_MASK] : '?',
  61. m->in_offset);
  62. }
  63. (void) fprintf(stderr, " %s%s", (m->flag & UNSIGNED) ? "u" : "",
  64. /* Note: type is unsigned */
  65. (m->type < file_nnames) ? file_names[m->type] : "*bad*");
  66. if (m->mask_op & FILE_OPINVERSE)
  67. (void) fputc('~', stderr);
  68. if (IS_STRING(m->type)) {
  69. if (m->str_flags) {
  70. (void) fputc('/', stderr);
  71. if (m->str_flags & STRING_COMPACT_WHITESPACE)
  72. (void) fputc(CHAR_COMPACT_WHITESPACE, stderr);
  73. if (m->str_flags & STRING_COMPACT_OPTIONAL_WHITESPACE)
  74. (void) fputc(CHAR_COMPACT_OPTIONAL_WHITESPACE,
  75. stderr);
  76. if (m->str_flags & STRING_IGNORE_LOWERCASE)
  77. (void) fputc(CHAR_IGNORE_LOWERCASE, stderr);
  78. if (m->str_flags & STRING_IGNORE_UPPERCASE)
  79. (void) fputc(CHAR_IGNORE_UPPERCASE, stderr);
  80. if (m->str_flags & REGEX_OFFSET_START)
  81. (void) fputc(CHAR_REGEX_OFFSET_START, stderr);
  82. }
  83. if (m->str_range)
  84. (void) fprintf(stderr, "/%u", m->str_range);
  85. }
  86. else {
  87. if ((size_t)(m->mask_op & FILE_OPS_MASK) < SZOF(optyp))
  88. (void) fputc(optyp[m->mask_op & FILE_OPS_MASK], stderr);
  89. else
  90. (void) fputc('?', stderr);
  91. if (m->num_mask) {
  92. (void) fprintf(stderr, "%.8llx",
  93. (unsigned long long)m->num_mask);
  94. }
  95. }
  96. (void) fprintf(stderr, ",%c", m->reln);
  97. if (m->reln != 'x') {
  98. switch (m->type) {
  99. case FILE_BYTE:
  100. case FILE_SHORT:
  101. case FILE_LONG:
  102. case FILE_LESHORT:
  103. case FILE_LELONG:
  104. case FILE_MELONG:
  105. case FILE_BESHORT:
  106. case FILE_BELONG:
  107. (void) fprintf(stderr, "%d", m->value.l);
  108. break;
  109. case FILE_BEQUAD:
  110. case FILE_LEQUAD:
  111. case FILE_QUAD:
  112. (void) fprintf(stderr, "%" INT64_T_FORMAT "d",
  113. (unsigned long long)m->value.q);
  114. break;
  115. case FILE_PSTRING:
  116. case FILE_STRING:
  117. case FILE_REGEX:
  118. case FILE_BESTRING16:
  119. case FILE_LESTRING16:
  120. case FILE_SEARCH:
  121. file_showstr(stderr, m->value.s, (size_t)m->vallen);
  122. break;
  123. case FILE_DATE:
  124. case FILE_LEDATE:
  125. case FILE_BEDATE:
  126. case FILE_MEDATE:
  127. (void)fprintf(stderr, "%s,",
  128. file_fmttime(m->value.l, 1));
  129. break;
  130. case FILE_LDATE:
  131. case FILE_LELDATE:
  132. case FILE_BELDATE:
  133. case FILE_MELDATE:
  134. (void)fprintf(stderr, "%s,",
  135. file_fmttime(m->value.l, 0));
  136. break;
  137. case FILE_QDATE:
  138. case FILE_LEQDATE:
  139. case FILE_BEQDATE:
  140. (void)fprintf(stderr, "%s,",
  141. file_fmttime((uint32_t)m->value.q, 1));
  142. break;
  143. case FILE_QLDATE:
  144. case FILE_LEQLDATE:
  145. case FILE_BEQLDATE:
  146. (void)fprintf(stderr, "%s,",
  147. file_fmttime((uint32_t)m->value.q, 0));
  148. break;
  149. case FILE_FLOAT:
  150. case FILE_BEFLOAT:
  151. case FILE_LEFLOAT:
  152. (void) fprintf(stderr, "%G", m->value.f);
  153. break;
  154. case FILE_DOUBLE:
  155. case FILE_BEDOUBLE:
  156. case FILE_LEDOUBLE:
  157. (void) fprintf(stderr, "%G", m->value.d);
  158. break;
  159. case FILE_DEFAULT:
  160. /* XXX - do anything here? */
  161. break;
  162. default:
  163. (void) fputs("*bad*", stderr);
  164. break;
  165. }
  166. }
  167. (void) fprintf(stderr, ",\"%s\"]\n", m->desc);
  168. }
  169. #endif
  170. /*VARARGS*/
  171. protected void
  172. file_magwarn(struct magic_set *ms, const char *f, ...)
  173. {
  174. va_list va;
  175. /* cuz we use stdout for most, stderr here */
  176. (void) fflush(stdout);
  177. if (ms->file)
  178. (void) fprintf(stderr, "%s, %lu: ", ms->file,
  179. (unsigned long)ms->line);
  180. (void) fprintf(stderr, "Warning: ");
  181. va_start(va, f);
  182. (void) vfprintf(stderr, f, va);
  183. va_end(va);
  184. (void) fputc('\n', stderr);
  185. }
  186. protected const char *
  187. file_fmttime(uint32_t v, int local)
  188. {
  189. char *pp;
  190. time_t t = (time_t)v;
  191. struct tm *tm;
  192. if (local) {
  193. pp = ctime(&t);
  194. } else {
  195. #ifndef HAVE_DAYLIGHT
  196. private int daylight = 0;
  197. #ifdef HAVE_TM_ISDST
  198. private time_t now = (time_t)0;
  199. if (now == (time_t)0) {
  200. struct tm *tm1;
  201. (void)time(&now);
  202. tm1 = localtime(&now);
  203. if (tm1 == NULL)
  204. goto out;
  205. daylight = tm1->tm_isdst;
  206. }
  207. #endif /* HAVE_TM_ISDST */
  208. #endif /* HAVE_DAYLIGHT */
  209. if (daylight)
  210. t += 3600;
  211. tm = gmtime(&t);
  212. if (tm == NULL)
  213. goto out;
  214. pp = asctime(tm);
  215. }
  216. if (pp == NULL)
  217. goto out;
  218. pp[strcspn(pp, "\n")] = '\0';
  219. return pp;
  220. out:
  221. return "*Invalid time*";
  222. }