src/common/imagjpeg.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        src/common/imagjpeg.cpp
   3 // Purpose:     wxImage JPEG handler
   4 // Author:      Vaclav Slavik
   5 // RCS-ID:      $Id$
   6 // Copyright:   (c) Vaclav Slavik
   7 // Licence:     wxWindows licence
   8 /////////////////////////////////////////////////////////////////////////////
   9
  10 // For compilers that support precompilation, includes "wx.h".
  11 #include "wx/wxprec.h"
  12
  13 #ifdef __BORLANDC__
  14 #pragma hdrstop
  15 #endif
  16
  17 #include "wx/defs.h"
  18
  19 #if wxUSE_IMAGE && wxUSE_LIBJPEG
  20
  21 #include "wx/imagjpeg.h"
  22 #include "wx/bitmap.h"
  23 #include "wx/debug.h"
  24 #include "wx/log.h"
  25 #include "wx/app.h"
  26
  27 // NB: Some compilers define boolean type in Windows headers
  28 //     (e.g. Watcom C++, but not Open Watcom).
  29 //     This causes a conflict with jmorecfg.h header from libjpeg, so we have
  30 //     to make sure libjpeg won't try to define boolean itself. This is done by
  31 //     defining HAVE_BOOLEAN.
  32 #if defined(__WXMSW__) && (defined(__MWERKS__) || defined(__DIGITALMARS__))
  33     #define HAVE_BOOLEAN
  34     #include "wx/msw/wrapwin.h"
  35 #endif
  36
  37 extern "C"
  38 {
  39     #if defined(__WXMSW__)
  40         #define XMD_H
  41     #endif
  42     #include "jpeglib.h"
  43 }
  44
  45 #include "wx/filefn.h"
  46 #include "wx/wfstream.h"
  47 #include "wx/intl.h"
  48 #include "wx/module.h"
  49
  50 // For memcpy
  51 #include <string.h>
  52 // For JPEG library error handling
  53 #include <setjmp.h>
  54
  55 #ifdef __SALFORDC__
  56 #undef FAR
  57 #endif
  58
  59 // ----------------------------------------------------------------------------
  60 // types
  61 // ----------------------------------------------------------------------------
  62
  63 // the standard definition of METHODDEF(type) from jmorecfg.h is "static type"
  64 // which means that we can't declare the method functions as extern "C" - the
  65 // compiler (rightfully) complains about the multiple storage classes in
  66 // declaration
  67 //
  68 // so we only add extern "C" when using our own, modified, jmorecfg.h - and use
  69 // whatever we have in the system headers if this is what we use hoping that it
  70 // should be ok (can't do anything else)
  71 #ifdef JPEG_METHOD_LINKAGE
  72     #define CPP_METHODDEF(type) extern "C" METHODDEF(type)
  73 #else // not using our jmorecfg.h header
  74     #define CPP_METHODDEF(type) METHODDEF(type)
  75 #endif
  76
  77 //-----------------------------------------------------------------------------
  78 // wxJPEGHandler
  79 //-----------------------------------------------------------------------------
  80
  81 IMPLEMENT_DYNAMIC_CLASS(wxJPEGHandler,wxImageHandler)
  82
  83 #if wxUSE_STREAMS
  84
  85 //------------- JPEG Data Source Manager
  86
  87 #define JPEG_IO_BUFFER_SIZE   2048
  88
  89 typedef struct {
  90     struct jpeg_source_mgr pub;   /* public fields */
  91
  92     JOCTET* buffer;               /* start of buffer */
  93     wxInputStream *stream;
  94 } wx_source_mgr;
  95
  96 typedef wx_source_mgr * wx_src_ptr;
  97
  98 CPP_METHODDEF(void) wx_init_source ( j_decompress_ptr WXUNUSED(cinfo) )
  99 {
 100 }
 101
 102 CPP_METHODDEF(boolean) wx_fill_input_buffer ( j_decompress_ptr cinfo )
 103 {
 104     wx_src_ptr src = (wx_src_ptr) cinfo->src;
 105
 106     src->pub.next_input_byte = src->buffer;
 107     src->pub.bytes_in_buffer = src->stream->Read(src->buffer, JPEG_IO_BUFFER_SIZE).LastRead();
 108
 109     if (src->pub.bytes_in_buffer == 0) // check for end-of-stream
 110     {
 111         // Insert a fake EOI marker
 112         src->buffer[0] = 0xFF;
 113         src->buffer[1] = JPEG_EOI;
 114         src->pub.bytes_in_buffer = 2;
 115     }
 116     return TRUE;
 117 }
 118
 119 CPP_METHODDEF(void) wx_skip_input_data ( j_decompress_ptr cinfo, long num_bytes )
 120 {
 121     if (num_bytes > 0)
 122     {
 123         wx_src_ptr src = (wx_src_ptr) cinfo->src;
 124
 125         while (num_bytes > (long)src->pub.bytes_in_buffer)
 126         {
 127             num_bytes -= (long) src->pub.bytes_in_buffer;
 128             src->pub.fill_input_buffer(cinfo);
 129         }
 130         src->pub.next_input_byte += (size_t) num_bytes;
 131         src->pub.bytes_in_buffer -= (size_t) num_bytes;
 132     }
 133 }
 134
 135 CPP_METHODDEF(void) wx_term_source ( j_decompress_ptr cinfo )
 136 {
 137     wx_src_ptr src = (wx_src_ptr) cinfo->src;
 138
 139     if (src->pub.bytes_in_buffer > 0)
 140         src->stream->SeekI(-(long)src->pub.bytes_in_buffer, wxFromCurrent);
 141     delete[] src->buffer;
 142 }
 143
 144
 145 // JPEG error manager:
 146
 147 struct wx_error_mgr {
 148   struct jpeg_error_mgr pub;    /* "public" fields */
 149
 150   jmp_buf setjmp_buffer;    /* for return to caller */
 151 };
 152
 153 typedef struct wx_error_mgr * wx_error_ptr;
 154
 155 /*
 156  * Here's the routine that will replace the standard error_exit method:
 157  */
 158
 159 CPP_METHODDEF(void) wx_error_exit (j_common_ptr cinfo)
 160 {
 161   /* cinfo->err really points to a wx_error_mgr struct, so coerce pointer */
 162   wx_error_ptr myerr = (wx_error_ptr) cinfo->err;
 163
 164   /* Always display the message. */
 165   /* We could postpone this until after returning, if we chose. */
 166   if (cinfo->err->output_message) (*cinfo->err->output_message) (cinfo);
 167
 168   /* Return control to the setjmp point */
 169   longjmp(myerr->setjmp_buffer, 1);
 170 }
 171
 172 void wx_jpeg_io_src( j_decompress_ptr cinfo, wxInputStream& infile )
 173 {
 174     wx_src_ptr src;
 175
 176     if (cinfo->src == NULL) {    /* first time for this JPEG object? */
 177         cinfo->src = (struct jpeg_source_mgr *)
 178             (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
 179             sizeof(wx_source_mgr));
 180     }
 181     src = (wx_src_ptr) cinfo->src;
 182     src->pub.bytes_in_buffer = 0; /* forces fill_input_buffer on first read */
 183     src->buffer = new JOCTET[JPEG_IO_BUFFER_SIZE];
 184     src->pub.next_input_byte = NULL; /* until buffer loaded */
 185     src->stream = &infile;
 186
 187     src->pub.init_source = wx_init_source;
 188     src->pub.fill_input_buffer = wx_fill_input_buffer;
 189     src->pub.skip_input_data = wx_skip_input_data;
 190     src->pub.resync_to_restart = jpeg_resync_to_restart; /* use default method */
 191     src->pub.term_source = wx_term_source;
 192 }
 193
 194
 195 // temporarily disable the warning C4611 (interaction between '_setjmp' and
 196 // C++ object destruction is non-portable) - I don't see any dtors here
 197 #ifdef __VISUALC__
 198     #pragma warning(disable:4611)
 199 #endif /* VC++ */
 200
 201 bool wxJPEGHandler::LoadFile( wxImage *image, wxInputStream& stream, bool verbose, int WXUNUSED(index) )
 202 {
 203     struct jpeg_decompress_struct cinfo;
 204     struct wx_error_mgr jerr;
 205     JSAMPARRAY tempbuf;
 206     unsigned char *ptr;
 207     unsigned stride;
 208
 209     image->Destroy();
 210     cinfo.err = jpeg_std_error( &jerr.pub );
 211     jerr.pub.error_exit = wx_error_exit;
 212
 213     if (!verbose) cinfo.err->output_message=NULL;
 214
 215     /* Establish the setjmp return context for wx_error_exit to use. */
 216     if (setjmp(jerr.setjmp_buffer)) {
 217       /* If we get here, the JPEG code has signaled an error.
 218        * We need to clean up the JPEG object, close the input file, and return.
 219        */
 220       if (verbose)
 221         wxLogError(_("JPEG: Couldn't load - file is probably corrupted."));
 222       (cinfo.src->term_source)(&cinfo);
 223       jpeg_destroy_decompress(&cinfo);
 224       if (image->Ok()) image->Destroy();
 225       return false;
 226     }
 227
 228     jpeg_create_decompress( &cinfo );
 229     wx_jpeg_io_src( &cinfo, stream );
 230     jpeg_read_header( &cinfo, TRUE );
 231     cinfo.out_color_space = JCS_RGB;
 232     jpeg_start_decompress( &cinfo );
 233
 234     image->Create( cinfo.image_width, cinfo.image_height );
 235     if (!image->Ok()) {
 236         jpeg_finish_decompress( &cinfo );
 237         jpeg_destroy_decompress( &cinfo );
 238         return false;
 239     }
 240     image->SetMask( false );
 241     ptr = image->GetData();
 242     stride = cinfo.output_width * 3;
 243     tempbuf = (*cinfo.mem->alloc_sarray)
 244         ((j_common_ptr) &cinfo, JPOOL_IMAGE, stride, 1 );
 245
 246     while ( cinfo.output_scanline < cinfo.output_height ) {
 247         jpeg_read_scanlines( &cinfo, tempbuf, 1 );
 248         memcpy( ptr, tempbuf[0], stride );
 249         ptr += stride;
 250     }
 251     jpeg_finish_decompress( &cinfo );
 252     jpeg_destroy_decompress( &cinfo );
 253     return true;
 254 }
 255
 256 typedef struct {
 257     struct jpeg_destination_mgr pub;
 258
 259     wxOutputStream *stream;
 260     JOCTET * buffer;
 261 } wx_destination_mgr;
 262
 263 typedef wx_destination_mgr * wx_dest_ptr;
 264
 265 #define OUTPUT_BUF_SIZE  4096    /* choose an efficiently fwrite'able size */
 266
 267 CPP_METHODDEF(void) wx_init_destination (j_compress_ptr cinfo)
 268 {
 269     wx_dest_ptr dest = (wx_dest_ptr) cinfo->dest;
 270
 271     /* Allocate the output buffer --- it will be released when done with image */
 272     dest->buffer = (JOCTET *)
 273         (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_IMAGE,
 274         OUTPUT_BUF_SIZE * sizeof(JOCTET));
 275     dest->pub.next_output_byte = dest->buffer;
 276     dest->pub.free_in_buffer = OUTPUT_BUF_SIZE;
 277 }
 278
 279 CPP_METHODDEF(boolean) wx_empty_output_buffer (j_compress_ptr cinfo)
 280 {
 281     wx_dest_ptr dest = (wx_dest_ptr) cinfo->dest;
 282
 283     dest->stream->Write(dest->buffer, OUTPUT_BUF_SIZE);
 284     dest->pub.next_output_byte = dest->buffer;
 285     dest->pub.free_in_buffer = OUTPUT_BUF_SIZE;
 286     return TRUE;
 287 }
 288
 289 CPP_METHODDEF(void) wx_term_destination (j_compress_ptr cinfo)
 290 {
 291     wx_dest_ptr dest = (wx_dest_ptr) cinfo->dest;
 292     size_t datacount = OUTPUT_BUF_SIZE - dest->pub.free_in_buffer;
 293     /* Write any data remaining in the buffer */
 294     if (datacount > 0)
 295         dest->stream->Write(dest->buffer, datacount);
 296 }
 297
 298 GLOBAL(void) wx_jpeg_io_dest (j_compress_ptr cinfo, wxOutputStream& outfile)
 299 {
 300     wx_dest_ptr dest;
 301
 302     if (cinfo->dest == NULL) {    /* first time for this JPEG object? */
 303         cinfo->dest = (struct jpeg_destination_mgr *)
 304             (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
 305             sizeof(wx_destination_mgr));
 306     }
 307
 308     dest = (wx_dest_ptr) cinfo->dest;
 309     dest->pub.init_destination = wx_init_destination;
 310     dest->pub.empty_output_buffer = wx_empty_output_buffer;
 311     dest->pub.term_destination = wx_term_destination;
 312     dest->stream = &outfile;
 313 }
 314
 315 bool wxJPEGHandler::SaveFile( wxImage *image, wxOutputStream& stream, bool verbose )
 316 {
 317     struct jpeg_compress_struct cinfo;
 318     struct wx_error_mgr jerr;
 319     JSAMPROW row_pointer[1];    /* pointer to JSAMPLE row[s] */
 320     JSAMPLE *image_buffer;
 321     int stride;                /* physical row width in image buffer */
 322
 323     cinfo.err = jpeg_std_error(&jerr.pub);
 324     jerr.pub.error_exit = wx_error_exit;
 325
 326     if (!verbose) cinfo.err->output_message=NULL;
 327
 328     /* Establish the setjmp return context for wx_error_exit to use. */
 329     if (setjmp(jerr.setjmp_buffer))
 330     {
 331         /* If we get here, the JPEG code has signaled an error.
 332          * We need to clean up the JPEG object, close the input file, and return.
 333          */
 334          if (verbose)
 335             wxLogError(_("JPEG: Couldn't save image."));
 336          jpeg_destroy_compress(&cinfo);
 337          return false;
 338     }
 339
 340     jpeg_create_compress(&cinfo);
 341     wx_jpeg_io_dest(&cinfo, stream);
 342
 343     cinfo.image_width = image->GetWidth();
 344     cinfo.image_height = image->GetHeight();
 345     cinfo.input_components = 3;
 346     cinfo.in_color_space = JCS_RGB;
 347     jpeg_set_defaults(&cinfo);
 348
 349     // TODO: 3rd parameter is force_baseline, what value should this be?
 350     // Code says: "If force_baseline is TRUE, the computed quantization table entries
 351     // are limited to 1..255 for JPEG baseline compatibility."
 352     // 'Quality' is a number between 0 (terrible) and 100 (very good).
 353     // The default (in jcparam.c, jpeg_set_defaults) is 75,
 354     // and force_baseline is TRUE.
 355     if (image->HasOption(wxIMAGE_OPTION_QUALITY))
 356         jpeg_set_quality(&cinfo, image->GetOptionInt(wxIMAGE_OPTION_QUALITY), TRUE);
 357
 358     // set the resolution fields in the output file
 359     UINT16 resX,
 360            resY;
 361     if ( image->HasOption(wxIMAGE_OPTION_RESOLUTIONX) &&
 362          image->HasOption(wxIMAGE_OPTION_RESOLUTIONY) )
 363     {
 364         resX = (UINT16)image->GetOptionInt(wxIMAGE_OPTION_RESOLUTIONX);
 365         resY = (UINT16)image->GetOptionInt(wxIMAGE_OPTION_RESOLUTIONY);
 366     }
 367     else if ( image->HasOption(wxIMAGE_OPTION_RESOLUTION) )
 368     {
 369         resX =
 370         resY = (UINT16)image->GetOptionInt(wxIMAGE_OPTION_RESOLUTION);
 371     }
 372     else
 373     {
 374         resX =
 375         resY = 0;
 376     }
 377
 378     if ( resX && resY )
 379     {
 380         cinfo.X_density = resX;
 381         cinfo.Y_density = resY;
 382     }
 383
 384     // sets the resolution unit field in the output file
 385     // wxIMAGE_RESOLUTION_INCHES for inches
 386     // wxIMAGE_RESOLUTION_CM for centimeters
 387     if ( image->HasOption(wxIMAGE_OPTION_RESOLUTIONUNIT) )
 388     {
 389         cinfo.density_unit = (UINT8)image->GetOptionInt(wxIMAGE_OPTION_RESOLUTIONUNIT);
 390     }
 391
 392     jpeg_start_compress(&cinfo, TRUE);
 393
 394     stride = cinfo.image_width * 3;    /* JSAMPLEs per row in image_buffer */
 395     image_buffer = image->GetData();
 396     while (cinfo.next_scanline < cinfo.image_height) {
 397         row_pointer[0] = &image_buffer[cinfo.next_scanline * stride];
 398         jpeg_write_scanlines( &cinfo, row_pointer, 1 );
 399     }
 400     jpeg_finish_compress(&cinfo);
 401     jpeg_destroy_compress(&cinfo);
 402
 403     return true;
 404 }
 405
 406 #ifdef __VISUALC__
 407     #pragma warning(default:4611)
 408 #endif /* VC++ */
 409
 410 bool wxJPEGHandler::DoCanRead( wxInputStream& stream )
 411 {
 412     unsigned char hdr[2];
 413
 414     if ( !stream.Read(hdr, WXSIZEOF(hdr)) )
 415         return false;
 416
 417     return hdr[0] == 0xFF && hdr[1] == 0xD8;
 418 }
 419
 420 #endif   // wxUSE_STREAMS
 421
 422 #endif   // wxUSE_LIBJPEG