2 * Copyright (C) 2020 The Geeqie Team
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License along
17 * with this program; if not, write to the Free Software Foundation, Inc.,
18 * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
21 /** @FIXME This is just a copy of image_load_jpeg.c, with an adjusted
22 * start address for a .cr3 file
26 #include "image-load.h"
27 #include "image_load_cr3.h"
28 #include "jpeg_parser.h"
36 typedef struct _ImageLoaderJpeg ImageLoaderJpeg;
37 struct _ImageLoaderJpeg {
38 ImageLoaderBackendCbAreaUpdated area_updated_cb;
39 ImageLoaderBackendCbSize size_cb;
40 ImageLoaderBackendCbAreaPrepared area_prepared_cb;
45 guint requested_width;
46 guint requested_height;
53 /* error handler data */
54 struct error_handler_data {
55 struct jpeg_error_mgr pub;
56 sigjmp_buf setjmp_buffer;
60 /* explode gray image data from jpeg library into rgb components in pixbuf */
62 explode_gray_into_buf (struct jpeg_decompress_struct *cinfo,
68 g_return_if_fail (cinfo != NULL);
69 g_return_if_fail (cinfo->output_components == 1);
70 g_return_if_fail (cinfo->out_color_space == JCS_GRAYSCALE);
72 /* Expand grey->colour. Expand from the end of the
73 * memory down, so we can use the same buffer.
75 w = cinfo->output_width;
76 for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) {
79 from = lines[i] + w - 1;
80 to = lines[i] + (w - 1) * 3;
81 for (j = w - 1; j >= 0; j--) {
93 convert_cmyk_to_rgb (struct jpeg_decompress_struct *cinfo,
99 g_return_if_fail (cinfo != NULL);
100 g_return_if_fail (cinfo->output_components == 4);
101 g_return_if_fail (cinfo->out_color_space == JCS_CMYK);
103 for (i = cinfo->rec_outbuf_height - 1; i >= 0; i--) {
107 for (j = 0; j < cinfo->output_width; j++) {
113 if (cinfo->saw_Adobe_marker) {
119 p[0] = (255 - k)*(255 - c) / 255;
120 p[1] = (255 - k)*(255 - m) / 255;
121 p[2] = (255 - k)*(255 - y) / 255;
130 static gpointer image_loader_cr3_new(ImageLoaderBackendCbAreaUpdated area_updated_cb, ImageLoaderBackendCbSize size_cb, ImageLoaderBackendCbAreaPrepared area_prepared_cb, gpointer data)
132 ImageLoaderJpeg *loader = g_new0(ImageLoaderJpeg, 1);
134 loader->area_updated_cb = area_updated_cb;
135 loader->size_cb = size_cb;
136 loader->area_prepared_cb = area_prepared_cb;
138 return (gpointer) loader;
142 fatal_error_handler (j_common_ptr cinfo)
144 struct error_handler_data *errmgr;
145 char buffer[JMSG_LENGTH_MAX];
147 errmgr = (struct error_handler_data *) cinfo->err;
149 /* Create the message */
150 (* cinfo->err->format_message) (cinfo, buffer);
152 /* broken check for *error == NULL for robustness against
153 * crappy JPEG library
155 if (errmgr->error && *errmgr->error == NULL) {
156 g_set_error (errmgr->error,
158 cinfo->err->msg_code == JERR_OUT_OF_MEMORY
159 ? GDK_PIXBUF_ERROR_INSUFFICIENT_MEMORY
160 : GDK_PIXBUF_ERROR_CORRUPT_IMAGE,
161 _("Error interpreting JPEG image file (%s)"),
165 siglongjmp (errmgr->setjmp_buffer, 1);
167 g_assert_not_reached ();
171 output_message_handler (j_common_ptr cinfo)
173 /* This method keeps libjpeg from dumping crap to stderr */
179 static void image_loader_cr3_read_scanline(struct jpeg_decompress_struct *cinfo, guchar **dptr, guint rowstride)
186 for (i = 0; i < cinfo->rec_outbuf_height; i++)
192 jpeg_read_scanlines (cinfo, lines, cinfo->rec_outbuf_height);
194 switch (cinfo->out_color_space)
197 explode_gray_into_buf (cinfo, lines);
203 convert_cmyk_to_rgb (cinfo, lines);
211 static void init_source (j_decompress_ptr cinfo) {}
212 static boolean fill_input_buffer (j_decompress_ptr cinfo)
214 ERREXIT(cinfo, JERR_INPUT_EMPTY);
217 static void skip_input_data (j_decompress_ptr cinfo, long num_bytes)
219 struct jpeg_source_mgr* src = (struct jpeg_source_mgr*) cinfo->src;
221 if ((gulong)num_bytes > src->bytes_in_buffer)
223 ERREXIT(cinfo, JERR_INPUT_EOF);
225 else if (num_bytes > 0)
227 src->next_input_byte += (size_t) num_bytes;
228 src->bytes_in_buffer -= (size_t) num_bytes;
231 static void term_source (j_decompress_ptr cinfo) {}
232 static void set_mem_src (j_decompress_ptr cinfo, void* buffer, long nbytes)
234 struct jpeg_source_mgr* src;
236 if (cinfo->src == NULL)
237 { /* first time for this JPEG object? */
238 cinfo->src = (struct jpeg_source_mgr *) (*cinfo->mem->alloc_small) (
239 (j_common_ptr) cinfo, JPOOL_PERMANENT,
240 sizeof(struct jpeg_source_mgr));
243 src = (struct jpeg_source_mgr*) cinfo->src;
244 src->init_source = init_source;
245 src->fill_input_buffer = fill_input_buffer;
246 src->skip_input_data = skip_input_data;
247 src->resync_to_restart = jpeg_resync_to_restart; /* use default method */
248 src->term_source = term_source;
249 src->bytes_in_buffer = nbytes;
250 src->next_input_byte = (JOCTET*)buffer;
254 static gboolean image_loader_cr3_load (gpointer loader, const guchar *buf, gsize count, GError **error)
256 ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
257 struct jpeg_decompress_struct cinfo;
258 struct jpeg_decompress_struct cinfo2;
259 guchar *dptr, *dptr2;
261 guchar *stereo_buf2 = NULL;
262 guint stereo_length = 0;
264 struct error_handler_data jerr;
266 /** @FIXME Just start search at where full size jpeg should be,
267 * / then search through the file looking for a jpeg end-marker
269 gboolean found = FALSE;
274 while (n < count - 4 && !found)
276 if (memcmp(&buf[n], "mdat", 4) == 0)
278 if (memcmp(&buf[n + 12], "\xFF\xD8", 2) == 0)
283 if (memcmp(&buf[n + 12 + i], "\xFF\xD9", 2) == 0)
307 buf = (unsigned char *)buf + n + 12;
311 MPOData *mpo = jpeg_get_mpo_data(buf, count);
312 if (mpo && mpo->num_images > 1)
315 gint idx1 = -1, idx2 = -1;
318 for (i = 0; i < mpo->num_images; i++)
320 if (mpo->images[i].type_code == 0x20002)
322 if (mpo->images[i].MPIndividualNum == 1)
326 else if (mpo->images[i].MPIndividualNum > num2)
329 num2 = mpo->images[i].MPIndividualNum;
334 if (idx1 >= 0 && idx2 >= 0)
337 stereo_buf2 = (unsigned char *)buf + mpo->images[idx2].offset;
338 stereo_length = mpo->images[idx2].length;
339 buf = (unsigned char *)buf + mpo->images[idx1].offset;
340 count = mpo->images[idx1].length;
343 jpeg_mpo_data_free(mpo);
345 /* setup error handler */
346 cinfo.err = jpeg_std_error (&jerr.pub);
347 if (lj->stereo) cinfo2.err = jpeg_std_error (&jerr.pub);
348 jerr.pub.error_exit = fatal_error_handler;
349 jerr.pub.output_message = output_message_handler;
354 if (setjmp(jerr.setjmp_buffer))
356 /* If we get here, the JPEG code has signaled an error.
357 * We need to clean up the JPEG object, close the input file, and return.
359 jpeg_destroy_decompress(&cinfo);
360 if (lj->stereo) jpeg_destroy_decompress(&cinfo2);
364 jpeg_create_decompress(&cinfo);
366 set_mem_src(&cinfo, (unsigned char *)buf, count);
369 jpeg_read_header(&cinfo, TRUE);
373 jpeg_create_decompress(&cinfo2);
374 set_mem_src(&cinfo2, stereo_buf2, stereo_length);
375 jpeg_read_header(&cinfo2, TRUE);
377 if (cinfo.image_width != cinfo2.image_width ||
378 cinfo.image_height != cinfo2.image_height)
380 DEBUG_1("stereo data with different size");
381 jpeg_destroy_decompress(&cinfo2);
388 lj->requested_width = lj->stereo ? cinfo.image_width * 2: cinfo.image_width;
389 lj->requested_height = cinfo.image_height;
390 lj->size_cb(loader, lj->requested_width, lj->requested_height, lj->data);
393 for (cinfo.scale_denom = 2; cinfo.scale_denom <= 8; cinfo.scale_denom *= 2) {
394 jpeg_calc_output_dimensions(&cinfo);
395 if (cinfo.output_width < (lj->stereo ? lj->requested_width / 2 : lj->requested_width) || cinfo.output_height < lj->requested_height) {
396 cinfo.scale_denom /= 2;
400 jpeg_calc_output_dimensions(&cinfo);
403 cinfo2.scale_num = cinfo.scale_num;
404 cinfo2.scale_denom = cinfo.scale_denom;
405 jpeg_calc_output_dimensions(&cinfo2);
406 jpeg_start_decompress(&cinfo2);
410 jpeg_start_decompress(&cinfo);
415 if (cinfo.output_width != cinfo2.output_width ||
416 cinfo.output_height != cinfo2.output_height ||
417 cinfo.out_color_components != cinfo2.out_color_components)
419 DEBUG_1("stereo data with different output size");
420 jpeg_destroy_decompress(&cinfo2);
426 lj->pixbuf = gdk_pixbuf_new (GDK_COLORSPACE_RGB,
427 cinfo.out_color_components == 4 ? TRUE : FALSE,
428 8, lj->stereo ? cinfo.output_width * 2: cinfo.output_width, cinfo.output_height);
432 jpeg_destroy_decompress (&cinfo);
433 if (lj->stereo) jpeg_destroy_decompress (&cinfo2);
436 if (lj->stereo) g_object_set_data(G_OBJECT(lj->pixbuf), "stereo_data", GINT_TO_POINTER(STEREO_PIXBUF_CROSS));
437 lj->area_prepared_cb(loader, lj->data);
439 rowstride = gdk_pixbuf_get_rowstride(lj->pixbuf);
440 dptr = gdk_pixbuf_get_pixels(lj->pixbuf);
441 dptr2 = gdk_pixbuf_get_pixels(lj->pixbuf) + ((cinfo.out_color_components == 4) ? 4 * cinfo.output_width : 3 * cinfo.output_width);
444 while (cinfo.output_scanline < cinfo.output_height && !lj->abort)
446 guint scanline = cinfo.output_scanline;
447 image_loader_cr3_read_scanline(&cinfo, &dptr, rowstride);
448 lj->area_updated_cb(loader, 0, scanline, cinfo.output_width, cinfo.rec_outbuf_height, lj->data);
451 guint scanline = cinfo2.output_scanline;
452 image_loader_cr3_read_scanline(&cinfo2, &dptr2, rowstride);
453 lj->area_updated_cb(loader, cinfo.output_width, scanline, cinfo2.output_width, cinfo2.rec_outbuf_height, lj->data);
457 jpeg_finish_decompress(&cinfo);
458 jpeg_destroy_decompress(&cinfo);
461 jpeg_finish_decompress(&cinfo);
462 jpeg_destroy_decompress(&cinfo);
468 static void image_loader_cr3_set_size(gpointer loader, int width, int height)
470 ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
471 lj->requested_width = width;
472 lj->requested_height = height;
475 static GdkPixbuf* image_loader_cr3_get_pixbuf(gpointer loader)
477 ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
481 static gchar* image_loader_cr3_get_format_name(gpointer loader)
483 return g_strdup("cr3");
485 static gchar** image_loader_cr3_get_format_mime_types(gpointer loader)
487 static gchar *mime[] = {"image/x-canon-cr3", NULL};
488 return g_strdupv(mime);
491 static gboolean image_loader_cr3_close(gpointer loader, GError **error)
496 static void image_loader_cr3_abort(gpointer loader)
498 ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
502 static void image_loader_cr3_free(gpointer loader)
504 ImageLoaderJpeg *lj = (ImageLoaderJpeg *) loader;
505 if (lj->pixbuf) g_object_unref(lj->pixbuf);
510 void image_loader_backend_set_cr3(ImageLoaderBackend *funcs)
512 funcs->loader_new = image_loader_cr3_new;
513 funcs->set_size = image_loader_cr3_set_size;
514 funcs->load = image_loader_cr3_load;
516 funcs->get_pixbuf = image_loader_cr3_get_pixbuf;
517 funcs->close = image_loader_cr3_close;
518 funcs->abort = image_loader_cr3_abort;
519 funcs->free = image_loader_cr3_free;
521 funcs->get_format_name = image_loader_cr3_get_format_name;
522 funcs->get_format_mime_types = image_loader_cr3_get_format_mime_types;
530 /* vim: set shiftwidth=8 softtabstop=0 cindent cinoptions={1s: */