/src/file/src/softmagic.c

Source (jump to first uncovered line)
/*
 * Copyright (c) Ian F. Darwin 1986-1995.
 * Software written by Ian F. Darwin and others;
 * maintained 1995-present by Christos Zoulas and others.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice immediately at the beginning of the file, without modification,
 *    this list of conditions, and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE FOR
 * ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */
/*
 * softmagic - interpret variable magic from MAGIC
 */

#include "file.h"

#ifndef lint
FILE_RCSID("@(#)$File: softmagic.c,v 1.345 2023/07/02 12:48:39 christos Exp $")
#endif  /* lint */

#include "magic.h"
#include <assert.h>
#include <math.h>
#include <string.h>
#include <ctype.h>
#include <stdlib.h>
#include <limits.h>
#include <time.h>
#include "der.h"

file_private int match(struct magic_set *, struct magic *, file_regex_t **, size_t,
    const struct buffer *, size_t, int, int, int, uint16_t *,
    uint16_t *, int *, int *, int *, int *, int *);
file_private int mget(struct magic_set *, struct magic *, const struct buffer *,
    const unsigned char *, size_t,
    size_t, unsigned int, int, int, int, uint16_t *,
    uint16_t *, int *, int *, int *, int *, int *);
file_private int msetoffset(struct magic_set *, struct magic *, struct buffer *,
    const struct buffer *, size_t, unsigned int);
file_private int magiccheck(struct magic_set *, struct magic *, file_regex_t **);
file_private int mprint(struct magic_set *, struct magic *);
file_private int moffset(struct magic_set *, struct magic *, const struct buffer *,
    int32_t *);
file_private void mdebug(uint32_t, const char *, size_t);
file_private int mcopy(struct magic_set *, union VALUETYPE *, int, int,
    const unsigned char *, uint32_t, size_t, struct magic *);
file_private int mconvert(struct magic_set *, struct magic *, int);
file_private int print_sep(struct magic_set *, int);
file_private int handle_annotation(struct magic_set *, struct magic *, int);
file_private int cvt_8(union VALUETYPE *, const struct magic *);
file_private int cvt_16(union VALUETYPE *, const struct magic *);
file_private int cvt_32(union VALUETYPE *, const struct magic *);
file_private int cvt_64(union VALUETYPE *, const struct magic *);

#define OFFSET_OOB(n, o, i) ((n) < CAST(uint32_t, (o)) || (i) > ((n) - (o)))
#define BE64(p) ( \
    (CAST(uint64_t, (p)->hq[0])<<56)| \
    (CAST(uint64_t, (p)->hq[1])<<48)| \
    (CAST(uint64_t, (p)->hq[2])<<40)| \
    (CAST(uint64_t, (p)->hq[3])<<32)| \
    (CAST(uint64_t, (p)->hq[4])<<24)| \
    (CAST(uint64_t, (p)->hq[5])<<16)| \
    (CAST(uint64_t, (p)->hq[6])<<8)| \
    (CAST(uint64_t, (p)->hq[7])))
#define LE64(p) ( \
    (CAST(uint64_t, (p)->hq[7])<<56)| \
    (CAST(uint64_t, (p)->hq[6])<<48)| \
    (CAST(uint64_t, (p)->hq[5])<<40)| \
    (CAST(uint64_t, (p)->hq[4])<<32)| \
    (CAST(uint64_t, (p)->hq[3])<<24)| \
    (CAST(uint64_t, (p)->hq[2])<<16)| \
    (CAST(uint64_t, (p)->hq[1])<<8)| \
    (CAST(uint64_t, (p)->hq[0])))
#define LE32(p) ( \
    (CAST(uint32_t, (p)->hl[3])<<24)| \
    (CAST(uint32_t, (p)->hl[2])<<16)| \
    (CAST(uint32_t, (p)->hl[1])<<8)| \
    (CAST(uint32_t, (p)->hl[0])))
#define BE32(p) ( \
    (CAST(uint32_t, (p)->hl[0])<<24)| \
    (CAST(uint32_t, (p)->hl[1])<<16)| \
    (CAST(uint32_t, (p)->hl[2])<<8)| \
    (CAST(uint32_t, (p)->hl[3])))
#define ME32(p) ( \
    (CAST(uint32_t, (p)->hl[1])<<24)| \
    (CAST(uint32_t, (p)->hl[0])<<16)| \
    (CAST(uint32_t, (p)->hl[3])<<8)| \
    (CAST(uint32_t, (p)->hl[2])))

#define BE16(p) ((CAST(uint16_t, (p)->hs[0])<<8)|(CAST(uint16_t, (p)->hs[1])))
#define LE16(p) ((CAST(uint16_t, (p)->hs[1])<<8)|(CAST(uint16_t, (p)->hs[0])))
#define SEXT(s,v,p) ((s) ? \
  CAST(intmax_t, CAST(int##v##_t, p)) : \
  CAST(intmax_t, CAST(uint##v##_t, p)))

/*
 * softmagic - lookup one file in parsed, in-memory copy of database
 * Passed the name and FILE * of one file to be typed.
 */
/*ARGSUSED1*/   /* nbytes passed for regularity, maybe need later */
file_protected int
file_softmagic(struct magic_set *ms, const struct buffer *b,
    uint16_t *indir_count, uint16_t *name_count, int mode, int text)
{
  struct mlist *ml;
  int rv = 0, printed_something = 0, need_separator = 0, firstline = 1;
  uint16_t nc, ic;

  if (name_count == NULL) {
    nc = 0;
    name_count = &nc;
  }
  if (indir_count == NULL) {
    ic = 0;
    indir_count = &ic;
  }

  for (ml = ms->mlist[0]->next; ml != ms->mlist[0]; ml = ml->next) {
    int ret = match(ms, ml->magic, ml->magic_rxcomp, ml->nmagic, b,
        0, mode, text, 0, indir_count, name_count,
        &printed_something, &need_separator, &firstline,
        NULL, NULL);
    switch (ret) {
    case -1:
      return ret;
    case 0:
      continue;
    default:
      if ((ms->flags & MAGIC_CONTINUE) == 0)
        return ret;
      rv = ret;
      break;
    }
  }

  return rv;
}

#define FILE_FMTDEBUG
#ifdef FILE_FMTDEBUG
#define F(a, b, c) file_fmtcheck((a), (b), (c), __FILE__, __LINE__)

file_private const char * __attribute__((__format_arg__(3)))
file_fmtcheck(struct magic_set *ms, const char *desc, const char *def,
  const char *file, size_t line)
{
  const char *ptr;

  if (strchr(desc, '%') == NULL)
    return desc;

  ptr = fmtcheck(desc, def);
  if (ptr == def)
    file_magerror(ms,
        "%s, %" SIZE_T_FORMAT "u: format `%s' does not match"
        " with `%s'", file, line, desc, def);
  return ptr;
}
#else
#define F(a, b, c) fmtcheck((b), (c))
#endif

/*
 * Go through the whole list, stopping if you find a match.  Process all
 * the continuations of that match before returning.
 *
 * We support multi-level continuations:
 *
 *  At any time when processing a successful top-level match, there is a
 *  current continuation level; it represents the level of the last
 *  successfully matched continuation.
 *
 *  Continuations above that level are skipped as, if we see one, it
 *  means that the continuation that controls them - i.e, the
 *  lower-level continuation preceding them - failed to match.
 *
 *  Continuations below that level are processed as, if we see one,
 *  it means we've finished processing or skipping higher-level
 *  continuations under the control of a successful or unsuccessful
 *  lower-level continuation, and are now seeing the next lower-level
 *  continuation and should process it.  The current continuation
 *  level reverts to the level of the one we're seeing.
 *
 *  Continuations at the current level are processed as, if we see
 *  one, there's no lower-level continuation that may have failed.
 *
 *  If a continuation matches, we bump the current continuation level
 *  so that higher-level continuations are processed.
 */
file_private int
match(struct magic_set *ms, struct magic *magic, file_regex_t **magic_rxcomp,
    size_t nmagic, const struct buffer *b, size_t offset, int mode, int text,
    int flip, uint16_t *indir_count, uint16_t *name_count,
    int *printed_something, int *need_separator, int *firstline,
    int *returnval, int *found_match)
{
  uint32_t magindex = 0;
  unsigned int cont_level = 0;
  int found_matchv = 0; /* if a match is found it is set to 1*/
  int returnvalv = 0, e;
  struct buffer bb;
  int print = (ms->flags & MAGIC_NODESC) == 0;

  /*
   * returnval can be 0 if a match is found, but there was no
   * annotation to be printed.
   */
  if (returnval == NULL)
    returnval = &returnvalv;
  if (found_match == NULL)
    found_match = &found_matchv;

  if (file_check_mem(ms, cont_level) == -1)
    return -1;

  for (magindex = 0; magindex < nmagic; magindex++) {
    int flush = 0;
    struct magic *m = &magic[magindex];
    file_regex_t **m_rxcomp = &magic_rxcomp[magindex];

    if (m->type != FILE_NAME)
    if ((IS_STRING(m->type) &&
#define FLT (STRING_BINTEST | STRING_TEXTTEST)
         ((text && (m->str_flags & FLT) == STRING_BINTEST) ||
          (!text && (m->str_flags & FLT) == STRING_TEXTTEST))) ||
        (m->flag & mode) != mode) {
flush:
      /* Skip sub-tests */
      while (magindex < nmagic - 1 &&
          magic[magindex + 1].cont_level != 0)
        magindex++;
      cont_level = 0;
      continue; /* Skip to next top-level test*/
    }

    if (msetoffset(ms, m, &bb, b, offset, cont_level) == -1)
      goto flush;
    ms->line = m->lineno;

    /* if main entry matches, print it... */
    switch (mget(ms, m, b, CAST(const unsigned char *, bb.fbuf),
        bb.flen, offset, cont_level,
        mode, text, flip, indir_count, name_count,
        printed_something, need_separator, firstline, returnval,
        found_match))
    {
    case -1:
      return -1;
    case 0:
      flush = m->reln != '!';
      break;
    default:
      if (m->type == FILE_INDIRECT) {
        *found_match = 1;
        *returnval = 1;
      }

      switch (magiccheck(ms, m, m_rxcomp)) {
      case -1:
        return -1;
      case 0:
        flush++;
        break;
      default:
        flush = 0;
        break;
      }
      break;
    }
    if (flush) {
      /*
       * main entry didn't match,
       * flush its continuations
       */
      goto flush;
    }

    if ((e = handle_annotation(ms, m, *firstline)) != 0)
    {
      *found_match = 1;
      *need_separator = 1;
      *printed_something = 1;
      *returnval = 1;
      *firstline = 0;
      return e;
    }

    /*
     * If we are going to print something, we'll need to print
     * a blank before we print something else.
     */
    if (*m->desc) {
      *found_match = 1;
      if (print) {
        *returnval = 1;
        *need_separator = 1;
        *printed_something = 1;
        if (print_sep(ms, *firstline) == -1)
          return -1;
        if (mprint(ms, m) == -1)
          return -1;
      }
    }

    switch (moffset(ms, m, &bb, &ms->c.li[cont_level].off)) {
    case -1:
    case 0:
      goto flush;
    default:
      break;
    }

    /* and any continuations that match */
    if (file_check_mem(ms, ++cont_level) == -1)
      return -1;

    while (magindex + 1 < nmagic &&
        magic[magindex + 1].cont_level != 0) {
      m = &magic[++magindex];
      m_rxcomp = &magic_rxcomp[magindex];
      ms->line = m->lineno; /* for messages */

      if (cont_level < m->cont_level)
        continue;
      if (cont_level > m->cont_level) {
        /*
         * We're at the end of the level
         * "cont_level" continuations.
         */
        cont_level = m->cont_level;
      }
      if (msetoffset(ms, m, &bb, b, offset, cont_level) == -1)
        goto flush;
      if (m->flag & OFFADD) {
        if (cont_level == 0) {
          if ((ms->flags & MAGIC_DEBUG) != 0)
            fprintf(stderr,
                "direct *zero*"
                " cont_level\n");
          return 0;
        }
        ms->offset +=
            ms->c.li[cont_level - 1].off;
      }

#ifdef ENABLE_CONDITIONALS
      if (m->cond == COND_ELSE ||
          m->cond == COND_ELIF) {
        if (ms->c.li[cont_level].last_match == 1)
          continue;
      }
#endif
      switch (mget(ms, m, b, CAST(const unsigned char *,
          bb.fbuf), bb.flen, offset,
          cont_level, mode, text, flip, indir_count,
          name_count, printed_something, need_separator,
          firstline, returnval, found_match)) {
      case -1:
        return -1;
      case 0:
        if (m->reln != '!')
          continue;
        flush = 1;
        break;
      default:
        if (m->type == FILE_INDIRECT) {
          *found_match = 1;
          *returnval = 1;
        }
        flush = 0;
        break;
      }

      switch (flush ? 1 : magiccheck(ms, m, m_rxcomp)) {
      case -1:
        return -1;
      case 0:
#ifdef ENABLE_CONDITIONALS
        ms->c.li[cont_level].last_match = 0;
#endif
        break;
      default:
#ifdef ENABLE_CONDITIONALS
        ms->c.li[cont_level].last_match = 1;
#endif
        if (m->type == FILE_CLEAR)
          ms->c.li[cont_level].got_match = 0;
        else if (ms->c.li[cont_level].got_match) {
          if (m->type == FILE_DEFAULT)
            break;
        } else
          ms->c.li[cont_level].got_match = 1;

        if ((e = handle_annotation(ms, m, *firstline))
            != 0) {
          *found_match = 1;
          *need_separator = 1;
          *printed_something = 1;
          *returnval = 1;
          return e;
        }
        if (*m->desc) {
          *found_match = 1;
        }
        if (print && *m->desc) {
          *returnval = 1;
          /*
           * This continuation matched.  Print
           * its message, with a blank before it
           * if the previous item printed and
           * this item isn't empty.
           */
          /*
           * If we are going to print something,
           * make sure that we have a separator
           * first.
           */
          if (!*printed_something) {
            *printed_something = 1;
            if (print_sep(ms, *firstline)
                == -1)
              return -1;
          }
          /* space if previous printed */
          if (*need_separator
              && (m->flag & NOSPACE) == 0) {
            if (file_printf(ms, " ") == -1)
              return -1;
          }
          if (mprint(ms, m) == -1)
            return -1;
          *need_separator = 1;
        }

        switch (moffset(ms, m, &bb,
            &ms->c.li[cont_level].off)) {
        case -1:
        case 0:
          cont_level--;
          break;
        default:
          break;
        }

        /*
         * If we see any continuations
         * at a higher level,
         * process them.
         */
        if (file_check_mem(ms, ++cont_level) == -1)
          return -1;
        break;
      }
    }
    if (*printed_something) {
      *firstline = 0;
    }
    if (*found_match) {
      if ((ms->flags & MAGIC_CONTINUE) == 0)
        return *returnval;
      // So that we print a separator
      *printed_something = 0;
      *firstline = 0;
    }
    cont_level = 0;
  }
  return *returnval;
}

file_private int
check_fmt(struct magic_set *ms, const char *fmt)
{
  file_regex_t rx;
  int rc, rv = -1;
        const char* pat = "%[-0-9\\.]*s";

  if (strchr(fmt, '%') == NULL)
    return 0;

  rc = file_regcomp(ms, &rx, pat, REG_EXTENDED|REG_NOSUB);
  if (rc == 0) {
    rc = file_regexec(ms, &rx, fmt, 0, 0, 0);
    rv = !rc;
  }
  file_regfree(&rx);
  return rv;
}

#if !defined(HAVE_STRNDUP) || defined(__aiws__) || defined(_AIX)
# if defined(__aiws__) || defined(_AIX)
#  define strndup aix_strndup /* aix is broken */
# endif
char *strndup(const char *, size_t);

char *
strndup(const char *str, size_t n)
{
  size_t len;
  char *copy;

  for (len = 0; len < n && str[len]; len++)
    continue;
  if ((copy = CAST(char *, malloc(len + 1))) == NULL)
    return NULL;
  (void)memcpy(copy, str, len);
  copy[len] = '\0';
  return copy;
}
#endif /* HAVE_STRNDUP */

static int
varexpand(struct magic_set *ms, char *buf, size_t len, const char *str)
{
  const char *ptr, *sptr, *e, *t, *ee, *et;
  size_t l;

  for (sptr = str; (ptr = strstr(sptr, "${")) != NULL;) {
    l = CAST(size_t, ptr - sptr);
    if (l >= len)
      return -1;
    memcpy(buf, sptr, l);
    buf += l;
    len -= l;
    ptr += 2;
    if (!*ptr || ptr[1] != '?')
      return -1;
    for (et = t = ptr + 2; *et && *et != ':'; et++)
      continue;
    if (*et != ':')
      return -1;
    for (ee = e = et + 1; *ee && *ee != '}'; ee++)
      continue;
    if (*ee != '}')
      return -1;
    switch (*ptr) {
    case 'x':
      if (ms->mode & 0111) {
        ptr = t;
        l = et - t;
      } else {
        ptr = e;
        l = ee - e;
      }
      break;
    default:
      return -1;
    }
    if (l >= len)
      return -1;
    memcpy(buf, ptr, l);
    buf += l;
    len -= l;
    sptr = ee + 1;
  }

  l = strlen(sptr);
  if (l >= len)
    return -1;

  memcpy(buf, sptr, l);
  buf[l] = '\0';
  return 0;
}


file_private int
mprint(struct magic_set *ms, struct magic *m)
{
  uint64_t v;
  float vf;
  double vd;
  char buf[128], tbuf[26], sbuf[512], ebuf[512];
  const char *desc;
  union VALUETYPE *p = &ms->ms_value;

  if (varexpand(ms, ebuf, sizeof(ebuf), m->desc) == -1)
    desc = m->desc;
  else
    desc = ebuf;

#define PRINTER(value, format, stype, utype)  \
  v = file_signextend(ms, m, CAST(uint64_t, value)); \
  switch (check_fmt(ms, desc)) { \
  case -1: \
    return -1; \
  case 1: \
    if (m->flag & UNSIGNED) { \
      (void)snprintf(buf, sizeof(buf), "%" format "u", \
          CAST(utype, v)); \
    } else { \
      (void)snprintf(buf, sizeof(buf), "%" format "d", \
          CAST(stype, v)); \
    } \
    if (file_printf(ms, F(ms, desc, "%s"), buf) == -1) \
      return -1; \
    break; \
  default: \
    if (m->flag & UNSIGNED) { \
           if (file_printf(ms, F(ms, desc, "%" format "u"), \
         CAST(utype, v)) == -1) \
         return -1; \
    } else { \
           if (file_printf(ms, F(ms, desc, "%" format "d"), \
         CAST(stype, v)) == -1) \
         return -1; \
    } \
    break; \
  } \
  break

    switch (m->type) {
    case FILE_BYTE:
    PRINTER(p->b, "", int8_t, uint8_t);

    case FILE_SHORT:
    case FILE_BESHORT:
    case FILE_LESHORT:
    PRINTER(p->h, "", int16_t, uint16_t);

    case FILE_LONG:
    case FILE_BELONG:
    case FILE_LELONG:
    case FILE_MELONG:
    PRINTER(p->l, "", int32_t, uint32_t);

    case FILE_QUAD:
    case FILE_BEQUAD:
    case FILE_LEQUAD:
  case FILE_OFFSET:
    PRINTER(p->q, INT64_T_FORMAT, long long, unsigned long long);

    case FILE_STRING:
    case FILE_PSTRING:
    case FILE_BESTRING16:
    case FILE_LESTRING16:
    if (m->reln == '=' || m->reln == '!') {
      if (file_printf(ms, F(ms, desc, "%s"),
          file_printable(ms, sbuf, sizeof(sbuf), m->value.s,
          sizeof(m->value.s))) == -1)
        return -1;
    }
    else {
      char *str = p->s;

      /* compute t before we mangle the string? */

      if (*m->value.s == '\0')
        str[strcspn(str, "\r\n")] = '\0';

      if (m->str_flags & STRING_TRIM)
        str = file_strtrim(str);

      if (file_printf(ms, F(ms, desc, "%s"),
          file_printable(ms, sbuf, sizeof(sbuf), str,
        sizeof(p->s) - (str - p->s))) == -1)
        return -1;

      if (m->type == FILE_PSTRING) {
        size_t l = file_pstring_length_size(ms, m);
        if (l == FILE_BADSIZE)
          return -1;
      }
    }
    break;

  case FILE_DATE:
  case FILE_BEDATE:
  case FILE_LEDATE:
  case FILE_MEDATE:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmtdatetime(tbuf, sizeof(tbuf), p->l, 0)) == -1)
      return -1;
    break;

  case FILE_LDATE:
  case FILE_BELDATE:
  case FILE_LELDATE:
  case FILE_MELDATE:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmtdatetime(tbuf, sizeof(tbuf), p->l, FILE_T_LOCAL))
      == -1)
      return -1;
    break;

  case FILE_QDATE:
  case FILE_BEQDATE:
  case FILE_LEQDATE:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmtdatetime(tbuf, sizeof(tbuf), p->q, 0)) == -1)
      return -1;
    break;

  case FILE_QLDATE:
  case FILE_BEQLDATE:
  case FILE_LEQLDATE:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmtdatetime(tbuf, sizeof(tbuf), p->q, FILE_T_LOCAL)) == -1)
      return -1;
    break;

  case FILE_QWDATE:
  case FILE_BEQWDATE:
  case FILE_LEQWDATE:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmtdatetime(tbuf, sizeof(tbuf), p->q, FILE_T_WINDOWS))
        == -1)
      return -1;
    break;

  case FILE_FLOAT:
  case FILE_BEFLOAT:
  case FILE_LEFLOAT:
    vf = p->f;
    switch (check_fmt(ms, desc)) {
    case -1:
      return -1;
    case 1:
      (void)snprintf(buf, sizeof(buf), "%g", vf);
      if (file_printf(ms, F(ms, desc, "%s"), buf) == -1)
        return -1;
      break;
    default:
      if (file_printf(ms, F(ms, desc, "%g"), vf) == -1)
        return -1;
      break;
    }
      break;

  case FILE_DOUBLE:
  case FILE_BEDOUBLE:
  case FILE_LEDOUBLE:
    vd = p->d;
    switch (check_fmt(ms, desc)) {
    case -1:
      return -1;
    case 1:
      (void)snprintf(buf, sizeof(buf), "%g", vd);
      if (file_printf(ms, F(ms, desc, "%s"), buf) == -1)
        return -1;
      break;
    default:
      if (file_printf(ms, F(ms, desc, "%g"), vd) == -1)
        return -1;
      break;
    }
      break;

  case FILE_SEARCH:
  case FILE_REGEX: {
    char *cp, *scp;
    int rval;

    cp = strndup(RCAST(const char *, ms->search.s),
        ms->search.rm_len);
    if (cp == NULL) {
      file_oomem(ms, ms->search.rm_len);
      return -1;
    }
    scp = (m->str_flags & STRING_TRIM) ? file_strtrim(cp) : cp;

    rval = file_printf(ms, F(ms, desc, "%s"), file_printable(ms,
        sbuf, sizeof(sbuf), scp, ms->search.rm_len));
    free(cp);

    if (rval == -1)
      return -1;
    break;
  }

  case FILE_DEFAULT:
  case FILE_CLEAR:
      if (file_printf(ms, "%s", m->desc) == -1)
      return -1;
    break;

  case FILE_INDIRECT:
  case FILE_USE:
  case FILE_NAME:
    break;
  case FILE_DER:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_printable(ms, sbuf, sizeof(sbuf), ms->ms_value.s,
      sizeof(ms->ms_value.s))) == -1)
      return -1;
    break;
  case FILE_GUID:
    (void) file_print_guid(buf, sizeof(buf), ms->ms_value.guid);
    if (file_printf(ms, F(ms, desc, "%s"), buf) == -1)
      return -1;
    break;
  case FILE_MSDOSDATE:
  case FILE_BEMSDOSDATE:
  case FILE_LEMSDOSDATE:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmtdate(tbuf, sizeof(tbuf), p->h)) == -1)
      return -1;
    break;
  case FILE_MSDOSTIME:
  case FILE_BEMSDOSTIME:
  case FILE_LEMSDOSTIME:
    if (file_printf(ms, F(ms, desc, "%s"),
        file_fmttime(tbuf, sizeof(tbuf), p->h)) == -1)
      return -1;
    break;
  case FILE_OCTAL:
    file_fmtnum(buf, sizeof(buf), m->value.s, 8);
    if (file_printf(ms, F(ms, desc, "%s"), buf) == -1)
      return -1;
    break;
  default:
    file_magerror(ms, "invalid m->type (%d) in mprint()", m->type);
    return -1;
  }
  return 0;
}

file_private int
moffset(struct magic_set *ms, struct magic *m, const struct buffer *b,
    int32_t *op)
{
  size_t nbytes = b->flen;
  int32_t o;

    switch (m->type) {
    case FILE_BYTE:
    o = CAST(int32_t, (ms->offset + sizeof(char)));
    break;

    case FILE_SHORT:
    case FILE_BESHORT:
    case FILE_LESHORT:
  case FILE_MSDOSDATE:
  case FILE_LEMSDOSDATE:
  case FILE_BEMSDOSDATE:
  case FILE_MSDOSTIME:
  case FILE_LEMSDOSTIME:
  case FILE_BEMSDOSTIME:
    o = CAST(int32_t, (ms->offset + sizeof(short)));
    break;

    case FILE_LONG:
    case FILE_BELONG:
    case FILE_LELONG:
    case FILE_MELONG:
    o = CAST(int32_t, (ms->offset + sizeof(int32_t)));
    break;

    case FILE_QUAD:
    case FILE_BEQUAD:
    case FILE_LEQUAD:
    o = CAST(int32_t, (ms->offset + sizeof(int64_t)));
    break;

    case FILE_STRING:
    case FILE_PSTRING:
    case FILE_BESTRING16:
    case FILE_LESTRING16:
  case FILE_OCTAL:
    if (m->reln == '=' || m->reln == '!') {
      o = ms->offset + m->vallen;
    } else {
      union VALUETYPE *p = &ms->ms_value;

      if (*m->value.s == '\0')
        p->s[strcspn(p->s, "\r\n")] = '\0';
      o = CAST(uint32_t, (ms->offset + strlen(p->s)));
      if (m->type == FILE_PSTRING) {
        size_t l = file_pstring_length_size(ms, m);
        if (l == FILE_BADSIZE)
          return -1;
        o += CAST(uint32_t, l);
      }
    }
    break;

  case FILE_DATE:
  case FILE_BEDATE:
  case FILE_LEDATE:
  case FILE_MEDATE:
    o = CAST(int32_t, (ms->offset + sizeof(uint32_t)));
    break;

  case FILE_LDATE:
  case FILE_BELDATE:
  case FILE_LELDATE:
  case FILE_MELDATE:
    o = CAST(int32_t, (ms->offset + sizeof(uint32_t)));
    break;

  case FILE_QDATE:
  case FILE_BEQDATE:
  case FILE_LEQDATE:
    o = CAST(int32_t, (ms->offset + sizeof(uint64_t)));
    break;

  case FILE_QLDATE:
  case FILE_BEQLDATE:
  case FILE_LEQLDATE:
    o = CAST(int32_t, (ms->offset + sizeof(uint64_t)));
    break;

    case FILE_FLOAT:
    case FILE_BEFLOAT:
    case FILE_LEFLOAT:
    o = CAST(int32_t, (ms->offset + sizeof(float)));
    break;

    case FILE_DOUBLE:
    case FILE_BEDOUBLE:
    case FILE_LEDOUBLE:
    o = CAST(int32_t, (ms->offset + sizeof(double)));
    break;

  case FILE_REGEX:
    if ((m->str_flags & REGEX_OFFSET_START) != 0)
      o = CAST(int32_t, ms->search.offset);
    else
      o = CAST(int32_t,
          (ms->search.offset + ms->search.rm_len));
    break;

  case FILE_SEARCH:
    if ((m->str_flags & REGEX_OFFSET_START) != 0)
      o = CAST(int32_t, ms->search.offset);
    else
      o = CAST(int32_t, (ms->search.offset + m->vallen));
    break;

  case FILE_CLEAR:
  case FILE_DEFAULT:
  case FILE_INDIRECT:
  case FILE_OFFSET:
  case FILE_USE:
    o = ms->offset;
    break;

  case FILE_DER:
    o = der_offs(ms, m, nbytes);
    if (o == -1 || CAST(size_t, o) > nbytes) {
      if ((ms->flags & MAGIC_DEBUG) != 0) {
        (void)fprintf(stderr,
            "Bad DER offset %d nbytes=%"
            SIZE_T_FORMAT "u", o, nbytes);
      }
      *op = 0;
      return 0;
    }
    break;

  case FILE_GUID:
    o = CAST(int32_t, (ms->offset + 2 * sizeof(uint64_t)));
    break;

  default:
    o = 0;
    break;
  }

  if (CAST(size_t, o) > nbytes) {
#if 0
    file_error(ms, 0, "Offset out of range %" SIZE_T_FORMAT
        "u > %" SIZE_T_FORMAT "u", (size_t)o, nbytes);
#endif
    return -1;
  }
  *op = o;
  return 1;
}

file_private uint32_t
cvt_id3(struct magic_set *ms, uint32_t v)
{
  v = ((((v >>  0) & 0x7f) <<  0) |
       (((v >>  8) & 0x7f) <<  7) |
       (((v >> 16) & 0x7f) << 14) |
       (((v >> 24) & 0x7f) << 21));
  if ((ms->flags & MAGIC_DEBUG) != 0)
    fprintf(stderr, "id3 offs=%u\n", v);
  return v;
}

file_private int
cvt_flip(int type, int flip)
{
  if (flip == 0)
    return type;
  switch (type) {
  case FILE_BESHORT:
    return FILE_LESHORT;
  case FILE_BELONG:
    return FILE_LELONG;
  case FILE_BEDATE:
    return FILE_LEDATE;
  case FILE_BELDATE:
    return FILE_LELDATE;
  case FILE_BEQUAD:
    return FILE_LEQUAD;
  case FILE_BEQDATE:
    return FILE_LEQDATE;
  case FILE_BEQLDATE:
    return FILE_LEQLDATE;
  case FILE_BEQWDATE:
    return FILE_LEQWDATE;
  case FILE_LESHORT:
    return FILE_BESHORT;
  case FILE_LELONG:
    return FILE_BELONG;
  case FILE_LEDATE:
    return FILE_BEDATE;
  case FILE_LELDATE:
    return FILE_BELDATE;
  case FILE_LEQUAD:
    return FILE_BEQUAD;
  case FILE_LEQDATE:
    return FILE_BEQDATE;
  case FILE_LEQLDATE:
    return FILE_BEQLDATE;
  case FILE_LEQWDATE:
    return FILE_BEQWDATE;
  case FILE_BEFLOAT:
    return FILE_LEFLOAT;
  case FILE_LEFLOAT:
    return FILE_BEFLOAT;
  case FILE_BEDOUBLE:
    return FILE_LEDOUBLE;
  case FILE_LEDOUBLE:
    return FILE_BEDOUBLE;
  default:
    return type;
  }
}
#define DO_CVT(fld, type) \
  if (m->num_mask) \
    switch (m->mask_op & FILE_OPS_MASK) { \
    case FILE_OPAND: \
      p->fld &= CAST(type, m->num_mask); \
      break; \
    case FILE_OPOR: \
      p->fld |= CAST(type, m->num_mask); \
      break; \
    case FILE_OPXOR: \
      p->fld ^= CAST(type, m->num_mask); \
      break; \
    case FILE_OPADD: \
      p->fld += CAST(type, m->num_mask); \
      break; \
    case FILE_OPMINUS: \
      p->fld -= CAST(type, m->num_mask); \
      break; \
    case FILE_OPMULTIPLY: \
      p->fld *= CAST(type, m->num_mask); \
      break; \
    case FILE_OPDIVIDE: \
      if (CAST(type, m->num_mask) == 0) \
        return -1; \
      p->fld /= CAST(type, m->num_mask); \
      break; \
    case FILE_OPMODULO: \
      if (CAST(type, m->num_mask) == 0) \
        return -1; \
      p->fld %= CAST(type, m->num_mask); \
      break; \
    } \
  if (m->mask_op & FILE_OPINVERSE) \
    p->fld = ~p->fld \

file_private int
cvt_8(union VALUETYPE *p, const struct magic *m)
{
  DO_CVT(b, uint8_t);
  return 0;
}

file_private int
cvt_16(union VALUETYPE *p, const struct magic *m)
{
  DO_CVT(h, uint16_t);
  return 0;
}

file_private int
cvt_32(union VALUETYPE *p, const struct magic *m)
{
  DO_CVT(l, uint32_t);
  return 0;
}

file_private int
cvt_64(union VALUETYPE *p, const struct magic *m)
{
  DO_CVT(q, uint64_t);
  return 0;
}

#define DO_CVT2(fld, type) \
  if (m->num_mask) \
    switch (m->mask_op & FILE_OPS_MASK) { \
    case FILE_OPADD: \
      p->fld += CAST(type, m->num_mask); \
      break; \
    case FILE_OPMINUS: \
      p->fld -= CAST(type, m->num_mask); \
      break; \
    case FILE_OPMULTIPLY: \
      p->fld *= CAST(type, m->num_mask); \
      break; \
    case FILE_OPDIVIDE: \
      if (CAST(type, m->num_mask) == 0) \
        return -1; \
      p->fld /= CAST(type, m->num_mask); \
      break; \
    } \

file_private int
cvt_float(union VALUETYPE *p, const struct magic *m)
{
  DO_CVT2(f, float);
  return 0;
}

file_private int
cvt_double(union VALUETYPE *p, const struct magic *m)
{
  DO_CVT2(d, double);
  return 0;
}

/*
 * Convert the byte order of the data we are looking at
 * While we're here, let's apply the mask operation
 * (unless you have a better idea)
 */
file_private int
mconvert(struct magic_set *ms, struct magic *m, int flip)
{
  union VALUETYPE *p = &ms->ms_value;

  switch (cvt_flip(m->type, flip)) {
  case FILE_BYTE:
    if (cvt_8(p, m) == -1)
      goto out;
    return 1;
  case FILE_SHORT:
  case FILE_MSDOSDATE:
  case FILE_LEMSDOSDATE:
  case FILE_BEMSDOSDATE:
  case FILE_MSDOSTIME:
  case FILE_LEMSDOSTIME:
  case FILE_BEMSDOSTIME:
    if (cvt_16(p, m) == -1)
      goto out;
    return 1;
  case FILE_LONG:
  case FILE_DATE:
  case FILE_LDATE:
    if (cvt_32(p, m) == -1)
      goto out;
    return 1;
  case FILE_QUAD:
  case FILE_QDATE:
  case FILE_QLDATE:
  case FILE_QWDATE:
  case FILE_OFFSET:
    if (cvt_64(p, m) == -1)
      goto out;
    return 1;
  case FILE_STRING:
  case FILE_BESTRING16:
  case FILE_LESTRING16:
  case FILE_OCTAL: {
    /* Null terminate and eat *trailing* return */
    p->s[sizeof(p->s) - 1] = '\0';
    return 1;
  }
  case FILE_PSTRING: {
    char *ptr1, *ptr2;
    size_t len, sz = file_pstring_length_size(ms, m);
    if (sz == FILE_BADSIZE)
      return 0;
    ptr1 = p->s;
    ptr2 = ptr1 + sz;
    len = file_pstring_get_length(ms, m, ptr1);
    if (len == FILE_BADSIZE)
      return 0;
    sz = sizeof(p->s) - sz; /* maximum length of string */
    if (len >= sz) {
      /*
       * The size of the pascal string length (sz)
       * is 1, 2, or 4. We need at least 1 byte for NUL
       * termination, but we've already truncated the
       * string by p->s, so we need to deduct sz.
       * Because we can use one of the bytes of the length
       * after we shifted as NUL termination.
       */
      len = sz;
    }
    while (len--)
      *ptr1++ = *ptr2++;
    *ptr1 = '\0';
    return 1;
  }
  case FILE_BESHORT:
    p->h = CAST(short, BE16(p));
    if (cvt_16(p, m) == -1)
      goto out;
    return 1;
  case FILE_BELONG:
  case FILE_BEDATE:
  case FILE_BELDATE:
    p->l = CAST(int32_t, BE32(p));
    if (cvt_32(p, m) == -1)
      goto out;
    return 1;
  case FILE_BEQUAD:
  case FILE_BEQDATE:
  case FILE_BEQLDATE:
  case FILE_BEQWDATE:
    p->q = CAST(uint64_t, BE64(p));
    if (cvt_64(p, m) == -1)
      goto out;
    return 1;
  case FILE_LESHORT:
    p->h = CAST(short, LE16(p));
    if (cvt_16(p, m) == -1)
      goto out;
    return 1;
  case FILE_LELONG:
  case FILE_LEDATE:
  case FILE_LELDATE:
    p->l = CAST(int32_t, LE32(p));
    if (cvt_32(p, m) == -1)
      goto out;
    return 1;
  case FILE_LEQUAD:
  case FILE_LEQDATE:
  case FILE_LEQLDATE:
  case FILE_LEQWDATE:
    p->q = CAST(uint64_t, LE64(p));
    if (cvt_64(p, m) == -1)
      goto out;
    return 1;
  case FILE_MELONG:
  case FILE_MEDATE:
  case FILE_MELDATE:
    p->l = CAST(int32_t, ME32(p));
    if (cvt_32(p, m) == -1)
      goto out;
    return 1;
  case FILE_FLOAT:
    if (cvt_float(p, m) == -1)
      goto out;
    return 1;
  case FILE_BEFLOAT:
    p->l = BE32(p);
    if (cvt_float(p, m) == -1)
      goto out;
    return 1;
  case FILE_LEFLOAT:
    p->l = LE32(p);
    if (cvt_float(p, m) == -1)
      goto out;
    return 1;
  case FILE_DOUBLE:
    if (cvt_double(p, m) == -1)
      goto out;
    return 1;
  case FILE_BEDOUBLE:
    p->q = BE64(p);
    if (cvt_double(p, m) == -1)
      goto out;
    return 1;
  case FILE_LEDOUBLE:
    p->q = LE64(p);
    if (cvt_double(p, m) == -1)
      goto out;
    return 1;
  case FILE_REGEX:
  case FILE_SEARCH:
  case FILE_DEFAULT:
  case FILE_CLEAR:
  case FILE_NAME:
  case FILE_USE:
  case FILE_DER:
  case FILE_GUID:
    return 1;
  default:
    file_magerror(ms, "invalid type %d in mconvert()", m->type);
    return 0;
  }
out:
  file_magerror(ms, "zerodivide in mconvert()");
  return 0;
}


file_private void
mdebug(uint32_t offset, const char *str, size_t len)
{
  (void) fprintf(stderr, "mget/%" SIZE_T_FORMAT "u @%d: ", len, offset);
  file_showstr(stderr, str, len);
  (void) fputc('\n', stderr);
  (void) fputc('\n', stderr);
}

file_private int
mcopy(struct magic_set *ms, union VALUETYPE *p, int type, int indir,
    const unsigned char *s, uint32_t offset, size_t nbytes, struct magic *m)
{
  size_t size = sizeof(*p);
  /*
   * Note: FILE_SEARCH and FILE_REGEX do not actually copy
   * anything, but setup pointers into the source
   */
  if (indir == 0) {
    switch (type) {
    case FILE_DER:
    case FILE_SEARCH:
      if (offset > nbytes)
        offset = CAST(uint32_t, nbytes);
      ms->search.s = RCAST(const char *, s) + offset;
      ms->search.s_len = nbytes - offset;
      ms->search.offset = offset;
      return 0;

    case FILE_REGEX: {
      const char *b;
      const char *c;
      const char *last; /* end of search region */
      const char *buf;  /* start of search region */
      const char *end;
      size_t lines, linecnt, bytecnt;

      if (s == NULL || nbytes < offset) {
        ms->search.s_len = 0;
        ms->search.s = NULL;
        return 0;
      }

      if (m->str_flags & REGEX_LINE_COUNT) {
        linecnt = m->str_range;
        bytecnt = linecnt * 80;
      } else {
        linecnt = 0;
        bytecnt = m->str_range;
      }

      if (bytecnt == 0 || bytecnt > nbytes - offset)
        bytecnt = nbytes - offset;
      if (bytecnt > ms->regex_max)
        bytecnt = ms->regex_max;

      buf = RCAST(const char *, s) + offset;
      end = last = RCAST(const char *, s) + bytecnt + offset;
      /* mget() guarantees buf <= last */
      for (lines = linecnt, b = buf; lines && b < end &&
           ((b = CAST(const char *,
         memchr(c = b, '\n', CAST(size_t, (end - b)))))
           || (b = CAST(const char *,
         memchr(c, '\r', CAST(size_t, (end - c))))));
           lines--, b++) {
        if (b < end - 1 && b[0] == '\r' && b[1] == '\n')
          b++;
        if (b < end - 1 && b[0] == '\n')
          b++;
        last = b;
      }
      if (lines)
        last = end;

      ms->search.s = buf;
      ms->search.s_len = last - buf;
      ms->search.offset = offset;
      ms->search.rm_len = 0;
      return 0;
    }
    case FILE_BESTRING16:
    case FILE_LESTRING16: {
      const unsigned char *src = s + offset;
      const unsigned char *esrc = s + nbytes;
      char *dst = p->s;
      char *edst = &p->s[sizeof(p->s) - 1];

      if (type == FILE_BESTRING16)
        src++;

      /* check that offset is within range */
      if (offset >= nbytes)
        break;
      for (/*EMPTY*/; src < esrc; src += 2, dst++) {
        if (dst < edst)
          *dst = *src;
        else
          break;
        if (*dst == '\0') {
          if (type == FILE_BESTRING16 ?
              *(src - 1) != '\0' :
              ((src + 1 < esrc) &&
              *(src + 1) != '\0'))
            *dst = ' ';
        }
      }
      *edst = '\0';
      return 0;
    }
    case FILE_STRING: /* XXX - these two should not need */
    case FILE_PSTRING: /* to copy anything, but do anyway. */
      if (m->str_range != 0 && m->str_range < sizeof(*p))
        size = m->str_range;
      break;
    default:
      break;
    }
  }

  if (type == FILE_OFFSET) {
    (void)memset(p, '\0', sizeof(*p));
    p->q = offset;
    return 0;
  }

  if (offset >= nbytes) {
    (void)memset(p, '\0', sizeof(*p));
    return 0;
  }
  if (nbytes - offset < size)
    nbytes = nbytes - offset;
  else
    nbytes = size;

  (void)memcpy(p, s + offset, nbytes);

  /*
   * the usefulness of padding with zeroes eludes me, it
   * might even cause problems
   */
  if (nbytes < sizeof(*p))
    (void)memset(RCAST(char *, RCAST(void *, p)) + nbytes, '\0',
        sizeof(*p) - nbytes);
  return 0;
}

file_private int
do_ops(struct magic_set *ms, struct magic *m, uint32_t *rv, intmax_t lhs,
    intmax_t off)
{
  intmax_t offset;
  // On purpose not INTMAX_MAX
  if (lhs >= UINT_MAX || lhs <= INT_MIN ||
      off >= UINT_MAX || off <= INT_MIN) {
    if ((ms->flags & MAGIC_DEBUG) != 0)
      fprintf(stderr, "lhs/off overflow %jd %jd\n", lhs, off);
    return 1;
  }
     
  if (off) {
    switch (m->in_op & FILE_OPS_MASK) {
    case FILE_OPAND:
      offset = lhs & off;
      break;
    case FILE_OPOR:
      offset = lhs | off;
      break;
    case FILE_OPXOR:
      offset = lhs ^ off;
      break;
    case FILE_OPADD:
      offset = lhs + off;
      break;
    case FILE_OPMINUS:
      offset = lhs - off;
      break;
    case FILE_OPMULTIPLY:
      offset = lhs * off;
      break;
    case FILE_OPDIVIDE:
      offset = lhs / off;
      break;
    case FILE_OPMODULO:
      offset = lhs % off;
      break;
    }
  } else
    offset = lhs;
  if (m->in_op & FILE_OPINVERSE)
    offset = ~offset;
  if (offset >= UINT_MAX) {
    if ((ms->flags & MAGIC_DEBUG) != 0)
      fprintf(stderr, "offset overflow %jd\n", offset);
    return 1;
  }
  *rv = CAST(uint32_t, offset);
  return 0;
}

file_private int
msetoffset(struct magic_set *ms, struct magic *m, struct buffer *bb,
    const struct buffer *b, size_t o, unsigned int cont_level)
{
  int32_t offset;
  if (m->flag & OFFNEGATIVE) {
    offset = -m->offset;
    if (cont_level > 0) {
      if (m->flag & (OFFADD|INDIROFFADD))
        goto normal;
#if 0
      file_error(ms, 0, "negative offset %d at continuation"
          "level %u", m->offset, cont_level);
      return -1;
#endif
    }
    if (buffer_fill(b) == -1)
      return -1;
    if (o != 0) {
      // Not yet!
      file_magerror(ms, "non zero offset %" SIZE_T_FORMAT
          "u at level %u", o, cont_level);
      return -1;
    }
    if (CAST(size_t, m->offset) > b->elen)
      return -1;
    buffer_init(bb, -1, NULL, b->ebuf, b->elen);
    ms->eoffset = ms->offset = CAST(int32_t, b->elen - m->offset);
  } else {
    offset = m->offset;
    if (cont_level == 0) {
normal:
      // XXX: Pass real fd, then who frees bb?
      buffer_init(bb, -1, NULL, b->fbuf, b->flen);
      ms->offset = offset;
      ms->eoffset = 0;
    } else {
      ms->offset = ms->eoffset + offset;
    }
  }
  if ((ms->flags & MAGIC_DEBUG) != 0) {
    fprintf(stderr, "bb=[%p,%" SIZE_T_FORMAT "u,%"
        SIZE_T_FORMAT "u], %d [b=%p,%"
        SIZE_T_FORMAT "u,%" SIZE_T_FORMAT "u], [o=%#x, c=%d]\n",
        bb->fbuf, bb->flen, bb->elen, ms->offset, b->fbuf,
        b->flen, b->elen, offset, cont_level);
  }
  return 0;
}

file_private int
save_cont(struct magic_set *ms, struct cont *c)
{
  size_t len;
  *c = ms->c;
  len = c->len * sizeof(*c->li);
  ms->c.li = CAST(struct level_info *, malloc(len));
  if (ms->c.li == NULL) {
    ms->c = *c;
    return -1;
  }
  memcpy(ms->c.li, c->li, len);
  return 0;
}

file_private void
restore_cont(struct magic_set *ms, struct cont *c)
{
  free(ms->c.li);
  ms->c = *c;
}

file_private int
mget(struct magic_set *ms, struct magic *m, const struct buffer *b,
    const unsigned char *s, size_t nbytes, size_t o, unsigned int cont_level,
    int mode, int text, int flip, uint16_t *indir_count, uint16_t *name_count,
    int *printed_something, int *need_separator, int *firstline, int *returnval,
    int *found_match)
{
  uint32_t eoffset, offset = ms->offset;
  struct buffer bb;
  intmax_t lhs;
  file_pushbuf_t *pb;
  int rv, oneed_separator, in_type, nfound_match;
  char *rbuf;
  union VALUETYPE *p = &ms->ms_value;
  struct mlist ml, *mlp;
  struct cont c;

  if (*indir_count >= ms->indir_max) {
    file_error(ms, 0, "indirect count (%hu) exceeded",
        *indir_count);
    return -1;
  }

  if (*name_count >= ms->name_max) {
    file_error(ms, 0, "name use count (%hu) exceeded",
        *name_count);
    return -1;
  }



  if (mcopy(ms, p, m->type, m->flag & INDIR, s,
      CAST(uint32_t, offset + o), CAST(uint32_t, nbytes), m) == -1)
    return -1;

  if ((ms->flags & MAGIC_DEBUG) != 0) {
    fprintf(stderr, "mget(type=%d, flag=%#x, offset=%u, o=%"
        SIZE_T_FORMAT "u, " "nbytes=%" SIZE_T_FORMAT
        "u, il=%hu, nc=%hu)\n",
        m->type, m->flag, offset, o, nbytes,
        *indir_count, *name_count);
    mdebug(offset, RCAST(char *, RCAST(void *, p)),
        sizeof(union VALUETYPE));
#ifndef COMPILE_ONLY
    file_mdump(m);
#endif
  }

  if (m->flag & INDIR) {
    intmax_t off = m->in_offset;
    const int sgn = m->in_op & FILE_OPSIGNED;
    if (m->in_op & FILE_OPINDIRECT) {
      const union VALUETYPE *q = CAST(const union VALUETYPE *,
          RCAST(const void *, s + offset + off));
      int op;
      switch (op = cvt_flip(m->in_type, flip)) {
      case FILE_BYTE:
        if (OFFSET_OOB(nbytes, offset + off, 1))
          return 0;
        off = SEXT(sgn,8,q->b);
        break;
      case FILE_SHORT:
        if (OFFSET_OOB(nbytes, offset + off, 2))
          return 0;
        off = SEXT(sgn,16,q->h);
        break;
      case FILE_BESHORT:
        if (OFFSET_OOB(nbytes, offset + off, 2))
          return 0;
        off = SEXT(sgn,16,BE16(q));
        break;
      case FILE_LESHORT:
        if (OFFSET_OOB(nbytes, offset + off, 2))
          return 0;
        off = SEXT(sgn,16,LE16(q));
        break;
      case FILE_LONG:
        if (OFFSET_OOB(nbytes, offset + off, 4))
          return 0;
        off = SEXT(sgn,32,q->l);
        break;
      case FILE_BELONG:
      case FILE_BEID3:
        if (OFFSET_OOB(nbytes, offset + off, 4))
          return 0;
        off = SEXT(sgn,32,BE32(q));
        break;
      case FILE_LEID3:
      case FILE_LELONG:
        if (OFFSET_OOB(nbytes, offset + off, 4))
          return 0;
        off = SEXT(sgn,32,LE32(q));
        break;
      case FILE_MELONG:
        if (OFFSET_OOB(nbytes, offset + off, 4))
          return 0;
        off = SEXT(sgn,32,ME32(q));
        break;
      case FILE_BEQUAD:
        if (OFFSET_OOB(nbytes, offset + off, 8))
          return 0;
        off = SEXT(sgn,64,BE64(q));
        break;
      case FILE_LEQUAD:
        if (OFFSET_OOB(nbytes, offset + off, 8))
          return 0;
        off = SEXT(sgn,64,LE64(q));
        break;
      case FILE_OCTAL:
        if (OFFSET_OOB(nbytes, offset, m->vallen))
          return 0;
        off = SEXT(sgn,64,strtoull(p->s, NULL, 8));
        break;
      default:
        if ((ms->flags & MAGIC_DEBUG) != 0)
          fprintf(stderr, "bad op=%d\n", op);
        return 0;
      }
      if ((ms->flags & MAGIC_DEBUG) != 0)
        fprintf(stderr, "indirect offs=%jd\n", off);
    }
    switch (in_type = cvt_flip(m->in_type, flip)) {
    case FILE_BYTE:
      if (OFFSET_OOB(nbytes, offset, 1))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,8,p->b), off))
        return 0;
      break;
    case FILE_BESHORT:
      if (OFFSET_OOB(nbytes, offset, 2))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,16,BE16(p)), off))
        return 0;
      break;
    case FILE_LESHORT:
      if (OFFSET_OOB(nbytes, offset, 2))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,16,LE16(p)), off))
        return 0;
      break;
    case FILE_SHORT:
      if (OFFSET_OOB(nbytes, offset, 2))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,16,p->h), off))
        return 0;
      break;
    case FILE_BELONG:
    case FILE_BEID3:
      if (OFFSET_OOB(nbytes, offset, 4))
        return 0;
      lhs = BE32(p);
      if (in_type == FILE_BEID3)
        lhs = cvt_id3(ms, CAST(uint32_t, lhs));
      if (do_ops(ms, m, &offset, SEXT(sgn,32,lhs), off))
        return 0;
      break;
    case FILE_LELONG:
    case FILE_LEID3:
      if (OFFSET_OOB(nbytes, offset, 4))
        return 0;
      lhs = LE32(p);
      if (in_type == FILE_LEID3)
        lhs = cvt_id3(ms, CAST(uint32_t, lhs));
      if (do_ops(ms, m, &offset, SEXT(sgn,32,lhs), off))
        return 0;
      break;
    case FILE_MELONG:
      if (OFFSET_OOB(nbytes, offset, 4))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,32,ME32(p)), off))
        return 0;
      break;
    case FILE_LONG:
      if (OFFSET_OOB(nbytes, offset, 4))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,32,p->l), off))
        return 0;
      break;
    case FILE_LEQUAD:
      if (OFFSET_OOB(nbytes, offset, 8))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,64,LE64(p)), off))  
        return 0;
      break;
    case FILE_BEQUAD:
      if (OFFSET_OOB(nbytes, offset, 8))
        return 0;
      if (do_ops(ms, m, &offset, SEXT(sgn,64,BE64(p)), off))
        return 0;
      break;
    case FILE_OCTAL:
      if (OFFSET_OOB(nbytes, offset, m->vallen))
        return 0;
      if(do_ops(ms, m, &offset,
          SEXT(sgn,64,strtoull(p->s, NULL, 8)), off))
        return 0;
      break;
    default:
      if ((ms->flags & MAGIC_DEBUG) != 0)
        fprintf(stderr, "bad in_type=%d\n", in_type);
      return 0;
    }

    if (m->flag & INDIROFFADD) {
      if (cont_level == 0) {
        if ((ms->flags & MAGIC_DEBUG) != 0)
          fprintf(stderr,
              "indirect *zero* cont_level\n");
        return 0;
      }
      offset += ms->c.li[cont_level - 1].off;
      if (offset == 0) {
        if ((ms->flags & MAGIC_DEBUG) != 0)
          fprintf(stderr,
              "indirect *zero* offset\n");
        return 0;
      }
      if ((ms->flags & MAGIC_DEBUG) != 0)
        fprintf(stderr, "indirect +offs=%u\n", offset);
    }
    if (mcopy(ms, p, m->type, 0, s, offset, nbytes, m) == -1)
      return -1;
    ms->offset = offset;

    if ((ms->flags & MAGIC_DEBUG) != 0) {
      mdebug(offset, RCAST(char *, RCAST(void *, p)),
          sizeof(union VALUETYPE));
#ifndef COMPILE_ONLY
      file_mdump(m);
#endif
    }
  }

  /* Verify we have enough data to match magic type */
  switch (m->type) {
  case FILE_BYTE:
    if (OFFSET_OOB(nbytes, offset, 1))
      return 0;
    break;

  case FILE_SHORT:
  case FILE_BESHORT:
  case FILE_LESHORT:
    if (OFFSET_OOB(nbytes, offset, 2))
      return 0;
    break;

  case FILE_LONG:
  case FILE_BELONG:
  case FILE_LELONG:
  case FILE_MELONG:
  case FILE_DATE:
  case FILE_BEDATE:
  case FILE_LEDATE:
  case FILE_MEDATE:
  case FILE_LDATE:
  case FILE_BELDATE:
  case FILE_LELDATE:
  case FILE_MELDATE:
  case FILE_FLOAT:
  case FILE_BEFLOAT:
  case FILE_LEFLOAT:
    if (OFFSET_OOB(nbytes, offset, 4))
      return 0;
    break;

  case FILE_DOUBLE:
  case FILE_BEDOUBLE:
  case FILE_LEDOUBLE:
    if (OFFSET_OOB(nbytes, offset, 8))
      return 0;
    break;

  case FILE_GUID:
    if (OFFSET_OOB(nbytes, offset, 16))
      return 0;
    break;

  case FILE_STRING:
  case FILE_PSTRING:
  case FILE_SEARCH:
  case FILE_OCTAL:
    if (OFFSET_OOB(nbytes, offset, m->vallen))
      return 0;
    break;

  case FILE_REGEX:
    if (nbytes < offset)
      return 0;
    break;

  case FILE_INDIRECT:
    if (m->str_flags & INDIRECT_RELATIVE)
      offset += CAST(uint32_t, o);
    if (offset == 0)
      return 0;

    if (nbytes < offset)
      return 0;

    if ((pb = file_push_buffer(ms)) == NULL)
      return -1;

    (*indir_count)++;
    bb = *b;
    bb.fbuf = s + offset;
    bb.flen = nbytes - offset;
    bb.ebuf = NULL;
    bb.elen = 0;
    rv = -1;
    for (mlp = ms->mlist[0]->next; mlp != ms->mlist[0];
        mlp = mlp->next)
    {
      if ((rv = match(ms, mlp->magic, mlp->magic_rxcomp,
          mlp->nmagic, &bb, 0, BINTEST, text, 0, indir_count,
          name_count, printed_something, need_separator,
          firstline, NULL, NULL)) != 0)
        break;
    }
    buffer_fini(&bb);

    if ((ms->flags & MAGIC_DEBUG) != 0)
      fprintf(stderr, "indirect @offs=%u[%d]\n", offset, rv);

    rbuf = file_pop_buffer(ms, pb);
    if (rbuf == NULL && ms->event_flags & EVENT_HAD_ERR)
      return -1;

    if (rv == 1) {
      if ((ms->flags & MAGIC_NODESC) == 0 &&
          file_printf(ms, F(ms, m->desc, "%u"), offset) == -1)
      {
        free(rbuf);
        return -1;
      }
      if (file_printf(ms, "%s", rbuf) == -1) {
        free(rbuf);
        return -1;
      }
    }
    free(rbuf);
    return rv;

  case FILE_USE:
    if (nbytes < offset)
      return 0;
    rbuf = m->value.s;
    if (*rbuf == '^') {
      rbuf++;
      flip = !flip;
    }
    if (file_magicfind(ms, rbuf, &ml) == -1) {
      file_error(ms, 0, "cannot find entry `%s'", rbuf);
      return -1;
    }
    if (save_cont(ms, &c) == -1) {
      file_error(ms, errno, "can't allocate continuation");
      return -1;
    }

    oneed_separator = *need_separator;
    if (m->flag & NOSPACE)
      *need_separator = 0;

    nfound_match = 0;
    (*name_count)++;
    eoffset = ms->eoffset;
    rv = match(ms, ml.magic, ml.magic_rxcomp, ml.nmagic, b,
        offset + o, mode, text, flip, indir_count, name_count,
        printed_something, need_separator, firstline, returnval,
        &nfound_match);
    ms->ms_value.q = nfound_match;
    (*name_count)--;
    *found_match |= nfound_match;

    restore_cont(ms, &c);

    if (rv != 1)
        *need_separator = oneed_separator;
    ms->offset = offset;
    ms->eoffset = eoffset;
    return rv || *found_match;

  case FILE_NAME:
    if (ms->flags & MAGIC_NODESC)
      return 1;
    if (file_printf(ms, "%s", m->desc) == -1)
      return -1;
    return 1;
  case FILE_DER:
  case FILE_DEFAULT: /* nothing to check */
  case FILE_CLEAR:
  default:
    break;
  }
  if (!mconvert(ms, m, flip))
    return 0;
  return 1;
}

file_private uint64_t
file_strncmp(const char *s1, const char *s2, size_t len, size_t maxlen,
    uint32_t flags)
{
  /*
   * Convert the source args to unsigned here so that (1) the
   * compare will be unsigned as it is in strncmp() and (2) so
   * the ctype functions will work correctly without extra
   * casting.
   */
  const unsigned char *a = RCAST(const unsigned char *, s1);
  const unsigned char *b = RCAST(const unsigned char *, s2);
  uint32_t ws = flags & (STRING_COMPACT_WHITESPACE |
      STRING_COMPACT_OPTIONAL_WHITESPACE);
  const unsigned char *eb = b + (ws ? maxlen : len);
  uint64_t v;

  /*
   * What we want here is v = strncmp(s1, s2, len),
   * but ignoring any nulls.
   */
  v = 0;
  len++;
  if (0L == flags) { /* normal string: do it fast */
    while (--len > 0)
      if ((v = *b++ - *a++) != '\0')
        break;
  }
  else { /* combine the others */
    while (--len > 0) {
      if (b >= eb) {
        v = 1;
        break;
      }
      if ((flags & STRING_IGNORE_LOWERCASE) &&
          islower(*a)) {
        if ((v = tolower(*b++) - *a++) != '\0')
          break;
      }
      else if ((flags & STRING_IGNORE_UPPERCASE) &&
          isupper(*a)) {
        if ((v = toupper(*b++) - *a++) != '\0')
          break;
      }
      else if ((flags & STRING_COMPACT_WHITESPACE) &&
          isspace(*a)) {
        a++;
        if (isspace(*b)) {
          b++;
          if (!isspace(*a))
            while (b < eb && isspace(*b))
              b++;
        }
        else {
          v = 1;
          break;
        }
      }
      else if ((flags & STRING_COMPACT_OPTIONAL_WHITESPACE) &&
          isspace(*a)) {
        a++;
        while (b < eb && isspace(*b))
          b++;
      }
      else {
        if ((v = *b++ - *a++) != '\0')
          break;
      }
    }
    if (len == 0 && v == 0 && (flags & STRING_FULL_WORD)) {
      if (*b && !isspace(*b))
        v = 1;
    }
  }
  return v;
}

file_private uint64_t
file_strncmp16(const char *a, const char *b, size_t len, size_t maxlen,
    uint32_t flags)
{
  /*
   * XXX - The 16-bit string compare probably needs to be done
   * differently, especially if the flags are to be supported.
   * At the moment, I am unsure.
   */
  flags = 0;
  return file_strncmp(a, b, len, maxlen, flags);
}

file_private file_regex_t *
alloc_regex(struct magic_set *ms, struct magic *m)
{
  int rc;
  file_regex_t *rx = CAST(file_regex_t *, malloc(sizeof(*rx)));

  if (rx == NULL) {
    file_error(ms, errno, "can't allocate %" SIZE_T_FORMAT
        "u bytes", sizeof(*rx));
    return NULL;
  }

  rc = file_regcomp(ms, rx, m->value.s, REG_EXTENDED | REG_NEWLINE |
      ((m->str_flags & STRING_IGNORE_CASE) ? REG_ICASE : 0));
  if (rc == 0)
    return rx;

  free(rx);
  return NULL;
}

file_private int
magiccheck(struct magic_set *ms, struct magic *m, file_regex_t **m_cache)
{
  uint64_t l = m->value.q;
  uint64_t v;
  float fl, fv;
  double dl, dv;
  int matched;
  union VALUETYPE *p = &ms->ms_value;

  switch (m->type) {
  case FILE_BYTE:
    v = p->b;
    break;

  case FILE_SHORT:
  case FILE_BESHORT:
  case FILE_LESHORT:
  case FILE_MSDOSDATE:
  case FILE_LEMSDOSDATE:
  case FILE_BEMSDOSDATE:
  case FILE_MSDOSTIME:
  case FILE_LEMSDOSTIME:
  case FILE_BEMSDOSTIME:
    v = p->h;
    break;

  case FILE_LONG:
  case FILE_BELONG:
  case FILE_LELONG:
  case FILE_MELONG:
  case FILE_DATE:
  case FILE_BEDATE:
  case FILE_LEDATE:
  case FILE_MEDATE:
  case FILE_LDATE:
  case FILE_BELDATE:
  case FILE_LELDATE:
  case FILE_MELDATE:
    v = p->l;
    break;

  case FILE_QUAD:
  case FILE_LEQUAD:
  case FILE_BEQUAD:
  case FILE_QDATE:
  case FILE_BEQDATE:
  case FILE_LEQDATE:
  case FILE_QLDATE:
  case FILE_BEQLDATE:
  case FILE_LEQLDATE:
  case FILE_QWDATE:
  case FILE_BEQWDATE:
  case FILE_LEQWDATE:
  case FILE_OFFSET:
    v = p->q;
    break;

  case FILE_FLOAT:
  case FILE_BEFLOAT:
  case FILE_LEFLOAT:
    fl = m->value.f;
    fv = p->f;
    switch (m->reln) {
    case 'x':
      matched = 1;
      break;

    case '!':
      matched = isunordered(fl, fv) ? 1 : fv != fl;
      break;

    case '=':
      matched = isunordered(fl, fv) ? 0 : fv == fl;
      break;

    case '>':
      matched = isgreater(fv, fl);
      break;

    case '<':
      matched = isless(fv, fl);
      break;

    default:
      file_magerror(ms, "cannot happen with float: "
          "invalid relation `%c'", m->reln);
      return -1;
    }
    return matched;

  case FILE_DOUBLE:
  case FILE_BEDOUBLE:
  case FILE_LEDOUBLE:
    dl = m->value.d;
    dv = p->d;
    switch (m->reln) {
    case 'x':
      matched = 1;
      break;

    case '!':
      matched = isunordered(dv, dl) ? 1 : dv != dl;
      break;

    case '=':
      matched = isunordered(dv, dl) ? 0 : dv == dl;
      break;

    case '>':
      matched = isgreater(dv, dl);
      break;

    case '<':
      matched = isless(dv, dl);
      break;

    default:
      file_magerror(ms, "cannot happen with double: "
          "invalid relation `%c'", m->reln);
      return -1;
    }
    return matched;

  case FILE_DEFAULT:
  case FILE_CLEAR:
    l = 0;
    v = 0;
    break;

  case FILE_STRING:
  case FILE_PSTRING:
  case FILE_OCTAL:
    l = 0;
    v = file_strncmp(m->value.s, p->s, CAST(size_t, m->vallen),
        sizeof(p->s), m->str_flags);
    break;

  case FILE_BESTRING16:
  case FILE_LESTRING16:
    l = 0;
    v = file_strncmp16(m->value.s, p->s, CAST(size_t, m->vallen),
        sizeof(p->s), m->str_flags);
    break;

  case FILE_SEARCH: { /* search ms->search.s for the string m->value.s */
    size_t slen;
    size_t idx;

    if (ms->search.s == NULL)
      return 0;

    slen = MIN(m->vallen, sizeof(m->value.s));
    l = 0;
    v = 0;
    if ((ms->flags & MAGIC_DEBUG) != 0) {
      size_t xlen = ms->search.s_len > 100 ? 100
          : ms->search.s_len;

      fprintf(stderr, "search: [");
      file_showstr(stderr, ms->search.s, xlen);
      fprintf(stderr, "%s] for [", ms->search.s_len == xlen
          ? "" : "...");
      file_showstr(stderr, m->value.s, slen);
    }
#ifdef HAVE_MEMMEM
    if (slen > 0 && m->str_flags == 0) {
      const char *found;
      idx = m->str_range + slen;
      if (m->str_range == 0 || ms->search.s_len < idx)
        idx = ms->search.s_len;
      found = CAST(const char *, memmem(ms->search.s, idx,
          m->value.s, slen));
      if ((ms->flags & MAGIC_DEBUG) != 0) {
        fprintf(stderr, "] %sfound\n",
            found ? "" : "not ");
      }
      if (!found) {
        v = 1;
        break;
      }
      idx = found - ms->search.s;
      ms->search.offset += idx;
      ms->search.rm_len = ms->search.s_len - idx;
      break;
    }
#endif

    for (idx = 0; m->str_range == 0 || idx < m->str_range; idx++) {
      if (slen + idx > ms->search.s_len) {
        v = 1;
        break;
      }

      v = file_strncmp(m->value.s, ms->search.s + idx, slen,
          ms->search.s_len - idx, m->str_flags);
      if (v == 0) { /* found match */
        ms->search.offset += idx;
        ms->search.rm_len = ms->search.s_len - idx;
        break;
      }
    }
    if ((ms->flags & MAGIC_DEBUG) != 0) {
      fprintf(stderr, "] %sfound\n", v == 0 ? "" : "not ");
    }
    break;
  }
  case FILE_REGEX: {
    int rc;
    file_regex_t *rx = *m_cache;
    const char *search;
    regmatch_t pmatch;
    size_t slen = ms->search.s_len;
    char *copy;

    if (ms->search.s == NULL)
      return 0;

    if (rx == NULL) {
      rx = *m_cache = alloc_regex(ms, m);
      if (rx == NULL)
        return -1;
    }
    l = 0;
    if (slen != 0) {
        copy = CAST(char *, malloc(slen));
        if (copy == NULL)  {
      file_error(ms, errno,
          "can't allocate %" SIZE_T_FORMAT "u bytes",
          slen);
      return -1;
        }
        memcpy(copy, ms->search.s, slen);
        copy[--slen] = '\0';
        search = copy;
    } else {
        search = CCAST(char *, "");
        copy = NULL;
    }
    rc = file_regexec(ms, rx, RCAST(const char *, search),
        1, &pmatch, 0);
    free(copy);
    switch (rc) {
    case 0:
      ms->search.s += CAST(int, pmatch.rm_so);
      ms->search.offset += CAST(size_t, pmatch.rm_so);
      ms->search.rm_len = CAST(size_t,
          pmatch.rm_eo - pmatch.rm_so);
      v = 0;
      break;

    case REG_NOMATCH:
      v = 1;
      break;

    default:
      return -1;
    }
    break;
  }
  case FILE_USE:
    return ms->ms_value.q != 0;
  case FILE_NAME:
  case FILE_INDIRECT:
    return 1;
  case FILE_DER:
    matched = der_cmp(ms, m);
    if (matched == -1) {
      if ((ms->flags & MAGIC_DEBUG) != 0) {
        (void) fprintf(stderr,
            "EOF comparing DER entries\n");
      }
      return 0;
    }
    return matched;
  case FILE_GUID:
    l = 0;
    v = memcmp(m->value.guid, p->guid, sizeof(p->guid));
    break;
  default:
    file_magerror(ms, "invalid type %d in magiccheck()", m->type);
    return -1;
  }

  v = file_signextend(ms, m, v);

  switch (m->reln) {
  case 'x':
    if ((ms->flags & MAGIC_DEBUG) != 0)
      (void) fprintf(stderr, "%" INT64_T_FORMAT
          "u == *any* = 1", CAST(unsigned long long, v));
    matched = 1;
    break;

  case '!':
    matched = v != l;
    if ((ms->flags & MAGIC_DEBUG) != 0)
      (void) fprintf(stderr, "%" INT64_T_FORMAT "u != %"
          INT64_T_FORMAT "u = %d",
          CAST(unsigned long long, v),
          CAST(unsigned long long, l), matched);
    break;

  case '=':
    matched = v == l;
    if ((ms->flags & MAGIC_DEBUG) != 0)
      (void) fprintf(stderr, "%" INT64_T_FORMAT "u == %"
          INT64_T_FORMAT "u = %d",
          CAST(unsigned long long, v),
          CAST(unsigned long long, l), matched);
    break;

  case '>':
    if (m->flag & UNSIGNED) {
      matched = v > l;
      if ((ms->flags & MAGIC_DEBUG) != 0)
        (void) fprintf(stderr, "%" INT64_T_FORMAT
            "u > %" INT64_T_FORMAT "u = %d",
            CAST(unsigned long long, v),
            CAST(unsigned long long, l), matched);
    }
    else {
      matched = CAST(int64_t, v) > CAST(int64_t, l);
      if ((ms->flags & MAGIC_DEBUG) != 0)
        (void) fprintf(stderr, "%" INT64_T_FORMAT
            "d > %" INT64_T_FORMAT "d = %d",
            CAST(long long, v),
            CAST(long long, l), matched);
    }
    break;

  case '<':
    if (m->flag & UNSIGNED) {
      matched = v < l;
      if ((ms->flags & MAGIC_DEBUG) != 0)
        (void) fprintf(stderr, "%" INT64_T_FORMAT
            "u < %" INT64_T_FORMAT "u = %d",
            CAST(unsigned long long, v),
            CAST(unsigned long long, l), matched);
    }
    else {
      matched = CAST(int64_t, v) < CAST(int64_t, l);
      if ((ms->flags & MAGIC_DEBUG) != 0)
        (void) fprintf(stderr, "%" INT64_T_FORMAT
            "d < %" INT64_T_FORMAT "d = %d",
             CAST(long long, v),
             CAST(long long, l), matched);
    }
    break;

  case '&':
    matched = (v & l) == l;
    if ((ms->flags & MAGIC_DEBUG) != 0)
      (void) fprintf(stderr, "((%" INT64_T_FORMAT "x & %"
          INT64_T_FORMAT "x) == %" INT64_T_FORMAT
          "x) = %d", CAST(unsigned long long, v),
          CAST(unsigned long long, l),
          CAST(unsigned long long, l),
          matched);
    break;

  case '^':
    matched = (v & l) != l;
    if ((ms->flags & MAGIC_DEBUG) != 0)
      (void) fprintf(stderr, "((%" INT64_T_FORMAT "x & %"
          INT64_T_FORMAT "x) != %" INT64_T_FORMAT
          "x) = %d", CAST(unsigned long long, v),
          CAST(unsigned long long, l),
          CAST(unsigned long long, l), matched);
    break;

  default:
    file_magerror(ms, "cannot happen: invalid relation `%c'",
        m->reln);
    return -1;
  }
  if ((ms->flags & MAGIC_DEBUG) != 0) {
    (void) fprintf(stderr, " strength=%zu\n",
        file_magic_strength(m, 1));
  }

  return matched;
}

file_private int
handle_annotation(struct magic_set *ms, struct magic *m, int firstline)
{
  if ((ms->flags & MAGIC_APPLE) && m->apple[0]) {
    if (print_sep(ms, firstline) == -1)
      return -1;
    if (file_printf(ms, "%.8s", m->apple) == -1)
      return -1;
    return 1;
  }
  if ((ms->flags & MAGIC_EXTENSION) && m->ext[0]) {
    if (print_sep(ms, firstline) == -1)
      return -1;
    if (file_printf(ms, "%s", m->ext) == -1)
      return -1;
    return 1;
  }
  if ((ms->flags & MAGIC_MIME_TYPE) && m->mimetype[0]) {
    char buf[1024];
    const char *p;
    if (print_sep(ms, firstline) == -1)
      return -1;
    if (varexpand(ms, buf, sizeof(buf), m->mimetype) == -1)
      p = m->mimetype;
    else
      p = buf;
    if (file_printf(ms, "%s", p) == -1)
      return -1;
    return 1;
  }
  return 0;
}

file_private int
print_sep(struct magic_set *ms, int firstline)
{
  if (firstline)
    return 0;
  /*
   * we found another match
   * put a newline and '-' to do some simple formatting
   */
  return file_separator(ms);
}

Coverage Report

Created: 2023-09-25 06:40