KSpreadTableIface.cpp

/* 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();
}