/* This file is part of the KDE project
   Copyright (C) 1998, 1999 Torben Weis <weis@kde.org>
 
   This library is free software; you can redistribute it and/or
   modify it under the terms of the GNU Library General Public
   License as published by the Free Software Foundation; either
   version 2 of the License, or (at your option) any later version.
 
   This library is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
   Library General Public License for more details.
 
   You should have received a copy of the GNU Library General Public License
   along with this library; see the file COPYING.LIB.  If not, write to
   the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.
*/     

#include <fstream>
#include <strstream>

#include "koDocument.h"
#include "koIMR.h"
#include "koStream.h"

#include <komlWriter.h>
#include <komlMime.h>
#include <komlStreamFeed.h>

#include <k2url.h>
#include <klocale.h>
#include <kapp.h>

#include <qmsgbox.h>
#include <qpainter.h>
#include <qcolor.h>
#include <qpicture.h>

/**********************************************************
 *
 * KoDocumentChildPicture
 *
 **********************************************************/

KoDocumentChildPicture::KoDocumentChildPicture( KoDocumentChild *_child )
{
  m_pChild = _child;
}

KoDocumentChildPicture::~KoDocumentChildPicture()
{
}

/**********************************************************
 *
 * KoDocumentChild
 *
 **********************************************************/

KoDocumentChild::KoDocumentChild( const QRect& _rect, KOffice::Document_ptr _doc )
{
  m_rDoc = KOffice::Document::_duplicate( _doc );
  CORBA::String_var m = m_rDoc->mimeType();
  m_strMimeType = m.in();
  m_geometry = _rect;
  m_pPicture = 0L;
  m_bHasPrintingExtension = false;
}

KoDocumentChild::KoDocumentChild()
{
  m_rDoc = 0L;
  m_pPicture = 0L;
  m_bHasPrintingExtension = false;
}

void KoDocumentChild::setGeometry( const QRect& _rect )
{
  m_geometry = _rect;
  if ( m_pPicture )
  {
    delete m_pPicture;
    m_pPicture = 0L;
  }
}

KOffice::View_ptr KoDocumentChild::createView( KOffice::MainWindow_ptr _main )
{
  KOffice::View_var v;

  try
  { 
    // We make an upcast here. This will ALWAYS succeed
    OpenParts::View_var d = m_rDoc->createView();
    if ( CORBA::is_nil( d ) )
      return 0L;
    v = KOffice::View::_narrow( d );
    if( CORBA::is_nil( v ) )
    {
      cerr << "Shit! We did not get a view!!!" << endl;
      exit(1);
    }
  }
  catch ( OpenParts::Document::MultipleViewsNotSupported &_ex )
  {
    // HACK
    cerr << "void KSpreadView::slotInsertObject( const QRect& _rect, OPParts::Document_ptr _doc )" << endl;
    cerr << "Could not create view" << endl;
    return 0L;
  }

  if ( CORBA::is_nil( v ) )
  {
    cerr << "void KSpreadView::slotInsertObject( const QRect& _rect, OPParts::Document_ptr _doc )" << endl;
    cerr << "return value is 0L" << endl;
    return 0L;
  }

  v->setMode( KOffice::View::ChildMode );
  v->setMainWindow( _main );

  return KOffice::View::_duplicate( v );
} 

bool KoDocumentChild::load( KOMLParser& parser, vector<KOMLAttrib>& _attribs )
{
  vector<KOMLAttrib>::const_iterator it = _attribs.begin();
  for( ; it != _attribs.end(); it++ )
  {
    if ( (*it).m_strName == "url" )
    {
      m_strURL = (*it).m_strValue.c_str();
    }
    else if ( (*it).m_strName == "mime" )
    {
      m_strMimeType = (*it).m_strValue.c_str();
    }
    else
      cerr << "Unknown attrib 'OBJECT:" << (*it).m_strName << "'" << endl;
  }

  if ( m_strURL.isEmpty() )
  {
    cerr << "Empty 'id' attribute in OBJECT" << endl;
    return false;
  }
  else if ( m_strMimeType.isEmpty() )
  {
    cerr << "Empty mime attribute in OBJECT" << endl;
    return false;
  }
  
  string tag;
  vector<KOMLAttrib> lst;
  string name;
  
  bool brect = false;
  
  // RECT
  while( parser.open( 0L, tag ) )
  {
    KOMLParser::parseTag( tag.c_str(), name, lst );

    if ( name == "RECT" )
    {
      brect = true;
      m_geometry = tagToRect( lst );
    }
    else
      cerr << "Unknown tag '" << tag << "' in OBJECT" << endl;

    if ( !parser.close( tag ) )
    {
      cerr << "ERR: Closing Child in OBJECT" << endl;
      return false;
    }
  }

  if ( !brect )
  {
    cerr << "Missing RECT in OBJECT" << endl;
    return false;
  }
  
  return true;
}

bool KoDocumentChild::loadDocument( KOStore::Store_ptr _store, const char *_format )
{
  assert( !m_strURL.isEmpty() );

  cout << "Trying to load " << m_strURL << endl;
  K2URL u( m_strURL.data() );
  if ( strcmp( u.protocol(), "store" ) != 0 )
  {
    m_rDoc = imr_createDocByMimeType( m_strMimeType );
    if ( CORBA::is_nil( m_rDoc ) )
    {
      cerr << "ERROR: Could not create child document" << endl;
      return false;
    }
    return m_rDoc->loadFromURL( m_strURL, _format );
  }

  m_rDoc = imr_createDocByMimeType( m_strMimeType );
  if ( CORBA::is_nil( m_rDoc ) )
  {
    cerr << "ERROR: Could not create child document with mime type " << m_strMimeType << endl;
    return false;
  }

  return m_rDoc->loadFromStore( _store, m_strURL );
}
 
bool KoDocumentChild::save( ostream& out )
{
  CORBA::String_var u = m_rDoc->url();
  CORBA::String_var mime = m_rDoc->mimeType();
  
  out << indent << "<OBJECT url=\"" << u << "\" mime=\"" << mime << "\">"
      << m_geometry << "</OBJECT>" << endl;

  return true;
}

bool KoDocumentChild::isStoredExtern()
{
  CORBA::String_var url = m_rDoc->url();
  string s = url.in();
  if ( s.empty() )
    return false;
  K2URL u( s.c_str() );
  if ( strcmp( u.protocol(), "store" ) == 0 )
    return false;

  return true;
}

QPicture* KoDocumentChild::draw( float _scale, bool _force_update )
{
  cout << "QPicture* KoDocumentChild::draw( bool _force )" << endl;
  
  // No support for printing extension? => return white plane
  if ( m_pPicture != 0L && !m_bHasPrintingExtension )
    return m_pPicture;

  if ( m_pPicture != 0L && m_pictureScale == _scale && !_force_update )
    return m_pPicture;
  
  cout << "Trying to fetch the QPicture stuff" << endl;
  
  CORBA::Object_var obj = m_rDoc->getInterface( "IDL:KOffice/Print:1.0" );
  if ( CORBA::is_nil( obj ) )
  {
    if ( m_pPicture == 0L )
      m_pPicture = new QPicture;
    m_pictureScale = _scale;
    
    // Draw a white area instead
    cout << "KOffice::Print not supported" << endl;
    QPainter painter;
    painter.begin( m_pPicture );
    
    painter.fillRect( 0, 0, m_geometry.width(), m_geometry.height(), white );
    painter.end();
    return m_pPicture;
  }

  KOffice::Print_var print = KOffice::Print::_narrow( m_rDoc );
  if ( CORBA::is_nil( print ) )
  {
    if ( m_pPicture == 0L )
      m_pPicture = new QPicture;
    m_pictureScale = _scale;
    
    // Draw a white area instead
    cerr << "ERROR: Could not narrow to OPParts::Print" << endl;
    QPainter painter;
    painter.begin( m_pPicture );
    
    painter.fillRect( 0, 0, m_geometry.width(), m_geometry.height(), white );
    painter.end();
    return m_pPicture;
  }
  
  cout << "Fetching data" << endl;
  CORBA::String_var str( print->encodedMetaFile( m_geometry.width(), m_geometry.height(),
						 _scale ) );
  cout << "Fetched data" << endl;
  
  int inlen = strlen( str );

  if ( inlen % 4 != 0 )
  {
    cerr << "ERROR: len of BASE64 not devideable by 4" << endl;

    if ( m_pPicture == 0L )
      m_pPicture = new QPicture;
    m_pictureScale = _scale;
    
    QPainter painter;
    painter.begin( m_pPicture );
    
    painter.fillRect( 0, 0, m_geometry.width(), m_geometry.height(), white );
    painter.end();

    return m_pPicture;
  }

  cout << "Base64 bytes are " << inlen << endl;
  
  Base64 b;
  char *p = new char[ inlen * 3 / 4 + 10 ];
  const char *src = static_cast<const char*>(str);
  int anz = inlen / 4;
  int got = 0;
  for( int i = 0; i < anz; i++ )
  {
    got += b.decode( p + got, src[ 0 ], src[ 1 ], src[ 2 ], src[ 3 ] );
    src += 4;
  }
  
  cout << "GOT " << got << " bytes" << endl;

  m_bHasPrintingExtension = true;

  if ( m_pPicture == 0L )
    m_pPicture = new QPicture;
  m_pictureScale = _scale;
  
  m_pPicture->setData( p, got );
  delete p;
  
  return m_pPicture;
}

KoDocumentChild::~KoDocumentChild()
{
  m_rDoc = 0L;
}

/**********************************************************
 *
 * KoDocument
 *
 **********************************************************/

KoDocument::KoDocument()
{
  ADD_INTERFACE( "IDL:KOffice/Document:1.0" );
}

void KoDocument::cleanUp()
{
  if ( m_bIsClean )
    return;
  
  m_lstAllChildren.clear();
  
  OPDocumentIf::cleanUp();
}

void KoDocument::makeChildList( KOffice::Document_ptr _root, const char *_url )
{
  bool is_embedded = true;
  // Is this document stored extern ?
  if ( !m_strURL.isEmpty() )
  {
    K2URL u( m_strURL );
    // Do we already use the "store" protocol ?
    if ( !u.isMalformed() && strcmp( u.protocol(), "store" ) != 0L )
      // No "store" protocol, so we are saved externally
      is_embedded = false;
  }
  
  // If not stored extern, we want to embed it and take the suggested name.
  if ( is_embedded )
    setURL( _url );

  // Tell our parent about us and our decision regarding the URL
  _root->addToChildList( this, _url );
  // Proceed with our children
  makeChildListIntern( _root, _url );
}

void KoDocument::makeChildListIntern( KOffice::Document_ptr /* root */, const char * /* _id */)
{
  // Lets assume that we do not have children
  cerr << "void Document_impl::makeChildListIntern( OPParts::Document_ptr _root, const char *_id )" << endl;
  cerr << "Not implemented ( not really an error )" << endl;
}

void KoDocument::makeChildListIntern()
{
  m_lstAllChildren.clear();
  
  makeChildListIntern( this, "store:" );
}

void KoDocument::addToChildList( KOffice::Document_ptr _child, const char *_url )
{
  m_lstAllChildren.push_back( KoDocument::SimpleDocumentChild( _child, _url ) );
}

bool KoDocument::saveChildren( KOStore::Store_ptr _store )
{
  list<KoDocument::SimpleDocumentChild>::iterator it;
  for( it = m_lstAllChildren.begin(); it != m_lstAllChildren.end(); ++it )
  {
    cerr << "Saving child " << it->url() << endl;
    
    K2URL u( it->url() );
    // Do we have to save this child embedded ?
    if ( strcmp( u.protocol(), "store" ) != 0 )
      continue;
    
    // Save it as child in the document store
    KOffice::Document_var doc = it->document();
    if ( !doc->saveToStore( _store, 0L ) )
      return false;

    cerr << "Saved child " << it->url() << endl;
  }

  m_lstAllChildren.clear();

  return true;
}

CORBA::Boolean KoDocument::saveToURL( const char *_url, const char* _format )
{
  K2URL u( _url );
  if ( u.isMalformed() )
  {
    cerr << "malformed URL" << endl;
    return false;
  }
  
  if ( !u.isLocalFile() )
  {
    QMessageBox::critical( (QWidget*)0L, i18n("KOffice Error"), i18n( "Can not save to remote URL\n" ), i18n( "OK" ) );
    return false;
  }
  
  if ( hasToWriteMultipart() )
  {
    cerr << "Saving to store" << endl;

    CORBA::String_var mime = mimeType();
    KoStore store( u.path(), KOStore::Write );
    // TODO: Check for error

    makeChildListIntern();
   
    store.open( "root", mime.in() ); 
    {
      ostorestream out( &store );
      if ( !save( out, _format ) )
      {
	store.close();  
	return false;
      }
      out.flush();
    }
    store.close();

    cerr << "Saving children" << endl;
    
    // Lets write all direct and indirect children
    if ( !saveChildren( &store ) )
      return false;

    if ( !completeSaving( &store ) )
      return false;
    
    cerr << "Saving done" << endl;
  }
  else
  {    
    ofstream out( u.path() );
    if ( !out )
    {
      string tmp = i18n("Could not write to\n" );
      tmp += u.path();
      cerr << tmp << endl;
      QMessageBox::critical( (QWidget*)0L, i18n("KOffice Error"), tmp.c_str(), i18n( "OK" ) );
      return false;
    }
    
    if ( !save( out, _format ) )

      return false;
    // Lets write all direct and indirect children
    if ( !saveChildren( 0L ) )
      return false;

    if ( !completeSaving( 0L ) )
      return false;
  }

  return true;
}

CORBA::Boolean KoDocument::saveToStore( KOStore::Store_ptr _store, const char *_format )
{
  cerr << "Saving document to store" << endl;
  
  CORBA::String_var mime = mimeType();
  CORBA::String_var u = url();

  // TODO: Check for error
  /* if ( !out )
  {
    QString tmp;
    tmp.sprintf( i18n("Could not write to\n%s" ), u.path() );
    cerr << tmp << endl;
    QMessageBox::critical( (QWidget*)0L, i18n("KOffice Error"), tmp, i18n( "OK" ) );
    return false;
  } */
 
  _store->open( u, mime );
  {
    ostorestream out( _store );
    if ( !save( out, _format ) )
      return false;
    out.flush();
  }
  _store->close();

  // Lets write all direct and indirect children
  if ( !saveChildren( _store ) )
    return false;

  if ( !completeSaving( _store ) )
    return false;
  
  cerr << "Saved document to store" << endl;

  return true;
}

CORBA::Boolean KoDocument::loadFromURL( const char *_url, const char *_format )
{
  K2URL u( _url );
  if ( u.isMalformed() )
  {
    cerr << "Malformed URL " << _url << endl;
    return false;
  }
  
  if ( !u.isLocalFile() )
  {
    cerr << "Can not save to remote URL" << endl;
    return false;
  }

  ifstream in( u.path() );
  if ( !in )
  {
    cerr << "Could not open" << u.path() << endl;
    return false;
  }

  // Try to find out wether it is a mime multi part file
  char buf[5];
  in.get( buf[0] ); in.get( buf[1] ); in.get( buf[2] ); in.get( buf[3] ); buf[4] = 0;
  in.unget(); in.unget(); in.unget(); in.unget();
  
  cout << "PATTERN=" << buf << endl;

  setURL( _url );
  
  // Is it a koffice store ?
  if ( strncasecmp( buf, "KS01", 4 ) == 0 )
  {
    in.close();

    KoStore store( u.path(), KOStore::Read );
    // TODO: Check for errors
    store.open( "root", 0L );
    {
      istorestream in( &store );
      if ( !load( in, &store ) )
	return false;
    }
    store.close();

    if ( !loadChildren( &store ) )
    {	  
      cerr << "ERROR: Could not load children" << endl;
      return false;
    }

    return completeLoading( &store );
  }
  // Standalone XML or some binary data
  else 
  {    
    bool res = load( in, 0L );
    in.close();
    if ( !res )
      return false;
    
    return completeLoading( 0L );
  }
}

CORBA::Boolean KoDocument::loadFromStore( KOStore::Store_ptr _store, const char *_url )
{
  // TODO: Check for error
  _store->open( _url, 0L );
  {
    istorestream in( _store );
    load( in, _store );
  }
  _store->close();
  setURL( _url );

  if ( !loadChildren( _store ) )
  {	  
    cerr << "ERROR: Could not load children" << endl;
    return false;
  }

  return completeLoading( _store );
}

bool KoDocument::load( istream& in, KOStore::Store_ptr _store )
{
  // Try to find out wether it is a mime multi part file
  char buf[5];
  in.get( buf[0] ); in.get( buf[1] ); in.get( buf[2] ); in.get( buf[3] ); buf[4] = 0;
  in.unget(); in.unget(); in.unget(); in.unget();

  cerr << "PATTERN2=" << buf << endl;
  
  // Load XML ?
  if ( strncasecmp( buf, "<?xm", 4 ) == 0 )
  {
    KOMLStreamFeed feed( in );
    KOMLParser parser( &feed );
    
    if ( !loadXML( parser, _store ) )
      return false;
  }
  // Load binary data
  else
  {    
    if ( !loadBinary( in, false, _store ) )
      return false;
  }
    
  return true;
}

void KoDocument::setURL( const char *_url )
{
  m_strURL = _url;
}

char* KoDocument::url()
{
  if ( m_strURL.isEmpty() )
    return CORBA::string_dup( "" );
  
  return CORBA::string_dup( m_strURL );
}