305 lines
14 KiB
C++
305 lines
14 KiB
C++
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
|
#include "cppuhelper/bootstrap.hxx"
|
|
|
|
#include <com/sun/star/beans/Property.hpp>
|
|
#include <com/sun/star/beans/XPropertySet.hpp>
|
|
#include <com/sun/star/beans/XPropertySetInfo.hpp>
|
|
#include <com/sun/star/container/XNameAccess.hpp>
|
|
#include <com/sun/star/container/XNameContainer.hpp>
|
|
#include <com/sun/star/frame/XComponentLoader.hpp>
|
|
#include <com/sun/star/lang/XMultiComponentFactory.hpp>
|
|
#include <com/sun/star/sheet/XSpreadsheet.hpp>
|
|
#include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
|
|
#include <com/sun/star/util/XCloseable.hpp>
|
|
#include <com/sun/star/uno/XComponentContext.hpp>
|
|
#include <com/sun/star/ucb/XSimpleFileAccess.hpp>
|
|
#include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
|
|
#include <com/sun/star/document/XTypeDetection.hpp>
|
|
|
|
#include <tools/urlobj.hxx>
|
|
#include <osl/file.hxx>
|
|
|
|
#include <memory>
|
|
#include <iostream>
|
|
|
|
using namespace ::com::sun::star;
|
|
using namespace ::com::sun::star::sheet;
|
|
|
|
using ::com::sun::star::beans::Property;
|
|
using ::com::sun::star::beans::PropertyValue;
|
|
using ::com::sun::star::beans::XPropertySet;
|
|
using ::com::sun::star::beans::XPropertySetInfo;
|
|
using ::com::sun::star::container::XNameContainer;
|
|
using ::com::sun::star::lang::XComponent;
|
|
using ::com::sun::star::lang::XMultiComponentFactory;
|
|
using ::com::sun::star::frame::XComponentLoader;
|
|
using ::com::sun::star::uno::Reference;
|
|
using ::com::sun::star::uno::Sequence;
|
|
using ::com::sun::star::uno::UNO_QUERY;
|
|
using ::com::sun::star::uno::UNO_QUERY_THROW;
|
|
using ::com::sun::star::uno::XComponentContext;
|
|
using ::com::sun::star::uno::XInterface;
|
|
using ::com::sun::star::ucb::XSimpleFileAccess;
|
|
using ::com::sun::star::document::XTypeDetection;
|
|
using ::rtl::OUString;
|
|
|
|
using ::std::auto_ptr;
|
|
|
|
const OUString EXTN(RTL_CONSTASCII_USTRINGPARAM(".xls"));
|
|
|
|
OUString convertToURL( const OUString& rPath )
|
|
{
|
|
rtl::OUString aURL;
|
|
INetURLObject aObj;
|
|
aObj.SetURL( rPath );
|
|
bool bIsURL = aObj.GetProtocol() != INET_PROT_NOT_VALID;
|
|
if ( bIsURL )
|
|
aURL = rPath;
|
|
else
|
|
{
|
|
osl::FileBase::getFileURLFromSystemPath( rPath, aURL );
|
|
if ( aURL.equals( rPath ) )
|
|
throw uno::RuntimeException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "could'nt convert " )).concat( rPath ).concat( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( " to a URL, is it a fully qualified path name? " )) ), Reference< uno::XInterface >() );
|
|
}
|
|
return aURL;
|
|
}
|
|
|
|
OUString ascii(const sal_Char* cstr)
|
|
{
|
|
return OUString::createFromAscii(cstr);
|
|
}
|
|
|
|
const sal_Char* getStr(const OUString& ou)
|
|
{
|
|
return OUStringToOString(ou, RTL_TEXTENCODING_UTF8).getStr();
|
|
}
|
|
|
|
|
|
int usage( const char* pName )
|
|
{
|
|
std::cerr << "usage: " << pName << "<path to testdocument dir> <output_directory>" << std::endl;
|
|
return 1;
|
|
|
|
}
|
|
|
|
class TestVBA
|
|
{
|
|
private:
|
|
Reference< XComponentContext > mxContext;
|
|
Reference< XMultiComponentFactory > mxMCF;
|
|
Reference< XComponentLoader > mxCompLoader;
|
|
Reference< XSimpleFileAccess > mxSFA;
|
|
rtl::OUString msOutDirPath;
|
|
protected:
|
|
public:
|
|
TestVBA( const Reference< XComponentContext >& _xContext,
|
|
const Reference< XMultiComponentFactory >& _xMCF,
|
|
const Reference< XComponentLoader >& _xCompLoader,
|
|
const rtl::OUString& _outDirPath ) : mxContext( _xContext ), mxMCF( _xMCF ),
|
|
mxCompLoader( _xCompLoader ), msOutDirPath( convertToURL( _outDirPath ) )
|
|
{
|
|
mxSFA.set( mxMCF->createInstanceWithContext( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.ucb.SimpleFileAccess" )), mxContext), uno::UNO_QUERY_THROW );
|
|
}
|
|
|
|
rtl::OUString getLogLocation() throw ( beans::UnknownPropertyException, lang::IllegalArgumentException, lang::WrappedTargetException, uno::Exception )
|
|
{
|
|
rtl::OUString sLogLocation;
|
|
Reference< XPropertySet > pathSettings( mxMCF->createInstanceWithContext( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.framework.PathSettings" )), mxContext), uno::UNO_QUERY_THROW );
|
|
pathSettings->getPropertyValue( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Work" )) ) >>= sLogLocation;
|
|
sLogLocation = sLogLocation.concat( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "/" )) ).concat( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "HelperAPI-test.log" )) );
|
|
return sLogLocation;
|
|
}
|
|
rtl::OUString getLogLocationWithName( OUString fileName ) throw ( beans::UnknownPropertyException, lang::IllegalArgumentException, lang::WrappedTargetException, uno::Exception )
|
|
{
|
|
printf("%s\n", getenv("HOME") );
|
|
printf("file name %s\n", rtl::OUStringToOString( fileName, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
rtl::OUString sLogLocation;
|
|
Reference< XPropertySet > pathSettings( mxMCF->createInstanceWithContext( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.framework.PathSettings" )), mxContext), uno::UNO_QUERY_THROW );
|
|
pathSettings->getPropertyValue( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Work" )) ) >>= sLogLocation;
|
|
sLogLocation = sLogLocation.concat( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "/" )) ).concat( fileName.copy ( 0, fileName.lastIndexOf( EXTN ) ) + rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ".log" )) );
|
|
return sLogLocation;
|
|
}
|
|
|
|
void proccessDocument( const rtl::OUString& sUrl )
|
|
{
|
|
if ( !mxSFA->isFolder( sUrl ) && sUrl.endsWithIgnoreAsciiCaseAsciiL( ".xls", 4 ) )
|
|
|
|
{
|
|
try
|
|
{
|
|
OSL_TRACE( "processing %s", rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
printf( "processing %s\n", rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
// Loading the wanted document
|
|
Sequence< PropertyValue > propertyValues(1);
|
|
propertyValues[0].Name = rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "Hidden" ));
|
|
propertyValues[0].Value <<= false;
|
|
|
|
rtl::OUString sfileUrl = convertToURL( sUrl );
|
|
printf( "try to get xDoc %s\n", rtl::OUStringToOString( sfileUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
Reference< uno::XInterface > xDoc =
|
|
mxCompLoader->loadComponentFromURL( sfileUrl, rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "_blank" )), 0, propertyValues);
|
|
printf( "got xDoc\n" );
|
|
|
|
OUString logFileURL = convertToURL( getLogLocation() );
|
|
try
|
|
{
|
|
Reference< script::provider::XScriptProviderSupplier > xSupplier( xDoc, uno::UNO_QUERY_THROW ) ;
|
|
if ( mxSFA->exists( logFileURL ) )
|
|
mxSFA->kill( logFileURL );
|
|
|
|
printf("try to get the ScriptProvider\n");
|
|
Reference< script::provider::XScriptProvider > xProv = xSupplier->getScriptProvider();
|
|
printf("get the ScriptProvider\n");
|
|
printf("try to get the Script\n");
|
|
Reference< script::provider::XScript > xScript;
|
|
try
|
|
{
|
|
xScript = xProv->getScript( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "vnd.sun.star.script:VBAProject.TestMacros.Main?language=Basic&location=document") ));
|
|
} catch ( uno::Exception& e )
|
|
{
|
|
try
|
|
{
|
|
xScript = xProv->getScript( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "vnd.sun.star.script:VBAProject.testMacro.Main?language=Basic&location=document" )));
|
|
} catch ( uno::Exception& e2 )
|
|
{
|
|
xScript = xProv->getScript( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "vnd.sun.star.script:VBAProject.testMain.Main?language=Basic&location=document" )));
|
|
}
|
|
}
|
|
OSL_TRACE("Got script for doc %s", rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
printf("get the Script\n");
|
|
Sequence< uno::Any > aArgs;
|
|
Sequence< sal_Int16 > aOutArgsIndex;
|
|
Sequence< uno::Any > aOutArgs;
|
|
|
|
xScript->invoke(aArgs, aOutArgsIndex, aOutArgs);
|
|
|
|
OUString fileName = sUrl.copy ( sUrl.lastIndexOf( '/' ) );
|
|
OUString newLocation = msOutDirPath + fileName.copy ( 0, fileName.lastIndexOf( EXTN ) ) + rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( ".log" ));
|
|
try
|
|
{
|
|
printf("move log file\n");
|
|
mxSFA->move( logFileURL, newLocation );
|
|
OSL_TRACE("new logfile location is %s ", rtl::OUStringToOString( newLocation, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
printf("moved to new location\n");
|
|
}
|
|
catch ( uno::Exception& e )
|
|
{
|
|
logFileURL = convertToURL( getLogLocationWithName( fileName ) );
|
|
printf("move log file from %s\n", rtl::OUStringToOString( logFileURL, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
mxSFA->move( logFileURL, newLocation );
|
|
OSL_TRACE("new logfile location is %s ", rtl::OUStringToOString( newLocation, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
printf("moved to new location\n");
|
|
}
|
|
|
|
}
|
|
catch ( uno::Exception& e )
|
|
{
|
|
std::cerr << "Caught exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
|
|
}
|
|
|
|
// interface is supported, otherwise use XComponent.dispose
|
|
Reference< util::XCloseable > xCloseable ( xDoc, uno::UNO_QUERY );
|
|
|
|
if ( xCloseable.is() )
|
|
{
|
|
printf("try to close\n");
|
|
// will close application. and only run a test case for 3.0
|
|
// maybe it is a bug. yes, it is a bug
|
|
// if only one frame and model, click a button which related will colse.
|
|
// will make a crash. It related with window listener.
|
|
// so, for run all test cases, it should not close the document at this moment.
|
|
xCloseable->close(false);
|
|
printf("closed\n");
|
|
}
|
|
else
|
|
{
|
|
printf("try to dispose\n");
|
|
Reference< XComponent > xComp( xDoc, uno::UNO_QUERY_THROW );
|
|
// same as close.
|
|
xComp->dispose();
|
|
printf("disposed\n");
|
|
}
|
|
}
|
|
catch( uno::Exception& e )
|
|
{
|
|
std::cerr << "Caught exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
|
|
}
|
|
|
|
}
|
|
printf("complete processing %s\n", rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
|
|
}
|
|
|
|
void traverse( const rtl::OUString& sFileDirectory )
|
|
{
|
|
rtl::OUString sFileDirectoryURL = convertToURL( sFileDirectory );
|
|
if ( !mxSFA->isFolder( sFileDirectoryURL) )
|
|
{
|
|
throw lang::IllegalArgumentException( rtl::OUString(RTL_CONSTASCII_USTRINGPARAM( "not a directory: ")).concat( sFileDirectoryURL ), Reference<uno::XInterface>(), 1 );
|
|
}
|
|
// Getting all files and directories in the current directory
|
|
Sequence<OUString> entries = mxSFA->getFolderContents( sFileDirectoryURL, false );
|
|
|
|
// Iterating for each file and directory
|
|
printf( "Entries %d\n", (int)entries.getLength() );
|
|
for ( sal_Int32 i = 0; i < entries.getLength(); ++i )
|
|
{
|
|
proccessDocument( entries[ i ] );
|
|
}
|
|
}
|
|
};
|
|
|
|
void tryDispose( Reference< uno::XInterface > xIF, const char* sComp )
|
|
{
|
|
Reference< lang::XComponent > xComponent( xIF, uno::UNO_QUERY );
|
|
if ( xComponent.is() )
|
|
{
|
|
try
|
|
{
|
|
xComponent->dispose();
|
|
}
|
|
catch( uno::Exception& e )
|
|
{
|
|
std::cerr << "tryDispose caught exception " <<rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << " while disposing " << sComp << std::endl;
|
|
}
|
|
}
|
|
}
|
|
int main( int argv, char** argc )
|
|
{
|
|
if ( !( argv > 2 ) )
|
|
return usage( argc[0] );
|
|
try
|
|
{
|
|
|
|
OSL_TRACE("Attempting to bootstrap normal");
|
|
Reference<XComponentContext> xCC = ::cppu::bootstrap();
|
|
Reference<XMultiComponentFactory> xFactory = xCC->getServiceManager();
|
|
OSL_TRACE("got servicemanager");
|
|
std::cout << "got servicemanager" << std::endl;
|
|
Reference<XInterface> desktop = xFactory->createInstanceWithContext(
|
|
ascii("com.sun.star.frame.Desktop"), xCC);
|
|
OSL_TRACE("got desktop");
|
|
std::cout << "got desktop" << std::endl;
|
|
Reference<frame::XComponentLoader> xLoader(desktop, UNO_QUERY_THROW);
|
|
TestVBA* dTest = new TestVBA( xCC, xFactory, xLoader, ascii( argc[ 2 ] ) );
|
|
if ( argv == 4 )
|
|
{
|
|
std::cout << "before process" << std::endl;
|
|
dTest->proccessDocument( ascii( argc[ 3 ] ) );
|
|
std::cout << "after process" << std::endl;
|
|
}
|
|
else
|
|
{
|
|
dTest->traverse( ascii( argc[ 1 ] ) );
|
|
}
|
|
delete dTest;
|
|
|
|
}
|
|
catch( uno::Exception& e )
|
|
{
|
|
std::cerr << "Caught Exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
|
|
}
|
|
|
|
}
|
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|