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