xref: /aoo41x/main/sc/source/ui/vba/testvba/testvba.cxx (revision b3f79822)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 #include "cppuhelper/bootstrap.hxx"
23 
24 #include <com/sun/star/beans/Property.hpp>
25 #include <com/sun/star/beans/XPropertySet.hpp>
26 #include <com/sun/star/beans/XPropertySetInfo.hpp>
27 #include <com/sun/star/container/XNameAccess.hpp>
28 #include <com/sun/star/container/XNameContainer.hpp>
29 #include <com/sun/star/frame/XComponentLoader.hpp>
30 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
31 #include <com/sun/star/sheet/XSpreadsheet.hpp>
32 #include <com/sun/star/sheet/XSpreadsheetDocument.hpp>
33 #include <com/sun/star/util/XCloseable.hpp>
34 #include <com/sun/star/uno/XComponentContext.hpp>
35 #include <com/sun/star/ucb/XSimpleFileAccess.hpp>
36 #include <com/sun/star/script/provider/XScriptProviderSupplier.hpp>
37 #include <com/sun/star/document/XTypeDetection.hpp>
38 
39 #include <tools/urlobj.hxx>
40 #include <osl/file.hxx>
41 
42 #include <memory>
43 #include <iostream>
44 
45 using namespace ::com::sun::star;
46 using namespace ::com::sun::star::sheet;
47 
48 using ::com::sun::star::beans::Property;
49 using ::com::sun::star::beans::PropertyValue;
50 using ::com::sun::star::beans::XPropertySet;
51 using ::com::sun::star::beans::XPropertySetInfo;
52 using ::com::sun::star::container::XNameContainer;
53 using ::com::sun::star::lang::XComponent;
54 using ::com::sun::star::lang::XMultiComponentFactory;
55 using ::com::sun::star::frame::XComponentLoader;
56 using ::com::sun::star::uno::Reference;
57 using ::com::sun::star::uno::Sequence;
58 using ::com::sun::star::uno::UNO_QUERY;
59 using ::com::sun::star::uno::UNO_QUERY_THROW;
60 using ::com::sun::star::uno::XComponentContext;
61 using ::com::sun::star::uno::XInterface;
62 using ::com::sun::star::ucb::XSimpleFileAccess;
63 using ::com::sun::star::document::XTypeDetection;
64 using ::rtl::OUString;
65 
66 using ::std::auto_ptr;
67 
68 const OUString EXTN = rtl::OUString::createFromAscii(".xls");
69 
convertToURL(const OUString & rPath)70 OUString convertToURL( const OUString& rPath )
71 {
72         rtl::OUString aURL;
73         INetURLObject aObj;
74         aObj.SetURL( rPath );
75         bool bIsURL = aObj.GetProtocol() != INET_PROT_NOT_VALID;
76         if ( bIsURL )
77                 aURL = rPath;
78         else
79 		{
80                 osl::FileBase::getFileURLFromSystemPath( rPath, aURL );
81 				if ( aURL.equals( rPath ) )
82 					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 >() );
83 		}
84 		return aURL;
85 }
86 
ascii(const sal_Char * cstr)87 OUString ascii(const sal_Char* cstr)
88 {
89 	return OUString::createFromAscii(cstr);
90 }
91 
getStr(const OUString & ou)92 const sal_Char* getStr(const OUString& ou)
93 {
94     return OUStringToOString(ou, RTL_TEXTENCODING_UTF8).getStr();
95 }
96 
97 
usage(const char * pName)98 int usage( const char* pName )
99 {
100 	std::cerr << "usage: " << pName << "<path to testdocument dir> <output_directory>" << std::endl;
101         return 1;
102 
103 }
104 
105 class TestVBA
106 {
107 private:
108 	Reference< XComponentContext >  mxContext;
109 	Reference< XMultiComponentFactory > mxMCF;
110 	Reference< XComponentLoader > mxCompLoader;
111 	Reference< XSimpleFileAccess > mxSFA;
112 	rtl::OUString msOutDirPath;
113 protected:
114 public:
TestVBA(const Reference<XComponentContext> & _xContext,const Reference<XMultiComponentFactory> & _xMCF,const Reference<XComponentLoader> & _xCompLoader,const rtl::OUString & _outDirPath)115 	TestVBA( const Reference< XComponentContext >&  _xContext,
116 		const Reference< XMultiComponentFactory >& _xMCF,
117 		const Reference< XComponentLoader >& _xCompLoader,
118 		const rtl::OUString& _outDirPath ) : mxContext( _xContext ), mxMCF( _xMCF ),
119 mxCompLoader( _xCompLoader ), msOutDirPath( convertToURL( _outDirPath  ) )
120 	{
121 		mxSFA.set( mxMCF->createInstanceWithContext( rtl::OUString::createFromAscii( "com.sun.star.ucb.SimpleFileAccess" ), mxContext), uno::UNO_QUERY_THROW );
122 	}
123 
getLogLocation()124 	rtl::OUString getLogLocation() throw (  beans::UnknownPropertyException,  lang::IllegalArgumentException, lang::WrappedTargetException,  uno::Exception )
125 	{
126 		rtl::OUString sLogLocation;
127 		Reference< XPropertySet > pathSettings( mxMCF->createInstanceWithContext( rtl::OUString::createFromAscii( "com.sun.star.comp.framework.PathSettings" ), mxContext), uno::UNO_QUERY_THROW );
128 		pathSettings->getPropertyValue( rtl::OUString::createFromAscii( "Work" ) ) >>= sLogLocation;
129 		sLogLocation = sLogLocation.concat( rtl::OUString::createFromAscii( "/" ) ).concat( rtl::OUString::createFromAscii( "HelperAPI-test.log" ) );
130 		return sLogLocation;
131 	}
getLogLocationWithName(OUString fileName)132 	rtl::OUString getLogLocationWithName( OUString fileName ) throw (  beans::UnknownPropertyException,  lang::IllegalArgumentException, lang::WrappedTargetException,  uno::Exception )
133     {
134         printf("%s\n", getenv("HOME") );
135     	printf("file name %s\n", rtl::OUStringToOString( fileName, RTL_TEXTENCODING_UTF8 ).getStr() );
136 		//rtl::OUString sLogLocation( rtl::OUString::createFromAscii( getenv("HOME") ) );
137 		rtl::OUString sLogLocation;
138 		Reference< XPropertySet > pathSettings( mxMCF->createInstanceWithContext( rtl::OUString::createFromAscii( "com.sun.star.comp.framework.PathSettings" ), mxContext), uno::UNO_QUERY_THROW );
139 		pathSettings->getPropertyValue( rtl::OUString::createFromAscii( "Work" ) ) >>= sLogLocation;
140 		sLogLocation = sLogLocation.concat( rtl::OUString::createFromAscii( "/" ) ).concat( fileName.copy ( 0, fileName.lastIndexOf( EXTN )  ) + rtl::OUString::createFromAscii( ".log" ) );
141 		return sLogLocation;
142     }
143 
init()144 	void init()
145 	{
146 		// blow away previous logs?
147 	}
148 
proccessDocument(const rtl::OUString & sUrl)149 	void proccessDocument( const rtl::OUString& sUrl )
150 	{
151 			if ( !mxSFA->isFolder( sUrl ) && sUrl.endsWithIgnoreAsciiCaseAsciiL( ".xls", 4 ) )
152 
153 			{
154 				try
155 				{
156 					OSL_TRACE( "processing %s",  rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
157 					printf( "processing %s\n",  rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
158 					// Loading the wanted document
159 					Sequence< PropertyValue > propertyValues(1);
160 					propertyValues[0].Name = rtl::OUString::createFromAscii( "Hidden" );
161 					propertyValues[0].Value <<= sal_False;
162 
163                     rtl::OUString sfileUrl = convertToURL( sUrl );
164 					printf( "try to get xDoc %s\n", rtl::OUStringToOString( sfileUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
165 					Reference< uno::XInterface > xDoc =
166 						mxCompLoader->loadComponentFromURL( sfileUrl, rtl::OUString::createFromAscii( "_blank" ), 0, propertyValues);
167 					printf( "got xDoc\n" );
168 
169 					OUString logFileURL = convertToURL( getLogLocation() );
170 					try
171 					{
172 						Reference< script::provider::XScriptProviderSupplier > xSupplier( xDoc, uno::UNO_QUERY_THROW ) ;
173 						if ( mxSFA->exists( logFileURL ) )
174 							mxSFA->kill( logFileURL );
175 
176 						printf("try to get the ScriptProvider\n");
177 						Reference< script::provider::XScriptProvider > xProv = xSupplier->getScriptProvider();
178 						printf("get the ScriptProvider\n");
179 						printf("try to get the Script\n");
180                         Reference< script::provider::XScript > xScript;
181 						try
182                         {
183 						    xScript = xProv->getScript( rtl::OUString::createFromAscii( "vnd.sun.star.script:Standard.TestMacros.Main?language=Basic&location=document" ));
184                         } catch ( uno::Exception& e )
185                         {
186                             try
187                             {
188 						        xScript = xProv->getScript( rtl::OUString::createFromAscii( "vnd.sun.star.script:Standard.testMacro.Main?language=Basic&location=document" ));
189                             } catch ( uno::Exception& e2 )
190                             {
191 						        xScript = xProv->getScript( rtl::OUString::createFromAscii( "vnd.sun.star.script:Standard.testMain.Main?language=Basic&location=document" ));
192                             }
193                         }
194 						OSL_TRACE("Got script for doc %s", rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
195 						printf("get the Script\n");
196 						Sequence< uno::Any > aArgs;
197 						Sequence< sal_Int16 > aOutArgsIndex;
198 						Sequence< uno::Any > aOutArgs;
199 
200 						xScript->invoke(aArgs, aOutArgsIndex, aOutArgs);
201 
202 						OUString fileName = sUrl.copy ( sUrl.lastIndexOf( '/' ) );
203 						OUString newLocation = msOutDirPath + fileName.copy ( 0, fileName.lastIndexOf( EXTN )  ) + rtl::OUString::createFromAscii( ".log" );
204                         try
205                         {
206     						printf("move log file\n");
207 	    					mxSFA->move( logFileURL, newLocation );
208 		    				OSL_TRACE("new logfile location is %s ", rtl::OUStringToOString( newLocation, RTL_TEXTENCODING_UTF8 ).getStr() );
209 			    			printf("moved to new location\n");
210                         }
211                         catch ( uno::Exception& e )
212                         {
213                             logFileURL = convertToURL( getLogLocationWithName( fileName ) );
214     						printf("move log file from %s\n", rtl::OUStringToOString( logFileURL, RTL_TEXTENCODING_UTF8 ).getStr() );
215 	    					mxSFA->move( logFileURL, newLocation );
216 		    				OSL_TRACE("new logfile location is %s ", rtl::OUStringToOString( newLocation, RTL_TEXTENCODING_UTF8 ).getStr() );
217 			    			printf("moved to new location\n");
218                         }
219 
220 					}
221 					catch ( uno::Exception& e )
222 					{
223 						std::cerr << "Caught exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
224 					}
225 
226 					// interface is supported, otherwise use XComponent.dispose
227 					Reference< util::XCloseable > xCloseable ( xDoc, uno::UNO_QUERY );
228 
229 					if ( xCloseable.is() )
230 					{
231 			    		printf("try to close\n");
232                         // will close application. and only run a test case for 3.0
233                         // maybe it is a bug. yes, it is a bug
234                         // if only one frame and model, click a button which related will colse.
235                         // will make a crash. It related with window listener.
236                         // so, for run all test cases, it should not close the document at this moment.
237 						xCloseable->close(sal_False);
238 			    		printf("closed\n");
239 					}
240 					else
241 					{
242 			    		printf("try to dispose\n");
243 						Reference< XComponent > xComp( xDoc, uno::UNO_QUERY_THROW );
244                         // same as close.
245 						xComp->dispose();
246 			    		printf("disposed\n");
247 					}
248 				}
249 				catch( uno::Exception& e )
250 				{
251 					std::cerr << "Caught exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
252 				}
253 
254 			}
255 		printf("complete processing %s\n", rtl::OUStringToOString( sUrl, RTL_TEXTENCODING_UTF8 ).getStr() );
256 	}
257 
traverse(const rtl::OUString & sFileDirectory)258 	void traverse( const rtl::OUString& sFileDirectory )
259 	{
260 		rtl::OUString sFileDirectoryURL = convertToURL( sFileDirectory );
261 		if ( !mxSFA->isFolder( sFileDirectoryURL) )
262 		{
263 			throw lang::IllegalArgumentException( rtl::OUString::createFromAscii( "not a directory: ").concat( sFileDirectoryURL ), Reference<uno::XInterface>(), 1 );
264 		}
265 		// Getting all files and directories in the current directory
266 		Sequence<OUString> entries = mxSFA->getFolderContents( sFileDirectoryURL, sal_False );
267 
268 		// Iterating for each file and directory
269         printf( "Entries %d\n", (int)entries.getLength() );
270 		for ( sal_Int32 i = 0; i < entries.getLength(); ++i )
271 		{
272             proccessDocument( entries[ i ] );
273 		}
274 	}
275 };
276 
tryDispose(Reference<uno::XInterface> xIF,const char * sComp)277 void tryDispose( Reference< uno::XInterface > xIF, const char* sComp )
278 {
279 	Reference< lang::XComponent > xComponent( xIF, uno::UNO_QUERY );
280 	if ( xComponent.is() )
281 	{
282 		try
283 		{
284 			xComponent->dispose();
285 		}
286 		catch( uno::Exception& e )
287 		{
288 			std::cerr << "tryDispose caught exception " <<rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << " while disposing " <<  sComp << std::endl;
289 		}
290 	}
291 }
main(int argv,char ** argc)292 int main( int argv, char** argc )
293 {
294 	if ( !( argv > 2 ) )
295 		return usage( argc[0] );
296 	try
297 	{
298 
299 		OSL_TRACE("Attempting to bootstrap normal");
300 		Reference<XComponentContext> xCC = ::cppu::bootstrap();
301 		Reference<XMultiComponentFactory> xFactory = xCC->getServiceManager();
302 		OSL_TRACE("got servicemanager");
303         std::cout << "got servicemanager" << std::endl;
304 		Reference<XInterface> desktop = xFactory->createInstanceWithContext(
305 		ascii("com.sun.star.frame.Desktop"), xCC);
306 		OSL_TRACE("got desktop");
307         std::cout << "got desktop" << std::endl;
308 		Reference<frame::XComponentLoader> xLoader(desktop, UNO_QUERY_THROW);
309 		TestVBA* dTest = new TestVBA( xCC, xFactory, xLoader, ascii( argc[ 2 ] ) );
310         if ( argv == 4 )
311         {
312             std::cout << "before process" << std::endl;
313             dTest->proccessDocument( ascii( argc[ 3 ] ) );
314             std::cout << "after process" << std::endl;
315         }
316         else
317         {
318 		    dTest->traverse( ascii( argc[ 1 ] ) );
319         }
320 		delete dTest;
321 //		tryDispose( xLoader, "desktop" );
322 //		tryDispose( xCC, "remote context" );
323 
324 	}
325 	catch( uno::Exception& e )
326 	{
327 		std::cerr << "Caught Exception " << rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_UTF8 ).getStr() << std::endl;
328 	}
329 
330 }
331