automation/source/app/testbasi.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: testbasi.cxx,v $
  10  * $Revision: 1.9.14.1 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_automation.hxx"
  33 #include <basic/sbx.hxx>
  34
  35 #ifndef _BASIC_TTRESHLP_HXX
  36 #include <basic/ttstrhlp.hxx>
  37 #endif
  38 #include <basic/testtool.hxx>
  39 #include "testbasi.hxx"
  40 //#include "app.hxx"
  41 //#include "basic.hrc"
  42 //#include "appbased.hxx"
  43 #define P_FEHLERLISTE TestToolObj::pFehlerListe
  44
  45 //#include "status.hxx"
  46 //#include "basic.hrc"
  47
  48 //#include "object.hxx"
  49
  50 #include <testapp.hxx>
  51 #include <testtool.hxx>
  52 #ifndef _SB_INTERN_HXX
  53 //#include "sbintern.hxx"
  54 #endif
  55
  56 //#include "comm_bas.hxx"
  57 //#include "processw.hxx"
  58
  59 TYPEINIT1(TTBasic,MyBasic)
  60
  61 /*class MyFactory : public SbxFactory
  62 {
  63 public:
  64     virtual SbxBase* Create( UINT16 nSbxId, UINT32 = SBXCR_SBX );
  65 };
  66
  67 static SampleObjectFac aFac1;
  68 static MyFactory aFac2;
  69 static CommunicationFactory aComManFac;
  70 static ProcessFactory aProcessFac;
  71 static short nInst = 0;
  72
  73 SbxBase* MyFactory::Create( UINT16 nSbxId, UINT32 nCr )
  74 {
  75     if( nCr == SBXCR_TEST && nSbxId == SBXID_MYBASIC )
  76         return new MyBasic;
  77     else
  78         return NULL;
  79 } */
  80
  81 TTBasic::TTBasic() : MyBasic()
  82 {
  83 // Eigenes Objekt reinbraten
  84     TestToolObj* pTTO = new TestToolObj( CUniString("App"), this );
  85     pTTO->SetLogHdl( GenLogHdl() );
  86     pTTO->SetWinInfoHdl( GenWinInfoHdl() );
  87     pTTO->SetModuleWinExistsHdl( GenModuleWinExistsHdl() );
  88     pTTO->SetWriteStringHdl( GenWriteStringHdl() );
  89     pTTO->SetCErrorHdl( LINK( this, TTBasic, CErrorImpl ) );
  90
  91     StartListeningTT( pTTO->GetTTBroadcaster() );
  92
  93     pTestObject = pTTO;
  94     pTestObject->SetFlag( SBX_EXTSEARCH );
  95     Insert( pTestObject );
  96 }
  97
  98 MyBasic* TTBasic::CreateMyBasic()
  99 {
 100     return new TTBasic();
 101 }
 102
 103 void TTBasic::LoadIniFile()
 104 {
 105     ((TestToolObj*)pTestObject)->LoadIniFile();
 106 }
 107
 108 SbTextType TTBasic::GetSymbolType( const String &rSymbol, BOOL bWasTTControl )
 109 {
 110     return ((TestToolObj*)pTestObject)->GetSymbolType( rSymbol, bWasTTControl );
 111 }
 112
 113
 114 TTBasic::~TTBasic()
 115 {
 116 }
 117
 118 IMPL_LINK( TTBasic, CErrorImpl, ErrorEntry*, pData )
 119 {
 120     return CError( pData->nError, pData->aText, pData->nLine, pData->nCol1, pData->nCol2 );
 121 }
 122
 123 BOOL TTBasic::Compile( SbModule* p )
 124 {
 125     p->SetComment( ((TestToolObj*)pTestObject)->GetRevision(p->GetSource()) );
 126     SbModule* pOldModule = GetCompileModule();
 127     SetCompileModule( p );
 128     p->SetSource( ((TestToolObj*)pTestObject)->PreCompile(p->GetSource()) );
 129     SetCompileModule( pOldModule );
 130     if ( ((TestToolObj*)pTestObject)->WasPrecompilerError() )
 131         return FALSE;
 132     return MyBasic::Compile( p );
 133 }
 134
 135 const String TTBasic::GetSpechialErrorText()
 136 {
 137     String nErrorText;
 138     if ( pTestObject && IS_ERROR() && GetErrorCode() == GET_ERROR()->nError )
 139     {
 140         nErrorText = GenRealString( GET_ERROR()->aText );
 141         nErrorText.AppendAscii( ": " );
 142         nErrorText += String::CreateFromInt64( GET_ERROR()->nError );
 143     }
 144     else
 145     {
 146         nErrorText = GetErrorText();
 147     }
 148     return nErrorText;
 149 }
 150
 151 void TTBasic::ReportRuntimeError( AppBasEd *pEditWin )
 152 {
 153     SbxVariableRef aDummy = new SbxVariable;
 154     aDummy->SetUserData( 24 );  // ID_MaybeAddErr
 155     ((TestToolObj*)pTestObject)->Notify( pTestObject->GetBroadcaster(), SbxHint( SBX_HINT_DATAWANTED, aDummy ) );
 156     aDummy->SetUserData( 18 );  // ID_ExceptLog
 157     ((TestToolObj*)pTestObject)->Notify( pTestObject->GetBroadcaster(), SbxHint( SBX_HINT_DATAWANTED, aDummy ) );
 158     MyBasic::ReportRuntimeError( pEditWin );
 159 }
 160
 161 void TTBasic::DebugFindNoErrors( BOOL bDebugFindNoErrors )
 162 {
 163     ((TestToolObj*)pTestObject)->DebugFindNoErrors( bDebugFindNoErrors );
 164 }