172 lines
4.9 KiB
C++
172 lines
4.9 KiB
C++
/*************************************************************************
|
|
*
|
|
* OpenOffice.org - a multi-platform office productivity suite
|
|
*
|
|
* $RCSfile: testbasi.cxx,v $
|
|
*
|
|
* $Revision: 1.7 $
|
|
*
|
|
* last change: $Author: obo $ $Date: 2006-09-17 00:33:35 $
|
|
*
|
|
* The Contents of this file are made available subject to
|
|
* the terms of GNU Lesser General Public License Version 2.1.
|
|
*
|
|
*
|
|
* GNU Lesser General Public License Version 2.1
|
|
* =============================================
|
|
* Copyright 2005 by Sun Microsystems, Inc.
|
|
* 901 San Antonio Road, Palo Alto, CA 94303, USA
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License version 2.1, as published by the Free Software Foundation.
|
|
*
|
|
* 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
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
|
* MA 02111-1307 USA
|
|
*
|
|
************************************************************************/
|
|
|
|
// MARKER(update_precomp.py): autogen include statement, do not remove
|
|
#include "precompiled_automation.hxx"
|
|
|
|
#ifndef _SBXCLASS_HXX //autogen
|
|
#include <basic/sbx.hxx>
|
|
#endif
|
|
|
|
#ifndef _BASIC_TTRESHLP_HXX
|
|
#include <basic/ttstrhlp.hxx>
|
|
#endif
|
|
#include <basic/testtool.hxx>
|
|
#include "testbasi.hxx"
|
|
//#include "app.hxx"
|
|
//#include "basic.hrc"
|
|
//#include "appbased.hxx"
|
|
#define P_FEHLERLISTE ((TestToolObj*)pTestObject)->GetFehlerListe()
|
|
|
|
//#include "status.hxx"
|
|
//#include "basic.hrc"
|
|
|
|
//#include "object.hxx"
|
|
|
|
#include <testapp.hxx>
|
|
#include <testtool.hxx>
|
|
#ifndef _SB_INTERN_HXX
|
|
//#include "sbintern.hxx"
|
|
#endif
|
|
|
|
//#include "comm_bas.hxx"
|
|
//#include "processw.hxx"
|
|
|
|
TYPEINIT1(TTBasic,MyBasic)
|
|
|
|
/*class MyFactory : public SbxFactory
|
|
{
|
|
public:
|
|
virtual SbxBase* Create( UINT16 nSbxId, UINT32 = SBXCR_SBX );
|
|
};
|
|
|
|
static SampleObjectFac aFac1;
|
|
static MyFactory aFac2;
|
|
static CommunicationFactory aComManFac;
|
|
static ProcessFactory aProcessFac;
|
|
static short nInst = 0;
|
|
|
|
SbxBase* MyFactory::Create( UINT16 nSbxId, UINT32 nCr )
|
|
{
|
|
if( nCr == SBXCR_TEST && nSbxId == SBXID_MYBASIC )
|
|
return new MyBasic;
|
|
else
|
|
return NULL;
|
|
} */
|
|
|
|
TTBasic::TTBasic() : MyBasic()
|
|
{
|
|
// Eigenes Objekt reinbraten
|
|
TestToolObj* pTTO = new TestToolObj( CUniString("App"), this );
|
|
pTTO->SetLogHdl( GenLogHdl() );
|
|
pTTO->SetWinInfoHdl( GenWinInfoHdl() );
|
|
pTTO->SetModuleWinExistsHdl( GenModuleWinExistsHdl() );
|
|
pTTO->SetWriteStringHdl( GenWriteStringHdl() );
|
|
pTTO->SetCErrorHdl( LINK( this, TTBasic, CErrorImpl ) );
|
|
|
|
StartListeningTT( pTTO->GetTTBroadcaster() );
|
|
|
|
pTestObject = pTTO;
|
|
pTestObject->SetFlag( SBX_EXTSEARCH );
|
|
Insert( pTestObject );
|
|
}
|
|
|
|
MyBasic* TTBasic::CreateMyBasic()
|
|
{
|
|
return new TTBasic();
|
|
}
|
|
|
|
void TTBasic::LoadIniFile()
|
|
{
|
|
((TestToolObj*)pTestObject)->LoadIniFile();
|
|
}
|
|
|
|
SbTextType TTBasic::GetSymbolType( const String &rSymbol, BOOL bWasTTControl )
|
|
{
|
|
return ((TestToolObj*)pTestObject)->GetSymbolType( rSymbol, bWasTTControl );
|
|
}
|
|
|
|
|
|
TTBasic::~TTBasic()
|
|
{
|
|
}
|
|
|
|
IMPL_LINK( TTBasic, CErrorImpl, ErrorEntry*, pData )
|
|
{
|
|
return CError( pData->nError, pData->aText, pData->nLine, pData->nCol1, pData->nCol2 );
|
|
}
|
|
|
|
BOOL TTBasic::Compile( SbModule* p )
|
|
{
|
|
p->SetComment( ((TestToolObj*)pTestObject)->GetRevision(p->GetSource()) );
|
|
SbModule* pOldModule = GetCompileModule();
|
|
SetCompileModule( p );
|
|
p->SetSource( ((TestToolObj*)pTestObject)->PreCompile(p->GetSource()) );
|
|
SetCompileModule( pOldModule );
|
|
if ( ((TestToolObj*)pTestObject)->WasPrecompilerError() )
|
|
return FALSE;
|
|
return MyBasic::Compile( p );
|
|
}
|
|
|
|
const String TTBasic::GetSpechialErrorText()
|
|
{
|
|
String nErrorText;
|
|
if ( pTestObject && IS_ERROR() && GetErrorCode() == GET_ERROR()->nError )
|
|
{
|
|
nErrorText = GenRealString( GET_ERROR()->aText );
|
|
nErrorText.AppendAscii( ": " );
|
|
nErrorText += String::CreateFromInt64( GET_ERROR()->nError );
|
|
}
|
|
else
|
|
{
|
|
nErrorText = GetErrorText();
|
|
}
|
|
return nErrorText;
|
|
}
|
|
|
|
void TTBasic::ReportRuntimeError( AppBasEd *pEditWin )
|
|
{
|
|
SbxVariableRef aDummy = new SbxVariable;
|
|
aDummy->SetUserData( 24 ); // ID_MaybeAddErr
|
|
((TestToolObj*)pTestObject)->SFX_NOTIFY( pTestObject->GetBroadcaster(), xx, SbxHint( SBX_HINT_DATAWANTED, aDummy ), xx );
|
|
aDummy->SetUserData( 18 ); // ID_ExceptLog
|
|
((TestToolObj*)pTestObject)->SFX_NOTIFY( pTestObject->GetBroadcaster(), xx, SbxHint( SBX_HINT_DATAWANTED, aDummy ), xx );
|
|
MyBasic::ReportRuntimeError( pEditWin );
|
|
}
|
|
|
|
void TTBasic::DebugFindNoErrors( BOOL bDebugFindNoErrors )
|
|
{
|
|
((TestToolObj*)pTestObject)->DebugFindNoErrors( bDebugFindNoErrors );
|
|
}
|