src/image_load_jpeg.c

   1 /*
   2  * Geeqie
   3  * (C) 2004 John Ellis
   4  * Copyright (C) 2008 - 2011 The Geeqie Team
   5  *
   6  * Author: Vladimir Nadvornik
   7  *
   8  * This software is released under the GNU General Public License (GNU GPL).
   9  * Please read the included file COPYING for more information.
  10  * This software comes with no warranty of any kind, use at your own risk!
  11  */
  12
  13 /* based on code from GdkPixbuf library - JPEG image loader
  14  *
  15  * Copyright (C) 1999 Michael Zucchi
  16  * Copyright (C) 1999 The Free Software Foundation
  17  *
  18  * Progressive loading code Copyright (C) 1999 Red Hat, Inc.
  19  *
  20  * Authors: Michael Zucchi <zucchi@zedzone.mmc.com.au>
  21  *          Federico Mena-Quintero <federico@gimp.org>
  22  *          Michael Fulbright <drmike@redhat.com>
  23  *
  24  * This library is free software; you can redistribute it and/or
  25  * modify it under the terms of the GNU Lesser General Public
  26  * License as published by the Free Software Foundation; either
  27  * version 2 of the License, or (at your option) any later version.
  28  *
  29  * This library is distributed in the hope that it will be useful,
  30  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  31  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  32  * Lesser General Public License for more details.
  33  *
  34  * You should have received a copy of the GNU Lesser General Public
  35  * License along with this library; if not, write to the
  36  * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  37  * Boston, MA 02111-1307, USA.
  38  */
  39
  40
  41 #include "main.h"
  42
  43 #include "image-load.h"
  44 #include "image_load_jpeg.h"
  45 #include "jpeg_parser.h"
  46
  47 #ifdef HAVE_JPEG
  48
  49 #include <setjmp.h>
  50 #include <jpeglib.h>
  51 #include <jerror.h>
  52
  53 typedef struct _ImageLoaderJpeg ImageLoaderJpeg;
  54 struct _ImageLoaderJpeg {
  55         ImageLoaderBackendCbAreaUpdated area_updated_cb;
  56         ImageLoaderBackendCbSize size_cb;
  57         ImageLoaderBackendCbAreaPrepared area_prepared_cb;
  58
  59         gpointer data;
  60
  61         GdkPixbuf *pixbuf;
  62         guint requested_width;
  63         guint requested_height;
  64
  65         gboolean abort;
  66         gboolean stereo;
  67
  68 };
  69
  70 /* error handler data */
  71 struct error_handler_data {
  72         struct jpeg_error_mgr pub;
  73         sigjmp_buf setjmp_buffer;
  74         GError **error;
  75 };
  76
  77 /* explode gray image data from jpeg library into rgb components in pixbuf */
  78 static void
  79 explode_gray_into_buf (struct jpeg_decompress_struct *cinfo,
  80                        guchar **lines)
  81 {
  82         gint i, j;
  83         guint w;
  84
  85         g_return_if_fail (cinfo != NULL);
  86         g_return_if_fail (cinfo->output_components == 1);
  87         g_return_if_fail (cinfo->out_color_space == JCS_GRAYSCALE);
  88
  89         /* Expand grey->colour.  Expand from the end of the
  90          * memory down, so we can use the same buffer.
  91          */
  92         w = cinfo->output_width;
  93         for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) {
  94                 guchar *from, *to;
  95
  96                 from = lines[i] + w - 1;
  97                 to = lines[i] + (w - 1) * 3;
  98                 for (j = w - 1; j >= 0; j--) {
  99                         to[0] = from[0];
 100                         to[1] = from[0];
 101                         to[2] = from[0];
 102                         to -= 3;
 103                         from--;
 104                 }
 105         }
 106 }
 107
 108
 109 static void
 110 convert_cmyk_to_rgb (struct jpeg_decompress_struct *cinfo,
 111                      guchar **lines)
 112 {
 113         gint i, j;
 114
 115         g_return_if_fail (cinfo != NULL);
 116         g_return_if_fail (cinfo->output_components == 4);
 117         g_return_if_fail (cinfo->out_color_space == JCS_CMYK);
 118
 119         for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) {
 120                 guchar *p;
 121
 122                 p = lines[i];
 123                 for (j = 0; j < cinfo->output_width; j++) {
 124                         int c, m, y, k;
 125                         c = p[0];
 126                         m = p[1];
 127                         y = p[2];
 128                         k = p[3];
 129                         if (cinfo->saw_Adobe_marker) {
 130                                 p[0] = k*c / 255;
 131                                 p[1] = k*m / 255;
 132                                 p[2] = k*y / 255;
 133                         }
 134                         else {
 135                                 p[0] = (255 - k)*(255 - c) / 255;
 136                                 p[1] = (255 - k)*(255 - m) / 255;
 137                                 p[2] = (255 - k)*(255 - y) / 255;
 138                         }
 139                         p[3] = 255;
 140                         p += 4;
 141                 }
 142         }
 143 }
 144
 145
 146 static gpointer image_loader_jpeg_new(ImageLoaderBackendCbAreaUpdated area_updated_cb, ImageLoaderBackendCbSize size_cb, ImageLoaderBackendCbAreaPrepared area_prepared_cb, gpointer data)
 147 {
 148         ImageLoaderJpeg *loader = g_new0(ImageLoaderJpeg, 1);
 149
 150         loader->area_updated_cb = area_updated_cb;
 151         loader->size_cb = size_cb;
 152         loader->area_prepared_cb = area_prepared_cb;
 153         loader->data = data;
 154         return (gpointer) loader;
 155 }
 156
 157 static void
 158 fatal_error_handler (j_common_ptr cinfo)
 159 {
 160         struct error_handler_data *errmgr;
 161         char buffer[JMSG_LENGTH_MAX];
 162
 163         errmgr = (struct error_handler_data *) cinfo->err;
 164
 165         /* Create the message */
 166         (* cinfo->err->format_message) (cinfo, buffer);
 167
 168         /* broken check for *error == NULL for robustness against
 169          * crappy JPEG library
 170          */
 171         if (errmgr->error && *errmgr->error == NULL) {
 172                 g_set_error (errmgr->error,
 173                              GDK_PIXBUF_ERROR,
 174                              cinfo->err->msg_code == JERR_OUT_OF_MEMORY
 175                              ? GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY
 176                              : GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
 177                              _("Error interpreting JPEG image file (%s)"),
 178                              buffer);
 179         }
 180
 181         siglongjmp (errmgr->setjmp_buffer, 1);
 182
 183         g_assert_not_reached ();
 184 }
 185
 186 static void
 187 output_message_handler (j_common_ptr cinfo)
 188 {
 189   /* This method keeps libjpeg from dumping crap to stderr */
 190
 191   /* do nothing */
 192 }
 193
 194
 195 void image_loader_jpeg_read_scanline(struct jpeg_decompress_struct *cinfo, guchar **dptr, guint rowstride)
 196 {
 197         guchar *lines[4];
 198         guchar **lptr;
 199         gint i;
 200
 201         lptr = lines;
 202         for (i = 0; i < cinfo->rec_outbuf_height; i++)
 203                 {
 204                 *lptr++ = *dptr;
 205                 *dptr += rowstride;
 206                 }
 207
 208         jpeg_read_scanlines (cinfo, lines, cinfo->rec_outbuf_height);
 209
 210         switch (cinfo->out_color_space)
 211                 {
 212                     case JCS_GRAYSCALE:
 213                       explode_gray_into_buf (cinfo, lines);
 214                       break;
 215                     case JCS_RGB:
 216                       /* do nothing */
 217                       break;
 218                     case JCS_CMYK:
 219                       convert_cmyk_to_rgb (cinfo, lines);
 220                       break;
 221                     default:
 222                       break;
 223                 }
 224 }
 225
 226
 227 static void init_source (j_decompress_ptr cinfo) {}
 228 static boolean fill_input_buffer (j_decompress_ptr cinfo)
 229 {
 230         ERREXIT(cinfo, JERR_INPUT_EMPTY);
 231         return TRUE;
 232 }
 233 static void skip_input_data (j_decompress_ptr cinfo, long num_bytes)
 234 {
 235         struct jpeg_source_mgr* src = (struct jpeg_source_mgr*) cinfo->src;
 236
 237         if (num_bytes > src->bytes_in_buffer)
 238                 {
 239                 ERREXIT(cinfo, JERR_INPUT_EOF);
 240                 }
 241         else if (num_bytes > 0)
 242                 {
 243                 src->next_input_byte += (size_t) num_bytes;
 244                 src->bytes_in_buffer -= (size_t) num_bytes;
 245                 }
 246 }
 247 static void term_source (j_decompress_ptr cinfo) {}
 248 static void set_mem_src (j_decompress_ptr cinfo, void* buffer, long nbytes)
 249 {
 250         struct jpeg_source_mgr* src;
 251
 252         if (cinfo->src == NULL)
 253                 {   /* first time for this JPEG object? */
 254                 cinfo->src = (struct jpeg_source_mgr *) (*cinfo->mem->alloc_small) (
 255                                         (j_common_ptr) cinfo, JPOOL_PERMANENT,
 256                                         sizeof(struct jpeg_source_mgr));
 257                 }
 258
 259         src = (struct jpeg_source_mgr*) cinfo->src;
 260         src->init_source = init_source;
 261         src->fill_input_buffer = fill_input_buffer;
 262         src->skip_input_data = skip_input_data;
 263         src->resync_to_restart = jpeg_resync_to_restart; /* use default method */
 264         src->term_source = term_source;
 265         src->bytes_in_buffer = nbytes;
 266         src->next_input_byte = (JOCTET*)buffer;
 267 }
 268
 269
 270 static gboolean image_loader_jpeg_load (gpointer loader, const guchar *buf, gsize count, GError **error)
 271 {
 272         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 273         struct jpeg_decompress_struct cinfo;
 274         struct jpeg_decompress_struct cinfo2;
 275         guchar *dptr, *dptr2;
 276         guint rowstride;
 277         guchar *stereo_buf2 = NULL;
 278         guint stereo_length = 0;
 279
 280         struct error_handler_data jerr;
 281
 282         lj->stereo = FALSE;
 283
 284         MPOData *mpo = jpeg_get_mpo_data(buf, count);
 285         if (mpo && mpo->num_images > 1)
 286                 {
 287                 guint i;
 288                 gint idx1 = -1, idx2 = -1;
 289                 guint num2 = 1;
 290
 291                 for (i = 0; i < mpo->num_images; i++)
 292                         {
 293                         if (mpo->images[i].type_code == 0x20002)
 294                                 {
 295                                 if (mpo->images[i].MPIndividualNum == 1)
 296                                         {
 297                                         idx1 = i;
 298                                         }
 299                                 else if (mpo->images[i].MPIndividualNum > num2)
 300                                         {
 301                                         idx2 = i;
 302                                         num2 = mpo->images[i].MPIndividualNum;
 303                                         }
 304                                 }
 305                         }
 306
 307                 if (idx1 >= 0 && idx2 >= 0)
 308                         {
 309                         lj->stereo = TRUE;
 310                         stereo_buf2 = (unsigned char *)buf + mpo->images[idx2].offset;
 311                         stereo_length = mpo->images[idx2].length;
 312                         buf = (unsigned char *)buf + mpo->images[idx1].offset;
 313                         count = mpo->images[idx1].length;
 314                         }
 315                 }
 316         jpeg_mpo_data_free(mpo);
 317
 318         /* setup error handler */
 319         cinfo.err = jpeg_std_error (&jerr.pub);
 320         if (lj->stereo) cinfo2.err = jpeg_std_error (&jerr.pub);
 321         jerr.pub.error_exit = fatal_error_handler;
 322         jerr.pub.output_message = output_message_handler;
 323
 324         jerr.error = error;
 325
 326
 327         if (setjmp(jerr.setjmp_buffer))
 328                 {
 329                 /* If we get here, the JPEG code has signaled an error.
 330                  * We need to clean up the JPEG object, close the input file, and return.
 331                 */
 332                 jpeg_destroy_decompress(&cinfo);
 333                 if (lj->stereo) jpeg_destroy_decompress(&cinfo2);
 334                 return FALSE;
 335                 }
 336
 337         jpeg_create_decompress(&cinfo);
 338
 339         set_mem_src(&cinfo, (unsigned char *)buf, count);
 340
 341
 342         jpeg_read_header(&cinfo, TRUE);
 343
 344         if (lj->stereo)
 345                 {
 346                 jpeg_create_decompress(&cinfo2);
 347                 set_mem_src(&cinfo2, stereo_buf2, stereo_length);
 348                 jpeg_read_header(&cinfo2, TRUE);
 349
 350                 if (cinfo.image_width != cinfo2.image_width ||
 351                     cinfo.image_height != cinfo2.image_height)
 352                         {
 353                         DEBUG_1("stereo data with different size");
 354                         jpeg_destroy_decompress(&cinfo2);
 355                         lj->stereo = FALSE;
 356                         }
 357                 }
 358
 359
 360
 361         lj->requested_width = lj->stereo ? cinfo.image_width * 2: cinfo.image_width;
 362         lj->requested_height = cinfo.image_height;
 363         lj->size_cb(loader, lj->requested_width, lj->requested_height, lj->data);
 364
 365         cinfo.scale_num = 1;
 366         for (cinfo.scale_denom = 2; cinfo.scale_denom <= 8; cinfo.scale_denom *= 2) {
 367                 jpeg_calc_output_dimensions(&cinfo);
 368                 if (cinfo.output_width < (lj->stereo ? lj->requested_width / 2 : lj->requested_width) || cinfo.output_height < lj->requested_height) {
 369                         cinfo.scale_denom /= 2;
 370                         break;
 371                 }
 372         }
 373         jpeg_calc_output_dimensions(&cinfo);
 374         if (lj->stereo)
 375                 {
 376                 cinfo2.scale_num = cinfo.scale_num;
 377                 cinfo2.scale_denom = cinfo.scale_denom;
 378                 jpeg_calc_output_dimensions(&cinfo2);
 379                 jpeg_start_decompress(&cinfo2);
 380                 }
 381
 382
 383         jpeg_start_decompress(&cinfo);
 384
 385
 386         if (lj->stereo)
 387                 {
 388                 if (cinfo.output_width != cinfo2.output_width ||
 389                     cinfo.output_height != cinfo2.output_height ||
 390                     cinfo.out_color_components != cinfo2.out_color_components)
 391                         {
 392                         DEBUG_1("stereo data with different output size");
 393                         jpeg_destroy_decompress(&cinfo2);
 394                         lj->stereo = FALSE;
 395                         }
 396                 }
 397
 398
 399         lj->pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB,
 400                                      cinfo.out_color_components == 4 ? TRUE : FALSE,
 401                                      8, lj->stereo ? cinfo.output_width * 2: cinfo.output_width, cinfo.output_height);
 402
 403         if (!lj->pixbuf)
 404                 {
 405                 jpeg_destroy_decompress (&cinfo);
 406                 if (lj->stereo) jpeg_destroy_decompress (&cinfo2);
 407                 return 0;
 408                 }
 409         if (lj->stereo) g_object_set_data(G_OBJECT(lj->pixbuf), "stereo_data", GINT_TO_POINTER(STEREO_PIXBUF_CROSS));
 410         lj->area_prepared_cb(loader, lj->data);
 411
 412         rowstride = gdk_pixbuf_get_rowstride(lj->pixbuf);
 413         dptr = gdk_pixbuf_get_pixels(lj->pixbuf);
 414         dptr2 = gdk_pixbuf_get_pixels(lj->pixbuf) + ((cinfo.out_color_components == 4) ? 4 * cinfo.output_width : 3 * cinfo.output_width);
 415
 416
 417         while (cinfo.output_scanline < cinfo.output_height && !lj->abort)
 418                 {
 419                 guint scanline = cinfo.output_scanline;
 420                 image_loader_jpeg_read_scanline(&cinfo, &dptr, rowstride);
 421                 lj->area_updated_cb(loader, 0, scanline, cinfo.output_width, cinfo.rec_outbuf_height, lj->data);
 422                 if (lj->stereo)
 423                         {
 424                         guint scanline = cinfo2.output_scanline;
 425                         image_loader_jpeg_read_scanline(&cinfo2, &dptr2, rowstride);
 426                         lj->area_updated_cb(loader, cinfo.output_width, scanline, cinfo2.output_width, cinfo2.rec_outbuf_height, lj->data);
 427                         }
 428                 }
 429
 430         jpeg_finish_decompress(&cinfo);
 431         jpeg_destroy_decompress(&cinfo);
 432         if (lj->stereo)
 433                 {
 434                 jpeg_finish_decompress(&cinfo);
 435                 jpeg_destroy_decompress(&cinfo);
 436                 }
 437
 438         return TRUE;
 439 }
 440
 441 static void image_loader_jpeg_set_size(gpointer loader, int width, int height)
 442 {
 443         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 444         lj->requested_width = width;
 445         lj->requested_height = height;
 446 }
 447
 448 static GdkPixbuf* image_loader_jpeg_get_pixbuf(gpointer loader)
 449 {
 450         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 451         return lj->pixbuf;
 452 }
 453
 454 static gchar* image_loader_jpeg_get_format_name(gpointer loader)
 455 {
 456         return g_strdup("jpeg");
 457 }
 458 static gchar** image_loader_jpeg_get_format_mime_types(gpointer loader)
 459 {
 460         static gchar *mime[] = {"image/jpeg", NULL};
 461         return g_strdupv(mime);
 462 }
 463
 464 static gboolean image_loader_jpeg_close(gpointer loader, GError **error)
 465 {
 466         return TRUE;
 467 }
 468
 469 static void image_loader_jpeg_abort(gpointer loader)
 470 {
 471         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 472         lj->abort = TRUE;
 473 }
 474
 475 static void image_loader_jpeg_free(gpointer loader)
 476 {
 477         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 478         if (lj->pixbuf) g_object_unref(lj->pixbuf);
 479         g_free(lj);
 480 }
 481
 482
 483 void image_loader_backend_set_jpeg(ImageLoaderBackend *funcs)
 484 {
 485         funcs->loader_new = image_loader_jpeg_new;
 486         funcs->set_size = image_loader_jpeg_set_size;
 487         funcs->load = image_loader_jpeg_load;
 488         funcs->write = NULL;
 489         funcs->get_pixbuf = image_loader_jpeg_get_pixbuf;
 490         funcs->close = image_loader_jpeg_close;
 491         funcs->abort = image_loader_jpeg_abort;
 492         funcs->free = image_loader_jpeg_free;
 493
 494         funcs->get_format_name = image_loader_jpeg_get_format_name;
 495         funcs->get_format_mime_types = image_loader_jpeg_get_format_mime_types;
 496 }
 497
 498
 499
 500 #endif
 501
 502
 503 /* vim: set shiftwidth=8 softtabstop=0 cindent cinoptions={1s: */