Mercurial > hg > forks > geeqie
view src/image_load_jpeg.c @ 1912:4417578c55f9
improved mpo parser, consider individual image type code
author | Vladimir Nadvornik <nadvornik@suse.cz> |
---|---|
date | Sat, 09 Apr 2011 16:07:31 +0200 |
parents | 225b72ae0482 |
children | 25ad4fcd970d |
line wrap: on
line source
/* * Geeqie * (C) 2004 John Ellis * Copyright (C) 2008 - 2011 The Geeqie Team * * Author: Vladimir Nadvornik * * 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! */ /* based on code from GdkPixbuf library - JPEG image loader * * Copyright (C) 1999 Michael Zucchi * Copyright (C) 1999 The Free Software Foundation * * Progressive loading code Copyright (C) 1999 Red Hat, Inc. * * Authors: Michael Zucchi <zucchi@zedzone.mmc.com.au> * Federico Mena-Quintero <federico@gimp.org> * Michael Fulbright <drmike@redhat.com> * * This library 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 of the License, or (at your option) any later version. * * This library 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 this library; if not, write to the * Free Software Foundation, Inc., 59 Temple Place - Suite 330, * Boston, MA 02111-1307, USA. */ #include "main.h" #include "image-load.h" #include "image_load_jpeg.h" #include "jpeg_parser.h" #include <setjmp.h> #include <jpeglib.h> #include <jerror.h> typedef struct _ImageLoaderJpeg ImageLoaderJpeg; struct _ImageLoaderJpeg { ImageLoaderBackendCbAreaUpdated area_updated_cb; ImageLoaderBackendCbSize size_cb; ImageLoaderBackendCbAreaPrepared area_prepared_cb; gpointer data; GdkPixbuf *pixbuf; guint requested_width; guint requested_height; gboolean abort; gboolean stereo; }; /* error handler data */ struct error_handler_data { struct jpeg_error_mgr pub; sigjmp_buf setjmp_buffer; GError **error; }; /* explode gray image data from jpeg library into rgb components in pixbuf */ static void explode_gray_into_buf (struct jpeg_decompress_struct *cinfo, guchar **lines) { gint i, j; guint w; g_return_if_fail (cinfo != NULL); g_return_if_fail (cinfo->output_components == 1); g_return_if_fail (cinfo->out_color_space == JCS_GRAYSCALE); /* Expand grey->colour. Expand from the end of the * memory down, so we can use the same buffer. */ w = cinfo->output_width; for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) { guchar *from, *to; from = lines[i] + w - 1; to = lines[i] + (w - 1) * 3; for (j = w - 1; j >= 0; j--) { to[0] = from[0]; to[1] = from[0]; to[2] = from[0]; to -= 3; from--; } } } static void convert_cmyk_to_rgb (struct jpeg_decompress_struct *cinfo, guchar **lines) { gint i, j; g_return_if_fail (cinfo != NULL); g_return_if_fail (cinfo->output_components == 4); g_return_if_fail (cinfo->out_color_space == JCS_CMYK); for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) { guchar *p; p = lines[i]; for (j = 0; j < cinfo->output_width; j++) { int c, m, y, k; c = p[0]; m = p[1]; y = p[2]; k = p[3]; if (cinfo->saw_Adobe_marker) { p[0] = k*c / 255; p[1] = k*m / 255; p[2] = k*y / 255; } else { p[0] = (255 - k)*(255 - c) / 255; p[1] = (255 - k)*(255 - m) / 255; p[2] = (255 - k)*(255 - y) / 255; } p[3] = 255; p += 4; } } } static gpointer image_loader_jpeg_new(ImageLoaderBackendCbAreaUpdated area_updated_cb, ImageLoaderBackendCbSize size_cb, ImageLoaderBackendCbAreaPrepared area_prepared_cb, gpointer data) { ImageLoaderJpeg *loader = g_new0(ImageLoaderJpeg, 1); loader->area_updated_cb = area_updated_cb; loader->size_cb = size_cb; loader->area_prepared_cb = area_prepared_cb; loader->data = data; return (gpointer) loader; } static void fatal_error_handler (j_common_ptr cinfo) { struct error_handler_data *errmgr; char buffer[JMSG_LENGTH_MAX]; errmgr = (struct error_handler_data *) cinfo->err; /* Create the message */ (* cinfo->err->format_message) (cinfo, buffer); /* broken check for *error == NULL for robustness against * crappy JPEG library */ if (errmgr->error && *errmgr->error == NULL) { g_set_error (errmgr->error, GDK_PIXBUF_ERROR, cinfo->err->msg_code == JERR_OUT_OF_MEMORY ? GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY : GDK_PIXBUF_ERROR_CORRUPT_IMAGE, _("Error interpreting JPEG image file (%s)"), buffer); } siglongjmp (errmgr->setjmp_buffer, 1); g_assert_not_reached (); } static void output_message_handler (j_common_ptr cinfo) { /* This method keeps libjpeg from dumping crap to stderr */ /* do nothing */ } void image_loader_jpeg_read_scanline(struct jpeg_decompress_struct *cinfo, guchar **dptr, guint rowstride) { guchar *lines[4]; guchar **lptr; gint i; lptr = lines; for (i = 0; i < cinfo->rec_outbuf_height; i++) { *lptr++ = *dptr; *dptr += rowstride; } jpeg_read_scanlines (cinfo, lines, cinfo->rec_outbuf_height); switch (cinfo->out_color_space) { case JCS_GRAYSCALE: explode_gray_into_buf (cinfo, lines); break; case JCS_RGB: /* do nothing */ break; case JCS_CMYK: convert_cmyk_to_rgb (cinfo, lines); break; default: break; } } static void init_source (j_decompress_ptr cinfo) {} static boolean fill_input_buffer (j_decompress_ptr cinfo) { ERREXIT(cinfo, JERR_INPUT_EMPTY); } static void skip_input_data (j_decompress_ptr cinfo, long num_bytes) { struct jpeg_source_mgr* src = (struct jpeg_source_mgr*) cinfo->src; if (num_bytes > 0) { src->next_input_byte += (size_t) num_bytes; src->bytes_in_buffer -= (size_t) num_bytes; } } static void term_source (j_decompress_ptr cinfo) {} static void set_mem_src (j_decompress_ptr cinfo, void* buffer, long nbytes) { struct jpeg_source_mgr* src; if (cinfo->src == NULL) { /* first time for this JPEG object? */ cinfo->src = (struct jpeg_source_mgr *) (*cinfo->mem->alloc_small) ( (j_common_ptr) cinfo, JPOOL_PERMANENT, sizeof(struct jpeg_source_mgr)); } src = (struct jpeg_source_mgr*) cinfo->src; src->init_source = init_source; src->fill_input_buffer = fill_input_buffer; src->skip_input_data = skip_input_data; src->resync_to_restart = jpeg_resync_to_restart; /* use default method */ src->term_source = term_source; src->bytes_in_buffer = nbytes; src->next_input_byte = (JOCTET*)buffer; } static gboolean image_loader_jpeg_load (gpointer loader, const guchar *buf, gsize count, GError **error) { ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader; struct jpeg_decompress_struct cinfo; struct jpeg_decompress_struct cinfo2; guchar *dptr, *dptr2; guint rowstride; guchar *stereo_buf2 = NULL; guint stereo_length = 0; struct error_handler_data jerr; lj->stereo = FALSE; MPOData *mpo = jpeg_get_mpo_data(buf, count); if (mpo && mpo->num_images > 1) { guint i; gint idx1 = -1, idx2 = -1; guint num2 = 1; for (i = 0; i < mpo->num_images; i++) { if (mpo->images[i].type_code == 0x20002) { if (mpo->images[i].MPIndividualNum == 1) { idx1 = i; } else if (mpo->images[i].MPIndividualNum > num2) { idx2 = i; num2 = mpo->images[i].MPIndividualNum; } } } if (idx1 >= 0 && idx2 >= 0) { lj->stereo = TRUE; stereo_buf2 = (unsigned char *)buf + mpo->images[idx2].offset; stereo_length = mpo->images[idx2].length; buf = (unsigned char *)buf + mpo->images[idx1].offset; count = mpo->images[idx1].length; } } jpeg_mpo_data_free(mpo); /* setup error handler */ cinfo.err = jpeg_std_error (&jerr.pub); if (lj->stereo) cinfo2.err = jpeg_std_error (&jerr.pub); jerr.pub.error_exit = fatal_error_handler; jerr.pub.output_message = output_message_handler; jerr.error = error; if (setjmp(jerr.setjmp_buffer)) { /* If we get here, the JPEG code has signaled an error. * We need to clean up the JPEG object, close the input file, and return. */ jpeg_destroy_decompress(&cinfo); if (lj->stereo) jpeg_destroy_decompress(&cinfo2); return FALSE; } jpeg_create_decompress(&cinfo); set_mem_src(&cinfo, (unsigned char *)buf, count); jpeg_read_header(&cinfo, TRUE); if (lj->stereo) { jpeg_create_decompress(&cinfo2); set_mem_src(&cinfo2, stereo_buf2, stereo_length); jpeg_read_header(&cinfo2, TRUE); if (cinfo.image_width != cinfo2.image_width || cinfo.image_height != cinfo2.image_height) { DEBUG_1("stereo data with different size"); jpeg_destroy_decompress(&cinfo2); lj->stereo = FALSE; } } lj->requested_width = lj->stereo ? cinfo.image_width * 2: cinfo.image_width; lj->requested_height = cinfo.image_height; lj->size_cb(loader, lj->requested_width, lj->requested_height, lj->data); cinfo.scale_num = 1; for (cinfo.scale_denom = 2; cinfo.scale_denom <= 8; cinfo.scale_denom *= 2) { jpeg_calc_output_dimensions(&cinfo); if (cinfo.output_width < (lj->stereo ? lj->requested_width / 2 : lj->requested_width) || cinfo.output_height < lj->requested_height) { cinfo.scale_denom /= 2; break; } } jpeg_calc_output_dimensions(&cinfo); if (lj->stereo) { cinfo2.scale_num = cinfo.scale_num; cinfo2.scale_denom = cinfo.scale_denom; jpeg_calc_output_dimensions(&cinfo2); jpeg_start_decompress(&cinfo2); } jpeg_start_decompress(&cinfo); if (lj->stereo) { if (cinfo.output_width != cinfo2.output_width || cinfo.output_height != cinfo2.output_height || cinfo.out_color_components != cinfo2.out_color_components) { DEBUG_1("stereo data with different output size"); jpeg_destroy_decompress(&cinfo2); lj->stereo = FALSE; } } lj->pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB, cinfo.out_color_components == 4 ? TRUE : FALSE, 8, lj->stereo ? cinfo.output_width * 2: cinfo.output_width, cinfo.output_height); if (!lj->pixbuf) { jpeg_destroy_decompress (&cinfo); if (lj->stereo) jpeg_destroy_decompress (&cinfo2); return 0; } if (lj->stereo) g_object_set_data(G_OBJECT(lj->pixbuf), "stereo_data", GINT_TO_POINTER(STEREO_PIXBUF_CROSS)); lj->area_prepared_cb(loader, lj->data); rowstride = gdk_pixbuf_get_rowstride(lj->pixbuf); dptr = gdk_pixbuf_get_pixels(lj->pixbuf); dptr2 = gdk_pixbuf_get_pixels(lj->pixbuf) + ((cinfo.out_color_components == 4) ? 4 * cinfo.output_width : 3 * cinfo.output_width); while (cinfo.output_scanline < cinfo.output_height && !lj->abort) { guint scanline = cinfo.output_scanline; image_loader_jpeg_read_scanline(&cinfo, &dptr, rowstride); lj->area_updated_cb(loader, 0, scanline, cinfo.output_width, cinfo.rec_outbuf_height, lj->data); if (lj->stereo) { guint scanline = cinfo2.output_scanline; image_loader_jpeg_read_scanline(&cinfo2, &dptr2, rowstride); lj->area_updated_cb(loader, cinfo.output_width, scanline, cinfo2.output_width, cinfo2.rec_outbuf_height, lj->data); } } jpeg_finish_decompress(&cinfo); jpeg_destroy_decompress(&cinfo); if (lj->stereo) { jpeg_finish_decompress(&cinfo); jpeg_destroy_decompress(&cinfo); } return TRUE; } static void image_loader_jpeg_set_size(gpointer loader, int width, int height) { ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader; lj->requested_width = width; lj->requested_height = height; } static GdkPixbuf* image_loader_jpeg_get_pixbuf(gpointer loader) { ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader; return lj->pixbuf; } static gchar* image_loader_jpeg_get_format_name(gpointer loader) { return g_strdup("jpeg"); } static gchar** image_loader_jpeg_get_format_mime_types(gpointer loader) { static gchar *mime[] = {"image/jpeg", NULL}; return g_strdupv(mime); } static gboolean image_loader_jpeg_close(gpointer loader, GError **error) { return TRUE; } static void image_loader_jpeg_abort(gpointer loader) { ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader; lj->abort = TRUE; } static void image_loader_jpeg_free(gpointer loader) { ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader; if (lj->pixbuf) g_object_unref(lj->pixbuf); g_free(lj); } void image_loader_backend_set_jpeg(ImageLoaderBackend *funcs) { funcs->loader_new = image_loader_jpeg_new; funcs->set_size = image_loader_jpeg_set_size; funcs->load = image_loader_jpeg_load; funcs->write = NULL; funcs->get_pixbuf = image_loader_jpeg_get_pixbuf; funcs->close = image_loader_jpeg_close; funcs->abort = image_loader_jpeg_abort; funcs->free = image_loader_jpeg_free; funcs->get_format_name = image_loader_jpeg_get_format_name; funcs->get_format_mime_types = image_loader_jpeg_get_format_mime_types; }