libavcodec/tiff_common.c
b7ba7cbd
 /*
  * TIFF Common Routines
6a64b23d
  * Copyright (c) 2013 Thilo Borgmann <thilo.borgmann _at_ mail.de>
b7ba7cbd
  *
  * This file is part of FFmpeg.
  *
  * FFmpeg is free software; you can redistribute it and/or
  * modify it under the terms of the GNU Lesser General Public
  * License as published by the Free Software Foundation; either
  * version 2.1 of the License, or (at your option) any later version.
  *
  * FFmpeg is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  * Lesser General Public License for more details.
  *
  * You should have received a copy of the GNU Lesser General Public
  * License along with FFmpeg; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  */
 
 /**
  * @file
  * TIFF Common Routines
6a64b23d
  * @author Thilo Borgmann <thilo.borgmann _at_ mail.de>
b7ba7cbd
  */
 
 #include "tiff_common.h"
 
 
 int ff_tis_ifd(unsigned tag)
 {
     int i;
     for (i = 0; i < FF_ARRAY_ELEMS(ifd_tags); i++) {
         if (ifd_tags[i] == tag) {
             return i + 1;
         }
     }
     return 0;
 }
 
 
 unsigned ff_tget_short(GetByteContext *gb, int le)
 {
94cf83ff
     return le ? bytestream2_get_le16(gb) : bytestream2_get_be16(gb);
b7ba7cbd
 }
 
 
 unsigned ff_tget_long(GetByteContext *gb, int le)
 {
94cf83ff
     return le ? bytestream2_get_le32(gb) : bytestream2_get_be32(gb);
b7ba7cbd
 }
 
 
 double ff_tget_double(GetByteContext *gb, int le)
 {
     av_alias64 i = { .u64 = le ? bytestream2_get_le64(gb) : bytestream2_get_be64(gb)};
     return i.f64;
 }
 
 
 unsigned ff_tget(GetByteContext *gb, int type, int le)
 {
     switch (type) {
94cf83ff
     case TIFF_BYTE:  return bytestream2_get_byte(gb);
     case TIFF_SHORT: return ff_tget_short(gb, le);
     case TIFF_LONG:  return ff_tget_long(gb, le);
     default:         return UINT_MAX;
b7ba7cbd
     }
 }
 
ffe50a92
 static const char *auto_sep(int count, const char *sep, int i, int columns)
1c71f185
 {
     if (sep)
         return i ? sep : "";
     if (i && i%columns) {
         return ", ";
     } else
         return columns < count ? "\n" : "";
 }
b7ba7cbd
 
 int ff_tadd_rational_metadata(int count, const char *name, const char *sep,
                               GetByteContext *gb, int le, AVDictionary **metadata)
 {
     AVBPrint bp;
     char *ap;
     int32_t nom, denom;
     int i;
 
     if (count >= INT_MAX / sizeof(int64_t) || count <= 0)
         return AVERROR_INVALIDDATA;
     if (bytestream2_get_bytes_left(gb) < count * sizeof(int64_t))
         return AVERROR_INVALIDDATA;
 
4be0c6ed
     av_bprint_init(&bp, 10 * count, AV_BPRINT_SIZE_UNLIMITED);
b7ba7cbd
 
     for (i = 0; i < count; i++) {
         nom   = ff_tget_long(gb, le);
         denom = ff_tget_long(gb, le);
54904525
         av_bprintf(&bp, "%s%7"PRId32":%-7"PRId32, auto_sep(count, sep, i, 4), nom, denom);
b7ba7cbd
     }
 
     if ((i = av_bprint_finalize(&bp, &ap))) {
         return i;
     }
     if (!ap) {
         return AVERROR(ENOMEM);
     }
 
     av_dict_set(metadata, name, ap, AV_DICT_DONT_STRDUP_VAL);
 
     return 0;
 }
 
 
 int ff_tadd_long_metadata(int count, const char *name, const char *sep,
                           GetByteContext *gb, int le, AVDictionary **metadata)
 {
     AVBPrint bp;
     char *ap;
     int i;
 
     if (count >= INT_MAX / sizeof(int32_t) || count <= 0)
         return AVERROR_INVALIDDATA;
     if (bytestream2_get_bytes_left(gb) < count * sizeof(int32_t))
         return AVERROR_INVALIDDATA;
 
4be0c6ed
     av_bprint_init(&bp, 10 * count, AV_BPRINT_SIZE_UNLIMITED);
b7ba7cbd
 
     for (i = 0; i < count; i++) {
1c71f185
         av_bprintf(&bp, "%s%7i", auto_sep(count, sep, i, 8), ff_tget_long(gb, le));
b7ba7cbd
     }
 
     if ((i = av_bprint_finalize(&bp, &ap))) {
         return i;
     }
     if (!ap) {
         return AVERROR(ENOMEM);
     }
 
     av_dict_set(metadata, name, ap, AV_DICT_DONT_STRDUP_VAL);
 
     return 0;
 }
 
 
 int ff_tadd_doubles_metadata(int count, const char *name, const char *sep,
                              GetByteContext *gb, int le, AVDictionary **metadata)
 {
     AVBPrint bp;
     char *ap;
     int i;
 
     if (count >= INT_MAX / sizeof(int64_t) || count <= 0)
         return AVERROR_INVALIDDATA;
     if (bytestream2_get_bytes_left(gb) < count * sizeof(int64_t))
         return AVERROR_INVALIDDATA;
 
4be0c6ed
     av_bprint_init(&bp, 10 * count, 100 * count);
b7ba7cbd
 
     for (i = 0; i < count; i++) {
526049ce
         av_bprintf(&bp, "%s%.15g", auto_sep(count, sep, i, 4), ff_tget_double(gb, le));
b7ba7cbd
     }
 
     if ((i = av_bprint_finalize(&bp, &ap))) {
         return i;
     }
     if (!ap) {
         return AVERROR(ENOMEM);
     }
 
     av_dict_set(metadata, name, ap, AV_DICT_DONT_STRDUP_VAL);
 
     return 0;
 }
 
 
 int ff_tadd_shorts_metadata(int count, const char *name, const char *sep,
a94de50b
                             GetByteContext *gb, int le, int is_signed, AVDictionary **metadata)
b7ba7cbd
 {
     AVBPrint bp;
     char *ap;
     int i;
 
     if (count >= INT_MAX / sizeof(int16_t) || count <= 0)
         return AVERROR_INVALIDDATA;
     if (bytestream2_get_bytes_left(gb) < count * sizeof(int16_t))
         return AVERROR_INVALIDDATA;
 
4be0c6ed
     av_bprint_init(&bp, 10 * count, AV_BPRINT_SIZE_UNLIMITED);
b7ba7cbd
 
     for (i = 0; i < count; i++) {
a94de50b
         int v = is_signed ? (int16_t)ff_tget_short(gb, le) :  ff_tget_short(gb, le);
         av_bprintf(&bp, "%s%5i", auto_sep(count, sep, i, 8), v);
b7ba7cbd
     }
 
     if ((i = av_bprint_finalize(&bp, &ap))) {
         return i;
     }
     if (!ap) {
         return AVERROR(ENOMEM);
     }
 
     av_dict_set(metadata, name, ap, AV_DICT_DONT_STRDUP_VAL);
 
     return 0;
 }
 
 
7859e89f
 int ff_tadd_bytes_metadata(int count, const char *name, const char *sep,
a94de50b
                            GetByteContext *gb, int le, int is_signed, AVDictionary **metadata)
7859e89f
 {
     AVBPrint bp;
     char *ap;
     int i;
 
73d88773
     if (count >= INT_MAX / sizeof(int8_t) || count < 0)
7859e89f
         return AVERROR_INVALIDDATA;
     if (bytestream2_get_bytes_left(gb) < count * sizeof(int8_t))
         return AVERROR_INVALIDDATA;
 
4be0c6ed
     av_bprint_init(&bp, 10 * count, AV_BPRINT_SIZE_UNLIMITED);
7859e89f
 
     for (i = 0; i < count; i++) {
a94de50b
         int v = is_signed ? (int8_t)bytestream2_get_byte(gb) :  bytestream2_get_byte(gb);
         av_bprintf(&bp, "%s%3i", auto_sep(count, sep, i, 16), v);
7859e89f
     }
 
     if ((i = av_bprint_finalize(&bp, &ap))) {
         return i;
     }
     if (!ap) {
         return AVERROR(ENOMEM);
     }
 
     av_dict_set(metadata, name, ap, AV_DICT_DONT_STRDUP_VAL);
 
     return 0;
 }
 
b7ba7cbd
 int ff_tadd_string_metadata(int count, const char *name,
                             GetByteContext *gb, int le, AVDictionary **metadata)
 {
     char *value;
 
     if (bytestream2_get_bytes_left(gb) < count || count < 0)
         return AVERROR_INVALIDDATA;
 
     value = av_malloc(count + 1);
     if (!value)
         return AVERROR(ENOMEM);
 
     bytestream2_get_bufferu(gb, value, count);
     value[count] = 0;
 
     av_dict_set(metadata, name, value, AV_DICT_DONT_STRDUP_VAL);
     return 0;
 }
 
 
 int ff_tdecode_header(GetByteContext *gb, int *le, int *ifd_offset)
 {
     if (bytestream2_get_bytes_left(gb) < 8) {
         return AVERROR_INVALIDDATA;
     }
 
     *le = bytestream2_get_le16u(gb);
     if (*le == AV_RB16("II")) {
         *le = 1;
     } else if (*le == AV_RB16("MM")) {
         *le = 0;
     } else {
         return AVERROR_INVALIDDATA;
     }
 
     if (ff_tget_short(gb, *le) != 42) {
         return AVERROR_INVALIDDATA;
     }
 
     *ifd_offset = ff_tget_long(gb, *le);
 
     return 0;
 }
 
 
 int ff_tread_tag(GetByteContext *gb, int le, unsigned *tag, unsigned *type,
                  unsigned *count, int *next)
 {
     int ifd_tag;
     int valid_type;
 
     *tag    = ff_tget_short(gb, le);
     *type   = ff_tget_short(gb, le);
     *count  = ff_tget_long (gb, le);
 
     ifd_tag    = ff_tis_ifd(*tag);
     valid_type = *type != 0 && *type < FF_ARRAY_ELEMS(type_sizes);
 
     *next = bytestream2_tell(gb) + 4;
 
     // check for valid type
     if (!valid_type) {
         return AVERROR_INVALIDDATA;
     }
 
     // seek to offset if this is an IFD-tag or
     // if count values do not fit into the offset value
     if (ifd_tag || (*count > 4 || !(type_sizes[*type] * (*count) <= 4 || *type == TIFF_STRING))) {
         bytestream2_seek(gb, ff_tget_long (gb, le), SEEK_SET);
     }
 
     return 0;
 }