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 #include "image-load.h"
  43 #include "image_load_jpeg.h"
  44 #include "jpeg_parser.h"
  45
  46 #include <setjmp.h>
  47 #include <jpeglib.h>
  48 #include <jerror.h>
  49
  50 typedef struct _ImageLoaderJpeg ImageLoaderJpeg;
  51 struct _ImageLoaderJpeg {
  52         ImageLoaderBackendCbAreaUpdated area_updated_cb;
  53         ImageLoaderBackendCbSize size_cb;
  54         ImageLoaderBackendCbAreaPrepared area_prepared_cb;
  55
  56         gpointer data;
  57
  58         GdkPixbuf *pixbuf;
  59         guint requested_width;
  60         guint requested_height;
  61
  62         gboolean abort;
  63         gboolean stereo;
  64
  65 };
  66
  67 /* error handler data */
  68 struct error_handler_data {
  69         struct jpeg_error_mgr pub;
  70         sigjmp_buf setjmp_buffer;
  71         GError **error;
  72 };
  73
  74 /* explode gray image data from jpeg library into rgb components in pixbuf */
  75 static void
  76 explode_gray_into_buf (struct jpeg_decompress_struct *cinfo,
  77                        guchar **lines)
  78 {
  79         gint i, j;
  80         guint w;
  81
  82         g_return_if_fail (cinfo != NULL);
  83         g_return_if_fail (cinfo->output_components == 1);
  84         g_return_if_fail (cinfo->out_color_space == JCS_GRAYSCALE);
  85
  86         /* Expand grey->colour.  Expand from the end of the
  87          * memory down, so we can use the same buffer.
  88          */
  89         w = cinfo->output_width;
  90         for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) {
  91                 guchar *from, *to;
  92
  93                 from = lines[i] + w - 1;
  94                 to = lines[i] + (w - 1) * 3;
  95                 for (j = w - 1; j >= 0; j--) {
  96                         to[0] = from[0];
  97                         to[1] = from[0];
  98                         to[2] = from[0];
  99                         to -= 3;
 100                         from--;
 101                 }
 102         }
 103 }
 104
 105
 106 static void
 107 convert_cmyk_to_rgb (struct jpeg_decompress_struct *cinfo,
 108                      guchar **lines)
 109 {
 110         gint i, j;
 111
 112         g_return_if_fail (cinfo != NULL);
 113         g_return_if_fail (cinfo->output_components == 4);
 114         g_return_if_fail (cinfo->out_color_space == JCS_CMYK);
 115
 116         for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) {
 117                 guchar *p;
 118
 119                 p = lines[i];
 120                 for (j = 0; j < cinfo->output_width; j++) {
 121                         int c, m, y, k;
 122                         c = p[0];
 123                         m = p[1];
 124                         y = p[2];
 125                         k = p[3];
 126                         if (cinfo->saw_Adobe_marker) {
 127                                 p[0] = k*c / 255;
 128                                 p[1] = k*m / 255;
 129                                 p[2] = k*y / 255;
 130                         }
 131                         else {
 132                                 p[0] = (255 - k)*(255 - c) / 255;
 133                                 p[1] = (255 - k)*(255 - m) / 255;
 134                                 p[2] = (255 - k)*(255 - y) / 255;
 135                         }
 136                         p[3] = 255;
 137                         p += 4;
 138                 }
 139         }
 140 }
 141
 142
 143 static gpointer image_loader_jpeg_new(ImageLoaderBackendCbAreaUpdated area_updated_cb, ImageLoaderBackendCbSize size_cb, ImageLoaderBackendCbAreaPrepared area_prepared_cb, gpointer data)
 144 {
 145         ImageLoaderJpeg *loader = g_new0(ImageLoaderJpeg, 1);
 146
 147         loader->area_updated_cb = area_updated_cb;
 148         loader->size_cb = size_cb;
 149         loader->area_prepared_cb = area_prepared_cb;
 150         loader->data = data;
 151         return (gpointer) loader;
 152 }
 153
 154 static void
 155 fatal_error_handler (j_common_ptr cinfo)
 156 {
 157         struct error_handler_data *errmgr;
 158         char buffer[JMSG_LENGTH_MAX];
 159
 160         errmgr = (struct error_handler_data *) cinfo->err;
 161
 162         /* Create the message */
 163         (* cinfo->err->format_message) (cinfo, buffer);
 164
 165         /* broken check for *error == NULL for robustness against
 166          * crappy JPEG library
 167          */
 168         if (errmgr->error && *errmgr->error == NULL) {
 169                 g_set_error (errmgr->error,
 170                              GDK_PIXBUF_ERROR,
 171                              cinfo->err->msg_code == JERR_OUT_OF_MEMORY
 172                              ? GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY
 173                              : GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
 174                              _("Error interpreting JPEG image file (%s)"),
 175                              buffer);
 176         }
 177
 178         siglongjmp (errmgr->setjmp_buffer, 1);
 179
 180         g_assert_not_reached ();
 181 }
 182
 183 static void
 184 output_message_handler (j_common_ptr cinfo)
 185 {
 186   /* This method keeps libjpeg from dumping crap to stderr */
 187
 188   /* do nothing */
 189 }
 190
 191
 192 void image_loader_jpeg_read_scanline(struct jpeg_decompress_struct *cinfo, guchar **dptr, guint rowstride)
 193 {
 194         guchar *lines[4];
 195         guchar **lptr;
 196         gint i;
 197
 198         lptr = lines;
 199         for (i = 0; i < cinfo->rec_outbuf_height; i++)
 200                 {
 201                 *lptr++ = *dptr;
 202                 *dptr += rowstride;
 203                 }
 204
 205         jpeg_read_scanlines (cinfo, lines, cinfo->rec_outbuf_height);
 206
 207         switch (cinfo->out_color_space)
 208                 {
 209                     case JCS_GRAYSCALE:
 210                       explode_gray_into_buf (cinfo, lines);
 211                       break;
 212                     case JCS_RGB:
 213                       /* do nothing */
 214                       break;
 215                     case JCS_CMYK:
 216                       convert_cmyk_to_rgb (cinfo, lines);
 217                       break;
 218                     default:
 219                       break;
 220                 }
 221 }
 222
 223 static gboolean image_loader_jpeg_load (gpointer loader, const guchar *buf, gsize count, GError **error)
 224 {
 225         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 226         struct jpeg_decompress_struct cinfo;
 227         struct jpeg_decompress_struct cinfo2;
 228         guchar *dptr, *dptr2;
 229         guint rowstride;
 230         guchar *stereo_buf2 = NULL;
 231         guint stereo_length = 0;
 232
 233         struct error_handler_data jerr;
 234
 235         lj->stereo = FALSE;
 236
 237         MPOData *mpo = jpeg_get_mpo_data(buf, count);
 238         if (mpo && mpo->num_images > 1)
 239                 {
 240                 lj->stereo = TRUE;
 241                 stereo_buf2 = (unsigned char *)buf + mpo->images[1].offset;
 242                 stereo_length = mpo->images[1].length;
 243                 }
 244         jpeg_mpo_data_free(mpo);
 245
 246         /* setup error handler */
 247         cinfo.err = jpeg_std_error (&jerr.pub);
 248         if (lj->stereo) cinfo2.err = jpeg_std_error (&jerr.pub);
 249         jerr.pub.error_exit = fatal_error_handler;
 250         jerr.pub.output_message = output_message_handler;
 251
 252         jerr.error = error;
 253
 254
 255         if (setjmp(jerr.setjmp_buffer))
 256                 {
 257                 /* If we get here, the JPEG code has signaled an error.
 258                  * We need to clean up the JPEG object, close the input file, and return.
 259                 */
 260                 jpeg_destroy_decompress(&cinfo);
 261                 if (lj->stereo) jpeg_destroy_decompress(&cinfo2);
 262                 return FALSE;
 263                 }
 264
 265         jpeg_create_decompress(&cinfo);
 266
 267         jpeg_mem_src(&cinfo, (unsigned char *)buf, count);
 268
 269
 270         jpeg_read_header(&cinfo, TRUE);
 271
 272         if (lj->stereo)
 273                 {
 274                 jpeg_create_decompress(&cinfo2);
 275                 jpeg_mem_src(&cinfo2, stereo_buf2, stereo_length);
 276                 jpeg_read_header(&cinfo2, TRUE);
 277
 278                 if (cinfo.image_width != cinfo2.image_width ||
 279                     cinfo.image_height != cinfo2.image_height)
 280                         {
 281                         DEBUG_1("stereo data with different size");
 282                         jpeg_destroy_decompress(&cinfo2);
 283                         lj->stereo = FALSE;
 284                         }
 285                 }
 286
 287
 288
 289         lj->requested_width = lj->stereo ? cinfo.image_width * 2: cinfo.image_width;
 290         lj->requested_height = cinfo.image_height;
 291         lj->size_cb(loader, lj->requested_width, lj->requested_height, lj->data);
 292
 293         cinfo.scale_num = 1;
 294         for (cinfo.scale_denom = 2; cinfo.scale_denom <= 8; cinfo.scale_denom *= 2) {
 295                 jpeg_calc_output_dimensions(&cinfo);
 296                 if (cinfo.output_width < (lj->stereo ? lj->requested_width / 2 : lj->requested_width) || cinfo.output_height < lj->requested_height) {
 297                         cinfo.scale_denom /= 2;
 298                         break;
 299                 }
 300         }
 301         jpeg_calc_output_dimensions(&cinfo);
 302         if (lj->stereo)
 303                 {
 304                 cinfo2.scale_num = cinfo.scale_num;
 305                 cinfo2.scale_denom = cinfo.scale_denom;
 306                 jpeg_calc_output_dimensions(&cinfo2);
 307                 jpeg_start_decompress(&cinfo2);
 308                 }
 309
 310
 311         jpeg_start_decompress(&cinfo);
 312
 313
 314         if (lj->stereo)
 315                 {
 316                 if (cinfo.output_width != cinfo2.output_width ||
 317                     cinfo.output_height != cinfo2.output_height ||
 318                     cinfo.out_color_components != cinfo2.out_color_components)
 319                         {
 320                         DEBUG_1("stereo data with different output size");
 321                         jpeg_destroy_decompress(&cinfo2);
 322                         lj->stereo = FALSE;
 323                         }
 324                 }
 325
 326
 327         lj->pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB,
 328                                      cinfo.out_color_components == 4 ? TRUE : FALSE,
 329                                      8, lj->stereo ? cinfo.output_width * 2: cinfo.output_width, cinfo.output_height);
 330
 331         if (!lj->pixbuf)
 332                 {
 333                 jpeg_destroy_decompress (&cinfo);
 334                 if (lj->stereo) jpeg_destroy_decompress (&cinfo2);
 335                 return 0;
 336                 }
 337         if (lj->stereo) g_object_set_data(G_OBJECT(lj->pixbuf), "stereo_data", GINT_TO_POINTER(STEREO_PIXBUF_CROSS));
 338         lj->area_prepared_cb(loader, lj->data);
 339
 340         rowstride = gdk_pixbuf_get_rowstride(lj->pixbuf);
 341         dptr = gdk_pixbuf_get_pixels(lj->pixbuf);
 342         dptr2 = gdk_pixbuf_get_pixels(lj->pixbuf) + ((cinfo.out_color_components == 4) ? 4 * cinfo.output_width : 3 * cinfo.output_width);
 343
 344
 345         while (cinfo.output_scanline < cinfo.output_height && !lj->abort)
 346                 {
 347                 guint scanline = cinfo.output_scanline;
 348                 image_loader_jpeg_read_scanline(&cinfo, &dptr, rowstride);
 349                 lj->area_updated_cb(loader, 0, scanline, cinfo.output_width, cinfo.rec_outbuf_height, lj->data);
 350                 if (lj->stereo)
 351                         {
 352                         guint scanline = cinfo2.output_scanline;
 353                         image_loader_jpeg_read_scanline(&cinfo2, &dptr2, rowstride);
 354                         lj->area_updated_cb(loader, cinfo.output_width, scanline, cinfo2.output_width, cinfo2.rec_outbuf_height, lj->data);
 355                         }
 356                 }
 357
 358         jpeg_finish_decompress(&cinfo);
 359         jpeg_destroy_decompress(&cinfo);
 360         if (lj->stereo)
 361                 {
 362                 jpeg_finish_decompress(&cinfo);
 363                 jpeg_destroy_decompress(&cinfo);
 364                 }
 365
 366         return TRUE;
 367 }
 368
 369 static void image_loader_jpeg_set_size(gpointer loader, int width, int height)
 370 {
 371         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 372         lj->requested_width = width;
 373         lj->requested_height = height;
 374 }
 375
 376 static GdkPixbuf* image_loader_jpeg_get_pixbuf(gpointer loader)
 377 {
 378         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 379         return lj->pixbuf;
 380 }
 381
 382 static gchar* image_loader_jpeg_get_format_name(gpointer loader)
 383 {
 384         return g_strdup("jpeg");
 385 }
 386 static gchar** image_loader_jpeg_get_format_mime_types(gpointer loader)
 387 {
 388         static gchar *mime[] = {"image/jpeg", NULL};
 389         return g_strdupv(mime);
 390 }
 391
 392 static gboolean image_loader_jpeg_close(gpointer loader, GError **error)
 393 {
 394         return TRUE;
 395 }
 396
 397 static void image_loader_jpeg_abort(gpointer loader)
 398 {
 399         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 400         lj->abort = TRUE;
 401 }
 402
 403 static void image_loader_jpeg_free(gpointer loader)
 404 {
 405         ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
 406         if (lj->pixbuf) g_object_unref(lj->pixbuf);
 407         g_free(lj);
 408 }
 409
 410
 411 void image_loader_backend_set_jpeg(ImageLoaderBackend *funcs)
 412 {
 413         funcs->loader_new = image_loader_jpeg_new;
 414         funcs->set_size = image_loader_jpeg_set_size;
 415         funcs->load = image_loader_jpeg_load;
 416         funcs->write = NULL;
 417         funcs->get_pixbuf = image_loader_jpeg_get_pixbuf;
 418         funcs->close = image_loader_jpeg_close;
 419         funcs->abort = image_loader_jpeg_abort;
 420         funcs->free = image_loader_jpeg_free;
 421
 422         funcs->get_format_name = image_loader_jpeg_get_format_name;
 423         funcs->get_format_mime_types = image_loader_jpeg_get_format_mime_types;
 424 }
 425
 426
 427