xref: /aoo42x/main/cpputools/source/unoexe/unoexe.cxx (revision 01797804) 
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 
23 
24 #include <stdio.h>
25 #include <vector>
26 
27 #include "sal/main.h"
28 #include <osl/diagnose.h>
29 #include <osl/mutex.hxx>
30 #include <osl/conditn.hxx>
31 #include <osl/module.h>
32 
33 #include <rtl/process.h>
34 #include <rtl/string.h>
35 #include <rtl/strbuf.hxx>
36 #include <rtl/ustrbuf.hxx>
37 
38 #include <uno/environment.h>
39 #include <uno/mapping.hxx>
40 
41 #include <cppuhelper/factory.hxx>
42 #include <cppuhelper/bootstrap.hxx>
43 #include <cppuhelper/servicefactory.hxx>
44 #include <cppuhelper/shlib.hxx>
45 #include <cppuhelper/implbase1.hxx>
46 
47 #include <com/sun/star/lang/XMain.hpp>
48 #include <com/sun/star/lang/XInitialization.hpp>
49 #include <com/sun/star/lang/XComponent.hpp>
50 #include <com/sun/star/lang/XSingleServiceFactory.hpp>
51 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
52 #include <com/sun/star/lang/XEventListener.hpp>
53 #include <com/sun/star/container/XSet.hpp>
54 #include <com/sun/star/loader/XImplementationLoader.hpp>
55 #include <com/sun/star/registry/XSimpleRegistry.hpp>
56 #include <com/sun/star/registry/XRegistryKey.hpp>
57 #include <com/sun/star/connection/XAcceptor.hpp>
58 #include <com/sun/star/connection/XConnection.hpp>
59 #include <com/sun/star/bridge/XBridgeFactory.hpp>
60 #include <com/sun/star/bridge/XBridge.hpp>
61 #include <osl/process.h>
62 #include <osl/thread.h>
63 #include <osl/file.hxx>
64 
65 #ifdef SAL_UNX
66 #define SEPARATOR '/'
67 #else
68 #define SEPARATOR '\\'
69 #endif
70 
71 using namespace std;
72 using namespace rtl;
73 using namespace osl;
74 using namespace cppu;
75 using namespace com::sun::star::uno;
76 using namespace com::sun::star::lang;
77 using namespace com::sun::star::loader;
78 using namespace com::sun::star::registry;
79 using namespace com::sun::star::connection;
80 using namespace com::sun::star::bridge;
81 using namespace com::sun::star::container;
82 
83 namespace unoexe
84 {
85 
86 static sal_Bool isFileUrl(const OUString& fileName)
87 {
88     if (fileName.indexOf(OUString::createFromAscii("file://")) == 0 )
89         return sal_True;
90     return sal_False;
91 }
92 
93 static OUString convertToFileUrl(const OUString& fileName)
94 {
95     if ( isFileUrl(fileName) )
96     {
97         return fileName;
98     }
99 
100     OUString uUrlFileName;
101     if ( fileName.indexOf('.') == 0 || fileName.indexOf(SEPARATOR) < 0 )
102     {
103         OUString uWorkingDir;
104         if (osl_getProcessWorkingDir(&uWorkingDir.pData) != osl_Process_E_None) {
105             OSL_ASSERT(false);
106         }
107         if (FileBase::getAbsoluteFileURL(uWorkingDir, fileName, uUrlFileName)
108             != FileBase::E_None)
109         {
110             OSL_ASSERT(false);
111         }
112     } else
113     {
114         if (FileBase::getFileURLFromSystemPath(fileName, uUrlFileName)
115             != FileBase::E_None)
116         {
117             OSL_ASSERT(false);
118         }
119     }
120 
121     return uUrlFileName;
122 }
123 
124 static sal_Bool s_quiet = false;
125 
126 //--------------------------------------------------------------------------------------------------
127 static inline void out( const sal_Char * pText )
128 {
129     if (! s_quiet)
130         fprintf( stderr, pText );
131 }
132 //--------------------------------------------------------------------------------------------------
133 static inline void out( const OUString & rText )
134 {
135     if (! s_quiet)
136     {
137         OString aText( OUStringToOString( rText, RTL_TEXTENCODING_ASCII_US ) );
138         fprintf( stderr, aText.getStr() );
139     }
140 }
141 
142 //--------------------------------------------------------------------------------------------------
143 static const char arUsingText[] =
144 "\nusing:\n\n"
145 "uno [-c ComponentImplementationName -l LocationUrl | -s ServiceName]\n"
146 "    [-ro ReadOnlyRegistry1] [-ro ReadOnlyRegistry2] ... [-rw ReadWriteRegistry]\n"
147 "    [-u uno:(socket[,host=HostName][,port=nnn]|pipe[,name=PipeName]);<protocol>;Name\n"
148 "        [--singleaccept] [--singleinstance]]\n"
149 "    [--quiet]\n"
150 "    [-- Argument1 Argument2 ...]\n";
151 
152 //--------------------------------------------------------------------------------------------------
153 static sal_Bool readOption( OUString * pValue, const sal_Char * pOpt,
154 							sal_Int32 * pnIndex, const OUString & aArg)
155 	throw (RuntimeException)
156 {
157 	const OUString dash = OUString(RTL_CONSTASCII_USTRINGPARAM("-"));
158 	if(aArg.indexOf(dash) != 0)
159 		return sal_False;
160 
161 	OUString aOpt = OUString::createFromAscii( pOpt );
162 
163 	if (aArg.getLength() < aOpt.getLength())
164 		return sal_False;
165 
166 	if (aOpt.equalsIgnoreAsciiCase( aArg.copy(1) ))
167 	{
168 		// take next argument
169 		++(*pnIndex);
170 
171 		rtl_getAppCommandArg(*pnIndex, &pValue->pData);
172 		if (*pnIndex >= (sal_Int32)rtl_getAppCommandArgCount() || pValue->copy(1).equals(dash))
173 		{
174 			OUStringBuffer buf( 32 );
175 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("incomplete option \"-") );
176 			buf.appendAscii( pOpt );
177 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" given!") );
178 			throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
179 		}
180 		else
181 		{
182 #if OSL_DEBUG_LEVEL > 1
183 			out( "\n> identified option -" );
184 			out( pOpt );
185 			out( " = " );
186 			OString tmp = OUStringToOString(aArg, RTL_TEXTENCODING_ASCII_US);
187   			out( tmp.getStr() );
188 #endif
189 			++(*pnIndex);
190 			return sal_True;
191 		}
192 	}
193   	else if (aArg.indexOf(aOpt) == 1)
194 	{
195 		*pValue = aArg.copy(1 + aOpt.getLength());
196 #if OSL_DEBUG_LEVEL > 1
197 		out( "\n> identified option -" );
198 		out( pOpt );
199 		out( " = " );
200 		OString tmp = OUStringToOString(aArg.copy(aOpt.getLength()), RTL_TEXTENCODING_ASCII_US);
201 		out( tmp.getStr() );
202 #endif
203 		++(*pnIndex);
204 
205 		return sal_True;
206 	}
207 	return sal_False;
208 }
209 //--------------------------------------------------------------------------------------------------
210 static sal_Bool readOption( sal_Bool * pbOpt, const sal_Char * pOpt,
211 							sal_Int32 * pnIndex, const OUString & aArg)
212 {
213 	const OUString dashdash(RTL_CONSTASCII_USTRINGPARAM("--"));
214 	OUString aOpt = OUString::createFromAscii(pOpt);
215 
216 	if(aArg.indexOf(dashdash) == 0 && aOpt.equals(aArg.copy(2)))
217 	{
218 		++(*pnIndex);
219 		*pbOpt = sal_True;
220 #if OSL_DEBUG_LEVEL > 1
221 		out( "\n> identified option --" );
222 		out( pOpt );
223 #endif
224 		return sal_True;
225 	}
226 	return sal_False;
227 }
228 
229 
230 //##################################################################################################
231 //##################################################################################################
232 //##################################################################################################
233 
234 
235 //--------------------------------------------------------------------------------------------------
236 template< class T >
237 void createInstance(
238 	Reference< T > & rxOut,
239 	const Reference< XComponentContext > & xContext,
240 	const OUString & rServiceName )
241 	throw (Exception)
242 {
243     Reference< XMultiComponentFactory > xMgr( xContext->getServiceManager() );
244 	Reference< XInterface > x( xMgr->createInstanceWithContext( rServiceName, xContext ) );
245 
246 	if (! x.is())
247 	{
248 		static sal_Bool s_bSet = sal_False;
249 		if (! s_bSet)
250 		{
251 			MutexGuard aGuard( Mutex::getGlobalMutex() );
252 			if (! s_bSet)
253 			{
254 				Reference< XSet > xSet( xMgr, UNO_QUERY );
255 				if (xSet.is())
256 				{
257                     Reference< XMultiServiceFactory > xSF( xMgr, UNO_QUERY );
258 					// acceptor
259 					xSet->insert( makeAny( loadSharedLibComponentFactory(
260 						OUString( RTL_CONSTASCII_USTRINGPARAM(
261                                       "acceptor.uno" SAL_DLLEXTENSION) ),
262                         OUString(),
263 						OUString( RTL_CONSTASCII_USTRINGPARAM(
264                                       "com.sun.star.comp.io.Acceptor") ),
265 						xSF, Reference< XRegistryKey >() ) ) );
266 					// connector
267 					xSet->insert( makeAny( loadSharedLibComponentFactory(
268 						OUString( RTL_CONSTASCII_USTRINGPARAM(
269                                       "connector.uno" SAL_DLLEXTENSION) ),
270                         OUString(),
271 						OUString( RTL_CONSTASCII_USTRINGPARAM(
272                                       "com.sun.star.comp.io.Connector") ),
273 						xSF, Reference< XRegistryKey >() ) ) );
274 					// bridge factory
275 					xSet->insert( makeAny( loadSharedLibComponentFactory(
276 						OUString( RTL_CONSTASCII_USTRINGPARAM(
277                                       "binaryurp.uno" SAL_DLLEXTENSION) ),
278                         OUString(),
279 						OUString(
280                             RTL_CONSTASCII_USTRINGPARAM(
281                                 "com.sun.star.comp.bridge.BridgeFactory") ),
282 						xSF, Reference< XRegistryKey >() ) ) );
283 				}
284 				s_bSet = sal_True;
285 			}
286 		}
287 		x = xMgr->createInstanceWithContext( rServiceName, xContext );
288 	}
289 
290 	if (! x.is())
291 	{
292 		OUStringBuffer buf( 64 );
293 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("cannot get service instance \"") );
294 		buf.append( rServiceName );
295 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
296 		throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
297 	}
298 
299 	rxOut = Reference< T >::query( x );
300 	if (! rxOut.is())
301 	{
302 		OUStringBuffer buf( 64 );
303 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("service instance \"") );
304 		buf.append( rServiceName );
305 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" does not support demanded interface \"") );
306 		const Type & rType = ::getCppuType( (const Reference< T > *)0 );
307 		buf.append( rType.getTypeName() );
308 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
309 		throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
310 	}
311 }
312 //--------------------------------------------------------------------------------------------------
313 static Reference< XSimpleRegistry > nestRegistries(
314 	const Reference< XSimpleRegistry > & xReadWrite,
315 	const Reference< XSimpleRegistry > & xReadOnly )
316 	throw (Exception)
317 {
318 	Reference< XSimpleRegistry > xReg( createNestedRegistry() );
319     if (! xReg.is())
320     {
321 		throw RuntimeException(
322             OUString( RTL_CONSTASCII_USTRINGPARAM("no nested registry service!" ) ),
323             Reference< XInterface >() );
324     }
325 
326 	Reference< XInitialization > xInit( xReg, UNO_QUERY );
327 	if (! xInit.is())
328 		throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("nested registry does not export interface \"com.sun.star.lang.XInitialization\"!" ) ), Reference< XInterface >() );
329 
330 	Sequence< Any > aArgs( 2 );
331 	aArgs[0] <<= xReadWrite;
332 	aArgs[1] <<= xReadOnly;
333 	xInit->initialize( aArgs );
334 
335 	return xReg;
336 }
337 //--------------------------------------------------------------------------------------------------
338 static Reference< XSimpleRegistry > openRegistry(
339 	const OUString & rURL,
340 	sal_Bool bReadOnly, sal_Bool bCreate )
341 	throw (Exception)
342 {
343 	Reference< XSimpleRegistry > xNewReg( createSimpleRegistry() );
344     if (! xNewReg.is())
345     {
346 		throw RuntimeException(
347             OUString( RTL_CONSTASCII_USTRINGPARAM("no simple registry service!" ) ),
348             Reference< XInterface >() );
349     }
350 
351 	try
352 	{
353 		xNewReg->open( convertToFileUrl(rURL), bReadOnly, bCreate );
354 		if (xNewReg->isValid())
355 			return xNewReg;
356 		else
357 			xNewReg->close();
358 	}
359 	catch (Exception &)
360 	{
361 	}
362 
363 	out( "\n> warning: cannot open registry \"" );
364 	out( rURL );
365 	if (bReadOnly)
366 		out( "\" for reading, ignoring!" );
367 	else
368 		out( "\" for reading and writing, ignoring!" );
369 	return Reference< XSimpleRegistry >();
370 }
371 //--------------------------------------------------------------------------------------------------
372 static Reference< XInterface > loadComponent(
373 	const Reference< XComponentContext > & xContext,
374 	const OUString & rImplName, const OUString & rLocation )
375 	throw (Exception)
376 {
377 	// determine loader to be used
378 	sal_Int32 nDot = rLocation.lastIndexOf( '.' );
379 	if (nDot > 0 && nDot < rLocation.getLength())
380 	{
381 		Reference< XImplementationLoader > xLoader;
382 
383 		OUString aExt( rLocation.copy( nDot +1 ) );
384 
385 		if (aExt.compareToAscii( "dll" ) == 0 ||
386 			aExt.compareToAscii( "exe" ) == 0 ||
387 			aExt.compareToAscii( "dylib" ) == 0 ||
388 			aExt.compareToAscii( "so" ) == 0)
389 		{
390 			createInstance(
391 				xLoader, xContext, OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.loader.SharedLibrary") ) );
392 		}
393 		else if (aExt.compareToAscii( "jar" ) == 0 ||
394 				 aExt.compareToAscii( "class" ) == 0)
395 		{
396 			createInstance(
397 				xLoader, xContext, OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.loader.Java") ) );
398 		}
399 		else
400 		{
401 			OUStringBuffer buf( 64 );
402 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("unknown extension of \"") );
403 			buf.append( rLocation );
404 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!  No loader available!") );
405 			throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
406 		}
407 
408 		Reference< XInterface > xInstance;
409 
410 		// activate
411 		Reference< XInterface > xFactory( xLoader->activate(
412 			rImplName, OUString(), rLocation, Reference< XRegistryKey >() ) );
413 		if (xFactory.is())
414         {
415             Reference< XSingleComponentFactory > xCFac( xFactory, UNO_QUERY );
416             if (xCFac.is())
417             {
418                 xInstance = xCFac->createInstanceWithContext( xContext );
419             }
420             else
421             {
422                 Reference< XSingleServiceFactory > xSFac( xFactory, UNO_QUERY );
423                 if (xSFac.is())
424                 {
425                     out( "\n> warning: ignroing context for implementation \"" );
426                     out( rImplName );
427                     out( "\"!" );
428                     xInstance = xSFac->createInstance();
429                 }
430             }
431         }
432 
433 		if (! xInstance.is())
434 		{
435 			OUStringBuffer buf( 64 );
436 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("activating component \"") );
437 			buf.append( rImplName );
438 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" from location \"") );
439 			buf.append( rLocation );
440 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" failed!") );
441 			throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
442 		}
443 
444 		return xInstance;
445 	}
446 	else
447 	{
448 		OUStringBuffer buf( 64 );
449 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("location \"") );
450 		buf.append( rLocation );
451 		buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" has no extension!  Cannot determine loader to be used!") );
452 		throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
453 	}
454 }
455 
456 
457 //##################################################################################################
458 //##################################################################################################
459 //##################################################################################################
460 
461 
462 //==================================================================================================
463 class OInstanceProvider
464 	: public WeakImplHelper1< XInstanceProvider >
465 {
466 	Reference< XComponentContext > _xContext;
467 
468 	Mutex							  _aSingleInstanceMutex;
469 	Reference< XInterface >			  _xSingleInstance;
470 	sal_Bool						  _bSingleInstance;
471 
472 	OUString						  _aImplName;
473 	OUString						  _aLocation;
474 	OUString						  _aServiceName;
475 	Sequence< Any >					  _aInitParams;
476 
477 	OUString						  _aInstanceName;
478 
479 	inline Reference< XInterface > createInstance() throw (Exception);
480 
481 public:
482 	OInstanceProvider( const Reference< XComponentContext > & xContext,
483 					   const OUString & rImplName, const OUString & rLocation,
484 					   const OUString & rServiceName, const Sequence< Any > & rInitParams,
485 					   sal_Bool bSingleInstance, const OUString & rInstanceName )
486 		: _xContext( xContext )
487 		, _bSingleInstance( bSingleInstance )
488 		, _aImplName( rImplName )
489 		, _aLocation( rLocation )
490 		, _aServiceName( rServiceName )
491 		, _aInitParams( rInitParams )
492 		, _aInstanceName( rInstanceName )
493 		{}
494 
495 	// XInstanceProvider
496 	virtual Reference< XInterface > SAL_CALL getInstance( const OUString & rName )
497 		throw (NoSuchElementException, RuntimeException);
498 };
499 //__________________________________________________________________________________________________
500 inline Reference< XInterface > OInstanceProvider::createInstance()
501 	throw (Exception)
502 {
503 	Reference< XInterface > xRet;
504 	if (_aImplName.getLength()) // manually via loader
505 		xRet = loadComponent( _xContext, _aImplName, _aLocation );
506 	else // via service manager
507 		unoexe::createInstance( xRet, _xContext, _aServiceName );
508 
509 	// opt XInit
510 	Reference< XInitialization > xInit( xRet, UNO_QUERY );
511 	if (xInit.is())
512 		xInit->initialize( _aInitParams );
513 
514 	return xRet;
515 }
516 //__________________________________________________________________________________________________
517 Reference< XInterface > OInstanceProvider::getInstance( const OUString & rName )
518 	throw (NoSuchElementException, RuntimeException)
519 {
520 	try
521 	{
522 		if (_aInstanceName == rName)
523 		{
524 			Reference< XInterface > xRet;
525 
526             if (_aImplName.getLength() == 0 && _aServiceName.getLength() == 0)
527             {
528                 OSL_ASSERT(
529                     rName.equalsAsciiL(
530                         RTL_CONSTASCII_STRINGPARAM("uno.ComponentContext") ) );
531                 xRet = _xContext;
532             }
533 			else if (_bSingleInstance)
534 			{
535 				if (! _xSingleInstance.is())
536 				{
537 					MutexGuard aGuard( _aSingleInstanceMutex );
538 					if (! _xSingleInstance.is())
539 					{
540 						_xSingleInstance = createInstance();
541 					}
542 				}
543 				xRet = _xSingleInstance;
544 			}
545 			else
546 			{
547 				xRet = createInstance();
548 			}
549 
550 			return xRet;
551 		}
552 	}
553 	catch (Exception & rExc)
554 	{
555 		out( "\n> error: " );
556 		out( rExc.Message );
557 	}
558 	OUStringBuffer buf( 64 );
559 	buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("no such element \"") );
560 	buf.append( rName );
561 	buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
562 	throw NoSuchElementException( buf.makeStringAndClear(), Reference< XInterface >() );
563 }
564 
565 //==================================================================================================
566 struct ODisposingListener : public WeakImplHelper1< XEventListener >
567 {
568 	Condition cDisposed;
569 
570 	// XEventListener
571 	virtual void SAL_CALL disposing( const EventObject & rEvt )
572 		throw (RuntimeException);
573 
574 	//----------------------------------------------------------------------------------------------
575 	static void waitFor( const Reference< XComponent > & xComp );
576 };
577 //__________________________________________________________________________________________________
578 void ODisposingListener::disposing( const EventObject & )
579 	throw (RuntimeException)
580 {
581 	cDisposed.set();
582 }
583 //--------------------------------------------------------------------------------------------------
584 void ODisposingListener::waitFor( const Reference< XComponent > & xComp )
585 {
586 	ODisposingListener * pListener = new ODisposingListener();
587 	Reference< XEventListener > xListener( pListener );
588 
589 	xComp->addEventListener( xListener );
590 	pListener->cDisposed.wait();
591 }
592 
593 
594 //##################################################################################################
595 //##################################################################################################
596 //##################################################################################################
597 
598 
599 //##################################################################################################
600 } // namespace unoexe
601 
602 using namespace unoexe;
603 
604 SAL_IMPLEMENT_MAIN_WITH_ARGS(argc,)
605 {
606 	if (argc <= 1)
607 	{
608 		out( arUsingText );
609 		return 0;
610 	}
611 
612 	sal_Int32 nRet = 0;
613 	Reference< XComponentContext > xContext;
614 
615 
616 	try
617 	{
618 		OUString aImplName, aLocation, aServiceName, aUnoUrl;
619 		vector< OUString > aReadOnlyRegistries;
620 		Sequence< OUString > aParams;
621 		sal_Bool bSingleAccept = sal_False;
622 		sal_Bool bSingleInstance = sal_False;
623 
624 		//#### read command line arguments #########################################################
625 
626 		bool bOldRegistryMimic = false;
627 		bool bNewRegistryMimic = false;
628 		OUString aReadWriteRegistry;
629 
630 		sal_Int32 nPos = 0;
631         sal_Int32 nCount = (sal_Int32)rtl_getAppCommandArgCount();
632 		// read up to arguments
633 		while (nPos < nCount)
634 		{
635 			OUString arg;
636 
637 			rtl_getAppCommandArg(nPos, &arg.pData);
638 
639 			const OUString dashdash = OUString(RTL_CONSTASCII_USTRINGPARAM("--"));
640 			if (dashdash == arg)
641 			{
642 				++nPos;
643 				break;
644 			}
645 
646 			if (readOption( &aImplName, "c", &nPos, arg)				||
647 				readOption( &aLocation, "l", &nPos, arg)				||
648 				readOption( &aServiceName, "s", &nPos, arg)				||
649 				readOption( &aUnoUrl, "u", &nPos, arg)					||
650 				readOption( &s_quiet, "quiet", &nPos, arg)              ||
651 				readOption( &bSingleAccept, "singleaccept", &nPos, arg)	||
652 				readOption( &bSingleInstance, "singleinstance", &nPos, arg))
653 			{
654 				continue;
655 			}
656 			OUString aRegistry;
657 			if (readOption( &aRegistry, "ro", &nPos, arg))
658 			{
659 				aReadOnlyRegistries.push_back( aRegistry );
660 				bNewRegistryMimic = true;
661 				continue;
662 			}
663 			if (readOption( &aReadWriteRegistry, "rw", &nPos, arg))
664 			{
665 				bNewRegistryMimic = true;
666 				continue;
667 			}
668 			if (readOption( &aRegistry, "r", &nPos, arg))
669 			{
670 				aReadOnlyRegistries.push_back( aRegistry );
671 				aReadWriteRegistry = aRegistry;
672 				out( "\n> warning: DEPRECATED use of option -r, use -ro or -rw!" );
673 				bOldRegistryMimic = true;
674 				continue;
675 			}
676 
677 			// else illegal argument
678 			OUStringBuffer buf( 64 );
679 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("unexpected parameter \"") );
680 			buf.append(arg);
681 			buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
682 			throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
683 		}
684 
685 		if (bOldRegistryMimic) // last one was set to be read-write
686 		{
687 			aReadOnlyRegistries.pop_back();
688 			if (bOldRegistryMimic && bNewRegistryMimic)
689 			{
690 				throw RuntimeException(
691 					OUString( RTL_CONSTASCII_USTRINGPARAM("mixing with DEPRECATED registry options!") ),
692 					Reference< XInterface >() );
693 			}
694 		}
695 
696 		if ((aImplName.getLength() != 0) && (aServiceName.getLength() != 0))
697 			throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("give component exOR service name!" ) ), Reference< XInterface >() );
698         if (aImplName.getLength() == 0 && aServiceName.getLength() == 0)
699         {
700             if (! aUnoUrl.endsWithIgnoreAsciiCaseAsciiL(
701                     RTL_CONSTASCII_STRINGPARAM(";uno.ComponentContext") ))
702                 throw RuntimeException(
703                     OUString( RTL_CONSTASCII_USTRINGPARAM(
704                                   "expected UNO-URL with instance name "
705                                   "uno.ComponentContext!") ),
706                     Reference<XInterface>() );
707             if (bSingleInstance)
708                 throw RuntimeException(
709                     OUString( RTL_CONSTASCII_USTRINGPARAM(
710                                   "unexpected option --singleinstance!") ),
711                     Reference<XInterface>() );
712         }
713 		if (aImplName.getLength() && !aLocation.getLength())
714 			throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("give component location!" ) ), Reference< XInterface >() );
715 		if (aServiceName.getLength() && aLocation.getLength())
716 			out( "\n> warning: service name given, will ignore location!" );
717 
718 		// read component params
719 		aParams.realloc( nCount - nPos );
720 		OUString * pParams = aParams.getArray();
721 
722 		sal_Int32 nOffset = nPos;
723 		for ( ; nPos < nCount; ++nPos )
724 		{
725             if (rtl_getAppCommandArg( nPos, &pParams[nPos -nOffset].pData )
726                 != osl_Process_E_None)
727             {
728                 OSL_ASSERT(false);
729             }
730 		}
731 
732         if (aReadOnlyRegistries.size() > 0 ||
733             aReadWriteRegistry.getLength() > 0)
734         {
735             //#### create registry #############################################
736 
737             Reference< XSimpleRegistry > xRegistry;
738 
739             // ReadOnly registries
740             for ( size_t nReg = 0; nReg < aReadOnlyRegistries.size(); ++nReg )
741             {
742 #if OSL_DEBUG_LEVEL > 1
743                 out( "\n> trying to open ro registry: " );
744                 out( OUStringToOString(
745                          aReadOnlyRegistries[ nReg ],
746                          RTL_TEXTENCODING_ASCII_US ).getStr() );
747 #endif
748                 Reference< XSimpleRegistry > xNewReg(
749                     openRegistry(
750                         aReadOnlyRegistries[ nReg ], sal_True, sal_False ) );
751                 if (xNewReg.is())
752                     xRegistry = (xRegistry.is() ? nestRegistries(
753                                      xNewReg, xRegistry ) : xNewReg);
754             }
755             if (aReadWriteRegistry.getLength())
756             {
757 #if OSL_DEBUG_LEVEL > 1
758                 out( "\n> trying to open rw registry: " );
759                 out( OUStringToOString(
760                          aReadWriteRegistry,
761                          RTL_TEXTENCODING_ASCII_US ).getStr() );
762 #endif
763                 // ReadWrite registry
764                 Reference< XSimpleRegistry > xNewReg(
765                     openRegistry( aReadWriteRegistry, sal_False, sal_True ) );
766                 if (xNewReg.is())
767                     xRegistry = (xRegistry.is()
768                                  ? nestRegistries( xNewReg, xRegistry )
769                                  : xNewReg);
770             }
771 
772             OSL_ASSERT( xRegistry.is() );
773             xContext = bootstrap_InitialComponentContext( xRegistry );
774         }
775         else // defaulting
776         {
777             xContext = defaultBootstrap_InitialComponentContext();
778         }
779 
780 		//#### accept, instanciate, etc. ###########################################################
781 
782 		if (aUnoUrl.getLength()) // accepting connections
783 		{
784             sal_Int32 nIndex = 0, nTokens = 0;
785             do { aUnoUrl.getToken( 0, ';', nIndex ); nTokens++; } while( nIndex != -1 );
786 			if (nTokens != 3 || aUnoUrl.getLength() < 10 ||
787 				!aUnoUrl.copy( 0, 4 ).equalsIgnoreAsciiCase( OUString( RTL_CONSTASCII_USTRINGPARAM("uno:") ) ))
788 			{
789 				throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("illegal uno url given!" ) ), Reference< XInterface >() );
790 			}
791             nIndex = 0;
792 			OUString aConnectDescr( aUnoUrl.getToken( 0, ';', nIndex ).copy( 4 ) ); // uno:CONNECTDESCR;iiop;InstanceName
793 			OUString aInstanceName( aUnoUrl.getToken( 1, ';', nIndex ) );
794 
795 			Reference< XAcceptor > xAcceptor;
796 			createInstance(
797 				xAcceptor, xContext,
798 				OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.connection.Acceptor") ) );
799 
800 			// init params
801 			Sequence< Any > aInitParams( aParams.getLength() );
802 			const OUString * p = aParams.getConstArray();
803 			Any * pInitParams = aInitParams.getArray();
804 			for ( sal_Int32 i = aParams.getLength(); i--; )
805 			{
806 				pInitParams[i] = makeAny( p[i] );
807 			}
808 
809 			// instance provider
810 			Reference< XInstanceProvider > xInstanceProvider( new OInstanceProvider(
811 				xContext, aImplName, aLocation, aServiceName, aInitParams,
812 				bSingleInstance, aInstanceName ) );
813 
814             nIndex = 0;
815             OUString aUnoUrlToken( aUnoUrl.getToken( 1, ';', nIndex ) );
816 			for (;;)
817 			{
818 				// accepting
819 				out( "\n> accepting " );
820 				out( aConnectDescr );
821 				out( "..." );
822 				Reference< XConnection > xConnection( xAcceptor->accept( aConnectDescr ) );
823 				out( "connection established." );
824 
825 				Reference< XBridgeFactory > xBridgeFactory;
826 				createInstance(
827 					xBridgeFactory, xContext,
828 					OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.BridgeFactory") ) );
829 
830 				// bridge
831 				Reference< XBridge > xBridge( xBridgeFactory->createBridge(
832 					OUString(), aUnoUrlToken,
833 					xConnection, xInstanceProvider ) );
834 
835 				if (bSingleAccept)
836 				{
837 					Reference< XComponent > xComp( xBridge, UNO_QUERY );
838 					if (! xComp.is())
839 						throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("bridge factory does not export interface \"com.sun.star.lang.XComponent\"!" ) ), Reference< XInterface >() );
840 					ODisposingListener::waitFor( xComp );
841 					break;
842 				}
843 			}
844 		}
845 		else // no uno url
846 		{
847 			Reference< XInterface > xInstance;
848 			if (aImplName.getLength()) // manually via loader
849 				xInstance = loadComponent( xContext, aImplName, aLocation );
850 			else // via service manager
851 				createInstance( xInstance, xContext, aServiceName );
852 
853 			// execution
854 			Reference< XMain > xMain( xInstance, UNO_QUERY );
855 			if (xMain.is())
856 			{
857 				nRet = xMain->run( aParams );
858 			}
859 			else
860 			{
861 				Reference< XComponent > xComp( xInstance, UNO_QUERY );
862 				if (xComp.is())
863 					xComp->dispose();
864 				throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("component does not export interface interface \"com.sun.star.lang.XMain\"!" ) ), Reference< XInterface >() );
865 			}
866 		}
867 	}
868 	catch (Exception & rExc)
869 	{
870 		out( "\n> error: " );
871 		out( rExc.Message );
872 		out( "\n> dying..." );
873 		nRet = 1;
874 	}
875 
876 	// cleanup
877     Reference< XComponent > xComp( xContext, UNO_QUERY );
878     if (xComp.is())
879         xComp->dispose();
880 
881 	out( "\n" );
882 	return nRet;
883 }
884 
885 
886 
887