/* This file is part of the KDE project

   Copyright 2003 Lukas Tinkl <lukas@kde.org>
   Copyright 2000, 2002-2003 Laurent Montel <montel@kde.org>
   Copyright 2001-2003 Philipp Mueller <philipp.mueller@gmx.de>
   Copyright 2003 Joseph Wenninger <jowenn@kde.org>
   Copyright 2002 Ariya Hidayat <ariya@kde.org>
   Copyright 2002 Harri Porten <porten@kde.org>
   Copyright 2002 John Dailey <dailey@vt.edu>
   Copyright 2001 Simon Hausmann <hausmann@kde.org>
   Copyright 2000 Werner Trobin <trobin@kde.org>
   Copyright 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., 51 Franklin Street, Fifth Floor,
 * Boston, MA 02110-1301, USA.
*/

#include "kspread_sheet.h"
#include "kspread_sheetprint.h"
#include "kspread_util.h"
#include "kspread_doc.h"

#include <dcopclient.h>
#include <tdeapplication.h>
#include <kdebug.h>

#include "KSpreadCellIface.h"
#include "region.h"

#include "KSpreadTableIface.h"

using namespace KSpread;

/*********************************************
 *
 * CellProxy
 *
 *********************************************/

class KSpread::CellProxy : public DCOPObjectProxy
{
public:
    CellProxy( Sheet* sheet, const TQCString& prefix );
    ~CellProxy();

    virtual bool process( const TQCString& obj, const TQCString& fun, const TQByteArray& data,
                          TQCString& replyType, TQByteArray &replyData );

private:
    TQCString m_prefix;
    CellIface* m_cell;
    Sheet* m_sheet;
};

KSpread::CellProxy::CellProxy( Sheet* sheet, const TQCString& prefix )
    : DCOPObjectProxy( kapp->dcopClient() ), m_prefix( prefix )
{
    m_cell = new CellIface;
    m_sheet = sheet;
}

KSpread::CellProxy::~CellProxy()
{
    delete m_cell;
}

bool KSpread::CellProxy::process( const TQCString& obj, const TQCString& fun, const TQByteArray& data,
                                        TQCString& replyType, TQByteArray &replyData )
{

	kdDebug()<<"CellProxy::process: requested object:"<<obj<<endl;
	kdDebug()<<"CellProxy::process: prefix:"<<m_prefix<<endl;
    if ( strncmp( m_prefix.data(), obj.data(), m_prefix.length() ) != 0 )
        return false;

	if ( fun == "functions()" ) {
        	replyType = "QCStringList";
	        TQDataStream reply( replyData, IO_WriteOnly );
		 QCStringList repList=m_cell->functions();
		reply<<repList;
	        return true;
	}

    TQString cellID=TQString::fromUtf8(obj.data() + m_prefix.length());
    cellID=m_sheet->sheetName()+"!"+cellID;

    kdDebug()<<"CellProxy::process: cellID="<<cellID<<endl;

    Point p( cellID); //obj.data() + m_prefix.length() );
    if ( p.pos().x()<0 ) {
	kdDebug(36001)<<"CellProyxy::process: resulting Point is not valid"<<endl;
        return false;
    }

    kdDebug(36001)<<"all checks finsihed, trying to access cell (x):"<<p.pos().x()<<endl;

    m_cell->setCell( m_sheet, p.pos() );
    return m_cell->process( fun, data, replyType, replyData );
}

/************************************************
 *
 * SheetIface
 *
 ************************************************/

SheetIface::SheetIface( Sheet* t )
    : DCOPObject()
{
    m_proxy=0;
    m_sheet = t;

    sheetNameHasChanged();

}

void SheetIface::sheetNameHasChanged() {
  ident.resize(1);
  TQObject *currentObj = m_sheet;
    while (currentObj != 0L) {
        ident.prepend( currentObj->name() );
        ident.prepend("/");
        currentObj = currentObj->parent();
    }
    if ( ident[0] == '/' )
        ident = ident.mid(1);

   if (qstrcmp(ident,objId())!=0) {
	   setObjId(ident);

           delete m_proxy;
           TQCString str = objId();
           str += "/";
	   kdDebug(36001)<<"SheetIface::tableNameHasChanged(): new DCOP-ID:"<<objId()<<endl;
           m_proxy = new CellProxy( m_sheet, str );
   }

}


SheetIface::~SheetIface()
{
    delete m_proxy;
}

DCOPRef SheetIface::cell( int x, int y )
{
    // if someone calls us with either x or y 0 he _most_ most likely doesn't
    // know that the cell counting starts with 1 (Simon)
    // P.S.: I did that mistake for weeks and already started looking for the
    // "bug" in kspread ;-)
    if ( x == 0 )
        x = 1;
    if ( y == 0 )
        y = 1;

    TQCString str = objId() + '/' + Cell::name( x, y ).latin1();

    return DCOPRef( kapp->dcopClient()->appId(), str );
}

DCOPRef SheetIface::cell( const TQString& name )
{
    TQCString str = objId();
    str += "/";
    str += name.latin1();

    return DCOPRef( kapp->dcopClient()->appId(), str );
}

DCOPRef SheetIface::column( int _col )
{
    //First col number = 1
    if(_col <1)
        return DCOPRef();
    return DCOPRef( kapp->dcopClient()->appId(),
		    m_sheet->nonDefaultColumnFormat( _col )->dcopObject()->objId() );

}

DCOPRef SheetIface::row( int _row )
{
    //First row number = 1
    if(_row <1)
        return DCOPRef();
    return DCOPRef( kapp->dcopClient()->appId(),
		    m_sheet->nonDefaultRowFormat( _row )->dcopObject()->objId() );
}


TQString SheetIface::name() const
{
    return m_sheet->sheetName();
}


int SheetIface::maxColumn() const
{
    return m_sheet->maxColumn();

}

bool SheetIface::areaHasNoContent(TQRect area) const
{
	kdDebug(36001) << "SheetIface::areaHasNoContent("<<area<<");"<<endl;
	return m_sheet->areaIsEmpty(area);
}

bool SheetIface::areaHasNoComments(TQRect area) const
{
	return m_sheet->areaIsEmpty(area, Sheet::Comment);
}

int SheetIface::maxRow() const
{
    return m_sheet->maxRow();
}

bool SheetIface::processDynamic( const TQCString& fun, const TQByteArray&/*data*/,
                                        TQCString& replyType, TQByteArray &replyData )
{
    kdDebug(36001) << "Calling '" << fun.data() << "'" << endl;
    // Does the name follow the pattern "foobar()" ?
    uint len = fun.length();
    if ( len < 3 )
        return false;

    if ( fun[ len - 1 ] != ')' || fun[ len - 2 ] != '(' )
        return false;

    // Is the function name a valid cell like "B5" ?
    Point p( fun.left( len - 2 ).data() );
    if ( !p.isValid() )
        return false;

    TQCString str = objId() + "/" + fun.left( len - 2 );

    replyType = "DCOPRef";
    TQDataStream out( replyData, IO_WriteOnly );
    out << DCOPRef( kapp->dcopClient()->appId(), str );
    return true;
}

bool SheetIface::setSheetName( const TQString & name)
{
    return m_sheet->setSheetName( name);
}

bool SheetIface::insertColumn( int col,int nbCol )
{
    return m_sheet->insertColumn(col,nbCol);
}

bool SheetIface::insertRow( int row,int nbRow)
{
    return m_sheet->insertRow(row,nbRow);
}

void SheetIface::removeColumn( int col,int nbCol )
{
    m_sheet->removeColumn( col,nbCol );
}

void SheetIface::removeRow( int row,int nbRow )
{
    m_sheet->removeRow( row,nbRow );
}


bool SheetIface::isHidden()const
{
    return m_sheet->isHidden();
}


bool SheetIface::showGrid() const
{
    return m_sheet->getShowGrid();
}

bool SheetIface::showFormula() const
{
    return m_sheet->getShowFormula();
}

bool SheetIface::lcMode() const
{
    return m_sheet->getLcMode();
}

bool SheetIface::autoCalc() const
{
    return m_sheet->getAutoCalc();
}

bool SheetIface::showColumnNumber() const
{
    return m_sheet->getShowColumnNumber();
}

bool SheetIface::hideZero() const
{
    return m_sheet->getHideZero();
}

bool SheetIface::firstLetterUpper() const
{
    return m_sheet->getFirstLetterUpper();
}

void SheetIface::setShowPageBorders( bool b )
{
    m_sheet->setShowPageBorders( b );
    m_sheet->doc()->updateBorderButton();
}

float SheetIface::paperHeight()const
{
    return m_sheet->print()->paperHeight();
}

float SheetIface::paperWidth()const
{
    return m_sheet->print()->paperWidth();
}

float SheetIface::leftBorder()const
{
    return m_sheet->print()->leftBorder();
}

float SheetIface::rightBorder()const
{
    return m_sheet->print()->rightBorder();
}

float SheetIface::topBorder()const
{
    return m_sheet->print()->topBorder();
}

float SheetIface::bottomBorder()const
{
    return m_sheet->print()->bottomBorder();
}

TQString SheetIface::paperFormatString() const
{
    return m_sheet->print()->paperFormatString();
}

TQString SheetIface::headLeft()const
{
    return m_sheet->print()->headLeft();
}

TQString SheetIface::headMid()const
{
    return m_sheet->print()->headMid();
}

TQString SheetIface::headRight()const
{
    return m_sheet->print()->headRight();
}

TQString SheetIface::footLeft()const
{
    return m_sheet->print()->footLeft();
}

TQString SheetIface::footMid()const
{
    return m_sheet->print()->footMid();
}

TQString SheetIface::footRight()const
{
    return m_sheet->print()->footRight();
}

void SheetIface::setHeaderLeft(const TQString & text)
{
    m_sheet->print()->setHeadFootLine( text,       headMid(), headRight(),
                                       footLeft(), footMid(), footRight() );
}

void SheetIface::setHeaderMiddle(const TQString & text)
{
    m_sheet->print()->setHeadFootLine( headLeft(), text,      headRight(),
                                       footLeft(), footMid(), footRight() );

}

void SheetIface::setHeaderRight(const TQString & text)
{
    m_sheet->print()->setHeadFootLine( headLeft(), headMid(), text,
                                       footLeft(), footMid(), footRight() );
}

void SheetIface::setFooterLeft(const TQString & text)
{
    m_sheet->print()->setHeadFootLine( headLeft(), headMid(), headRight(),
                                       text,       footMid(), footRight() );
}

void SheetIface::setFooterMiddle(const TQString & text)
{
    m_sheet->print()->setHeadFootLine( headLeft(), headMid(), headRight(),
                                       footLeft(), text,      footRight() );
}

void SheetIface::setFooterRight(const TQString & text)
{
    m_sheet->print()->setHeadFootLine( headLeft(), headMid(), headRight(),
                                       footLeft(), footMid(), text );
}

bool SheetIface::isProtected() const
{
    return m_sheet->isProtected();
}