//*******************************************************************
//
// License:  See top level LICENSE.txt file.
//
// Author:  David Burken
//
//*******************************************************************
//  $Id: ossimJpegWriter.cpp 22673 2014-03-13 21:42:34Z dburken $

#include <cstdlib>
#include <cstdio>

//---
// Using windows .NET compiler there is a conflict in the libjpeg with INT32
// in the file jmorecfg.h.  Defining XMD_H fixes this.
extern "C"
{
#if defined(_MSC_VER) || defined(__MINGW32__)
#  ifndef XMD_H
#    define XMD_H
#  endif
#endif
#include <jpeglib.h>
}

#include <ossim/imaging/ossimJpegWriter.h>
#include <ossim/base/ossimKeywordNames.h>
#include <ossim/base/ossimTrace.h>
#include <ossim/base/ossimDpt.h>
#include <ossim/base/ossimKeywordlist.h>
#include <ossim/base/ossimScalarTypeLut.h>
#include <ossim/base/ossimNumericProperty.h>
#include <ossim/projection/ossimMapProjection.h>
#include <ossim/imaging/ossimImageData.h>
#include <ossim/imaging/ossimImageSource.h>
#include <ossim/imaging/ossimScalarRemapper.h>

using namespace std;

RTTI_DEF1_INST(ossimJpegWriter, "ossimJpegWriter", ossimImageFileWriter)

static const char DEFAULT_FILE_NAME[] = "output.jpg";
static const ossim_int32 DEFAULT_JPEG_QUALITY = 100;
static ossimTrace traceDebug("ossimJpegWriter:debug");

ossimJpegWriter::ossimJpegWriter()
   : ossimImageFileWriter(),
     theQuality(DEFAULT_JPEG_QUALITY),
     theOutputFilePtr(NULL)
{
   // Since there is no internal geometry set the flag to write out one.
   setWriteExternalGeometryFlag(true);
}

ossimJpegWriter::~ossimJpegWriter()
{
   close();
}

bool ossimJpegWriter::writeFile()
{
   static const char MODULE[] = "ossimJpegWriter::writeFile";
   
   if( !theInputConnection || (getErrorStatus() != ossimErrorCodes::OSSIM_OK))
   {
      return false;
   }
   
   bool bandsDontMatch = false;
   // Get the number of bands.  Must be one or three for this writer.
   ossim_int32 components   = theInputConnection->getNumberOfOutputBands();
   ossim_int32 outputComponents = components;
   if (components != 1 && components != 3)
   {
      bandsDontMatch = true;
      if(components < 3)
      {
         outputComponents = 1;
      }
      else if(components > 3)
      {
         outputComponents = 3;
      }
   }
   
   if(theInputConnection->isMaster())
   {
      if (!isOpen())
      {
         open();
      }
      
      if (!theOutputFilePtr)
      {
         ossimNotify(ossimNotifyLevel_WARN)
            << MODULE << " ERROR:"
            << "\nCannot open:  " << theFilename.c_str()
            << "\nReturning from method." << endl;
         
         return false;
      }
   }
   ossimRefPtr<ossimImageSource> savedInput = 0;
   
   if(theInputConnection->getOutputScalarType() != OSSIM_UINT8)
   {  
      savedInput = new ossimScalarRemapper();

      // Connect scalar remapper to sequencer input.
      savedInput->connectMyInputTo(0, theInputConnection->getInput(0));

      // Connect sequencer to the scalar remapper.
      theInputConnection->connectMyInputTo(0, savedInput.get());
      theInputConnection->initialize();
   }
   
   if(theInputConnection->isMaster())
   {
      if (traceDebug())
      {
         CLOG << " DEBUG:"
              << "\nOutput Rect:  " << theAreaOfInterest << endl;
      }
      
      ossim_int32 image_height
         = theAreaOfInterest.lr().y - theAreaOfInterest.ul().y + 1;
      ossim_int32 image_width
         = theAreaOfInterest.lr().x - theAreaOfInterest.ul().x + 1;
      ossim_int32 tileWidth    = theInputConnection->getTileWidth();
      ossim_int32 tileHeight   = theInputConnection->getTileHeight();
      
      // Allocate a buffer to hold a row of tiles.
      ossim_uint32 buf_size   = tileHeight*image_width*outputComponents;
      if (traceDebug())
      {
         CLOG << "DEBUG:"
              << "\nbuf_size:  " << buf_size
              << endl;
      }
      
      std::vector<ossim_uint8> buf(buf_size);
      ossimRefPtr<ossimImageData> blankTile =
         new ossimImageData(NULL,
                            OSSIM_UINT8,
                            outputComponents,
                            tileWidth,
                            tileHeight);
      ossimRefPtr<ossimImageData> tempTile;
      std::vector<ossim_uint8> tempBuf;
      if(bandsDontMatch)
      {
         tempTile = new ossimImageData(NULL,
                                       OSSIM_UINT8,
                                       outputComponents,
                                       tileWidth,
                                       tileHeight);
         tempTile->initialize();
      }
      blankTile->initialize();
      //
      // Stuff needed for the jpeg library.
      // Taken from "example.c" file of the "jpeg-6b" package.
      //
      struct jpeg_compress_struct cinfo;
      struct jpeg_error_mgr jerr;
      JSAMPROW row_pointer[1];  // pointer to JSAMPLE row[s]
      
      // physical row width in image buffer
      int row_stride = image_width * outputComponents;
      
      cinfo.err = jpeg_std_error(&jerr);
      jpeg_create_compress(&cinfo);
      jpeg_stdio_dest(&cinfo, theOutputFilePtr);
      cinfo.image_width = image_width;   // image width and height, in pixels
      cinfo.image_height = image_height;
      cinfo.input_components = outputComponents; // # of color components per pixel
      
      // colorspace of input image 
      if (outputComponents == 3)
      {
         cinfo.in_color_space = JCS_RGB;
      }
      else
      {
         cinfo.in_color_space = JCS_GRAYSCALE;
      }

      jpeg_set_defaults(&cinfo);
      jpeg_set_quality(&cinfo, theQuality, TRUE); //limit to baseline-JPEG values 
      jpeg_start_compress(&cinfo, TRUE);
      
      theInputConnection->setAreaOfInterest(theAreaOfInterest);
      theInputConnection->setToStartOfSequence();
      ossim_uint32 maxY = theInputConnection->getNumberOfTilesVertical();
      ossim_uint32 maxX = theInputConnection->getNumberOfTilesHorizontal();
      
      double tileCount = 0.0;
      double totalTiles = theInputConnection->getNumberOfTiles();
      //
      // Ok the jpeg stuff should be set.  Loop through and grab a row of tiles
      // and copy to the buffer.  Then write the buffer to the jpeg file.
      // Get the next row... until finished.
      //
      for (ossim_uint32 i=0; ((i<maxY) && (!needsAborting())); ++i)
      {
         ossimIrect buf_rect = theAreaOfInterest;
         buf_rect.set_uly(theAreaOfInterest.ul().y+i*tileHeight);
         buf_rect.set_lry(buf_rect.ul().y + tileHeight - 1);
         
         for (ossim_uint32 j=0; ((j<maxX)&& (!needsAborting())); ++j)
         {
            // Grab the tile.
            const ossimRefPtr<ossimImageData> t =
               theInputConnection->getNextTile();
            
            if ( t.valid() )
            {
               if (t->getDataObjectStatus() != OSSIM_NULL)
               {
                  if(bandsDontMatch)
                  {
                     tempTile->setImageRectangle(t->getImageRectangle());
                     tempTile->setDataObjectStatus(t->getDataObjectStatus());
                     memcpy(tempTile->getBuf(), 
                            t->getBuf(),  
                            t->getSizePerBandInBytes()*outputComponents);
                     tempTile->unloadTile(&buf.front(), buf_rect, OSSIM_BIP);
                  }
                  else
                  {
                     // Copy the tile to the buffer.
                     t->unloadTile(&buf.front(), buf_rect, OSSIM_BIP);
                  }
               }
               else
               {
                  blankTile->setOrigin(t->getOrigin());
                  if(bandsDontMatch)
                  {
                     tempTile->setImageRectangle(blankTile->getImageRectangle());
                     tempTile->setDataObjectStatus(t->getDataObjectStatus());
                     memcpy(tempTile->getBuf(), t->getBuf(),  t->getSizePerBandInBytes()*outputComponents);
                     blankTile->unloadTile(&buf.front(), buf_rect, OSSIM_BIP);
                  }
                  else
                  {
                     // Copy the tile to the buffer.
                     blankTile->unloadTile(&buf.front(), buf_rect, OSSIM_BIP);
                  }
               }
            }
            ++tileCount;
            setPercentComplete((100.0*(tileCount/totalTiles)));
            
         }  // End of loop through tiles in the x direction.
         
         // Copy the buffer to the jpeg file.
         ossim_int32 lines_to_copy =
            min( (buf_rect.lr().y-buf_rect.ul().y+1),
                 (theAreaOfInterest.lr().y-buf_rect.ul().y+1) );
         
         if (traceDebug())
         {
            ossimNotify(ossimNotifyLevel_DEBUG)
               << MODULE
               << "buf_rect:       " << buf_rect
               << "lines_to_copy:  " << lines_to_copy << endl;
         }
         
         if(!needsAborting())
         {
            // Now copy the buffer that should be full to the jpeg file.
            ossim_int32 buf_offset = 0;
            for (ossim_int32 line=0; line<lines_to_copy; ++line)
            {
               row_pointer[0] = &buf[buf_offset];
               jpeg_write_scanlines(&cinfo, row_pointer, 1);
               buf_offset += row_stride;
            }
         }
         
      } // End of loop through tiles in the y direction.
      
      // Free memory.
      if(!needsAborting())
      {
         jpeg_finish_compress(&cinfo);
      }
      
      fclose(theOutputFilePtr);
      theOutputFilePtr = NULL;
      
      jpeg_destroy_compress(&cinfo);
   }
   else
   {
      theInputConnection->slaveProcessTiles();
   }
   
   // Reset the connection if needed.
   if(savedInput.valid())
   {
      ossimConnectableObject* obj = theInputConnection->getInput(0);
      if(obj)
      {
         theInputConnection->connectMyInputTo(0, obj->getInput(0));
      }
      savedInput = 0; 
   }
   return true;
}

bool ossimJpegWriter::saveState(ossimKeywordlist& kwl,
                                const char* prefix)const
{
   kwl.add( prefix,
            ossimKeywordNames::COMPRESSION_QUALITY_KW,
            theQuality,
            true );
   return ossimImageFileWriter::saveState(kwl, prefix);
}

bool ossimJpegWriter::loadState(const ossimKeywordlist& kwl,
                                const char* prefix)
{
   const char* value =
      kwl.find(prefix, ossimKeywordNames::COMPRESSION_QUALITY_KW);
   if(value)
   {
      setQuality(atoi(value));
   }
   
   theOutputImageType = "jpeg";
   
   return ossimImageFileWriter::loadState(kwl, prefix);
}

void ossimJpegWriter::setQuality(ossim_int32 quality)
{
   static const char MODULE[] = "ossimJpegWriter::setQuality";
   
   // Range 1 to 100 with 100 being best.
   if (quality > 0 && quality < 101)
   {
      theQuality = quality;
   }
   else
   {
      if (traceDebug())
      {
         ossimNotify(ossimNotifyLevel_DEBUG)
            << MODULE << " DEBUG:"
            << "\nquality out of range:  " << quality
            << "\nquality has been set to default:  " 
            << DEFAULT_JPEG_QUALITY
            << "\nvalid range:  1 to 100 with 100 being best."
            << endl;
      }
      
      theQuality = DEFAULT_JPEG_QUALITY;
   }

   if (traceDebug())
   {
      ossimNotify(ossimNotifyLevel_DEBUG)
         << MODULE << " DEBUG:"
         << "\nQuality set to:  "
         << theQuality << endl;
   }
}

bool ossimJpegWriter::isOpen() const
{
   return (theOutputFilePtr!=NULL);
}

bool ossimJpegWriter::open()
{
   close();

   // Check for empty filenames.
   if (theFilename.empty())
   {
      return false;
   }
   
   theOutputFilePtr = fopen(theFilename.c_str(), "wb");
   if(theOutputFilePtr)
   {
      return true;
   }
   return false;
}

void ossimJpegWriter::close()
{
   if(theOutputFilePtr)
   {
      fclose(theOutputFilePtr);
      theOutputFilePtr = NULL;
   }
}

void ossimJpegWriter::getImageTypeList(std::vector<ossimString>& imageTypeList)const
{
   imageTypeList.push_back(ossimString("jpeg"));
}

ossimString ossimJpegWriter::getExtension() const
{
   return ossimString("jpg");
}

bool ossimJpegWriter::hasImageType(const ossimString& imageType) const
{
   if((imageType == "image/jpeg")||
      (imageType == "image/jpg"))
   {
      return true;
   }

   return ossimImageFileWriter::hasImageType(imageType);
}

void ossimJpegWriter::setProperty(ossimRefPtr<ossimProperty> property)
{
   if ( property.valid() )
   {
      if(property->getName() == ossimKeywordNames::COMPRESSION_QUALITY_KW)
      {
         ossimString stringValue;
         property->valueToString(stringValue);
         setQuality( stringValue.toInt32() );
      }
      else
      {
         ossimImageFileWriter::setProperty(property);
      }
   }
}

ossimRefPtr<ossimProperty> ossimJpegWriter::getProperty(const ossimString& name)const
{
   if (name == ossimKeywordNames::COMPRESSION_QUALITY_KW)
   {
      ossimNumericProperty* prop =
         new ossimNumericProperty(name,
                                  ossimString::toString(theQuality),
                                  1.0,
                                  100.0);
      prop->setNumericType(ossimNumericProperty::ossimNumericPropertyType_INT);
      return prop;
   }

   return ossimImageFileWriter::getProperty(name);
}

void ossimJpegWriter::getPropertyNames(std::vector<ossimString>& propertyNames)const
{
   ossimString name = ossimKeywordNames::COMPRESSION_QUALITY_KW;
   propertyNames.push_back(name);
   
   ossimImageFileWriter::getPropertyNames(propertyNames);
}
