xref: /AOO41X/main/sc/source/ui/vba/testvba/testvba.cxx (revision cdf0e10c4e3984b49a9502b011690b615761d4a3)

#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::OUString::createFromAscii(".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::createFromAscii( "could'nt convert " ).concat( rPath ).concat( rtl::OUString::createFromAscii( " 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::createFromAscii( "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::createFromAscii( "com.sun.star.comp.framework.PathSettings" ), mxContext), uno::UNO_QUERY_THROW );
		pathSettings->getPropertyValue( rtl::OUString::createFromAscii( "Work" ) ) >>= sLogLocation;
		sLogLocation = sLogLocation.concat( rtl::OUString::createFromAscii( "/" ) ).concat( rtl::OUString::createFromAscii( "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( rtl::OUString::createFromAscii( getenv("HOME") ) );
		rtl::OUString sLogLocation;
		Reference< XPropertySet > pathSettings( mxMCF->createInstanceWithContext( rtl::OUString::createFromAscii( "com.sun.star.comp.framework.PathSettings" ), mxContext), uno::UNO_QUERY_THROW );
		pathSettings->getPropertyValue( rtl::OUString::createFromAscii( "Work" ) ) >>= sLogLocation;
		sLogLocation = sLogLocation.concat( rtl::OUString::createFromAscii( "/" ) ).concat( fileName.copy ( 0, fileName.lastIndexOf( EXTN )  ) + rtl::OUString::createFromAscii( ".log" ) );
		return sLogLocation;
    }

	void init()
	{
		// blow away previous logs?
	}

	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::createFromAscii( "Hidden" );
					propertyValues[0].Value <<= sal_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::createFromAscii( "_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::createFromAscii( "vnd.sun.star.script:Standard.TestMacros.Main?language=Basic&location=document" ));
                        } catch ( uno::Exception& e )
                        {
                            try
                            {
						        xScript = xProv->getScript( rtl::OUString::createFromAscii( "vnd.sun.star.script:Standard.testMacro.Main?language=Basic&location=document" ));
                            } catch ( uno::Exception& e2 )
                            {
						        xScript = xProv->getScript( rtl::OUString::createFromAscii( "vnd.sun.star.script:Standard.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::createFromAscii( ".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(sal_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::createFromAscii( "not a directory: ").concat( sFileDirectoryURL ), Reference<uno::XInterface>(), 1 );
		}
		// Getting all files and directories in the current directory
		Sequence<OUString> entries = mxSFA->getFolderContents( sFileDirectoryURL, sal_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;
//		tryDispose( xLoader, "desktop" );
//		tryDispose( xCC, "remote context" );

	}
	catch( uno::Exception& e )
	{
		std::cerr << "Caught Exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
	}

}