wjpeg.cc

   1 /*
   2     Copyright 2004-2005 Chris Tallon
   3
   4     This file is part of VOMP.
   5
   6     VOMP 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.
  10
  11     VOMP 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.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with VOMP; if not, write to the Free Software
  18     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  19 */
  20 #include "boxx.h"
  21 #include "wjpeg.h"
  22 #include <setjmp.h>
  23 #include <sys/types.h>
  24 #include <sys/stat.h>
  25 #ifndef WIN32
  26 #include <unistd.h>
  27 #else
  28
  29 #endif
  30
  31 #include "i18n.h"
  32 #include "log.h"
  33 #include "surface.h"
  34 extern "C"
  35 {
  36   #include <jpeglib.h>
  37 }
  38
  39
  40 //#define USE_BUFFER
  41 //#define EXTENDED_JPEGLIB
  42
  43 //a struct to store user data for the jpeg decompressor
  44 class jpegUserData{
  45   public:
  46     WJpeg::JpegControl * ctl;
  47     JpegReader *reader;
  48     jpegUserData() {
  49       ctl=NULL;
  50       reader=NULL;
  51       }
  52   };
  53
  54 //the scale factors supported by the jpeg lib
  55
  56 struct scale{
  57   UINT num;
  58   UINT denom;
  59 };
  60
  61
  62 struct scale jpegFactors[]={
  63 #ifndef EXTENDED_JPEGLIB
  64   {1,1},{1,2},{1,4},{1,8}
  65 #else
  66   {1,1},{7,8},{3,4},{5,8},{1,2},{3,8},{1,4},{1,8}
  67 #endif
  68 };
  69
  70
  71 #ifdef WIN32
  72 #define LocalReader WindowsResourceJpegReader
  73 class WindowsResourceJpegReader: public JpegReader {
  74   public:
  75   virtual ULONG initRead(const char *filename);
  76   virtual ULONG readChunk(ULONG offset,ULONG len,char **buf);
  77   virtual ULONG getSize();
  78   virtual ~WindowsResourceJpegReader();
  79 protected:
  80   HGLOBAL hres;
  81   LPVOID buffer;
  82   DWORD size;
  83 };
  84
  85 ULONG WindowsResourceJpegReader::initRead(const char *filename)
  86 {
  87     HRSRC res=FindResource(NULL,filename,RT_RCDATA);
  88     hres=LoadResource(NULL,res);
  89     buffer=LockResource(hres);
  90     size=SizeofResource(NULL,res);
  91     //CloseHandle(hres);
  92     return size;
  93 }
  94
  95  ULONG WindowsResourceJpegReader::readChunk(ULONG offset,ULONG len,char **buf)
  96 {
  97     if (offset>size) return 0;
  98     ULONG toread=min(size-offset,len);
  99     char* buffy=(char*)malloc(toread);
 100     memcpy(buffy,((char*)buffer)+offset,toread);
 101     *buf=buffy;
 102     return toread;
 103 }
 104
 105  WindowsResourceJpegReader::~WindowsResourceJpegReader(){
 106     buffer=NULL;
 107     size=0;
 108     FreeResource(hres);
 109  }
 110
 111  ULONG WindowsResourceJpegReader::getSize(){
 112    return (ULONG)size;
 113 }
 114 #else
 115
 116 #define LocalReader LocalJpegReader
 117 class LocalJpegReader: public JpegReader {
 118   public:
 119   virtual ULONG initRead(const char *filename);
 120   virtual ULONG readChunk(ULONG offset,ULONG len,char **buf);
 121   virtual ~LocalJpegReader();
 122   virtual ULONG getSize();
 123   LocalJpegReader();
 124 protected:
 125   FILE *file;
 126   ULONG size;
 127 };
 128
 129 LocalJpegReader::LocalJpegReader(){
 130   file=NULL;
 131   size=0;
 132 }
 133
 134 ULONG LocalJpegReader::initRead(const char *filename)
 135 {
 136     if (file) fclose(file);
 137     size=0;
 138     file=fopen(filename,"r");
 139     if (file) {
 140       struct stat st;
 141       if (fstat(fileno(file), &st) != 0) return 0;
 142       size= st.st_size;
 143       return size;
 144     }
 145     Log::getInstance()->log("WJepg", Log::ERR, "localReader unable to open File %s", filename);
 146     return 0;
 147 }
 148
 149 ULONG LocalJpegReader::readChunk(ULONG offset,ULONG len,char **buf)
 150 {
 151    *buf=NULL;
 152    ULONG bread=0;
 153    if (file) {
 154      ULLONG cpos=ftell(file);
 155      if (offset != cpos) {
 156       fseek(file,offset-cpos,SEEK_CUR);
 157      }
 158      if (offset != (ULONG)ftell(file)) {
 159        Log::getInstance()->log("WJepg", Log::ERR, "readChunk pos = %lu not available", offset);
 160      }
 161      else {
 162        *buf=(char *)malloc(len);
 163        if ( ! (*buf)) {
 164          Log::getInstance()->log("WJepg", Log::ERR, "readChunk pos = %lu not available", offset);
 165        }
 166        else {
 167          bread=fread(*buf,1,len,file);
 168        }
 169      }
 170    }
 171    return bread;
 172 }
 173
 174 LocalJpegReader::~LocalJpegReader(){
 175   if (file) fclose(file);
 176   file=NULL;
 177 }
 178 ULONG LocalJpegReader::getSize(){
 179   return size;
 180 }
 181 #endif
 182
 183 /*----------------------------------------------------------------
 184   the jpeg lib routines
 185   ----------------------------------------------------------------
 186  */
 187
 188 extern "C" {
 189
 190
 191 struct my_error_mgr {
 192   struct jpeg_error_mgr pub;    /* "public" fields */
 193
 194   jmp_buf setjmp_buffer;        /* for return to caller */
 195 };
 196
 197 typedef struct my_error_mgr * my_error_ptr;
 198
 199 /*
 200  * Here's the routine that will replace the standard error_exit method:
 201  */
 202
 203 METHODDEF(void)
 204 my_error_exit (j_common_ptr cinfo)
 205 {
 206   /* cinfo->err really points to a my_error_mgr struct, so coerce pointer */
 207   my_error_ptr myerr = (my_error_ptr) cinfo->err;
 208
 209   /* Always display the message. */
 210   /* We could postpone this until after returning, if we chose. */
 211   (*cinfo->err->output_message) (cinfo);
 212   /* Return control to the setjmp point */
 213   longjmp(myerr->setjmp_buffer, 1);
 214 }
 215
 216 ULONG jpeg_call_reader(ULONG offset,ULONG size,char ** buf,void *cb) {
 217   jpegUserData *user=(jpegUserData *)cb;
 218   return user->reader->readChunk(offset,size,buf);
 219 }
 220 //the memory buffer reader for the jpeg lib
 221 //taken from jdatasrc.c
 222
 223 #include "jinclude.h"
 224 #include "jpeglib.h"
 225 #include "jerror.h"
 226
 227
 228 typedef struct {
 229   struct jpeg_source_mgr pub;   /* public fields */
 230
 231   JOCTET * buffer;              /* start of buffer */
 232   boolean start_of_file;        /* have we gotten any data yet? */
 233   void * userdata;              /* used for callback */
 234   ULONG offset;
 235 } my_source_mgr;
 236
 237 typedef my_source_mgr * my_src_ptr;
 238
 239 #define INPUT_BUF_SIZE  (64*4096)       /* choose an efficiently fread'able size */
 240
 241
 242 /*
 243  * Initialize source --- called by jpeg_read_header
 244  * before any data is actually read.
 245  */
 246
 247 METHODDEF(void)
 248 linit_source (j_decompress_ptr cinfo)
 249 {
 250   my_src_ptr src = (my_src_ptr) cinfo->src;
 251
 252   /* We reset the empty-input-file flag for each image,
 253    * but we don't clear the input buffer.
 254    * This is correct behavior for reading a series of images from one source.
 255    */
 256   src->start_of_file = TRUE;
 257   src->offset=0;
 258 }
 259
 260
 261 /*
 262  * Fill the input buffer --- called whenever buffer is emptied.
 263  *
 264  * In typical applications, this should read fresh data into the buffer
 265  * (ignoring the current state of next_input_byte & bytes_in_buffer),
 266  * reset the pointer & count to the start of the buffer, and return TRUE
 267  * indicating that the buffer has been reloaded.  It is not necessary to
 268  * fill the buffer entirely, only to obtain at least one more byte.
 269  *
 270  * There is no such thing as an EOF return.  If the end of the file has been
 271  * reached, the routine has a choice of ERREXIT() or inserting fake data into
 272  * the buffer.  In most cases, generating a warning message and inserting a
 273  * fake EOI marker is the best course of action --- this will allow the
 274  * decompressor to output however much of the image is there.  However,
 275  * the resulting error message is misleading if the real problem is an empty
 276  * input file, so we handle that case specially.
 277  *
 278  * In applications that need to be able to suspend compression due to input
 279  * not being available yet, a FALSE return indicates that no more data can be
 280  * obtained right now, but more may be forthcoming later.  In this situation,
 281  * the decompressor will return to its caller (with an indication of the
 282  * number of scanlines it has read, if any).  The application should resume
 283  * decompression after it has loaded more data into the input buffer.  Note
 284  * that there are substantial restrictions on the use of suspension --- see
 285  * the documentation.
 286  *
 287  * When suspending, the decompressor will back up to a convenient restart point
 288  * (typically the start of the current MCU). next_input_byte & bytes_in_buffer
 289  * indicate where the restart point will be if the current call returns FALSE.
 290  * Data beyond this point must be rescanned after resumption, so move it to
 291  * the front of the buffer rather than discarding it.
 292  */
 293
 294 METHODDEF(boolean)
 295 lfill_input_buffer (j_decompress_ptr cinfo)
 296 {
 297   my_src_ptr src = (my_src_ptr) cinfo->src;
 298   size_t nbytes;
 299   if (src->buffer) free(src->buffer);
 300   src->buffer=NULL;
 301   nbytes = jpeg_call_reader(src->offset, INPUT_BUF_SIZE,(char **)&(src->buffer), src->userdata);
 302
 303   if (nbytes <= 0) {
 304     WARNMS(cinfo, JWRN_JPEG_EOF);
 305     src->buffer =  (JOCTET *)malloc(2);
 306     src->buffer[0] = (JOCTET) 0xFF;
 307     src->buffer[1] = (JOCTET) JPEG_EOI;
 308     nbytes = 2;
 309
 310   }
 311   src->offset+=nbytes;
 312
 313   src->pub.next_input_byte = src->buffer;
 314   src->pub.bytes_in_buffer = nbytes;
 315   src->start_of_file = FALSE;
 316
 317   return TRUE;
 318 }
 319
 320
 321 /*
 322  * Skip data --- used to skip over a potentially large amount of
 323  * uninteresting data (such as an APPn marker).
 324  *
 325  * Writers of suspendable-input applications must note that skip_input_data
 326  * is not granted the right to give a suspension return.  If the skip extends
 327  * beyond the data currently in the buffer, the buffer can be marked empty so
 328  * that the next read will cause a fill_input_buffer call that can suspend.
 329  * Arranging for additional bytes to be discarded before reloading the input
 330  * buffer is the application writer's problem.
 331  */
 332
 333 METHODDEF(void)
 334 lskip_input_data (j_decompress_ptr cinfo, long num_bytes)
 335 {
 336   my_src_ptr src = (my_src_ptr) cinfo->src;
 337
 338   /* Just a dumb implementation for now.  Could use fseek() except
 339    * it doesn't work on pipes.  Not clear that being smart is worth
 340    * any trouble anyway --- large skips are infrequent.
 341    */
 342   if (num_bytes > 0) {
 343     while (num_bytes > (long) src->pub.bytes_in_buffer) {
 344       num_bytes -= (long) src->pub.bytes_in_buffer;
 345       (void) lfill_input_buffer(cinfo);
 346       /* note we assume that fill_input_buffer will never return FALSE,
 347        * so suspension need not be handled.
 348        */
 349     }
 350     src->pub.next_input_byte += (size_t) num_bytes;
 351     src->pub.bytes_in_buffer -= (size_t) num_bytes;
 352   }
 353 }
 354
 355
 356 /*
 357  * An additional method that can be provided by data source modules is the
 358  * resync_to_restart method for error recovery in the presence of RST markers.
 359  * For the moment, this source module just uses the default resync method
 360  * provided by the JPEG library.  That method assumes that no backtracking
 361  * is possible.
 362  */
 363
 364
 365 /*
 366  * Terminate source --- called by jpeg_finish_decompress
 367  * after all data has been read.  Often a no-op.
 368  *
 369  * NB: *not* called by jpeg_abort or jpeg_destroy; surrounding
 370  * application must deal with any cleanup that should happen even
 371  * for error exit.
 372  */
 373
 374 METHODDEF(void)
 375 lterm_source (j_decompress_ptr cinfo)
 376 {
 377   /* no work necessary here */
 378 }
 379
 380
 381 /*
 382  * Prepare for input from a stdio stream.
 383  * The caller must have already opened the stream, and is responsible
 384  * for closing it after finishing decompression.
 385  */
 386
 387 extern "C" void
 388 jpeg_memio_src (j_decompress_ptr cinfo, void * userdata)
 389 {
 390   my_src_ptr src;
 391
 392   /* The source object and input buffer are made permanent so that a series
 393    * of JPEG images can be read from the same file by calling jpeg_stdio_src
 394    * only before the first one.  (If we discarded the buffer at the end of
 395    * one image, we'd likely lose the start of the next one.)
 396    * This makes it unsafe to use this manager and a different source
 397    * manager serially with the same JPEG object.  Caveat programmer.
 398    */
 399   if (cinfo->src == NULL) {     /* first time for this JPEG object? */
 400     cinfo->src = (struct jpeg_source_mgr *)
 401       (*cinfo->mem->alloc_small) ((j_common_ptr) cinfo, JPOOL_PERMANENT,
 402                                   SIZEOF(my_source_mgr));
 403     src = (my_src_ptr) cinfo->src;
 404     src->buffer = NULL;
 405   }
 406
 407   src = (my_src_ptr) cinfo->src;
 408   src->pub.init_source = linit_source;
 409   src->pub.fill_input_buffer = lfill_input_buffer;
 410   src->pub.skip_input_data = lskip_input_data;
 411   src->pub.resync_to_restart = jpeg_resync_to_restart; /* use default method */
 412   src->pub.term_source = lterm_source;
 413   src->userdata=userdata;
 414   src->pub.bytes_in_buffer = 0; /* forces fill_input_buffer on first read */
 415   src->pub.next_input_byte = NULL; /* until buffer loaded */
 416   src->offset=0;
 417   src->userdata=userdata;
 418   if (src->buffer) {
 419      free(src->buffer);
 420      src->buffer=NULL;
 421      }
 422 }
 423 /* cleanup to be called before cleanup of cinfo*/
 424 extern "C" void
 425 jpeg_memio_cleanup (j_decompress_ptr cinfo) {
 426   my_src_ptr src=(my_src_ptr)cinfo->src;
 427   Log::getInstance()->log("BJpeg", Log::DEBUG, "cleanup src, src=%p, buf=%p",src,(src?src->buffer:0));
 428   if (src && src->buffer) {
 429     free(src->buffer);
 430     src->buffer=NULL;
 431     }
 432 }
 433
 434 //taken from mvpmc
 435 //http://git.mvpmc.org/cgi-bin/gitweb.cgi?p=mvpmc.git;a=blob_plain;h=02d4354c0cbbed802a9aa1478918a49fcbf61d00;f=libs/libwidget/image_jpeg.c
 436
 437 #define GET2BYTES(cinfo, V, swap, offset) do { \
 438                 if (cinfo->src->bytes_in_buffer == 0) (*mysrc->pub.fill_input_buffer)(cinfo); \
 439                 cinfo->src->bytes_in_buffer--; \
 440                 V = (*cinfo->src->next_input_byte++) << (swap?0:8); \
 441                 if (cinfo->src->bytes_in_buffer == 0) (*mysrc->pub.fill_input_buffer)(cinfo); \
 442                 cinfo->src->bytes_in_buffer--; \
 443                 V += (*cinfo->src->next_input_byte++) << (swap?8:0); \
 444                 offset += 2; } while(0)
 445
 446 #define GET4BYTES(cinfo, V, swap, offset) do { \
 447                 if (cinfo->src->bytes_in_buffer == 0) (*mysrc->pub.fill_input_buffer)(cinfo); \
 448                 cinfo->src->bytes_in_buffer--; \
 449                 V = (*cinfo->src->next_input_byte++) << (swap?0:24); \
 450                 if (cinfo->src->bytes_in_buffer == 0) (*mysrc->pub.fill_input_buffer)(cinfo); \
 451                 cinfo->src->bytes_in_buffer--; \
 452                 V += (*cinfo->src->next_input_byte++) << (swap?8:16); \
 453                 if (cinfo->src->bytes_in_buffer == 0) (*mysrc->pub.fill_input_buffer)(cinfo); \
 454                 cinfo->src->bytes_in_buffer--; \
 455                 V += (*cinfo->src->next_input_byte++) << (swap?16:8); \
 456                 if (cinfo->src->bytes_in_buffer == 0) (*mysrc->pub.fill_input_buffer)(cinfo); \
 457                 cinfo->src->bytes_in_buffer--; \
 458                 V += (*cinfo->src->next_input_byte++) << (swap?24:0); \
 459                 offset += 4; } while(0)
 460
 461 static boolean
 462 get_exif_orient (j_decompress_ptr cinfo)
 463 /* Get the Exif orientation info */
 464 {
 465         unsigned int tmp, offset, length, numtags;
 466         int orient=-1;
 467         jpegUserData * ud=0;
 468         boolean swap;
 469         orient = 1;
 470         offset = 0;
 471         my_src_ptr mysrc = (my_src_ptr) cinfo->src;
 472
 473         /* marker length */
 474         GET2BYTES(cinfo, length, 0, offset);
 475         if (length<8) goto err;
 476         /* Exif header */
 477         GET4BYTES(cinfo, tmp, 0, offset);
 478         if (tmp != 0x45786966) goto err;
 479         GET2BYTES(cinfo, tmp, 0, offset);
 480         if (tmp != 0x0000) goto err;
 481         /* Byte-order */
 482         GET2BYTES(cinfo, tmp, 0, offset);
 483         if (tmp == 0x4949) swap = 1;
 484         else if (tmp == 0x4d4d) swap = 0;
 485         else goto err;
 486         GET2BYTES(cinfo, tmp, swap, offset);
 487         if (tmp != 0x002A) goto err;
 488         /* offset to first IFD */
 489         GET4BYTES(cinfo, tmp, swap, offset);
 490         offset += tmp-8;
 491         (*mysrc->pub.skip_input_data)(cinfo, tmp-8);
 492         /* number of tags in IFD */
 493         GET2BYTES(cinfo, numtags, swap, offset);
 494         if (numtags == 0) goto err;
 495
 496         /* Search for Orientation Tag in IFD0 */
 497         for (;;) {
 498                 if (offset > length-12) goto err;
 499                 GET2BYTES(cinfo, tmp, swap, offset);
 500                 if (tmp == 0x0112) break; /* found Orientation Tag */
 501                 if (--numtags == 0) goto err;
 502                 offset += 10;
 503                 (*mysrc->pub.skip_input_data)(cinfo, 10);
 504         }
 505         offset += 6;
 506         (*mysrc->pub.skip_input_data)(cinfo, 6);
 507         GET2BYTES(cinfo, orient, swap, offset);
 508         if( orient==0 || orient>8 ) orient = 1;
 509
 510         Log::getInstance()->log("WJpeg", Log::DEBUG, "read exif orientation %u", orient);
 511         ud=(jpegUserData *)(mysrc->userdata);
 512         switch(orient) {
 513           case 3:
 514             ud->ctl->exifRotation=WJpeg::ROT_180;
 515             break;
 516           case 6:
 517             ud->ctl->exifRotation=WJpeg::ROT_90;
 518             break;
 519           case 8:
 520             ud->ctl->exifRotation=WJpeg::ROT_270;
 521             break;
 522         }
 523
 524 err:
 525         (*mysrc->pub.skip_input_data)(cinfo, length-offset);
 526         return TRUE;
 527 }
 528 }
 529
 530 /*----------------------------------------------------------------
 531   the implementation
 532   ----------------------------------------------------------------
 533  */
 534
 535
 536 WJpeg::WJpeg(){
 537   reader=NULL;
 538   owningReader=false;
 539   errbuf[0]=0;
 540 }
 541
 542 WJpeg::~WJpeg() {
 543   if (owningReader && reader) delete reader;
 544 }
 545
 546 int WJpeg::init(char* tfileName)
 547 {
 548   if (owningReader && reader) delete reader;
 549   errbuf[0]=0; //clean error state
 550   LocalReader *myreader=new LocalReader();
 551   reader=myreader;
 552   owningReader=true;
 553   ULONG psize=myreader->initRead(tfileName);
 554   if (psize == 0) {
 555     delete reader;
 556     reader=NULL;
 557     owningReader=false;
 558     SNPRINTF(errbuf,200,"unable to open %s",tfileName);
 559     return 0;
 560   }
 561   return 1;
 562 }
 563
 564
 565
 566
 567 bool WJpeg::hasError() {
 568   return (errbuf[0] != 0);
 569 }
 570 void WJpeg::draw()
 571 {
 572   bool ok=false;
 573   JpegControl ctl;
 574   if (reader) {
 575     Region myRegion;
 576     Surface *sfc=getSurface(myRegion);
 577     myRegion.w=area.w;
 578     myRegion.h=area.h;
 579     ctl.area=myRegion;
 580     ctl.enlarge=true;
 581     if (drawJpeg(&ctl,sfc,reader,backgroundColour) ) ok=true;
 582   }
 583   else {
 584     SNPRINTF(errbuf,200,"jpeg reader not initialized");
 585   }
 586   if (! ok) {
 587     drawTextCentre(tr("Jpeg ERROR"), 240, 170, Colour::LIGHTTEXT);
 588     if (errbuf[0] != 0) drawTextCentre(errbuf,240,200, Colour::LIGHTTEXT);
 589     if (ctl.error[0] != 0) drawTextCentre(ctl.error,240,230, Colour::LIGHTTEXT);
 590   }
 591 }
 592
 593 /**
 594   the main drawing function
 595   this will read the pciture via the reader
 596   and draw directly into the surface
 597   it will compute an appropriate scale and set the infos in the
 598   JpegControl structure
 599 **/
 600
 601 bool WJpeg::drawJpeg(JpegControl * ctl,Surface * sfc,JpegReader *rdr, Colour & backgroundColour) {
 602   Log* logger = Log::getInstance();
 603   if (! rdr || ! sfc) {
 604     logger->log("BJpeg", Log::ERR, "JPEG error rdr=NULL or sfc=NULL");
 605     return false;
 606   }
 607   logger->log("BJpeg", Log::DEBUG, "draw Jpeg Started sfc=%p, rdr=%p",sfc,rdr);
 608   unsigned char* buffer =NULL;
 609   struct jpeg_decompress_struct cinfo;
 610   struct my_error_mgr jerr;
 611   cinfo.err = jpeg_std_error(&jerr.pub);
 612   jerr.pub.error_exit = my_error_exit;
 613   /* Establish the setjmp return context for my_error_exit to use. */
 614   if (setjmp(jerr.setjmp_buffer)) {
 615     /* If we get here, the JPEG code has signaled an error.
 616      * We need to clean up the JPEG object, close the input file, and return.
 617      */
 618     if (rdr) jpeg_memio_cleanup(&cinfo);
 619     jpeg_destroy_decompress(&cinfo);
 620     logger->log("BJpeg", Log::ERR, "JPEG error");
 621     if (buffer) free(buffer);
 622     return false;
 623   }
 624   jpegUserData userdata;
 625   int xpos=0;
 626   int ypos=0;
 627   jpeg_create_decompress(&cinfo);
 628   userdata.reader=rdr;
 629   userdata.ctl=ctl;
 630   ctl->exifRotation=ROT_0;
 631   ctl->error[0]=0;
 632   ctl->exifDate[0]=0;
 633   //create the input for the jpeg lib
 634   jpeg_memio_src(&cinfo,(void *)(&userdata));
 635   //processor for EXIF data
 636   jpeg_set_marker_processor(&cinfo, JPEG_APP0+1, get_exif_orient);
 637   //read in header info
 638   jpeg_read_header(&cinfo, TRUE);
 639   ctl->picw=cinfo.image_width;
 640   ctl->pich=cinfo.image_height;
 641   ctl->compressedSize=rdr->getSize();
 642   //now we have important info available in ctl (pictuerw,h, exif orientation,size)
 643   //compute rotation due to the defined enum values we can simply add them
 644   ctl->finalRotation=(enum Rotation)((ctl->rotation+ctl->exifRotation)%4);
 645   logger->log("BJpeg", Log::DEBUG, "JPEG read header w=%i h=%i, rot=%i", ctl->picw,ctl->pich,ctl->finalRotation);
 646   //now we have to compute the scale
 647   //input: ctl->picw,ctl->pich,ctl->finalRotation,ctl->mode,ctl->scaleAmount, ctl->scaleafter
 648   //       list of available jpeg scale factors
 649   //out:   scalenum,scaledenom,scaleafter
 650
 651   UINT picturew=ctl->picw;
 652   UINT pictureh=ctl->pich;
 653   switch (ctl->finalRotation){
 654     case ROT_90:
 655     case ROT_270:
 656       pictureh=ctl->picw;
 657       picturew=ctl->pich;
 658       break;
 659     default:
 660       break;
 661   }
 662   UINT scalenum=1;
 663   UINT scaledenom=1;
 664   UINT scaleafter=1;
 665   if (! ctl->enlarge) {
 666     //scale - compute the factors to fit 100%
 667     int scalew=1000*picturew/ctl->area.w;
 668     int scaleh=1000*pictureh/ctl->area.h;
 669     int scale=scaleh;
 670     if (scalew > scaleh) scale=scalew;
 671
 672     //OK now find out which is the optimal setting
 673     //rule: find settings being nearest to:
 674     //   mode=LETTER - smaller or equal screen size (i.e. scale*scalefactor <= 1000)
 675     //   mode=CROP   - bigger or equal screen size (i.e. scale *scalefactor>= 1000)
 676     //   mode=CROPPERCENT - smaller or equal screensize*scaleamount (i.e. scale*scalefactor<= 1000*scaleamount)
 677     //                      scaleamount is in % - so in reality we use scaleamount*10 instead scaleamount*1000
 678     //the scalefactor computes as scalenum/(scaledenom*scaleafter)
 679     scaledenom=8;
 680     int minDiff=1000;
 681     logger->log("BJpeg", Log::DEBUG, "start scaling screenw=%u, screenh=%u, pw=%u,ph=%u, scale=%d, mode=%d, %%=%u, after=%u",
 682        ctl->area.w,ctl->area.h,picturew,pictureh,scale,(int)ctl->mode,ctl->scaleAmount, ctl->scaleafter);
 683     for (UINT j=0;j<sizeof(jpegFactors)/sizeof(jpegFactors[0]);j++) {
 684       for (UINT sa=1;sa<=ctl->scaleafter;sa++) {
 685         int curf=(scale*jpegFactors[j].num)/(jpegFactors[j].denom*sa);
 686         bool setThis=false;
 687         logger->log("BJpeg", Log::DEBUG, "testing scale curf=%d,num=%u,denom=%u,after=%u,minDiff=%d",
 688             curf,jpegFactors[j].num,jpegFactors[j].denom,sa,minDiff);
 689         switch(ctl->mode) {
 690           case CROP:
 691             if (curf >= 1000 && curf < (minDiff +1000)) {
 692               setThis=true;
 693               minDiff=curf-1000;
 694             }
 695             break;
 696           case LETTER:
 697             if (curf <= 1000 && curf > (1000-minDiff)) {
 698               setThis=true;
 699               minDiff=1000-curf;
 700             }
 701             break;
 702           case CROPPERCENT:
 703             if (curf <= 10*(int)ctl->scaleAmount ) {
 704               int abs=curf-1000;
 705               if (abs < 0) abs=-abs;
 706               if (abs < minDiff) {
 707                    setThis=true;
 708                    minDiff=abs;
 709               }
 710             }
 711             break;
 712         }
 713         if (setThis) {
 714           logger->log("BJpeg", Log::DEBUG, "testing scale curf=%d,take this",curf);
 715           scalenum=jpegFactors[j].num;
 716           scaledenom=jpegFactors[j].denom;
 717           scaleafter=sa;
 718         }
 719       }
 720     }
 721     ctl->scale=100*scalenum/(scaledenom*scaleafter);
 722
 723     logger->log("BJpeg", Log::DEBUG, "JPEG scaling found scale=%i num=%i denom=%i after=%i result=%i scale=%i%% ",
 724         scale,scalenum,scaledenom,scaleafter,scale*ctl->scale/100,ctl->scale);
 725
 726     cinfo.scale_denom=scaledenom;
 727     cinfo.scale_num=scalenum;
 728     }
 729   else
 730   {
 731     //set drawing area according to picture
 732     ctl->area.w=ctl->picw;
 733     ctl->area.h=ctl->pich;
 734   }
 735
 736   //now we know the scaling
 737   //compute the scaled size and position
 738
 739   jpeg_start_decompress(&cinfo);
 740   //picturew/h is now the output width from the decompressor and afterscaler
 741   //this is unrotated
 742   picturew=cinfo.output_width;
 743   pictureh=cinfo.output_height;
 744   if (scaleafter > 1) {
 745     picturew=picturew/scaleafter;
 746     pictureh=pictureh/scaleafter;
 747   }
 748   //if our image is smaller - center it
 749   if (! ctl->enlarge) {
 750     if (ctl->finalRotation == ROT_90 || ctl->finalRotation == ROT_270) {
 751       int dim=pictureh;
 752       xpos=(((int)ctl->area.w)-dim)/2;
 753       dim=picturew;
 754       ypos=(((int)ctl->area.h)-dim)/2;
 755     } else {
 756       int dim=picturew;
 757       xpos=(((int)ctl->area.w)-dim)/2;
 758       dim=pictureh;
 759       ypos=(((int)ctl->area.h)-dim)/2;
 760     }
 761     if (xpos <0) xpos=0;
 762     if (ypos <0) ypos=0;
 763   }
 764   xpos+=ctl->area.x;
 765   ypos+=ctl->area.y;
 766   //remember the jpeg dimensions for computing the buffer
 767   UINT jpegwidth=cinfo.output_width;
 768   UINT jpegheight=cinfo.output_height;
 769   logger->log("BJpeg", Log::DEBUG, "JPEG startup done pw=%i ph=%i, xo=%i,yo=%i, jw=%i, jh=%i, rot=%d",
 770       picturew, pictureh,xpos,ypos,jpegwidth,jpegheight,(int)ctl->finalRotation*90);
 771
 772   //fill the background
 773   sfc->fillblt(ctl->area.x,ctl->area.y,ctl->area.w,ctl->area.h,backgroundColour.rgba());
 774
 775   //line len in bytes (3 bytes per Pixel) - for buffer (can be bigger then surface)
 776   int linelen=jpegwidth*3;
 777 #ifdef USE_BUFFER
 778   // MAKE THE 2D ARRAY
 779   buffer = (unsigned char*)malloc(jpegheight * linelen);
 780   logger->log("BJpeg", Log::DEBUG, "Buffer allocated at %p, lines = %i linelen = %i", buffer, jpegheight, linelen);
 781   if (buffer == NULL) {
 782     if (rdr) jpeg_memio_cleanup(&cinfo);
 783     jpeg_destroy_decompress(&cinfo);
 784     logger->log("BJpeg", Log::ERR, "JPEG error - no room for buffer");
 785     SNPRINTF(ctl->error,100,"no room for buffer");
 786     return false;
 787   }
 788 #endif
 789
 790 #ifndef USE_BUFFER
 791   //unsigned char lbuf[linelen];
 792   unsigned char *lbuf=new unsigned char[linelen*scaleafter];
 793   unsigned char * ptr=lbuf;
 794   UINT outy=0;
 795 #else
 796   unsigned char * ptr=buffer;
 797 #endif
 798
 799   int rowsread = 0;
 800
 801   Colour c;
 802   sfc->startFastDraw();//Tell the surface, that we will draw a lot of pixel,
 803   //so that performance, can be optimized
 804   logger->log("BJpeg", Log::DEBUG, "start drawing ");
 805   UINT colincr=0;
 806   //factors to base 1024
 807   UINT fac=1024;
 808   if (scaleafter > 1) {
 809      colincr=3*scaleafter-3;
 810      fac=1024/(scaleafter*scaleafter);
 811      }
 812   logger->log("BJpeg", Log::DEBUG, "jpeg  draw scale %d image: %u %u, picture: %u %u", scaleafter,picturew,pictureh,jpegwidth,jpegheight);
 813   while (cinfo.output_scanline < jpegheight)
 814   {
 815 //  logger->log("BJpeg", Log::DEBUG, "%i", rowsread);
 816     rowsread += jpeg_read_scanlines(&cinfo,&ptr,1);
 817 #ifdef USE_BUFFER
 818     ptr+=linelen;
 819 #else
 820     if (scaleafter > 1) {
 821       if (rowsread % scaleafter != scaleafter-1) {
 822         //this simple approach wold maybe forget scaleafter -1 lines at the end...
 823         ptr+=linelen;
 824         continue;
 825       }
 826       ptr=lbuf;
 827     }
 828     drawLine(sfc,ctl->finalRotation,ptr,scaleafter,picturew,pictureh,xpos,ypos,outy,linelen,colincr,scaleafter,fac);
 829     outy++;
 830
 831 #endif
 832   }
 833   sfc->endFastDraw();
 834
 835   logger->log("BJpeg", Log::DEBUG, "Done all jpeg_read");
 836
 837   jpeg_finish_decompress(&cinfo);
 838   jpeg_memio_cleanup(&cinfo);
 839   jpeg_destroy_decompress(&cinfo);
 840
 841   logger->log("BJpeg", Log::DEBUG, "jpeg shutdown done");
 842   rdr->drawingDone();
 843
 844 #ifdef USE_BUFFER
 845   UINT y;
 846   //Tell the surface, that we will draw a lot of pixel,
 847   //so that performance, can be optimized
 848   sfc->startFastDraw();
 849   logger->log("BJpeg", Log::DEBUG, "jpeg start buffer draw" );
 850   unsigned char* p=buffer; //start of first row
 851   UINT rowincr=linelen*scaleafter;
 852   //for simplicity omit last line to avoid running out of buffer
 853   for (y = 0; y < pictureh-1 ;y++)
 854   {
 855     drawLine(sfc,ctl->finalRotation,p,scaleafter,picturew,pictureh,xpos,ypos,y,linelen,colincr,scaleafter,fac);
 856     p+=rowincr;
 857   }
 858   sfc->endFastDraw();
 859   logger->log("BJpeg", Log::DEBUG, "end draw");
 860   free(buffer);
 861 #else
 862   delete[] lbuf;
 863 #endif
 864   logger->log("BJpeg", Log::DEBUG, "deleted buffer");
 865   return true;
 866 }
 867
 868 //get my own surface
 869 Surface * WJpeg::getSurface(Region & r) {
 870   r.x=getRootBoxOffsetX();
 871   r.y=getRootBoxOffsetY();
 872   r.w=area.w;
 873   r.h=area.h;
 874   return Boxx::getSurface();
 875 }
 876
 877