jpeg-load.c 57.4 KB
Newer Older
Elliot Lee's avatar
Elliot Lee committed
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
/* The GIMP -- an image manipulation program
 * Copyright (C) 1995 Spencer Kimball and Peter Mattis
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program 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 General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
16
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
Elliot Lee's avatar
Elliot Lee committed
17
18
19
20
21
22
23
24
25
26
 */

/* JPEG loading and saving file filter for the GIMP
 *  -Peter Mattis
 *
 * This filter is heavily based upon the "example.c" file in libjpeg.
 * In fact most of the loading and saving code was simply cut-and-pasted
 *  from that file. The filter, therefore, also uses libjpeg.
 */

27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
/* 11-JAN-99 - Added support for JPEG comments and Progressive saves.
 *  -pete whiting <pwhiting@sprint.net>
 *
 * Comments of size up to 32k can be stored in the header of jpeg
 * files.  (They are not compressed.)  The JPEG specs and libraries
 * support the storing of multiple comments.  The behavior of this
 * code is to merge all comments in a loading image into a single
 * comment (putting \n between each) and attach that string as a
 * parasite - gimp-comment - to the image.  When saving, the image is
 * checked to see if it has the gimp-comment parasite - if so, that is
 * used as the default comment in the save dialog.  Further, the other
 * jpeg parameters (quaility, smoothing, compression and progressive)
 * are attached to the image as a parasite.  This allows the
 * parameters to remain consistent between saves.  I was not able to
 * figure out how to determine the quaility, smoothing or compression
 * values of an image as it is being loaded, but the code is there to
 * support it if anyone knows how.  Progressive mode is a method of
 * saving the image such that as a browser (or other app supporting
 * progressive loads - gimp doesn't) loads the image it first gets a
 * low res version displayed and then the image is progressively
 * enhanced until you get the final version.  It doesn't add any size
48
49
50
 * to the image (actually it often results in smaller file size) - the
 * only draw backs are that progressive jpegs are not supported by some
 * older viewers/browsers, and some might find it annoying.
51
52
 */

53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
/* 
 * 21-AUG-99 - Added support for JPEG previews, subsampling,
 *             non-baseline JPEGs, restart markers and DCT method choice
 * - Steinar H. Gunderson <sgunderson@bigfoot.com>
 *
 * A small preview appears and changes according to the changes to the
 * compression options. The image itself works as a much bigger preview.
 * For slower machines, the save operation (not the load operation) is
 * done in the background, with a standard GTK+ idle loop, which turned
 * out to be the most portable way. Win32 porters shouldn't have much
 * difficulty porting my changes (at least I hope so...).
 *
 * Subsampling is a pretty obscure feature, but I thought it might be nice
 * to have it in anyway, for people to play with :-) Does anybody have
 * any better suggestions than the ones I've put in the menu? (See wizard.doc
 * from the libjpeg distribution for a tiny bit of information on subsampling.)
 *
 * A baseline JPEG is often larger and/or of worse quality than a non-baseline
 * one (especially at low quality settings), but all decoders are guaranteed
 * to read baseline JPEGs (I think). Not all will read a non-baseline one.
 *
 * Restart markers are useful if you are transmitting the image over an
 * unreliable network. If a file gets corrupted, it will only be corrupted
 * up to the next restart marker. Of course, if there are no restart markers,
 * the rest of the image will be corrupted. Restart markers take up extra
 * space. The libjpeg developers recommend a restart every 1 row for
 * transmitting images over unreliable networks, such as Usenet.
 *
 * The DCT method is said by the libjpeg docs to _only_ influence quality vs.
 * speed, and nothing else. However, I've found that there _are_ size
 * differences. Fast integer, on the other hand, is faster than integer,
 * which in turn is faster than FP. According to the libjpeg docs (and I
 * believe it's true), FP has only a theoretical advantage in quality, and
 * will be slower than the two other methods, unless you're blessed with
 * very a fast FPU. (In addition, images might not be identical on
 * different types of FP hardware.)
 *
 * ...and thus ends my additions to the JPEG plug-in. I hope. *sigh* :-)
 */

93
94
95
96
97
98
99
100
101
102
103
104
105
/* 
 * 21-AUG-99 - Bunch O' Fixes.
 * - Adam D. Moss <adam@gimp.org>
 *
 * We now correctly create an alpha-padded layer for our preview --
 * having a non-background non-alpha layer is a no-no in GIMP.
 *
 * I've also tweaked the GIMP undo API a little and changed the JPEG
 * plugin to use gimp_image_{freeze,thaw}_undo so that it doesn't store
 * up a whole load of superfluous tile data every time the preview is
 * changed.
 */

106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
/*
 * 22-DEC-99 - volatiles added
 * - Austin Donnelly <austin@gimp.org>
 *
 * When gcc complains a variable may be clobbered by a longjmp or
 * vfork, it means the following: setjmp() was called by the JPEG
 * library for error recovery purposes, but gcc is keeping some
 * variables in registers without updating the memory locations on the
 * stack consistently.  If JPEG error recovery is every invoked, the
 * values of these variable will be inconsistent.  This is almost
 * always a bug, but not one that's commonly seen unless JPEG recovery
 * code is exercised frequently.  The correct solution is to tell gcc
 * to keep the stack version of the affected variables up to date, by
 * using the "volatile" keyword.   Here endeth the lesson.
 */

122
123
124
125
126
127
128
129
/*
 * 4-SEP-01 - remove the use of GtkText
 * - DindinX <David@dindinx.org>
 *
 * The new version of GTK+ does not support GtkText anymore.
 * I've just replaced the one used for the image comment by
 * a GtkTextView/GtkTextBuffer couple;
 */
130

Sven Neumann's avatar
Sven Neumann committed
131
#include "config.h"   /* configure cares about HAVE_PROGRESSIVE_JPEG */
Tor Lillqvist's avatar
Tor Lillqvist committed
132

Sven Neumann's avatar
Sven Neumann committed
133
134
135
#include <glib.h>     /* We want glib.h first because of some
		       * pretty obscure Win32 compilation issues.
		       */
Elliot Lee's avatar
Elliot Lee committed
136
#include <setjmp.h>
137
#include <signal.h>
Elliot Lee's avatar
Elliot Lee committed
138
139
140
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
141
#include <sys/types.h>
142
#include <sys/stat.h>
Tor Lillqvist's avatar
Tor Lillqvist committed
143
#ifdef HAVE_UNISTD_H
144
#include <unistd.h>
Tor Lillqvist's avatar
Tor Lillqvist committed
145
#endif
Elliot Lee's avatar
Elliot Lee committed
146
#include <jpeglib.h>
147
#include <jerror.h>
148

Michael Natterer's avatar
Michael Natterer committed
149
150
#include <libgimp/gimp.h>
#include <libgimp/gimpui.h>
151

152
153
#include "libgimp/stdplugins-intl.h"

Sven Neumann's avatar
Sven Neumann committed
154
#define SCALE_WIDTH         125
Elliot Lee's avatar
Elliot Lee committed
155

156
157
/* if you are not compiling this from inside the gimp tree, you have to  */
/* take care yourself if your JPEG library supports progressive mode     */
158
/* #undef HAVE_PROGRESSIVE_JPEG   if your library doesn't support it     */
159
160
/* #define HAVE_PROGRESSIVE_JPEG  if your library knows how to handle it */

Sven Neumann's avatar
Sven Neumann committed
161
162
163
#define DEFAULT_QUALITY     0.75
#define DEFAULT_SMOOTHING   0.0
#define DEFAULT_OPTIMIZE    1
164
#define DEFAULT_PROGRESSIVE 0
Sven Neumann's avatar
Sven Neumann committed
165
166
167
168
169
#define DEFAULT_BASELINE    1
#define DEFAULT_SUBSMP      0
#define DEFAULT_RESTART     0
#define DEFAULT_DCT         0
#define DEFAULT_PREVIEW     1
170
171

/* sg - these should not be global... */
172
173
174
175
176
177
178
static gint32 volatile  image_ID_global       = -1;
static gint32           orig_image_ID_global  = -1;
static gint32           drawable_ID_global    = -1;
static gint32           layer_ID_global       = -1;
static GtkWidget       *preview_size          = NULL;
static GimpDrawable    *drawable_global       = NULL;
 
Elliot Lee's avatar
Elliot Lee committed
179
180
181
182
typedef struct
{
  gdouble quality;
  gdouble smoothing;
183
184
185
186
187
188
189
  gint    optimize;
  gint    progressive;
  gint    baseline;
  gint    subsmp;
  gint    restart;
  gint    dct;
  gint    preview;
Elliot Lee's avatar
Elliot Lee committed
190
191
192
193
194
195
196
} JpegSaveVals;

typedef struct
{
  gint  run;
} JpegSaveInterface;

197
198
199
typedef struct 
{
  struct jpeg_compress_struct cinfo;
200
201
  gint          tile_height;
  FILE         *outfile;
202
  gboolean      has_alpha;
203
204
205
206
  gint          rowstride;
  guchar       *temp;
  guchar       *data;
  guchar       *src;
Sven Neumann's avatar
Sven Neumann committed
207
208
  GimpDrawable *drawable;
  GimpPixelRgn  pixel_rgn;
209
  gchar        *file_name;
Sven Neumann's avatar
Sven Neumann committed
210
211
212
213
  gboolean      abort_me;
} PreviewPersistent;

static gboolean *abort_me = NULL;
Sven Neumann's avatar
Sven Neumann committed
214

215

Elliot Lee's avatar
Elliot Lee committed
216
217
/* Declare local functions.
 */
218
219
220
221
222
223
224
static void     query                     (void);
static void     run                       (gchar            *name,
					   gint              nparams,
					   GimpParam        *param,
					   gint             *nreturn_vals,
					   GimpParam       **return_vals);
static gint32   load_image                (gchar            *filename, 
225
					   GimpRunMode   runmode, 
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
					   gboolean          preview);
static gboolean save_image                (gchar            *filename,
					   gint32            image_ID,
					   gint32            drawable_ID,
					   gint32            orig_image_ID,
					   gboolean          preview);

static gboolean save_dialog                (void);

static void     save_close_callback        (GtkWidget       *widget,
					    gpointer         data);
static void     save_ok_callback           (GtkWidget       *widget,
					    gpointer         data);
static void     save_restart_toggle_update (GtkWidget       *toggle,
					    GtkAdjustment   *adjustment);
static void     save_restart_update        (GtkAdjustment   *adjustment,
					    GtkWidget       *toggle);

static void     make_preview               (void);
static void     destroy_preview            (void);

static void     menu_callback              (GtkWidget       *widget, 
					    gpointer         data);
249

Elliot Lee's avatar
Elliot Lee committed
250

Sven Neumann's avatar
Sven Neumann committed
251
GimpPlugInInfo PLUG_IN_INFO =
Elliot Lee's avatar
Elliot Lee committed
252
{
253
254
255
256
  NULL,  /* init_proc  */
  NULL,  /* quit_proc  */
  query, /* query_proc */
  run,   /* run_proc   */
Elliot Lee's avatar
Elliot Lee committed
257
258
259
260
};

static JpegSaveVals jsvals =
{
261
262
263
  DEFAULT_QUALITY,
  DEFAULT_SMOOTHING,
  DEFAULT_OPTIMIZE,
264
265
266
267
268
269
  DEFAULT_PROGRESSIVE,
  DEFAULT_BASELINE,
  DEFAULT_SUBSMP,
  DEFAULT_RESTART,
  DEFAULT_DCT,
  DEFAULT_PREVIEW
Elliot Lee's avatar
Elliot Lee committed
270
271
272
273
274
275
276
277
};

static JpegSaveInterface jsint =
{
  FALSE   /*  run  */
};


Sven Neumann's avatar
Sven Neumann committed
278
static gchar     *image_comment         = NULL;
279
280
281
static GtkWidget *restart_markers_scale = NULL;
static GtkWidget *restart_markers_label = NULL;

Sven Neumann's avatar
Sven Neumann committed
282

Elliot Lee's avatar
Elliot Lee committed
283
284
285
MAIN ()

static void
286
query (void)
Elliot Lee's avatar
Elliot Lee committed
287
{
Sven Neumann's avatar
Sven Neumann committed
288
  static GimpParamDef load_args[] =
Elliot Lee's avatar
Elliot Lee committed
289
  {
Sven Neumann's avatar
Sven Neumann committed
290
291
292
    { GIMP_PDB_INT32,    "run_mode",     "Interactive, non-interactive" },
    { GIMP_PDB_STRING,   "filename",     "The name of the file to load" },
    { GIMP_PDB_STRING,   "raw_filename", "The name of the file to load" }
Elliot Lee's avatar
Elliot Lee committed
293
  };
Sven Neumann's avatar
Sven Neumann committed
294
  static GimpParamDef load_return_vals[] =
Elliot Lee's avatar
Elliot Lee committed
295
  {
Sven Neumann's avatar
Sven Neumann committed
296
    { GIMP_PDB_IMAGE,   "image",         "Output image" }
Elliot Lee's avatar
Elliot Lee committed
297
298
  };

Sven Neumann's avatar
Sven Neumann committed
299
  static GimpParamDef save_args[] =
Elliot Lee's avatar
Elliot Lee committed
300
  {
Sven Neumann's avatar
Sven Neumann committed
301
302
303
304
305
306
307
308
309
310
311
312
313
314
    { GIMP_PDB_INT32,    "run_mode",     "Interactive, non-interactive" },
    { GIMP_PDB_IMAGE,    "image",        "Input image" },
    { GIMP_PDB_DRAWABLE, "drawable",     "Drawable to save" },
    { GIMP_PDB_STRING,   "filename",     "The name of the file to save the image in" },
    { GIMP_PDB_STRING,   "raw_filename", "The name of the file to save the image in" },
    { GIMP_PDB_FLOAT,    "quality",      "Quality of saved image (0 <= quality <= 1)" },
    { GIMP_PDB_FLOAT,    "smoothing",    "Smoothing factor for saved image (0 <= smoothing <= 1)" },
    { GIMP_PDB_INT32,    "optimize",     "Optimization of entropy encoding parameters (0/1)" },
    { GIMP_PDB_INT32,    "progressive",  "Enable progressive jpeg image loading - ignored if not compiled with HAVE_PROGRESSIVE_JPEG (0/1)" },
    { GIMP_PDB_STRING,   "comment",      "Image comment" },
    { GIMP_PDB_INT32,    "subsmp",       "The subsampling option number" },
    { GIMP_PDB_INT32,    "baseline",     "Force creation of a baseline JPEG (non-baseline JPEGs can't be read by all decoders) (0/1)" },
    { GIMP_PDB_INT32,    "restart",      "Frequency of restart markers (in rows, 0 = no restart markers)" },
    { GIMP_PDB_INT32,    "dct",          "DCT algorithm to use (speed/quality tradeoff)" }
Elliot Lee's avatar
Elliot Lee committed
315
316
317
  };

  gimp_install_procedure ("file_jpeg_load",
Marc Lehmann's avatar
Marc Lehmann committed
318
319
                          "loads files in the JPEG file format",
                          "loads files in the JPEG file format",
320
                          "Spencer Kimball, Peter Mattis & others",
Elliot Lee's avatar
Elliot Lee committed
321
                          "Spencer Kimball & Peter Mattis",
322
                          "1995-1999",
Elliot Lee's avatar
Elliot Lee committed
323
324
			  "<Load>/Jpeg",
			  NULL,
Sven Neumann's avatar
Sven Neumann committed
325
                          GIMP_PLUGIN,
326
327
                          G_N_ELEMENTS (load_args),
                          G_N_ELEMENTS (load_return_vals),
Elliot Lee's avatar
Elliot Lee committed
328
329
330
                          load_args, load_return_vals);

  gimp_install_procedure ("file_jpeg_save",
Marc Lehmann's avatar
Marc Lehmann committed
331
332
                          "saves files in the JPEG file format",
                          "saves files in the lossy, widely supported JPEG format",
333
                          "Spencer Kimball, Peter Mattis & others",
Elliot Lee's avatar
Elliot Lee committed
334
                          "Spencer Kimball & Peter Mattis",
335
                          "1995-1999",
336
                          "<Save>/JPEG",
Elliot Lee's avatar
Elliot Lee committed
337
			  "RGB*, GRAY*",
Sven Neumann's avatar
Sven Neumann committed
338
                          GIMP_PLUGIN,
339
                          G_N_ELEMENTS (save_args), 0,
Elliot Lee's avatar
Elliot Lee committed
340
341
                          save_args, NULL);

342
343
344
  gimp_register_magic_load_handler ("file_jpeg_load",
				    "jpg,jpeg",
				    "",
345
				    "6,string,JFIF,6,string,Exif");
346
347
348
  gimp_register_save_handler       ("file_jpeg_save",
				    "jpg,jpeg",
				    "");
Elliot Lee's avatar
Elliot Lee committed
349
350
351
}

static void
352
353
run (gchar      *name,
     gint        nparams,
Sven Neumann's avatar
Sven Neumann committed
354
     GimpParam  *param,
355
     gint       *nreturn_vals,
Sven Neumann's avatar
Sven Neumann committed
356
     GimpParam **return_vals)
Elliot Lee's avatar
Elliot Lee committed
357
{
358
  static GimpParam      values[2];
359
  GimpRunMode       run_mode;
360
361
362
363
364
365
366
367
  GimpPDBStatusType     status = GIMP_PDB_SUCCESS;
  gint32                image_ID;
  gint32                drawable_ID;
  gint32                orig_image_ID;
  gint32                display_ID = -1;
  GimpParasite         *parasite;
  gboolean              err;
  GimpExportReturnType  export = GIMP_EXPORT_CANCEL;
Elliot Lee's avatar
Elliot Lee committed
368
369
370
371

  run_mode = param[0].data.d_int32;

  *nreturn_vals = 1;
372
  *return_vals  = values;
Sven Neumann's avatar
Sven Neumann committed
373
374
  values[0].type          = GIMP_PDB_STATUS;
  values[0].data.d_status = GIMP_PDB_EXECUTION_ERROR;
375

Elliot Lee's avatar
Elliot Lee committed
376
377
  if (strcmp (name, "file_jpeg_load") == 0)
    {
378
      INIT_I18N_UI();
379

380
      image_ID = load_image (param[1].data.d_string, run_mode, FALSE);
Elliot Lee's avatar
Elliot Lee committed
381
382
383
384

      if (image_ID != -1)
	{
	  *nreturn_vals = 2;
Sven Neumann's avatar
Sven Neumann committed
385
	  values[1].type         = GIMP_PDB_IMAGE;
Elliot Lee's avatar
Elliot Lee committed
386
387
388
389
	  values[1].data.d_image = image_ID;
	}
      else
	{
Sven Neumann's avatar
Sven Neumann committed
390
	  status = GIMP_PDB_EXECUTION_ERROR;
Elliot Lee's avatar
Elliot Lee committed
391
392
393
394
	}
    }
  else if (strcmp (name, "file_jpeg_save") == 0)
    {
Manish Singh's avatar
Manish Singh committed
395
      INIT_I18N_UI();
396

Sven Neumann's avatar
Sven Neumann committed
397
398
399
400
401
402
      image_ID = orig_image_ID = param[1].data.d_int32;
      drawable_ID = param[2].data.d_int32;

       /*  eventually export the image */ 
      switch (run_mode)
	{
Sven Neumann's avatar
Sven Neumann committed
403
404
	case GIMP_RUN_INTERACTIVE:
	case GIMP_RUN_WITH_LAST_VALS:
405
	  gimp_ui_init ("jpeg", FALSE);
Sven Neumann's avatar
Sven Neumann committed
406
	  export = gimp_export_image (&image_ID, &drawable_ID, "JPEG", 
407
408
				      (GIMP_EXPORT_CAN_HANDLE_RGB |
				       GIMP_EXPORT_CAN_HANDLE_GRAY));
Sven Neumann's avatar
Sven Neumann committed
409
	  switch (export)
Sven Neumann's avatar
Sven Neumann committed
410
	    {
411
	    case GIMP_EXPORT_EXPORT: 
Sven Neumann's avatar
Sven Neumann committed
412
	      display_ID = gimp_display_new (image_ID);
413
	      gimp_image_set_filename (image_ID, _("Export Preview"));
Sven Neumann's avatar
Sven Neumann committed
414
	      gimp_displays_flush ();
Sven Neumann's avatar
Sven Neumann committed
415
	      break;
416
	    case GIMP_EXPORT_IGNORE:
Sven Neumann's avatar
Sven Neumann committed
417
	      break;
418
	    case GIMP_EXPORT_CANCEL:
Sven Neumann's avatar
Sven Neumann committed
419
	      values[0].data.d_status = GIMP_PDB_CANCEL;
Sven Neumann's avatar
Sven Neumann committed
420
421
	      return;
	      break;
Sven Neumann's avatar
Sven Neumann committed
422
423
424
425
426
	    }
	  break;
	default:
	  break;
	}
Sven Neumann's avatar
Sven Neumann committed
427
428
429
      
      g_free (image_comment);
      image_comment = NULL;
430
    
Marc Lehmann's avatar
Marc Lehmann committed
431
      parasite = gimp_image_parasite_find (orig_image_ID, "gimp-comment");
Sven Neumann's avatar
Sven Neumann committed
432
433
434
      if (parasite) 
	{
	  image_comment = g_strdup (parasite->data);
435
	  gimp_parasite_free (parasite);
Sven Neumann's avatar
Sven Neumann committed
436
	}
437

438
439
      if (!image_comment)
        image_comment = gimp_get_default_comment ();
Sven Neumann's avatar
Sven Neumann committed
440

441
442
443
      jsvals.quality     = DEFAULT_QUALITY;
      jsvals.smoothing   = DEFAULT_SMOOTHING;
      jsvals.optimize    = DEFAULT_OPTIMIZE;
444
      jsvals.progressive = DEFAULT_PROGRESSIVE;
445
446
447
448
449
450
      jsvals.baseline    = DEFAULT_BASELINE;
      jsvals.subsmp      = DEFAULT_SUBSMP;
      jsvals.restart     = DEFAULT_RESTART;
      jsvals.dct         = DEFAULT_DCT;
      jsvals.preview     = DEFAULT_PREVIEW;

Elliot Lee's avatar
Elliot Lee committed
451
452
      switch (run_mode)
	{
Sven Neumann's avatar
Sven Neumann committed
453
	case GIMP_RUN_INTERACTIVE:
Elliot Lee's avatar
Elliot Lee committed
454
455
456
	  /*  Possibly retrieve data  */
	  gimp_get_data ("file_jpeg_save", &jsvals);

457
	  /* load up the previously used values */
458
459
	  parasite = gimp_image_parasite_find (orig_image_ID,
					       "jpeg-save-options");
460
	  if (parasite)
Sven Neumann's avatar
Sven Neumann committed
461
462
463
464
465
466
467
468
469
470
	    {
	      jsvals.quality     = ((JpegSaveVals *)parasite->data)->quality;
	      jsvals.smoothing   = ((JpegSaveVals *)parasite->data)->smoothing;
	      jsvals.optimize    = ((JpegSaveVals *)parasite->data)->optimize;
	      jsvals.progressive = ((JpegSaveVals *)parasite->data)->progressive;
	      jsvals.baseline    = ((JpegSaveVals *)parasite->data)->baseline;
	      jsvals.subsmp      = ((JpegSaveVals *)parasite->data)->subsmp;
	      jsvals.restart     = ((JpegSaveVals *)parasite->data)->restart;
	      jsvals.dct         = ((JpegSaveVals *)parasite->data)->dct;
	      jsvals.preview     = ((JpegSaveVals *)parasite->data)->preview;
471
	      gimp_parasite_free (parasite);
Sven Neumann's avatar
Sven Neumann committed
472
	    }
473

474
475
476
477
478
479
	  /* we start an undo_group and immediately freeze undo saving
	     so that we can avoid sucking up tile cache with our unneeded
	     preview steps. */
      	  gimp_undo_push_group_start (image_ID);
      	  gimp_image_undo_freeze (image_ID);

480
481
	  /* prepare for the preview */
	  image_ID_global = image_ID;
Sven Neumann's avatar
Sven Neumann committed
482
483
	  orig_image_ID_global = orig_image_ID;
	  drawable_ID_global = drawable_ID;
484
 
Elliot Lee's avatar
Elliot Lee committed
485
	  /*  First acquire information with a dialog  */
486
	  err = save_dialog ();
Sven Neumann's avatar
Sven Neumann committed
487
 
488
489
490
	  /* thaw undo saving and end the undo_group. */
	  gimp_image_undo_thaw (image_ID);
	  gimp_undo_push_group_end (image_ID); 
491
492

          if (!err)
Sven Neumann's avatar
Sven Neumann committed
493
	    status = GIMP_PDB_CANCEL;
Elliot Lee's avatar
Elliot Lee committed
494
495
	  break;

Sven Neumann's avatar
Sven Neumann committed
496
	case GIMP_RUN_NONINTERACTIVE:
Elliot Lee's avatar
Elliot Lee committed
497
	  /*  Make sure all the arguments are there!  */
498
	  /*  pw - added two more progressive and comment */
499
	  /*  sg - added subsampling, preview, baseline, restarts and DCT */
Sven Neumann's avatar
Sven Neumann committed
500
	  if (nparams != 14)
501
	    {
Sven Neumann's avatar
Sven Neumann committed
502
	      status = GIMP_PDB_CALLING_ERROR;
503
504
	    }
	  else
Elliot Lee's avatar
Elliot Lee committed
505
	    {
Sven Neumann's avatar
Sven Neumann committed
506
507
508
	      jsvals.quality     = param[5].data.d_float;
	      jsvals.smoothing   = param[6].data.d_float;
	      jsvals.optimize    = param[7].data.d_int32;
509
510
511
#ifdef HAVE_PROGRESSIVE_JPEG
	      jsvals.progressive = param[8].data.d_int32;
#endif /* HAVE_PROGRESSIVE_JPEG */
Sven Neumann's avatar
Sven Neumann committed
512
513
514
515
516
	      jsvals.baseline    = param[11].data.d_int32;
	      jsvals.subsmp      = param[10].data.d_int32;
	      jsvals.restart     = param[12].data.d_int32;
	      jsvals.dct         = param[13].data.d_int32;
	      jsvals.preview     = FALSE;
517

518
	      /* free up the default -- wasted some effort earlier */
Sven Neumann's avatar
Sven Neumann committed
519
	      g_free (image_comment);
Sven Neumann's avatar
Sven Neumann committed
520
	      image_comment = g_strdup (param[9].data.d_string);
521
522

	      if (jsvals.quality < 0.0 || jsvals.quality > 1.0)
Sven Neumann's avatar
Sven Neumann committed
523
		status = GIMP_PDB_CALLING_ERROR;
524
	      else if (jsvals.smoothing < 0.0 || jsvals.smoothing > 1.0)
Sven Neumann's avatar
Sven Neumann committed
525
		status = GIMP_PDB_CALLING_ERROR;
526
	      else if (jsvals.subsmp < 0 || jsvals.subsmp > 2)
Sven Neumann's avatar
Sven Neumann committed
527
		status = GIMP_PDB_CALLING_ERROR;
528
	      else if (jsvals.dct < 0 || jsvals.dct > 2)
Sven Neumann's avatar
Sven Neumann committed
529
		status = GIMP_PDB_CALLING_ERROR;
Elliot Lee's avatar
Elliot Lee committed
530
	    }
Manish Singh's avatar
Manish Singh committed
531
	  break;
Elliot Lee's avatar
Elliot Lee committed
532

Sven Neumann's avatar
Sven Neumann committed
533
	case GIMP_RUN_WITH_LAST_VALS:
Elliot Lee's avatar
Elliot Lee committed
534
535
	  /*  Possibly retrieve data  */
	  gimp_get_data ("file_jpeg_save", &jsvals);
536

537
538
	  parasite = gimp_image_parasite_find (orig_image_ID,
					       "jpeg-save-options");
539
	  if (parasite)
Sven Neumann's avatar
Sven Neumann committed
540
541
542
543
544
545
546
547
548
549
	    {
	      jsvals.quality     = ((JpegSaveVals *)parasite->data)->quality;
	      jsvals.smoothing   = ((JpegSaveVals *)parasite->data)->smoothing;
	      jsvals.optimize    = ((JpegSaveVals *)parasite->data)->optimize;
	      jsvals.progressive = ((JpegSaveVals *)parasite->data)->progressive;
	      jsvals.baseline    = ((JpegSaveVals *)parasite->data)->baseline;
	      jsvals.subsmp      = ((JpegSaveVals *)parasite->data)->subsmp;
	      jsvals.restart     = ((JpegSaveVals *)parasite->data)->restart;
	      jsvals.dct         = ((JpegSaveVals *)parasite->data)->dct;
	      jsvals.preview     = FALSE;
550
	      gimp_parasite_free (parasite);
Sven Neumann's avatar
Sven Neumann committed
551
	    }
Elliot Lee's avatar
Elliot Lee committed
552
553
554
555
556
557
	  break;

	default:
	  break;
	}

Sven Neumann's avatar
Sven Neumann committed
558
      if (status == GIMP_PDB_SUCCESS)
Elliot Lee's avatar
Elliot Lee committed
559
	{
560
561
562
563
564
565
566
567
568
569
570
	  if (save_image (param[3].data.d_string,
			  image_ID,
			  drawable_ID,
			  orig_image_ID,
			  FALSE))
	    {
	      /*  Store mvals data  */
	      gimp_set_data ("file_jpeg_save", &jsvals, sizeof (JpegSaveVals));
	    }
	  else
	    {
Sven Neumann's avatar
Sven Neumann committed
571
	      status = GIMP_PDB_EXECUTION_ERROR;
572
	    }
Elliot Lee's avatar
Elliot Lee committed
573
	}
574

575
      if (export == GIMP_EXPORT_EXPORT)
Sven Neumann's avatar
Sven Neumann committed
576
	{
Sven Neumann's avatar
Sven Neumann committed
577
578
	  /* If the image was exported, delete the new display. */
	  /* This also deletes the image.                       */
579

Sven Neumann's avatar
Sven Neumann committed
580
581
582
583
584
585
	  if (display_ID > -1)
	    gimp_display_delete (display_ID);
	  else
	    gimp_image_delete (image_ID);
	}

586
587
588
589
      /* pw - now we need to change the defaults to be whatever
       * was used to save this image.  Dump the old parasites
       * and add new ones. */
      
Marc Lehmann's avatar
Marc Lehmann committed
590
      gimp_image_parasite_detach (orig_image_ID, "gimp-comment");
Sven Neumann's avatar
Sven Neumann committed
591
      if (image_comment && strlen (image_comment)) 
Sven Neumann's avatar
Sven Neumann committed
592
	{
593
594
595
596
	  parasite = gimp_parasite_new ("gimp-comment",
					GIMP_PARASITE_PERSISTENT,
					strlen (image_comment) + 1,
					image_comment);
Marc Lehmann's avatar
Marc Lehmann committed
597
	  gimp_image_parasite_attach (orig_image_ID, parasite);
598
	  gimp_parasite_free (parasite);
Sven Neumann's avatar
Sven Neumann committed
599
	}
Marc Lehmann's avatar
Marc Lehmann committed
600
      gimp_image_parasite_detach (orig_image_ID, "jpeg-save-options");
601
      
602
603
      parasite = gimp_parasite_new ("jpeg-save-options",
				    0, sizeof (jsvals), &jsvals);
Marc Lehmann's avatar
Marc Lehmann committed
604
      gimp_image_parasite_attach (orig_image_ID, parasite);
605
      gimp_parasite_free (parasite);
Elliot Lee's avatar
Elliot Lee committed
606
    }
607
608
  else
    {
Sven Neumann's avatar
Sven Neumann committed
609
      status = GIMP_PDB_CALLING_ERROR;
610
    }
Elliot Lee's avatar
Elliot Lee committed
611

612
613
  values[0].data.d_status = status;
}
Elliot Lee's avatar
Elliot Lee committed
614

615
/* Read next byte */
616
static guint
617
618
jpeg_getc (j_decompress_ptr cinfo)
{
619
  struct jpeg_source_mgr *datasrc = cinfo->src;
620

Sven Neumann's avatar
Sven Neumann committed
621
622
623
624
625
  if (datasrc->bytes_in_buffer == 0) 
    {
      if (! (*datasrc->fill_input_buffer) (cinfo))
	ERREXIT (cinfo, JERR_CANT_SUSPEND);
    }
626
  datasrc->bytes_in_buffer--;
627

628
629
630
631
632
633
634
635
636
637
638
639
  return *datasrc->next_input_byte++;
}

/* We need our own marker parser, since early versions of libjpeg
 * don't keep a conventient list of the marker's that have been
 * seen. */

/*
 * Marker processor for COM markers.
 * This replaces the library's built-in processor, which just skips the marker.
 * Note this code relies on a non-suspending data source.
 */
Sven Neumann's avatar
Sven Neumann committed
640
static GString *local_image_comments = NULL;
641
642
643
644

static boolean
COM_handler (j_decompress_ptr cinfo)
{
645
646
  gint  length;
  guint ch;
647
648
649
650
651
652
653
654
655
656
657
658
659

  length = jpeg_getc (cinfo) << 8;
  length += jpeg_getc (cinfo);
  if (length < 2)
    return FALSE;
  length -= 2;			/* discount the length word itself */

  if (!local_image_comments)
    local_image_comments = g_string_new (NULL);
  else
    g_string_append_c (local_image_comments, '\n');

  while (length-- > 0)
Sven Neumann's avatar
Sven Neumann committed
660
661
662
663
    {
      ch = jpeg_getc (cinfo);
      g_string_append_c (local_image_comments, ch);
    }
664
665
666
667

  return TRUE;
}

668
669
670
typedef struct my_error_mgr
{
  struct jpeg_error_mgr pub;            /* "public" fields */
Elliot Lee's avatar
Elliot Lee committed
671

672
  jmp_buf               setjmp_buffer;  /* for return to caller */
Elliot Lee's avatar
Elliot Lee committed
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
} *my_error_ptr;

/*
 * Here's the routine that will replace the standard error_exit method:
 */

static void
my_error_exit (j_common_ptr cinfo)
{
  /* cinfo->err really points to a my_error_mgr struct, so coerce pointer */
  my_error_ptr myerr = (my_error_ptr) cinfo->err;

  /* Always display the message. */
  /* We could postpone this until after returning, if we chose. */
  (*cinfo->err->output_message) (cinfo);

  /* Return control to the setjmp point */
  longjmp (myerr->setjmp_buffer, 1);
}

static gint32
Sven Neumann's avatar
Sven Neumann committed
694
load_image (gchar           *filename, 
695
	    GimpRunMode  runmode, 
Sven Neumann's avatar
Sven Neumann committed
696
	    gboolean         preview)
Elliot Lee's avatar
Elliot Lee committed
697
{
698
699
700
701
  GimpPixelRgn     pixel_rgn;
  GimpDrawable    *drawable;
  gint32 volatile  image_ID;
  gint32           layer_ID;
Elliot Lee's avatar
Elliot Lee committed
702
  struct jpeg_decompress_struct cinfo;
703
704
705
706
  struct my_error_mgr           jerr;
  FILE    *infile;
  guchar  *buf;
  guchar  * volatile padded_buf = NULL;
Elliot Lee's avatar
Elliot Lee committed
707
  guchar **rowbuf;
708
709
710
711
712
713
  gchar   *name;
  gint     image_type;
  gint     layer_type;
  gint     tile_height;
  gint     scanlines;
  gint     i, start, end;
Elliot Lee's avatar
Elliot Lee committed
714

715
  JpegSaveVals local_save_vals;
716
  GimpParasite * volatile comment_parasite = NULL;
Sven Neumann's avatar
Sven Neumann committed
717
  GimpParasite * volatile vals_parasite    = NULL;
718

Elliot Lee's avatar
Elliot Lee committed
719
720
721
722
723
724
  /* We set up the normal JPEG error routines. */
  cinfo.err = jpeg_std_error (&jerr.pub);
  jerr.pub.error_exit = my_error_exit;

  if ((infile = fopen (filename, "rb")) == NULL)
    {
725
      g_message (_("can't open \"%s\"\n"), filename);
Elliot Lee's avatar
Elliot Lee committed
726
727
728
      gimp_quit ();
    }

Sven Neumann's avatar
Sven Neumann committed
729
  if (runmode != GIMP_RUN_NONINTERACTIVE)
730
    {
731
      name = g_strdup_printf (_("Loading %s:"), filename);
732
      gimp_progress_init (name);
733
      g_free (name);
734
    }
Elliot Lee's avatar
Elliot Lee committed
735
736
737
738
739
740
741
742
743
744
745

  image_ID = -1;
  /* Establish the setjmp return context for my_error_exit to use. */
  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 (infile)
	fclose (infile);
746
      if (image_ID != -1 && !preview)
Elliot Lee's avatar
Elliot Lee committed
747
	gimp_image_delete (image_ID);
748
749
      if (preview)
	destroy_preview();
Elliot Lee's avatar
Elliot Lee committed
750
751
752
753
754
755
756
757
758
      gimp_quit ();
    }
  /* Now we can initialize the JPEG decompression object. */
  jpeg_create_decompress (&cinfo);

  /* Step 2: specify data source (eg, a file) */

  jpeg_stdio_src (&cinfo, infile);

759
  /* pw - step 2.1 let the lib know we want the comments. */
760
761

  jpeg_set_marker_processor (&cinfo, JPEG_COM, COM_handler);
762

Elliot Lee's avatar
Elliot Lee committed
763
764
765
766
767
768
769
770
771
  /* Step 3: read file parameters with jpeg_read_header() */

  (void) jpeg_read_header (&cinfo, TRUE);
  /* We can ignore the return value from jpeg_read_header since
   *   (a) suspension is not possible with the stdio data source, and
   *   (b) we passed TRUE to reject a tables-only JPEG file as an error.
   * See libjpeg.doc for more info.
   */

772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
  if (!preview) 
    {
      /* if we had any comments then make a parasite for them */
      if (local_image_comments && local_image_comments->len) 
	{
	  gchar *string = local_image_comments->str;
	  g_string_free (local_image_comments, FALSE);
	  local_image_comments = NULL;
	  comment_parasite = gimp_parasite_new ("gimp-comment",
						GIMP_PARASITE_PERSISTENT,
						strlen (string) + 1, string);
	} 
      else 
	{
	  comment_parasite = NULL;
	}
      
      /* pw - figuring out what the saved values were is non-trivial.
       * They don't seem to be in the cinfo structure. For now, I will
       * just use the defaults, but if someone figures out how to derive
       * them this is the place to store them. */
      
      local_save_vals.quality     = DEFAULT_QUALITY;
      local_save_vals.smoothing   = DEFAULT_SMOOTHING;
      local_save_vals.optimize    = DEFAULT_OPTIMIZE;
      
798
#ifdef HAVE_PROGRESSIVE_JPEG 
799
      local_save_vals.progressive = cinfo.progressive_mode;
800
#else
801
      local_save_vals.progressive = 0;
802
#endif /* HAVE_PROGRESSIVE_JPEG */
803
804
805
806
807
808
809
810
811
812
      local_save_vals.baseline    = DEFAULT_BASELINE;
      local_save_vals.subsmp      = DEFAULT_SUBSMP;   /* sg - this _is_ there, but I'm too lazy */ 
      local_save_vals.restart     = DEFAULT_RESTART;
      local_save_vals.dct         = DEFAULT_DCT;
      local_save_vals.preview     = DEFAULT_PREVIEW;
      
      vals_parasite = gimp_parasite_new ("jpeg-save-options", 0,
					 sizeof (local_save_vals),
					 &local_save_vals);
    } 
813
  
Elliot Lee's avatar
Elliot Lee committed
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
  /* Step 4: set parameters for decompression */

  /* In this example, we don't need to change any of the defaults set by
   * jpeg_read_header(), so we do nothing here.
   */

  /* Step 5: Start decompressor */

  jpeg_start_decompress (&cinfo);

  /* We may need to do some setup of our own at this point before reading
   * the data.  After jpeg_start_decompress() we have the correct scaled
   * output image dimensions available, as well as the output colormap
   * if we asked for color quantization.
   * In this example, we need to make an output work buffer of the right size.
   */
  /* temporary buffer */
  tile_height = gimp_tile_height ();
Sven Neumann's avatar
Sven Neumann committed
832
833
  buf = g_new (guchar, 
	       tile_height * cinfo.output_width * cinfo.output_components);
834
835
836
837
838
  
  if (preview)
    padded_buf = g_new (guchar, tile_height * cinfo.output_width *
			(cinfo.output_components + 1));

Elliot Lee's avatar
Elliot Lee committed
839
840
841
842
843
844
  rowbuf = g_new (guchar*, tile_height);

  for (i = 0; i < tile_height; i++)
    rowbuf[i] = buf + cinfo.output_width * cinfo.output_components * i;

  /* Create a new image of the proper size and associate the filename with it.
845
846
847

     Preview layers, not being on the bottom of a layer stack, MUST HAVE
     AN ALPHA CHANNEL!
Elliot Lee's avatar
Elliot Lee committed
848
849
850
851
   */
  switch (cinfo.output_components)
    {
    case 1:
Sven Neumann's avatar
Sven Neumann committed
852
853
      image_type = GIMP_GRAY;
      layer_type = preview ? GIMP_GRAYA_IMAGE : GIMP_GRAY_IMAGE;
Elliot Lee's avatar
Elliot Lee committed
854
      break;
855

Elliot Lee's avatar
Elliot Lee committed
856
    case 3:
Sven Neumann's avatar
Sven Neumann committed
857
858
      image_type = GIMP_RGB;
      layer_type = preview ? GIMP_RGBA_IMAGE : GIMP_RGB_IMAGE;
Elliot Lee's avatar
Elliot Lee committed
859
      break;
860

Elliot Lee's avatar
Elliot Lee committed
861
    default:
862
      g_message ("don't know how to load JPEGs\nwith %d color channels",
863
		 cinfo.output_components);
Elliot Lee's avatar
Elliot Lee committed
864
      gimp_quit ();
865
      break;
Elliot Lee's avatar
Elliot Lee committed
866
867
    }

Sven Neumann's avatar
Sven Neumann committed
868
869
870
871
872
873
  if (preview) 
    {
      image_ID = image_ID_global;
    } 
  else 
    {
874
875
      image_ID = gimp_image_new (cinfo.output_width, cinfo.output_height,
				 image_type);
Sven Neumann's avatar
Sven Neumann committed
876
877
      gimp_image_set_filename (image_ID, filename);
    }
878

Sven Neumann's avatar
Sven Neumann committed
879
880
  if (preview) 
    {
881
882
883
884
885
      layer_ID_global = layer_ID = 
	gimp_layer_new (image_ID, _("JPEG preview"),
			cinfo.output_width,
			cinfo.output_height,
			layer_type, 100, GIMP_NORMAL_MODE);
886
    }
Sven Neumann's avatar
Sven Neumann committed
887
888
889
890
891
  else 
    {
      layer_ID = gimp_layer_new (image_ID, _("Background"),
				 cinfo.output_width,
				 cinfo.output_height,
Sven Neumann's avatar
Sven Neumann committed
892
				 layer_type, 100, GIMP_NORMAL_MODE);
Sven Neumann's avatar
Sven Neumann committed
893
    }
Elliot Lee's avatar
Elliot Lee committed
894

895
  drawable_global = drawable = gimp_drawable_get (layer_ID);
896
897
  gimp_pixel_rgn_init (&pixel_rgn, drawable, 0, 0,
		       drawable->width, drawable->height, TRUE, FALSE);
Elliot Lee's avatar
Elliot Lee committed
898

899
  /* Step 5.1: if the file had resolution information, set it on the image */
900
  if (!preview && cinfo.saw_JFIF_marker)
901
902
903
904
    {
      gdouble xresolution;
      gdouble yresolution;
      gdouble asymmetry;
905

906
907
      xresolution = cinfo.X_density;
      yresolution = cinfo.Y_density;
908

909
910
911
912
913
914
915
916
917
      switch (cinfo.density_unit)
	{
	case 0: /* unknown -> set the aspect ratio but use the default
		*  image resolution
		*/
	  asymmetry = xresolution / yresolution;
	  gimp_image_get_resolution (image_ID, &xresolution, &yresolution);
	  xresolution *= asymmetry;
	  break;
918

919
920
	case 1: /* dots per inch */
	  break;
921

922
923
924
	case 2: /* dots per cm */
	  xresolution *= 2.54;
	  yresolution *= 2.54;
925
	  gimp_image_set_unit (image_ID, GIMP_UNIT_MM);
926
927
928
929
930
931
932
933
934
935
	  break;

	default:
	  g_message ("unknown density unit %d\nassuming dots per inch",
		     cinfo.density_unit);
	  break;
	}

      gimp_image_set_resolution (image_ID, xresolution, yresolution);
    }
936

Elliot Lee's avatar
Elliot Lee committed
937
938
939
940
941
942
943
944
945
  /* Step 6: while (scan lines remain to be read) */
  /*           jpeg_read_scanlines(...); */

  /* Here we use the library's state variable cinfo.output_scanline as the
   * loop counter, so that we don't have to keep track ourselves.
   */
  while (cinfo.output_scanline < cinfo.output_height)
    {
      start = cinfo.output_scanline;
946
947
      end   = cinfo.output_scanline + tile_height;
      end   = MIN (end, cinfo.output_height);
Elliot Lee's avatar
Elliot Lee committed
948
949
950
951
952
      scanlines = end - start;

      for (i = 0; i < scanlines; i++)
	jpeg_read_scanlines (&cinfo, (JSAMPARRAY) &rowbuf[i], 1);

953
954
955
956
      if (preview) /* Add a dummy alpha channel -- convert buf to padded_buf */
	{
	  guchar *dest = padded_buf;
	  guchar *src  = buf;
957
	  gint    num  = drawable->width * scanlines;
958
959
960
961
962
963
964
965
966
967

	  switch (cinfo.output_components)
	    {
	    case 1:
	      for (i=0; i<num; i++)
		{
		  *(dest++) = *(src++);
		  *(dest++) = 255;
		}
	      break;
968

969
970
971
972
973
974
975
976
977
	    case 3:
	      for (i=0; i<num; i++)
		{
		  *(dest++) = *(src++);
		  *(dest++) = *(src++);
		  *(dest++) = *(src++);
		  *(dest++) = 255;
		}
	      break;
978

979
980
	    default:
	      g_warning ("JPEG - shouldn't have gotten here.  Report to adam@gimp.org");
981
	      break;
982
983
984
985
986
	    }
	}

      gimp_pixel_rgn_set_rect (&pixel_rgn, preview ? padded_buf : buf,
			       0, start, drawable->width, scanlines);
Elliot Lee's avatar
Elliot Lee committed
987

Sven Neumann's avatar
Sven Neumann committed
988
      if (runmode != GIMP_RUN_NONINTERACTIVE)
989
	{
990
991
	  gimp_progress_update ((gdouble) cinfo.output_scanline / 
				(gdouble) cinfo.output_height);
992
	}
Elliot Lee's avatar
Elliot Lee committed
993
994
995
996
997
998
999
1000
1001
1002
1003
1004
1005
1006
1007
1008
1009
    }

  /* Step 7: Finish decompression */

  jpeg_finish_decompress (&cinfo);
  /* We can ignore the return value since suspension is not possible
   * with the stdio data source.
   */

  /* Step 8: Release JPEG decompression object */

  /* This is an important step since it will release a good deal of memory. */
  jpeg_destroy_decompress (&cinfo);

  /* free up the temporary buffers */
  g_free (rowbuf);
  g_free (buf);
1010
1011
  if (preview)
    g_free (padded_buf);
Elliot Lee's avatar
Elliot Lee committed
1012
1013
1014
1015
1016
1017
1018
1019
1020
1021
1022
1023
1024
1025

  /* After finish_decompress, we can close the input file.
   * Here we postpone it until after no more JPEG errors are possible,
   * so as to simplify the setjmp error logic above.  (Actually, I don't
   * think that jpeg_destroy can do an error exit, but why assume anything...)
   */
  fclose (infile);

  /* At this point you may want to check to see whether any corrupt-data
   * warnings occurred (test whether jerr.num_warnings is nonzero).
   */

  /* Tell the GIMP to display the image.
   */
BST 1999 Andy Thomas's avatar
BST 1999 Andy Thomas committed
1026
  gimp_image_add_layer (image_ID, layer_ID, 0);
Elliot Lee's avatar
Elliot Lee committed
1027
1028
  gimp_drawable_flush (drawable);

1029
1030
  /* pw - Last of all, attach the parasites (couldn't do it earlier -
     there was no image. */
Sven Neumann's avatar
Sven Neumann committed
1031

Sven Neumann's avatar
Sven Neumann committed
1032
1033
1034
1035
  if (!preview) 
    {
      if (comment_parasite)
	{
Marc Lehmann's avatar
Marc Lehmann committed
1036
	  gimp_image_parasite_attach (image_ID, comment_parasite);
1037
	  gimp_parasite_free (comment_parasite);
Sven Neumann's avatar
Sven Neumann committed
1038
	}
1039

Sven Neumann's avatar
Sven Neumann committed
1040
1041
      if (vals_parasite)
	{
Marc Lehmann's avatar
Marc Lehmann committed
1042
	  gimp_image_parasite_attach (image_ID, vals_parasite);
1043
	  gimp_parasite_free (vals_parasite);
Sven Neumann's avatar
Sven Neumann committed
1044
	}   
1045
    }
1046

Elliot Lee's avatar
Elliot Lee committed
1047
1048
1049
  return image_ID;
}

1050
1051
1052
1053
1054
1055
1056
1057
/*
 * sg - This is the best I can do, I'm afraid... I think it will fail
 * if something bad really happens (but it might not). If you have a
 * better solution, send it ;-)
 */ 
static void
background_error_exit (j_common_ptr cinfo)
{
Sven Neumann's avatar
Sven Neumann committed
1058
1059
  if (abort_me) 
    *abort_me = TRUE;
1060
1061
1062
  (*cinfo->err->output_message) (cinfo);
}

1063
static gboolean
Sven Neumann's avatar
Sven Neumann committed
1064
background_jpeg_save (PreviewPersistent *pp)
1065
1066
1067
{
  guchar *t;
  guchar *s;
1068
1069
  gint    i, j;
  gint    yend;
1070

1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
  if (pp->abort_me || (pp->cinfo.next_scanline >= pp->cinfo.image_height))
    {
      /* clean up... */
      if (pp->abort_me)
	{
	  jpeg_abort_compress (&(pp->cinfo));
	}
      else
	{
	  jpeg_finish_compress (&(pp->cinfo));
	}
1082

1083
1084
      fclose (pp->outfile);
      jpeg_destroy_compress (&(pp->cinfo));
1085

1086
1087
      g_free (pp->temp);
      g_free (pp->data);
1088

1089
1090
      if (pp->drawable) 
	gimp_drawable_detach (pp->drawable);
1091

1092
1093
1094
      /* display the preview stuff */
      if (!pp->abort_me) 
	{
1095
1096
1097
	  struct stat buf;
	  gchar       temp[128];

1098
1099
1100
1101
1102
	  stat (pp->file_name, &buf);
	  g_snprintf (temp, sizeof (temp),
		      _("Size: %lu bytes (%02.01f kB)"),
		      buf.st_size, (float) (buf.st_size) / 1024.0);
	  gtk_label_set_text (GTK_LABEL (preview_size), temp);
Sven Neumann's avatar
Sven Neumann committed
1103
	
1104
	  /* and load the preview */
Sven Neumann's avatar
Sven Neumann committed
1105
	  load_image (pp->file_name, GIMP_RUN_NONINTERACTIVE, TRUE);
1106
	}
1107

1108
1109
1110
      /* we cleanup here (load_image doesn't run in the background) */
      unlink (pp->file_name);
      g_free (pp->file_name);
1111

Sven Neumann's avatar
Sven Neumann committed
1112
1113
      if (abort_me == &(pp->abort_me)) 
	abort_me = NULL;
1114

1115
      g_free (pp);
1116

1117
1118
      gimp_displays_flush ();
      gdk_flush ();
1119

1120
1121
1122
1123
1124
1125
1126
1127
1128
1129
1130
1131
1132
1133
      return FALSE;
    }
  else
    {
      if ((pp->cinfo.next_scanline % pp->tile_height) == 0)
	{
	  yend = pp->cinfo.next_scanline + pp->tile_height;
	  yend = MIN (yend, pp->cinfo.image_height);
	  gimp_pixel_rgn_get_rect (&pp->pixel_rgn, pp->data, 0, 
				   pp->cinfo.next_scanline,
				   pp->cinfo.image_width,
				   (yend - pp->cinfo.next_scanline));
	  pp->src = pp->data;
	}
1134

1135
1136
1137
      t = pp->temp;
      s = pp->src;
      i = pp->cinfo.image_width;
1138

1139
1140
1141
1142
1143
1144
1145
      while (i--)
	{
	  for (j = 0; j < pp->cinfo.input_components; j++)
	    *t++ = *s++;
	  if (pp->has_alpha)  /* ignore alpha channel */
	    s++;
	}
1146

1147
1148
      pp->src += pp->rowstride;
      jpeg_write_scanlines (&(pp->cinfo), (JSAMPARRAY) &(pp->temp), 1);
1149

1150
1151
      return TRUE;
    }
1152
1153
}

1154
static gboolean
Sven Neumann's avatar
Sven Neumann committed
1155
1156
1157
1158
1159
save_image (gchar    *filename,
	    gint32    image_ID,
	    gint32    drawable_ID,
	    gint32    orig_image_ID,
	    gboolean  preview)
Elliot Lee's avatar
Elliot Lee committed
1160
{