+++ /dev/null
-/*
- * GQView
- * (C) 2006 John Ellis
- * Copyright (C) 2008 The Geeqie Team
- *
- * Authors:
- * Original version 2005 Lars Ellenberg, base on dcraw by David coffin.
- *
- * This software is released under the GNU General Public License (GNU GPL).
- * Please read the included file COPYING for more information.
- * This software comes with no warranty of any kind, use at your own risk!
- */
-
-#ifdef HAVE_CONFIG_H
-# include "config.h"
-#endif
-
-#ifndef HAVE_EXIV2
-
-#include <stdio.h>
-#include <string.h>
-#include <unistd.h>
-#include <sys/types.h>
-#include <sys/stat.h>
-#include <sys/mman.h>
-
-#include <glib.h>
-
-#include "intl.h"
-
-#include "main.h"
-#include "format_raw.h"
-
-#include "debug.h"
-#include "format_canon.h"
-#include "format_fuji.h"
-#include "format_nikon.h"
-#include "format_olympus.h"
-
-
-typedef struct _FormatRawEntry FormatRawEntry;
-struct _FormatRawEntry {
- const gchar *extension;
- FormatRawMatchType magic_type;
- const guint magic_offset;
- const void *magic_pattern;
- const guint magic_length;
- const FormatRawExifType exif_type;
- FormatRawExifParseFunc exif_func;
- const gchar *description;
- FormatRawParseFunc func_parse;
-};
-
-static FormatRawEntry format_raw_list[] = {
-#if DEBUG_RAW_TIFF
- FORMAT_RAW_DEBUG_TIFF,
-#endif
- FORMAT_RAW_CANON,
- FORMAT_RAW_FUJI,
- FORMAT_RAW_NIKON,
- FORMAT_RAW_OLYMPUS,
- FORMAT_RAW_PENTAX,
- FORMAT_RAW_SAMSUNG,
- { NULL, 0, 0, NULL, 0, 0, NULL, NULL, NULL }
-};
-
-
-typedef struct _FormatExifEntry FormatExifEntry;
-struct _FormatExifEntry {
- FormatExifMatchType header_type;
- const void *header_pattern;
- const guint header_length;
- const gchar *description;
- FormatExifParseFunc func_parse;
-};
-
-static FormatExifEntry format_exif_list[] = {
- FORMAT_EXIF_CANON,
- FORMAT_EXIF_FUJI,
- FORMAT_EXIF_NIKON,
- FORMAT_EXIF_OLYMPUS,
- { 0, NULL, 0, NULL }
-};
-
-
-static guint tiff_table(unsigned char *data, const guint len, guint offset, ExifByteOrder bo,
- guint tag, ExifFormatType type,
- guint *result_offset, guint *result_count)
-{
- guint count;
- guint i;
-
- if (len < offset + 2) return 0;
- if (type < 0 || type > EXIF_FORMAT_COUNT) return 0;
-
- count = exif_byte_get_int16(data + offset, bo);
- offset += 2;
- if (len < offset + count * 12 + 4) return 0;
-
- for (i = 0; i < count; i++)
- {
- guint segment;
-
- segment = offset + i * 12;
- if (exif_byte_get_int16(data + segment, bo) == tag &&
- exif_byte_get_int16(data + segment + 2, bo) == type)
- {
- guint chunk_count;
- guint chunk_offset;
- guint chunk_length;
-
- chunk_count = exif_byte_get_int32(data + segment + 4, bo);
- chunk_length = ExifFormatList[type].size * chunk_count;
-
- if (chunk_length > 4)
- {
- chunk_offset = exif_byte_get_int32(data + segment + 8, bo);
- }
- else
- {
- chunk_offset = segment + 8;
- }
-
- if (chunk_offset + chunk_length <= len)
- {
- *result_offset = chunk_offset;
- *result_count = chunk_count;
- }
-
- return 0;
- }
- }
-
- return exif_byte_get_int32(data + offset + count * 12, bo);
-}
-
-static gint format_tiff_find_tag_data(unsigned char *data, const guint len,
- guint tag, ExifFormatType type,
- guint *result_offset, guint *result_count)
-{
- ExifByteOrder bo;
- guint offset;
-
- if (len < 8) return FALSE;
-
- if (memcmp(data, "II", 2) == 0)
- {
- bo = EXIF_BYTE_ORDER_INTEL;
- }
- else if (memcmp(data, "MM", 2) == 0)
- {
- bo = EXIF_BYTE_ORDER_MOTOROLA;
- }
- else
- {
- return FALSE;
- }
-
- if (exif_byte_get_int16(data + 2, bo) != 0x002A)
- {
- return FALSE;
- }
-
- offset = exif_byte_get_int32(data + 4, bo);
-
- while (offset != 0)
- {
- guint ro = 0;
- guint rc = 0;
-
- offset = tiff_table(data, len, offset, bo, tag, type, &ro, &rc);
- if (ro != 0)
- {
- *result_offset = ro;
- *result_count = rc;
- return TRUE;
- }
- }
-
- return FALSE;
-}
-
-static FormatRawEntry *format_raw_find(unsigned char *data, const guint len)
-{
- gint n;
- gint tiff;
- guint make_count = 0;
- guint make_offset = 0;
-
- tiff = (len > 8 &&
- (memcmp(data, "II\x2a\x00", 4) == 0 ||
- memcmp(data, "MM\x00\x2a", 4) == 0));
-
- n = 0;
- while (format_raw_list[n].magic_pattern)
- {
- FormatRawEntry *entry = &format_raw_list[n];
-
- switch (entry->magic_type)
- {
- case FORMAT_RAW_MATCH_MAGIC:
- if (entry->magic_length + entry->magic_offset <= len &&
- memcmp(data + entry->magic_offset,
- entry->magic_pattern, entry->magic_length) == 0)
- {
- return entry;
- }
- break;
- case FORMAT_RAW_MATCH_TIFF_MAKE:
- if (tiff &&
- make_offset == 0 &&
- !format_tiff_find_tag_data(data, len, 0x10f, EXIF_FORMAT_STRING,
- &make_offset, &make_count))
- {
- tiff = FALSE;
- }
- if (make_offset != 0 &&
- make_count >= entry->magic_offset + entry->magic_length &&
- memcmp(entry->magic_pattern,
- data + make_offset + entry->magic_offset, entry->magic_length) == 0)
- {
- return entry;
- }
- break;
- default:
- break;
- }
- n++;
- }
-
- return NULL;
-}
-
-static gint format_raw_parse(FormatRawEntry *entry,
- unsigned char *data, const guint len,
- guint *image_offset, guint *exif_offset)
-{
- guint io = 0;
- guint eo = 0;
- gint found;
-
- if (!entry || !entry->func_parse) return FALSE;
-
- DEBUG_1("RAW using file parser for %s", entry->description);
-
- found = entry->func_parse(data, len, &io, &eo);
-
- if (!found ||
- io >= len - 4 ||
- eo >= len)
- {
- return FALSE;
- }
-
- if (image_offset) *image_offset = io;
- if (exif_offset) *exif_offset = eo;
-
- return TRUE;
-}
-
-gint format_raw_img_exif_offsets(unsigned char *data, const guint len,
- guint *image_offset, guint *exif_offset)
-{
- FormatRawEntry *entry;
-
- if (!data || len < 1) return FALSE;
-
- entry = format_raw_find(data, len);
-
- if (!entry || !entry->func_parse) return FALSE;
-
- return format_raw_parse(entry, data, len, image_offset, exif_offset);
-}
-
-
-FormatRawExifType format_raw_exif_offset(unsigned char *data, const guint len, guint *exif_offset,
- FormatRawExifParseFunc *exif_parse_func)
-{
- FormatRawEntry *entry;
-
- if (!data || len < 1) return FALSE;
-
- entry = format_raw_find(data, len);
-
- if (!entry || !entry->func_parse) return FALSE;
-
- if (!format_raw_parse(entry, data, len, NULL, exif_offset)) return FORMAT_RAW_EXIF_NONE;
-
- if (entry->exif_type == FORMAT_RAW_EXIF_PROPRIETARY && exif_parse_func)
- {
- *exif_parse_func = entry->exif_func;
- }
-
- return entry->exif_type;
-}
-
-
-gint format_raw_img_exif_offsets_fd(int fd, const gchar *path,
- unsigned char *header_data, const guint header_len,
- guint *image_offset, guint *exif_offset)
-{
- FormatRawEntry *entry;
- void *map_data = NULL;
- size_t map_len = 0;
- struct stat st;
- gint success;
-
- if (!header_data || fd < 0) return FALSE;
-
- /* given image pathname, first do simple (and fast) file extension test */
- if (path)
- {
- const gchar *ext;
- gint match = FALSE;
- gint i;
-
- ext = strrchr(path, '.');
- if (!ext) return FALSE;
- ext++;
-
- i = 0;
- while (!match && format_raw_list[i].magic_pattern)
- {
- if (format_raw_list[i].extension &&
- strcasecmp(format_raw_list[i].extension, ext) == 0)
- {
- match = TRUE;
- }
- i++;
- }
-
- if (!match) return FALSE;
-
- DEBUG_1("RAW file parser extension match");
- }
-
- /* FIXME:
- * when the target is a tiff file it should be mmaped prior to format_raw_find as
- * the make field data may not always be within header_data + header_len
- */
- entry = format_raw_find(header_data, header_len);
-
- if (!entry || !entry->func_parse) return FALSE;
-
- if (fstat(fd, &st) == -1)
- {
- printf("Failed to stat file %d\n", fd);
- return FALSE;
- }
- map_len = st.st_size;
- map_data = mmap(0, map_len, PROT_READ, MAP_PRIVATE, fd, 0);
- if (map_data == MAP_FAILED)
- {
- printf("Failed to mmap file %d\n", fd);
- return FALSE;
- }
-
- success = format_raw_parse(entry, map_data, map_len, image_offset, exif_offset);
-
- if (munmap(map_data, map_len) == -1)
- {
- printf("Failed to unmap file %d\n", fd);
- }
-
- if (success && image_offset)
- {
- if (lseek(fd, *image_offset, SEEK_SET) != *image_offset)
- {
- printf("Failed to seek to embedded image\n");
-
- *image_offset = 0;
- if (*exif_offset) *exif_offset = 0;
- success = FALSE;
- }
- }
-
- return success;
-}
-
-
-static FormatExifEntry *format_exif_makernote_find(ExifData *exif, unsigned char *tiff,
- guint offset, guint size)
-{
- ExifItem *make;
- gint n;
-
- make = exif_get_item(exif, "Exif.Image.Make");
-
- n = 0;
- while (format_exif_list[n].header_pattern)
- {
- switch (format_exif_list[n].header_type)
- {
- case FORMAT_EXIF_MATCH_MAKERNOTE:
- if (format_exif_list[n].header_length + offset < size &&
- memcmp(tiff + offset, format_exif_list[n].header_pattern,
- format_exif_list[n].header_length) == 0)
- {
- return &format_exif_list[n];
- }
- break;
- case FORMAT_EXIF_MATCH_MAKE:
- if (make &&
- make->data_len >= format_exif_list[n].header_length &&
- memcmp(make->data, format_exif_list[n].header_pattern,
- format_exif_list[n].header_length) == 0)
- {
- return &format_exif_list[n];
- }
- break;
- }
- n++;
- }
-
- return FALSE;
-}
-
-gint format_exif_makernote_parse(ExifData *exif, unsigned char *tiff, guint offset,
- guint size, ExifByteOrder bo)
-{
- FormatExifEntry *entry;
-
- entry = format_exif_makernote_find(exif, tiff, offset, size);
-
- if (!entry || !entry->func_parse) return FALSE;
-
- DEBUG_1("EXIF using makernote parser for %s", entry->description);
-
- return entry->func_parse(exif, tiff, offset, size, bo);
-}
-
-/*
- *-----------------------------------------------------------------------------
- * Basic TIFF debugger, prints all IFD entries within tiff file
- *-----------------------------------------------------------------------------
- */
-#if DEBUG_RAW_TIFF
-
-static guint format_debug_tiff_table(unsigned char *data, const guint len, guint offset,
- ExifByteOrder bo, gint level);
-
-static void format_debug_tiff_entry(unsigned char *data, const guint len, guint offset,
- ExifByteOrder bo, gint level)
-{
- guint tag;
- guint type;
- guint count;
- guint segment;
- guint seg_len;
-
- tag = exif_byte_get_int16(data + offset + EXIF_TIFD_OFFSET_TAG, bo);
- type = exif_byte_get_int16(data + offset + EXIF_TIFD_OFFSET_FORMAT, bo);
- count = exif_byte_get_int32(data + offset + EXIF_TIFD_OFFSET_COUNT, bo);
-
- seg_len = ExifFormatList[type].size * count;
- if (seg_len > 4)
- {
- segment = exif_byte_get_int32(data + offset + EXIF_TIFD_OFFSET_DATA, bo);
- if (segment + seg_len > len) return;
- }
- else
- {
- segment = offset + EXIF_TIFD_OFFSET_DATA;
- }
-
- printf("%*stag:0x%04X (%05d), type:%2d %9s, len:%6d [%02X %02X %02X %02X] @ offset:%d\n",
- level, "", tag, tag, type,
- (type < EXIF_FORMAT_COUNT) ? ExifFormatList[type].short_name : "???", count,
- data[segment], data[segment + 1], data[segment + 2], data[segment + 3], segment);
-
- if (tag == 0x8769 || tag == 0x14a)
- {
- gint i;
-
- printf("%*s~~~ found %s table\n", level, "", (tag == 0x14a) ? "subIFD" : "EXIF" );
-
- for (i = 0; i < count; i++)
- {
- guint subset;
-
- subset = exif_byte_get_int32(data + segment + i * 4, bo);
- format_debug_tiff_table(data, len, subset, bo, level + 1);
- }
- }
- else if (tag == 0x8773 && type == EXIF_FORMAT_UNDEFINED)
- {
- printf("%*s~~~ found ICC color profile at offset %d, length %d\n", level, "", segment, seg_len);
- }
- else if (tag == 0x201 && (type == EXIF_FORMAT_LONG_UNSIGNED || type == EXIF_FORMAT_LONG))
- {
- guint subset = exif_byte_get_int32(data + segment, bo);
- printf("%*s~~~ found jpeg data at offset %d\n", level, "", subset);
- }
- else if (tag == 0x202 && (type == EXIF_FORMAT_LONG_UNSIGNED || type == EXIF_FORMAT_LONG))
- {
- guint subset = exif_byte_get_int32(data + segment, bo);
- printf("%*s~~~ found jpeg data length of %d\n", level, "", subset);
- }
-}
-
-static guint format_debug_tiff_table(unsigned char *data, const guint len, guint offset,
- ExifByteOrder bo, gint level)
-{
- guint count;
- guint i;
-
- if (level > EXIF_TIFF_MAX_LEVELS) return 0;
-
- if (len < offset + 2) return FALSE;
-
- count = exif_byte_get_int16(data + offset, bo);
- offset += 2;
- if (len < offset + count * EXIF_TIFD_SIZE + 4) return 0;
-
- printf("%*s== tiff table #%d has %d entries ==\n", level, "", level, count);
-
- for (i = 0; i < count; i++)
- {
- format_debug_tiff_entry(data, len, offset + i * EXIF_TIFD_SIZE, bo, level);
- }
-
- printf("%*s----------- end of #%d ------------\n", level, "", level);
-
- return exif_byte_get_int32(data + offset + count * EXIF_TIFD_SIZE, bo);
-}
-
-gint format_debug_tiff_raw(unsigned char *data, const guint len,
- guint *image_offset, guint *exif_offset)
-{
- ExifByteOrder bo;
- gint level;
- guint offset;
-
- if (len < 8) return FALSE;
-
- /* for debugging, we are more relaxed as to magic header */
- if (memcmp(data, "II", 2) == 0)
- {
- bo = EXIF_BYTE_ORDER_INTEL;
- }
- else if (memcmp(data, "MM", 2) == 0)
- {
- bo = EXIF_BYTE_ORDER_MOTOROLA;
- }
- else
- {
- return FALSE;
- }
-
- printf("*** debug parsing tiff\n");
-
- offset = exif_byte_get_int32(data + 4, bo);
- level = 0;
- while (offset && level < EXIF_TIFF_MAX_LEVELS)
- {
- offset = format_debug_tiff_table(data, len, offset, bo, 0);
- level++;
- }
-
- printf("*** end\n");
-
- /* we are debugging, not trying to return any data */
- return FALSE;
-}
-#endif
-
-#endif
-/* not HAVE_EXIV2 */