diff options
Diffstat (limited to 'binfilter/bf_basic/source/comp/sbcomp.cxx')
| -rw-r--r-- | binfilter/bf_basic/source/comp/sbcomp.cxx | 113 |
1 files changed, 113 insertions, 0 deletions
diff --git a/binfilter/bf_basic/source/comp/sbcomp.cxx b/binfilter/bf_basic/source/comp/sbcomp.cxx new file mode 100644 index 000000000000..1d703baceac7 --- /dev/null +++ b/binfilter/bf_basic/source/comp/sbcomp.cxx @@ -0,0 +1,113 @@ +/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */ +/************************************************************************* + * + * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER. + * + * Copyright 2000, 2010 Oracle and/or its affiliates. + * + * OpenOffice.org - a multi-platform office productivity suite + * + * This file is part of OpenOffice.org. + * + * OpenOffice.org is free software: you can redistribute it and/or modify + * it under the terms of the GNU Lesser General Public License version 3 + * only, as published by the Free Software Foundation. + * + * OpenOffice.org 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 version 3 for more details + * (a copy is included in the LICENSE file that accompanied this code). + * + * You should have received a copy of the GNU Lesser General Public License + * version 3 along with OpenOffice.org. If not, see + * <http://www.openoffice.org/license.html> + * for a copy of the LGPLv3 License. + * + ************************************************************************/ + +#include "sbx.hxx" +#include "image.hxx" + + +// For debugging only +// #define DBG_SAVE_DISASSEMBLY + +#include <comphelper/processfactory.hxx> + +#include <com/sun/star/lang/XMultiServiceFactory.hpp> +#include <com/sun/star/ucb/XSimpleFileAccess3.hpp> +#include <com/sun/star/io/XTextOutputStream.hpp> +#include <com/sun/star/io/XActiveDataSource.hpp> + +namespace binfilter { + +/*?*/ // #ifdef DBG_SAVE_DISASSEMBLY +/*?*/ // static bool dbg_bDisassemble = true; +/*?*/ // +/*?*/ // using namespace comphelper; +/*?*/ // using namespace rtl; +/*?*/ // using namespace com::sun::star::uno; +/*?*/ // using namespace com::sun::star::lang; +/*?*/ // using namespace com::sun::star::ucb; +/*?*/ // using namespace com::sun::star::io; +/*?*/ // +/*?*/ // void dbg_SaveDisassembly( SbModule* pModule ) +/*?*/ // { +/*?*/ // bool bDisassemble = dbg_bDisassemble; +/*?*/ // if( bDisassemble ) +/*?*/ // { +/*?*/ // Reference< XSimpleFileAccess3 > xSFI; +/*?*/ // Reference< XTextOutputStream > xTextOut; +/*?*/ // Reference< XOutputStream > xOut; +/*?*/ // Reference< XMultiServiceFactory > xSMgr = getProcessServiceFactory(); +/*?*/ // if( xSMgr.is() ) +/*?*/ // { +/*?*/ // Reference< XSimpleFileAccess3 > xSFI = Reference< XSimpleFileAccess3 >( xSMgr->createInstance +/*?*/ // ( OUString::createFromAscii( "com.sun.star.ucb.SimpleFileAccess" ) ), UNO_QUERY ); +/*?*/ // if( xSFI.is() ) +/*?*/ // { +/*?*/ // String aFile( RTL_CONSTASCII_USTRINGPARAM("file:///d:/BasicAsm_") ); +/*?*/ // StarBASIC* pBasic = (StarBASIC*)pModule->GetParent(); +/*?*/ // if( pBasic ) +/*?*/ // { +/*?*/ // aFile += pBasic->GetName(); +/*?*/ // aFile.AppendAscii( "_" ); +/*?*/ // } +/*?*/ // aFile += pModule->GetName(); +/*?*/ // aFile.AppendAscii( ".txt" ); +/*?*/ // +/*?*/ // // String aFile( RTL_CONSTASCII_USTRINGPARAM("file:///d:/BasicAsm.txt") ); +/*?*/ // if( xSFI->exists( aFile ) ) +/*?*/ // xSFI->kill( aFile ); +/*?*/ // xOut = xSFI->openFileWrite( aFile ); +/*?*/ // Reference< XInterface > x = xSMgr->createInstance( OUString::createFromAscii( "com.sun.star.io.TextOutputStream" ) ); +/*?*/ // Reference< XActiveDataSource > xADS( x, UNO_QUERY ); +/*?*/ // xADS->setOutputStream( xOut ); +/*?*/ // xTextOut = Reference< XTextOutputStream >( x, UNO_QUERY ); +/*?*/ // } +/*?*/ // } +/*?*/ // +/*?*/ // if( xTextOut.is() ) +/*?*/ // { +/*?*/ // String aDisassemblyStr; +/*?*/ // pModule->Disassemble( aDisassemblyStr ); +/*?*/ // xTextOut->writeString( aDisassemblyStr ); +/*?*/ // } +/*?*/ // xOut->closeOutput(); +/*?*/ // } +/*?*/ // } +/*?*/ // #endif + +// Diese Routine ist hier definiert, damit der Compiler als eigenes Segment +// geladen werden kann. + +BOOL SbModule::Compile() +{ + DBG_ERROR( "SbModule::Compile: dead code!" ); + return FALSE; +} + +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |