/**
 * @module CPixmap
 * @author Guenther Neuwirth (0626638), Manuel Mausz (0728348)
 * @brief  Implementation of CFile handling Windows Bitmaps.
 * @date   27.04.2009
 */

#include <boost/lexical_cast.hpp>
#include <boost/numeric/conversion/cast.hpp>

#ifdef DEBUG
# include <iostream>
#endif
#include <cstdlib>
#include <stdint.h>
# include <string>
# include <map>



#include "cpixmap.h"
#include "cpixelformat_indexed8.h"

using namespace std;

CPixmap::CPixmap()
{
  m_types.insert("XPM");

  /* add our handlers */
  m_handlers.insert(new CPixelFormat_Indexed8(this));
}

/*----------------------------------------------------------------------------*/

void CPixmap::read(std::ifstream& in)
{

  string str;
  m_fileheader._XPMEXT = false;
  m_fileheader._HOTSPOT = false;

  /* parse the values section */
  getline( in, str, '"');
  getline( in, str, '"');
  stringstream istr (str );

  istr >> m_fileheader.xpmWidth ;
  istr >> m_fileheader.xpmHeight ;
  istr >> m_fileheader.nColor ;
  istr >> m_fileheader.nChar ;

  /*optional values */
  if  (istr.good())
  {
    string tmp;
    istr >> tmp;
    if(tmp.compare("XPMEXT") == 0)
      m_fileheader._XPMEXT = true;
    else
    {
      m_fileheader._HOTSPOT = true;
      m_fileheader.xHotspot = static_cast<unsigned int>(strtoul(tmp.c_str(), NULL, 16));
      istr >> m_fileheader.yHotspot;
    }
    if (istr.good())
    {
      istr >> tmp;
      if (tmp.compare("XPMEXT") == 0)
        m_fileheader._XPMEXT = true;
    }
  }



  /* parse color table*/
  getline( in, str, '"');
  string character, mode, colors;
  for (unsigned int i = 0; i < m_fileheader.nColor; i++ )
  {
    getline( in, str, '"' );
    stringstream istr2 (str );

    istr2 >> character;
    istr2 >> mode;
    istr2 >> colors;

    if ( colors.size() != 7)
      throw FileError("Pixmap color tabel is invalid.");
    if ( colors.at(0) != '#') 
      throw FileError("Pixmap color tabel value is not hexadecimal.");

    xpmColors[character][mode] = new (nothrow) unsigned int[3];
    if (xpmColors[character][mode] == 0)
       throw FileError("Bad color table allocation.");
       
    xpmColors[character][mode][0] = 
      static_cast<unsigned int>(strtoul(colors.substr(1,2).c_str(), NULL, 16));
    xpmColors[character][mode][1] =   
      static_cast<unsigned int>(strtoul(colors.substr(3,2).c_str(), NULL, 16));
    xpmColors[character][mode][2] = 
      static_cast<unsigned int>(strtoul(colors.substr(5,2).c_str(), NULL, 16));
    
  
   
   

    
    getline( in, str, '"' );
  }
  
  /* read pixel data using separate class */
  if (getPixelDataSize() > 0)
  {
    if (m_pixeldata != NULL)
      delete[] m_pixeldata;
    m_pixeldata = new uint8_t[getPixelDataSize()];
  
    for (unsigned int y = 0; y <  getHeight(); y++ )
    {
      for (unsigned int x = 0; x <  getWidth(); x++ )
        m_pixeldata[y * getWidth() + x] = static_cast<uint8_t>(in.get());

      getline( in, str);
      if ( y  != ( getHeight() - 1 ))
        in.get();
    
    }
  }

  /* parse extension */
  if ( m_fileheader._XPMEXT  )
    getline( in, m_fileheader.extension, '}' );
  /* debug*/
  CPixmap::dump (cout);
   
  /* get pixelformat instance */
  m_pixelformat = NULL;
  set<CPixelFormat *>::iterator it;
  for (it = m_handlers.begin(); it != m_handlers.end(); it++)
  {
    /* check color mode */
    //TODO if (mode.compare((*it)->getColorMode()) == 0)
    if (mode == "c")
    {
      m_pixelformat = *it;
      break;
    }
  }
  if (m_pixelformat == NULL)
    throw FileError("Pixmap color mode \""+mode+"\" is not supported.");
}

/*----------------------------------------------------------------------------*/

void CPixmap::write(std::ofstream& out, std::string& filename)
{

  /* header comment */
  out<<"/* XPM */"<<endl;
 
  /* variables*/
  out<<"static char * "
      <<filename.substr(filename.find_last_of("/\\") + 1, filename.size())
      <<"[] = {"<<endl;
  out<<"\""<<m_fileheader.xpmWidth<<" "<<m_fileheader.xpmHeight
        <<" "<<m_fileheader.nColor<<" "<<m_fileheader.nChar;
 
   /*optional values*/
  if( m_fileheader._HOTSPOT )
    out<<" "<<m_fileheader.xHotspot<<" "<<m_fileheader.yHotspot;
  if( m_fileheader._XPMEXT )
    out<<" "<<"XPMEXT";
  out <<"\","<<endl;

 /* color table */
  map<string, map<string,  uint32_t* > >::iterator it1;
  map<string, uint32_t* >::iterator it2;

  for ( it1= xpmColors.begin() ; it1 != xpmColors.end(); it1++ )
 {
    out << "\""<<(*it1).first;
    for ( it2=(*it1).second.begin() ; it2 != (*it1).second.end(); it2++ )
    {
      
      out<<"\t" <<(*it2).first<<"\t#";
      
      for (int i = 0 ; i < 3; i++ )
      {
        out.width(2);
        out << hex <<uppercase<<(*it2).second[i];
        out.fill('0');
      }
    }
    out<<"\","<<endl;
  }
  
  /* pixel data */
  for (unsigned int y = 0; y <  getHeight(); y++ ){
  out <<"\"";
    for (unsigned int x = 0; x <  getWidth(); x++ )
      out << m_pixeldata[y * getWidth() + x];
    out <<"\"";
    if ( y  != ( getHeight() - 1 ))
      out <<",";
     out <<endl;
  }
  
 /* extension */ 
  if (m_fileheader._XPMEXT)
    out << m_fileheader.extension;
    
  out <<"};";

}


/*----------------------------------------------------------------------------*/

#ifdef DEBUG
void CPixmap::dump(std::ostream& out)
{

  /* pixeldata */ 
  cout<<endl<<"(_Pixel data:_)"<<endl;
  for (unsigned int y = 0; y <  getHeight(); y++ ){
    for (unsigned int x = 0; x <  getWidth(); x++ )
      out << m_pixeldata[y * getWidth() + x];
    out << endl;
  }
  
  /* values*/
  cout<<endl<<"(_Values:_)"<<endl;
  out << "XPM  Header:" << endl
    << "xpmWidth="  << m_fileheader.xpmWidth<< endl
    << "xpmHeight=" << m_fileheader.xpmHeight<< endl
    << "nColor=" << m_fileheader.nColor<< endl
    << "nChar=" << m_fileheader.nChar<< endl
    << "Hotspot=" << m_fileheader.xHotspot<< endl
     << "yHotspot=" << m_fileheader.yHotspot<< endl
     << "_HOTSPOT=" << m_fileheader._HOTSPOT<< endl
    << "_XPMEXT=" << m_fileheader._XPMEXT<< endl
     << "extension=" << m_fileheader.extension<< endl
    << endl;

  /* colors*/
  map<string, map<string,  uint32_t* > >::iterator it1;
  map<string, uint32_t* >::iterator it2;
  cout<<"(_Color table:_)"<<endl;
  for ( it1= xpmColors.begin() ; it1 != xpmColors.end(); it1++ )
 {
    out << (*it1).first;
    for ( it2=(*it1).second.begin() ; it2 != (*it1).second.end(); it2++ )
    {
      out <<" "<< (*it2).first <<" ";
      for (int i = 0 ; i < 3; i++ )
      {
        out.width(3);
        out << (*it2).second[i]<<" ";
        out.fill('0');
      }
      out<<endl;
    }
  }
  
}
#endif

/* vim: set et sw=2 ts=2: */