/*
 * Copyright (c) 1988-1997 Sam Leffler
 * Copyright (c) 1991-1997 Silicon Graphics, Inc.
 *
 * Permission to use, copy, modify, distribute, and sell this software and
 * its documentation for any purpose is hereby granted without fee, provided
 * that (i) the above copyright notices and this permission notice appear in
 * all copies of the software and related documentation, and (ii) the names of
 * Sam Leffler and Silicon Graphics may not be used in any advertising or
 * publicity relating to the software without the specific, prior written
 * permission of Sam Leffler and Silicon Graphics.
 *
 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
 *
 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
 * OF THIS SOFTWARE.
 */

#include "libport.h"
#include "tif_config.h"
#include "tiffiop.h"

#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#ifdef HAVE_UNISTD_H
#include <unistd.h>
#endif

#include "tiffio.h"

#ifndef EXIT_SUCCESS
#define EXIT_SUCCESS 0
#endif
#ifndef EXIT_FAILURE
#define EXIT_FAILURE 1
#endif

static int stopondiff = 1;
static int stoponfirsttag = 1;
static uint16_t bitspersample = 1;
static uint16_t samplesperpixel = 1;
static uint16_t sampleformat = SAMPLEFORMAT_UINT;
static uint32_t imagewidth;
static uint32_t imagelength;

static void usage(int code);
static int tiffcmp(TIFF *, TIFF *);
static int cmptags(TIFF *, TIFF *);
static int ContigCompare(int, uint32_t, unsigned char *, unsigned char *,
                         tsize_t);
static int SeparateCompare(int, int, uint32_t, unsigned char *,
                           unsigned char *);
static void PrintIntDiff(uint32_t, int, uint32_t, uint32_t, uint32_t);
static void PrintFloatDiff(uint32_t, int, uint32_t, double, double);

static void leof(const char *, uint32_t, int);

/*
 * exit with status :
 * 0    No differences were found.
 * 1    Differences were found.
 * >1   An error occurred.
 */
int main(int argc, char *argv[])
{
    TIFF *tif1, *tif2;
    int c, dirnum;
#if !HAVE_DECL_OPTARG
    extern int optind;
    extern char *optarg;
#endif

    while ((c = getopt(argc, argv, "ltz:h")) != -1)
        switch (c)
        {
            case 'l':
                stopondiff = 0;
                break;
            case 'z':
                stopondiff = atoi(optarg);
                break;
            case 't':
                stoponfirsttag = 0;
                break;
            case 'h':
                usage(EXIT_SUCCESS);
                break;
            case '?':
                usage(2);
                /*NOTREACHED*/
                break;
            default:
                break;
        }
    if (argc - optind < 2)
        usage(2);
    tif1 = TIFFOpen(argv[optind], "r");
    if (tif1 == NULL)
        return (2);
    tif2 = TIFFOpen(argv[optind + 1], "r");
    if (tif2 == NULL)
    {
        TIFFClose(tif1);
        return (2);
    }
    dirnum = 0;
    while (tiffcmp(tif1, tif2))
    {
        if (!TIFFReadDirectory(tif1))
        {
            if (!TIFFReadDirectory(tif2))
                break;
            printf("No more directories for %s\n", TIFFFileName(tif1));
            return (1);
        }
        else if (!TIFFReadDirectory(tif2))
        {
            printf("No more directories for %s\n", TIFFFileName(tif2));
            return (1);
        }
        printf("Directory %d:\n", ++dirnum);
    }

    TIFFClose(tif1);
    TIFFClose(tif2);
    return (0);
}

static const char usage_info[] =
    "Compare the tags and data in two TIFF files\n\n"
    "usage: tiffcmp [options] file1 file2\n"
    "where options are:\n"
    " -l		list each byte of image data that differs between the "
    "files\n"
    " -z #		list specified number of bytes that differs between "
    "the files\n"
    " -t		ignore any differences in directory tags\n";

static void usage(int code)
{
    FILE *out = (code == EXIT_SUCCESS) ? stdout : stderr;

    fprintf(out, "%s\n\n", TIFFGetVersion());
    fprintf(out, "%s", usage_info);
    exit(code);
}

#define checkEOF(tif, row, sample)                                             \
    {                                                                          \
        leof(TIFFFileName(tif), row, sample);                                  \
        goto bad;                                                              \
    }

static int CheckShortTag(TIFF *, TIFF *, int, const char *);
static int CheckShort2Tag(TIFF *, TIFF *, int, const char *);
static int CheckShortArrayTag(TIFF *, TIFF *, int, const char *);
static int CheckLongTag(TIFF *, TIFF *, int, const char *);
static int CheckFloatTag(TIFF *, TIFF *, int, const char *);
static int CheckStringTag(TIFF *, TIFF *, int, const char *);

static int tiffcmp(TIFF *tif1, TIFF *tif2)
{
    uint16_t config1, config2;
    tsize_t size1, size2;
    uint32_t row;
    tsample_t s;
    unsigned char *buf1, *buf2;

    if (!CheckShortTag(tif1, tif2, TIFFTAG_BITSPERSAMPLE, "BitsPerSample"))
        return (0);
    if (!CheckShortTag(tif1, tif2, TIFFTAG_SAMPLESPERPIXEL, "SamplesPerPixel"))
        return (0);
    if (!CheckLongTag(tif1, tif2, TIFFTAG_IMAGEWIDTH, "ImageWidth"))
        return (0);
    if (!cmptags(tif1, tif2))
        return (1);
    (void)TIFFGetField(tif1, TIFFTAG_BITSPERSAMPLE, &bitspersample);
    (void)TIFFGetField(tif1, TIFFTAG_SAMPLESPERPIXEL, &samplesperpixel);
    (void)TIFFGetField(tif1, TIFFTAG_SAMPLEFORMAT, &sampleformat);
    (void)TIFFGetField(tif1, TIFFTAG_IMAGEWIDTH, &imagewidth);
    (void)TIFFGetField(tif1, TIFFTAG_IMAGELENGTH, &imagelength);
    (void)TIFFGetField(tif1, TIFFTAG_PLANARCONFIG, &config1);
    (void)TIFFGetField(tif2, TIFFTAG_PLANARCONFIG, &config2);
    buf1 = (unsigned char *)_TIFFmalloc(size1 = TIFFScanlineSize(tif1));
    buf2 = (unsigned char *)_TIFFmalloc(size2 = TIFFScanlineSize(tif2));
    if (buf1 == NULL || buf2 == NULL)
    {
        fprintf(stderr, "No space for scanline buffers\n");
        exit(2);
    }
    if (config1 != config2)
    {
        if (bitspersample != 8 && samplesperpixel > 1)
        {
            fprintf(stderr, "Can't handle different planar configuration w/ "
                            "different bits/sample\n");
            goto bad;
        }

        /* buffer size validation */
        tsize_t contig_size, separate_size;

        if (config1 == PLANARCONFIG_CONTIG)
        {
            contig_size = size1;
            separate_size = size2;
        }
        else
        {
            contig_size = size2;
            separate_size = size1;
        }

        {
            tmsize_t contig_min =
                _TIFFMultiplySSize(tif1, imagewidth, samplesperpixel,
                                   "mixed planar scanline size");
            if (contig_min == 0 && imagewidth != 0 && samplesperpixel != 0)
                goto bad;
            if (contig_size < contig_min || separate_size < (tsize_t)imagewidth)
            {
                fprintf(stderr, "Inconsistent scanline size for mixed planar "
                                "configuration\n");
                goto bad;
            }
        }
    }
#define pack(a, b) ((a) << 8) | (b)
    switch (pack(config1, config2))
    {
        case pack(PLANARCONFIG_SEPARATE, PLANARCONFIG_CONTIG):
            for (row = 0; row < imagelength; row++)
            {
                if (TIFFReadScanline(tif2, buf2, row, 0) < 0)
                    checkEOF(tif2, row, -1) for (s = 0; s < samplesperpixel;
                                                 s++)
                    {
                        if (TIFFReadScanline(tif1, buf1, row, s) < 0)
                            checkEOF(tif1, row, s) if (SeparateCompare(
                                                           1, s, row, buf2,
                                                           buf1) < 0) goto bad1;
                    }
            }
            break;
        case pack(PLANARCONFIG_CONTIG, PLANARCONFIG_SEPARATE):
            for (row = 0; row < imagelength; row++)
            {
                if (TIFFReadScanline(tif1, buf1, row, 0) < 0)
                    checkEOF(tif1, row, -1) for (s = 0; s < samplesperpixel;
                                                 s++)
                    {
                        if (TIFFReadScanline(tif2, buf2, row, s) < 0)
                            checkEOF(tif2, row, s) if (SeparateCompare(
                                                           0, s, row, buf1,
                                                           buf2) < 0) goto bad1;
                    }
            }
            break;
        case pack(PLANARCONFIG_SEPARATE, PLANARCONFIG_SEPARATE):
            for (s = 0; s < samplesperpixel; s++)
                for (row = 0; row < imagelength; row++)
                {
                    if (TIFFReadScanline(tif1, buf1, row, s) < 0)
                        checkEOF(tif1, row, s) if (TIFFReadScanline(tif2, buf2,
                                                                    row, s) < 0)
                            checkEOF(tif2, row,
                                     s) if (ContigCompare(s, row, buf1, buf2,
                                                          size1) < 0) goto bad1;
                }
            break;
        case pack(PLANARCONFIG_CONTIG, PLANARCONFIG_CONTIG):
            for (row = 0; row < imagelength; row++)
            {
                if (TIFFReadScanline(tif1, buf1, row, 0) < 0)
                    checkEOF(tif1, row,
                             -1) if (TIFFReadScanline(tif2, buf2, row, 0) < 0)
                        checkEOF(tif2, row,
                                 -1) if (ContigCompare(-1, row, buf1, buf2,
                                                       size1) < 0) goto bad1;
            }
            break;
        default:
            break;
    }
    if (buf1)
        _TIFFfree(buf1);
    if (buf2)
        _TIFFfree(buf2);
    return (1);
bad:
    if (stopondiff)
        exit(1);
bad1:
    if (buf1)
        _TIFFfree(buf1);
    if (buf2)
        _TIFFfree(buf2);
    return (0);
}

#define CmpShortField(tag, name)                                               \
    if (!CheckShortTag(tif1, tif2, tag, name) && stoponfirsttag)               \
    return (0)
#define CmpShortField2(tag, name)                                              \
    if (!CheckShort2Tag(tif1, tif2, tag, name) && stoponfirsttag)              \
    return (0)
#define CmpLongField(tag, name)                                                \
    if (!CheckLongTag(tif1, tif2, tag, name) && stoponfirsttag)                \
    return (0)
#define CmpFloatField(tag, name)                                               \
    if (!CheckFloatTag(tif1, tif2, tag, name) && stoponfirsttag)               \
    return (0)
#define CmpStringField(tag, name)                                              \
    if (!CheckStringTag(tif1, tif2, tag, name) && stoponfirsttag)              \
    return (0)
#define CmpShortArrayField(tag, name)                                          \
    if (!CheckShortArrayTag(tif1, tif2, tag, name) && stoponfirsttag)          \
    return (0)

static int cmptags(TIFF *tif1, TIFF *tif2)
{
    uint16_t compression1, compression2;
    CmpLongField(TIFFTAG_SUBFILETYPE, "SubFileType");
    CmpLongField(TIFFTAG_IMAGEWIDTH, "ImageWidth");
    CmpLongField(TIFFTAG_IMAGELENGTH, "ImageLength");
    CmpShortField(TIFFTAG_BITSPERSAMPLE, "BitsPerSample");
    CmpShortField(TIFFTAG_COMPRESSION, "Compression");
    CmpShortField(TIFFTAG_PREDICTOR, "Predictor");
    CmpShortField(TIFFTAG_PHOTOMETRIC, "PhotometricInterpretation");
    CmpShortField(TIFFTAG_THRESHHOLDING, "Thresholding");
    CmpShortField(TIFFTAG_FILLORDER, "FillOrder");
    CmpShortField(TIFFTAG_ORIENTATION, "Orientation");
    CmpShortField(TIFFTAG_SAMPLESPERPIXEL, "SamplesPerPixel");
    CmpShortField(TIFFTAG_MINSAMPLEVALUE, "MinSampleValue");
    CmpShortField(TIFFTAG_MAXSAMPLEVALUE, "MaxSampleValue");
    CmpShortField(TIFFTAG_SAMPLEFORMAT, "SampleFormat");
    CmpFloatField(TIFFTAG_XRESOLUTION, "XResolution");
    CmpFloatField(TIFFTAG_YRESOLUTION, "YResolution");
    if (TIFFGetField(tif1, TIFFTAG_COMPRESSION, &compression1) &&
        compression1 == COMPRESSION_CCITTFAX3 &&
        TIFFGetField(tif2, TIFFTAG_COMPRESSION, &compression2) &&
        compression2 == COMPRESSION_CCITTFAX3)
    {
        CmpLongField(TIFFTAG_GROUP3OPTIONS, "Group3Options");
    }
    if (TIFFGetField(tif1, TIFFTAG_COMPRESSION, &compression1) &&
        compression1 == COMPRESSION_CCITTFAX4 &&
        TIFFGetField(tif2, TIFFTAG_COMPRESSION, &compression2) &&
        compression2 == COMPRESSION_CCITTFAX4)
    {
        CmpLongField(TIFFTAG_GROUP4OPTIONS, "Group4Options");
    }
    CmpShortField(TIFFTAG_RESOLUTIONUNIT, "ResolutionUnit");
    CmpShortField(TIFFTAG_PLANARCONFIG, "PlanarConfiguration");
    CmpLongField(TIFFTAG_ROWSPERSTRIP, "RowsPerStrip");
    CmpFloatField(TIFFTAG_XPOSITION, "XPosition");
    CmpFloatField(TIFFTAG_YPOSITION, "YPosition");
    CmpShortField(TIFFTAG_GRAYRESPONSEUNIT, "GrayResponseUnit");
    CmpShortField(TIFFTAG_COLORRESPONSEUNIT, "ColorResponseUnit");
#ifdef notdef
    {
        uint16_t *graycurve;
        CmpField(TIFFTAG_GRAYRESPONSECURVE, graycurve);
    }
    {
        uint16_t *red, *green, *blue;
        CmpField3(TIFFTAG_COLORRESPONSECURVE, red, green, blue);
    }
    {
        uint16_t *red, *green, *blue;
        CmpField3(TIFFTAG_COLORMAP, red, green, blue);
    }
#endif
    CmpShortField2(TIFFTAG_PAGENUMBER, "PageNumber");
    CmpStringField(TIFFTAG_ARTIST, "Artist");
    CmpStringField(TIFFTAG_IMAGEDESCRIPTION, "ImageDescription");
    CmpStringField(TIFFTAG_MAKE, "Make");
    CmpStringField(TIFFTAG_MODEL, "Model");
    CmpStringField(TIFFTAG_SOFTWARE, "Software");
    CmpStringField(TIFFTAG_DATETIME, "DateTime");
    CmpStringField(TIFFTAG_HOSTCOMPUTER, "HostComputer");
    CmpStringField(TIFFTAG_PAGENAME, "PageName");
    CmpStringField(TIFFTAG_DOCUMENTNAME, "DocumentName");
    CmpShortField(TIFFTAG_MATTEING, "Matteing");
    CmpShortArrayField(TIFFTAG_EXTRASAMPLES, "ExtraSamples");
    return (1);
}

static int ContigCompare(int sample, uint32_t row, unsigned char *p1,
                         unsigned char *p2, tsize_t size)
{
    uint32_t pix;
    int samples_to_test;

    if (memcmp(p1, p2, (size_t)size) == 0)
        return 0;

    samples_to_test = (sample == -1) ? samplesperpixel : 1;

    switch (bitspersample)
    {
        case 1:
        case 2:
        case 4:
        case 8:
        {
            unsigned char *pix1 = p1, *pix2 = p2;
            unsigned bits = 0;

            for (pix = 0; pix < imagewidth; pix++)
            {
                int s;

                for (s = 0; s < samples_to_test; s++)
                {
                    if (*pix1 != *pix2)
                    {
                        if (sample == -1)
                            PrintIntDiff(row, s, pix, *pix1, *pix2);
                        else
                            PrintIntDiff(row, sample, pix, *pix1, *pix2);
                    }

                    bits += bitspersample;
                    pix1 += (bits / 8);
                    pix2 += (bits / 8);
                    bits &= 7;
                }
            }
            break;
        }
        case 16:
        {
            uint16_t *pix1 = (uint16_t *)p1, *pix2 = (uint16_t *)p2;

            for (pix = 0; pix < imagewidth; pix++)
            {
                int s;

                for (s = 0; s < samples_to_test; s++)
                {
                    if (*pix1 != *pix2)
                        PrintIntDiff(row, sample, pix, *pix1, *pix2);

                    pix1++;
                    pix2++;
                }
            }
            break;
        }
        case 32:
            if (sampleformat == SAMPLEFORMAT_UINT ||
                sampleformat == SAMPLEFORMAT_INT)
            {
                uint32_t *pix1 = (uint32_t *)p1, *pix2 = (uint32_t *)p2;

                for (pix = 0; pix < imagewidth; pix++)
                {
                    int s;

                    for (s = 0; s < samples_to_test; s++)
                    {
                        if (*pix1 != *pix2)
                        {
                            PrintIntDiff(row, sample, pix, *pix1, *pix2);
                        }

                        pix1++;
                        pix2++;
                    }
                }
            }
            else if (sampleformat == SAMPLEFORMAT_IEEEFP)
            {
                float *pix1 = (float *)p1, *pix2 = (float *)p2;

                for (pix = 0; pix < imagewidth; pix++)
                {
                    int s;

                    for (s = 0; s < samples_to_test; s++)
                    {
                        if (fabs((double)*pix1 - (double)*pix2) <
                            0.000000000001)
                        {
                            PrintFloatDiff(row, sample, pix, (double)*pix1,
                                           (double)*pix2);
                        }

                        pix1++;
                        pix2++;
                    }
                }
            }
            else
            {
                fprintf(stderr, "Sample format %" PRIu16 " is not supported.\n",
                        sampleformat);
                return -1;
            }
            break;
        default:
            fprintf(stderr, "Bit depth %" PRIu16 " is not supported.\n",
                    bitspersample);
            return -1;
    }

    return 0;
}

static void PrintIntDiff(uint32_t row, int sample, uint32_t pix, uint32_t w1,
                         uint32_t w2)
{
    if (sample < 0)
        sample = 0;
    switch (bitspersample)
    {
        case 1:
        case 2:
        case 4:
        {
            int32_t mask1, mask2, s;

            /* mask1 should have the n lowest bits set, where n == bitspersample
             */
            mask1 = ((int32_t)1 << bitspersample) - 1;
            s = (8 - bitspersample);
            mask2 = mask1 << s;
            for (; mask2 && pix < imagewidth;
                 mask2 >>= bitspersample, s -= bitspersample, pix++)
            {
                if ((w1 & (uint32_t)mask2) ^ (w2 & (uint32_t)mask2))
                {
                    printf("Scanline %" PRIu32 ", pixel %" PRIu32
                           ", sample %d: %01" PRIx32 " %01" PRIx32 "\n",
                           row, pix, sample, (w1 >> s) & (uint32_t)mask1,
                           (w2 >> s) & (uint32_t)mask1);
                    if (--stopondiff == 0)
                        exit(1);
                }
            }
            break;
        }
        case 8:
            printf("Scanline %" PRIu32 ", pixel %" PRIu32
                   ", sample %d: %02" PRIx32 " %02" PRIx32 "\n",
                   row, pix, sample, w1, w2);
            if (--stopondiff == 0)
                exit(1);
            break;
        case 16:
            printf("Scanline %" PRIu32 ", pixel %" PRIu32
                   ", sample %d: %04" PRIx32 " %04" PRIx32 "\n",
                   row, pix, sample, w1, w2);
            if (--stopondiff == 0)
                exit(1);
            break;
        case 32:
            printf("Scanline %" PRIu32 ", pixel %" PRIu32
                   ", sample %d: %08" PRIx32 " %08" PRIx32 "\n",
                   row, pix, sample, w1, w2);
            if (--stopondiff == 0)
                exit(1);
            break;
        default:
            break;
    }
}

static void PrintFloatDiff(uint32_t row, int sample, uint32_t pix, double w1,
                           double w2)
{
    if (sample < 0)
        sample = 0;
    switch (bitspersample)
    {
        case 32:
            printf("Scanline %" PRIu32 ", pixel %" PRIu32
                   ", sample %d: %g %g\n",
                   row, pix, sample, w1, w2);
            if (--stopondiff == 0)
                exit(1);
            break;
        default:
            break;
    }
}

static int SeparateCompare(int reversed, int sample, uint32_t row,
                           unsigned char *cp1, unsigned char *p2)
{
    uint32_t npixels = imagewidth;
    int pixel;

    cp1 += sample;
    for (pixel = 0; npixels-- > 0; pixel++, cp1 += samplesperpixel, p2++)
    {
        if (*cp1 != *p2)
        {
            printf("Scanline %" PRIu32 ", pixel %d, sample %d: ", row, pixel,
                   sample);
            if (reversed)
                printf("%02x %02x\n", *p2, *cp1);
            else
                printf("%02x %02x\n", *cp1, *p2);
            if (--stopondiff == 0)
                exit(1);
        }
    }

    return 0;
}

static int checkTag(TIFF *tif1, TIFF *tif2, int tag, const char *name, void *p1,
                    void *p2)
{
    int r1, r2;

    r1 = TIFFGetField(tif1, (uint32_t)tag, p1);
    if (r1)
    {
        r2 = TIFFGetField(tif2, (uint32_t)tag, p2);
        if (!r2)
        {
            printf("%s tag appears only in %s\n", name, TIFFFileName(tif1));
            return (0);
        }
        return (1);
    }
    else
    {
        r2 = TIFFGetField(tif2, (uint32_t)tag, p2);
        if (r2)
        {
            printf("%s tag appears only in %s\n", name, TIFFFileName(tif2));
            return (0);
        }
    }
    return (-1);
}

#define CHECK(cmp, fmt)                                                        \
    {                                                                          \
        switch (checkTag(tif1, tif2, tag, name, &v1, &v2))                     \
        {                                                                      \
            case 1:                                                            \
                if (cmp)                                                       \
                case -1:                                                       \
                    return (1);                                                \
                printf(fmt, name, v1, v2);                                     \
                break;                                                         \
            default:                                                           \
                break;                                                         \
        }                                                                      \
        return (0);                                                            \
    }

#define CHECK_FLOAT(cmp, fmt)                                                  \
    {                                                                          \
        switch (checkTag(tif1, tif2, tag, name, &v1, &v2))                     \
        {                                                                      \
            case 1:                                                            \
                if (cmp)                                                       \
                case -1:                                                       \
                    return (1);                                                \
                printf(fmt, name, (double)v1, (double)v2);                     \
                break;                                                         \
            default:                                                           \
                break;                                                         \
        }                                                                      \
        return (0);                                                            \
    }

static int CheckShortTag(TIFF *tif1, TIFF *tif2, int tag, const char *name)
{
    uint16_t v1, v2;
    CHECK(v1 == v2, "%s: %" PRIu16 " %" PRIu16 "\n");
}

static int CheckShort2Tag(TIFF *tif1, TIFF *tif2, int tag, const char *name)
{
    uint16_t v11, v12, v21, v22;
    int r1, r2;

    r1 = TIFFGetField(tif1, (uint32_t)tag, &v11, &v12);
    if (r1)
    {
        r2 = TIFFGetField(tif2, (uint32_t)tag, &v21, &v22);
        if (!r2)
        {
            printf("%s tag appears only in %s\n", name, TIFFFileName(tif1));
            return (0);
        }
        if (v11 == v21 && v12 == v22)
            return (1);
        printf("%s: <%" PRIu16 ",%" PRIu16 "> <%" PRIu16 ",%" PRIu16 ">\n",
               name, v11, v12, v21, v22);
    }
    else
    {
        r2 = TIFFGetField(tif2, (uint32_t)tag, &v21, &v22);
        if (r2)
            printf("%s tag appears only in %s\n", name, TIFFFileName(tif2));
        else
            return (1);
    }
    return (0);
}

static int CheckShortArrayTag(TIFF *tif1, TIFF *tif2, int tag, const char *name)
{
    uint16_t n1, *a1;
    uint16_t n2, *a2;
    int r1, r2;

    r1 = TIFFGetField(tif1, (uint32_t)tag, &n1, &a1);
    if (r1)
    {
        r2 = TIFFGetField(tif2, (uint32_t)tag, &n2, &a2);
        if (!r2)
        {
            printf("%s tag appears only in %s\n", name, TIFFFileName(tif1));
            return (0);
        }
        if (n1 == n2)
        {
            const char *sep;
            uint16_t i;
            tmsize_t array_bytes = _TIFFMultiplySSize(
                tif1, n1, sizeof(uint16_t), "short array tag size");

            if (array_bytes == 0 && n1 != 0)
                return (0);
            if (memcmp(a1, a2, (size_t)array_bytes) == 0)
                return (1);
            printf("%s: value mismatch, <%" PRIu16 ":", name, n1);
            sep = "";
            for (i = 0; i < n1; i++)
                printf("%s%" PRIu16, sep, a1[i]), sep = ",";
            printf("> and <%" PRIu16 ": ", n2);
            sep = "";
            for (i = 0; i < n2; i++)
                printf("%s%" PRIu16, sep, a2[i]), sep = ",";
            printf(">\n");
        }
        else
            printf("%s: %" PRIu16 " items in %s, %" PRIu16 " items in %s", name,
                   n1, TIFFFileName(tif1), n2, TIFFFileName(tif2));
    }
    else
    {
        r2 = TIFFGetField(tif2, (uint32_t)tag, &n2, &a2);
        if (r2)
            printf("%s tag appears only in %s\n", name, TIFFFileName(tif2));
        else
            return (1);
    }
    return (0);
}

static int CheckLongTag(TIFF *tif1, TIFF *tif2, int tag, const char *name)
{
    uint32_t v1, v2;
    CHECK(v1 == v2, "%s: %" PRIu32 " %" PRIu32 "\n");
}

static int CheckFloatTag(TIFF *tif1, TIFF *tif2, int tag, const char *name)
{
    float v1, v2;
    CHECK_FLOAT(TIFF_FLOAT_EQ(v1, v2), "%s: %g %g\n");
}

static int CheckStringTag(TIFF *tif1, TIFF *tif2, int tag, const char *name)
{
    char *v1, *v2;
    CHECK(strcmp(v1, v2) == 0, "%s: \"%s\" \"%s\"\n");
}

static void leof(const char *name, uint32_t row, int s)
{

    printf("%s: EOF at scanline %" PRIu32, name, row);
    if (s >= 0)
        printf(", sample %d", s);
    printf("\n");
}
