testtools/source/performance/ubtest.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29
  30 #include <stdio.h>
  31 #include <math.h>
  32 #include <string>
  33 #include <boost/unordered_map.hpp>
  34 #include <map>
  35
  36 #include <osl/diagnose.h>
  37 #include <osl/mutex.hxx>
  38 #include <osl/module.h>
  39 #include <osl/process.h>
  40 #include <osl/thread.h>
  41 #include <osl/conditn.hxx>
  42 #include <osl/time.h>
  43
  44 #ifdef SAL_W32
  45 #include <windows.h>
  46 #else
  47 #include <sys/times.h>
  48 #include <unistd.h>
  49 #endif
  50
  51 #include <rtl/string.hxx>
  52 #include <rtl/strbuf.hxx>
  53 #include <rtl/ustrbuf.hxx>
  54
  55 #include <uno/environment.hxx>
  56 #include <uno/mapping.hxx>
  57
  58 #include <cppuhelper/factory.hxx>
  59 #include <cppuhelper/implbase2.hxx>
  60
  61 #include <com/sun/star/lang/XServiceInfo.hpp>
  62 #include <com/sun/star/lang/XComponent.hpp>
  63 #include <com/sun/star/lang/XMain.hpp>
  64 #include <com/sun/star/lang/XInitialization.hpp>
  65 #include <com/sun/star/loader/XImplementationLoader.hpp>
  66 #include <com/sun/star/registry/XRegistryKey.hpp>
  67 #include <com/sun/star/bridge/XUnoUrlResolver.hpp>
  68 #include <com/sun/star/container/XSet.hpp>
  69 #include <com/sun/star/test/performance/XPerformanceTest.hpp>
  70
  71 #define NLOOP 200000000
  72
  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::bridge;
  80 using namespace com::sun::star::container;
  81 using namespace com::sun::star::test::performance;
  82
  83 using ::rtl::OUString;
  84 using ::rtl::OString;
  85 using ::rtl::OUStringToOString;
  86
  87 #define SERVICENAME     "com.sun.star.test.performance.PerformanceTest"
  88 #define IMPLNAME        "com.sun.star.comp.performance.PerformanceTest"
  89
  90 namespace benchmark_test
  91 {
  92
  93 static inline sal_uInt32 getSystemTicks()
  94 {
  95 #ifdef SAL_W32
  96     return (sal_uInt32)GetTickCount();
  97 #else // only UNX supported for now
  98     static sal_uInt32   nImplTicksPerSecond = 0;
  99     static double       dImplTicksPerSecond;
 100     static double       dImplTicksULONGMAX;
 101
 102     struct tms          aTms;
 103     sal_uInt32 nTicks = (sal_uInt32)times( &aTms );
 104
 105     if ( !nImplTicksPerSecond )
 106     {
 107         nImplTicksPerSecond = sysconf(_SC_CLK_TCK);
 108         dImplTicksPerSecond = nImplTicksPerSecond;
 109         dImplTicksULONGMAX  = (double)(sal_uInt32)ULONG_MAX;
 110     }
 111
 112     double fTicks = nTicks;
 113     fTicks *= 1000;
 114     fTicks /= dImplTicksPerSecond;
 115     fTicks = fmod (fTicks, dImplTicksULONGMAX);
 116
 117     return (sal_uInt32)fTicks;
 118 #endif
 119 }
 120
 121 //--------------------------------------------------------------------------------------------------
 122 static void out( const sal_Char * pText, FILE * stream = stderr,
 123                  sal_Int32 nStart = -1, sal_Char cFillchar = ' ' )
 124 {
 125     static sal_Int32 s_nPos = 0;
 126
 127     sal_Char ar[2] = { cFillchar, 0 };
 128     while (s_nPos < nStart)
 129     {
 130         ::fprintf( stream, ar );
 131         ++s_nPos;
 132     }
 133
 134     ::fprintf( stream, pText );
 135
 136     for ( const sal_Char * p = pText; *p; ++p )
 137     {
 138         if (*p == '\n')
 139             s_nPos = 0;
 140         else
 141             ++s_nPos;
 142     }
 143 }
 144 //--------------------------------------------------------------------------------------------------
 145 static inline void out( const OUString & rText, FILE * stream = stderr,
 146                         sal_Int32 nStart = -1, sal_Char cFillchar = ' ' )
 147 {
 148     OString aText( OUStringToOString( rText, RTL_TEXTENCODING_ASCII_US ) );
 149     out( aText.getStr(), stream, nStart, cFillchar );
 150 }
 151 //--------------------------------------------------------------------------------------------------
 152 static inline void out( double fVal, FILE * stream = stderr,
 153                         sal_Int32 nStart = -1, sal_Char cFillchar = ' ' )
 154 {
 155     sal_Char ar[128];
 156     ::snprintf( ar, sizeof(ar), (fVal < 0.000001 ? "%g" : "%f"), fVal );
 157     out( ar, stream, nStart, cFillchar );
 158 }
 159 //--------------------------------------------------------------------------------------------------
 160 static inline void out( sal_Int64 nVal, FILE * stream = stderr,
 161                         sal_Int32 nStart = -1, sal_Char cFillchar = ' ' )
 162 {
 163     sal_Char ar[128];
 164     ::snprintf( ar, sizeof(ar), "%ld", nVal );
 165     out( ar, stream, nStart, cFillchar );
 166 }
 167
 168 //==================================================================================================
 169 Reference< XSingleServiceFactory > loadLibComponentFactory(
 170     const OUString & rLibName, const OUString & rImplName,
 171     const Reference< XMultiServiceFactory > & xSF, const Reference< XRegistryKey > & xKey )
 172 {
 173     Reference< XSingleServiceFactory > xRet;
 174
 175     OUStringBuffer aLibNameBuf( 32 );
 176 #ifdef SAL_UNX
 177     aLibNameBuf.appendAscii( RTL_CONSTASCII_STRINGPARAM("lib") );
 178     aLibNameBuf.append( rLibName );
 179     aLibNameBuf.appendAscii( RTL_CONSTASCII_STRINGPARAM(".so") );
 180 #else
 181     aLibNameBuf.append( rLibName );
 182     aLibNameBuf.appendAscii( RTL_CONSTASCII_STRINGPARAM(".dll") );
 183 #endif
 184     OUString aLibName( aLibNameBuf.makeStringAndClear() );
 185     oslModule lib = osl_loadModule( aLibName.pData, SAL_LOADMODULE_LAZY | SAL_LOADMODULE_GLOBAL );
 186
 187     if (lib)
 188     {
 189         void * pSym;
 190
 191         // ========================= LATEST VERSION =========================
 192         OUString aGetEnvName( RTL_CONSTASCII_USTRINGPARAM(COMPONENT_GETENV) );
 193         if (pSym = osl_getSymbol( lib, aGetEnvName.pData ))
 194         {
 195             uno_Environment * pCurrentEnv = 0;
 196             uno_Environment * pEnv = 0;
 197             const sal_Char * pEnvTypeName = 0;
 198             (*((component_getImplementationEnvironmentFunc)pSym))( &pEnvTypeName, &pEnv );
 199
 200             sal_Bool bNeedsMapping =
 201                 (pEnv || 0 != rtl_str_compare( pEnvTypeName, CPPU_CURRENT_LANGUAGE_BINDING_NAME ));
 202
 203             OUString aEnvTypeName( OUString::createFromAscii( pEnvTypeName ) );
 204
 205             if (bNeedsMapping)
 206             {
 207                 if (! pEnv)
 208                     uno_getEnvironment( &pEnv, aEnvTypeName.pData, 0 );
 209                 if (pEnv)
 210                 {
 211                     OUString aCppEnvTypeName( RTL_CONSTASCII_USTRINGPARAM(CPPU_CURRENT_LANGUAGE_BINDING_NAME) );
 212                     uno_getEnvironment( &pCurrentEnv, aCppEnvTypeName.pData, 0 );
 213                     if (pCurrentEnv)
 214                         bNeedsMapping = (pEnv != pCurrentEnv);
 215                 }
 216             }
 217
 218             OUString aGetFactoryName( RTL_CONSTASCII_USTRINGPARAM(COMPONENT_GETFACTORY) );
 219             if (pSym = osl_getSymbol( lib, aGetFactoryName.pData ))
 220             {
 221                 OString aImplName( OUStringToOString( rImplName, RTL_TEXTENCODING_ASCII_US ) );
 222
 223                 if (bNeedsMapping)
 224                 {
 225                     if (pEnv && pCurrentEnv)
 226                     {
 227                         Mapping aCurrent2Env( pCurrentEnv, pEnv );
 228                         Mapping aEnv2Current( pEnv, pCurrentEnv );
 229
 230                         if (aCurrent2Env.is() && aEnv2Current.is())
 231                         {
 232                             void * pSMgr = aCurrent2Env.mapInterface(
 233                                 xSF.get(), ::getCppuType( (const Reference< XMultiServiceFactory > *)0 ) );
 234                             void * pKey = aCurrent2Env.mapInterface(
 235                                 xKey.get(), ::getCppuType( (const Reference< XRegistryKey > *)0 ) );
 236
 237                             void * pSSF = (*((component_getFactoryFunc)pSym))(
 238                                 aImplName.getStr(), pSMgr, pKey );
 239
 240                             if (pKey)
 241                                 (*pEnv->pExtEnv->releaseInterface)( pEnv->pExtEnv, pKey );
 242                             if (pSMgr)
 243                                 (*pEnv->pExtEnv->releaseInterface)( pEnv->pExtEnv, pSMgr );
 244
 245                             if (pSSF)
 246                             {
 247                                 aEnv2Current.mapInterface(
 248                                     reinterpret_cast< void ** >( &xRet ),
 249                                     pSSF, ::getCppuType( (const Reference< XSingleServiceFactory > *)0 ) );
 250                                 (*pEnv->pExtEnv->releaseInterface)( pEnv->pExtEnv, pSSF );
 251                             }
 252                         }
 253                     }
 254                 }
 255                 else
 256                 {
 257                     XSingleServiceFactory * pRet = (XSingleServiceFactory *)
 258                         (*((component_getFactoryFunc)pSym))(
 259                             aImplName.getStr(), xSF.get(), xKey.get() );
 260                     if (pRet)
 261                     {
 262                         xRet = pRet;
 263                         pRet->release();
 264                     }
 265                 }
 266             }
 267
 268             if (pEnv)
 269                 (*pEnv->release)( pEnv );
 270             if (pCurrentEnv)
 271                 (*pCurrentEnv->release)( pCurrentEnv );
 272         }
 273
 274         // ========================= PREVIOUS VERSION =========================
 275         else
 276         {
 277             OUString aGetFactoryName( RTL_CONSTASCII_USTRINGPARAM(CREATE_COMPONENT_FACTORY_FUNCTION) );
 278             if (pSym = osl_getSymbol( lib, aGetFactoryName.pData ))
 279             {
 280                 OUString aCppEnvTypeName( RTL_CONSTASCII_USTRINGPARAM(CPPU_CURRENT_LANGUAGE_BINDING_NAME) );
 281                 OUString aUnoEnvTypeName( RTL_CONSTASCII_USTRINGPARAM(UNO_LB_UNO) );
 282                 Mapping aUno2Cpp( aUnoEnvTypeName, aCppEnvTypeName );
 283                 Mapping aCpp2Uno( aCppEnvTypeName, aUnoEnvTypeName );
 284                 OSL_ENSURE( aUno2Cpp.is() && aCpp2Uno.is(), "### cannot get uno mappings!" );
 285
 286                 if (aUno2Cpp.is() && aCpp2Uno.is())
 287                 {
 288                     uno_Interface * pUComponentFactory = 0;
 289
 290                     uno_Interface * pUSFactory = (uno_Interface *)aCpp2Uno.mapInterface(
 291                         xSF.get(), ::getCppuType( (const Reference< XMultiServiceFactory > *)0 ) );
 292                     uno_Interface * pUKey = (uno_Interface *)aCpp2Uno.mapInterface(
 293                         xKey.get(), ::getCppuType( (const Reference< XRegistryKey > *)0 ) );
 294
 295                     pUComponentFactory = (*((CreateComponentFactoryFunc)pSym))(
 296                         rImplName.getStr(), pUSFactory, pUKey );
 297
 298                     if (pUKey)
 299                         (*pUKey->release)( pUKey );
 300                     if (pUSFactory)
 301                         (*pUSFactory->release)( pUSFactory );
 302
 303                     if (pUComponentFactory)
 304                     {
 305                         XSingleServiceFactory * pXFactory =
 306                             (XSingleServiceFactory *)aUno2Cpp.mapInterface(
 307                                 pUComponentFactory, ::getCppuType( (const Reference< XSingleServiceFactory > *)0 ) );
 308                         (*pUComponentFactory->release)( pUComponentFactory );
 309
 310                         if (pXFactory)
 311                         {
 312                             xRet = pXFactory;
 313                             pXFactory->release();
 314                         }
 315                     }
 316                 }
 317             }
 318         }
 319
 320         if (! xRet.is())
 321             osl_unloadModule( lib );
 322     }
 323
 324     return xRet;
 325 }
 326 //--------------------------------------------------------------------------------------------------
 327 template< class T >
 328 static void createInstance( Reference< T > & rxOut,
 329                             const Reference< XMultiServiceFactory > & xMgr,
 330                             const OUString & rServiceName )
 331     throw (RuntimeException)
 332 {
 333     Reference< XInterface > x( xMgr->createInstance( rServiceName ), UNO_QUERY );
 334
 335     if (! x.is())
 336     {
 337         static sal_Bool s_bSet = sal_False;
 338         if (! s_bSet)
 339         {
 340             MutexGuard aGuard( Mutex::getGlobalMutex() );
 341             if (! s_bSet)
 342             {
 343                 Reference< XSet > xSet( xMgr, UNO_QUERY );
 344                 if (xSet.is())
 345                 {
 346                     // acceptor
 347                     xSet->insert( makeAny( loadLibComponentFactory(
 348                         OUString( RTL_CONSTASCII_USTRINGPARAM("acceptor") ),
 349                         OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.stoc.Acceptor") ),
 350                         xMgr, Reference< XRegistryKey >() ) ) );
 351                     // connector
 352                     xSet->insert( makeAny( loadLibComponentFactory(
 353                         OUString( RTL_CONSTASCII_USTRINGPARAM("connectr") ),
 354                         OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.stoc.Connector") ),
 355                         xMgr, Reference< XRegistryKey >() ) ) );
 356                     // iiop bridge
 357                     xSet->insert( makeAny( loadLibComponentFactory(
 358                         OUString( RTL_CONSTASCII_USTRINGPARAM("remotebridge") ),
 359                         OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.Bridge.various") ),
 360                         xMgr, Reference< XRegistryKey >() ) ) );
 361                     // bridge factory
 362                     xSet->insert( makeAny( loadLibComponentFactory(
 363                         OUString( RTL_CONSTASCII_USTRINGPARAM("brdgfctr") ),
 364                         OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.stoc.BridgeFactory") ),
 365                         xMgr, Reference< XRegistryKey >() ) ) );
 366                     // uno url resolver
 367                     xSet->insert( makeAny( loadLibComponentFactory(
 368                         OUString( RTL_CONSTASCII_USTRINGPARAM("uuresolver") ),
 369                         OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.bridge.UnoUrlResolver") ),
 370                         xMgr, Reference< XRegistryKey >() ) ) );
 371                     // java loader
 372 //                      xSet->insert( makeAny( loadLibComponentFactory(
 373 //                          OUString( RTL_CONSTASCII_USTRINGPARAM("javaloader") ),
 374 //                          OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.stoc.JavaComponentLoader") ),
 375 //                          xMgr, Reference< XRegistryKey >() ) ) );
 376                 }
 377                 s_bSet = sal_True;
 378             }
 379         }
 380         x = xMgr->createInstance( rServiceName );
 381     }
 382
 383     if (! x.is())
 384     {
 385         OUStringBuffer buf( 64 );
 386         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("cannot get service instance \"") );
 387         buf.append( rServiceName );
 388         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
 389         throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
 390     }
 391
 392     rxOut = Reference< T >::query( x );
 393     if (! rxOut.is())
 394     {
 395         OUStringBuffer buf( 64 );
 396         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("service instance \"") );
 397         buf.append( rServiceName );
 398         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" does not support demanded interface \"") );
 399         const Type & rType = ::getCppuType( (const Reference< T > *)0 );
 400         buf.append( rType.getTypeName() );
 401         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
 402         throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
 403     }
 404 }
 405
 406 //--------------------------------------------------------------------------------------------------
 407 inline static Sequence< OUString > getSupportedServiceNames()
 408 {
 409     OUString aName( RTL_CONSTASCII_USTRINGPARAM(SERVICENAME) );
 410     return Sequence< OUString >( &aName, 1 );
 411 }
 412
 413 //==================================================================================================
 414 class TestImpl : public WeakImplHelper2< XServiceInfo, XMain >
 415 {
 416     Reference< XMultiServiceFactory > _xSMgr;
 417
 418     Reference< XInterface > _xDirect;
 419     Reference< XInterface > getDirect() throw (Exception);
 420     Reference< XInterface > resolveObject( const OUString & rUnoUrl ) throw (Exception);
 421
 422 public:
 423     TestImpl( const Reference< XMultiServiceFactory > & xSMgr );
 424     virtual ~TestImpl();
 425
 426     // XServiceInfo
 427     virtual OUString SAL_CALL getImplementationName() throw (RuntimeException);
 428     virtual sal_Bool SAL_CALL supportsService( const OUString & rServiceName ) throw (RuntimeException);
 429     virtual Sequence< OUString > SAL_CALL getSupportedServiceNames() throw (RuntimeException);
 430
 431     // XMain
 432     virtual sal_Int32 SAL_CALL run( const Sequence< OUString > & rArgs ) throw (RuntimeException);
 433 };
 434
 435 //##################################################################################################
 436
 437 //__________________________________________________________________________________________________
 438 TestImpl::TestImpl( const Reference< XMultiServiceFactory > & xSMgr )
 439     : _xSMgr( xSMgr )
 440 {
 441 }
 442 //__________________________________________________________________________________________________
 443 TestImpl::~TestImpl()
 444 {
 445 }
 446
 447 //==================================================================================================
 448 static Reference< XInterface > SAL_CALL TestImpl_create( const Reference< XMultiServiceFactory > & xSMgr )
 449 {
 450     return Reference< XInterface >( *new TestImpl( xSMgr ) );
 451 }
 452
 453 // XServiceInfo
 454 //__________________________________________________________________________________________________
 455 OUString TestImpl::getImplementationName()
 456     throw (RuntimeException)
 457 {
 458     return OUString( RTL_CONSTASCII_USTRINGPARAM(IMPLNAME) );
 459 }
 460 //__________________________________________________________________________________________________
 461 sal_Bool TestImpl::supportsService( const OUString & rServiceName )
 462     throw (RuntimeException)
 463 {
 464     const Sequence< OUString > & rSNL = getSupportedServiceNames();
 465     const OUString * pArray = rSNL.getConstArray();
 466     for ( sal_Int32 nPos = rSNL.getLength(); nPos--; )
 467     {
 468         if (pArray[nPos] == rServiceName)
 469             return sal_True;
 470     }
 471     return sal_False;
 472 }
 473 //__________________________________________________________________________________________________
 474 Sequence< OUString > TestImpl::getSupportedServiceNames()
 475     throw (RuntimeException)
 476 {
 477     return benchmark_test::getSupportedServiceNames();
 478 }
 479
 480 //__________________________________________________________________________________________________
 481 Reference< XInterface > TestImpl::getDirect()
 482     throw (Exception)
 483 {
 484     if (! _xDirect.is())
 485     {
 486         MutexGuard aGuard( Mutex::getGlobalMutex() );
 487         if (! _xDirect.is())
 488         {
 489             Reference< XSingleServiceFactory > xFac( loadLibComponentFactory(
 490                 OUString( RTL_CONSTASCII_USTRINGPARAM("perfobj") ),
 491                 OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.performance.PerformanceTestObject") ),
 492                 _xSMgr, Reference< XRegistryKey >() ) );
 493             if (! xFac.is())
 494                 throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("no test object available!") ), Reference< XInterface >() );
 495             _xDirect = xFac->createInstance();
 496         }
 497     }
 498     return _xDirect;
 499 }
 500 //--------------------------------------------------------------------------------------------------
 501 Reference< XInterface > TestImpl::resolveObject( const OUString & rUnoUrl )
 502     throw (Exception)
 503 {
 504     Reference< XUnoUrlResolver > xResolver;
 505     createInstance(
 506         xResolver, _xSMgr,
 507         OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.UnoUrlResolver") ) );
 508
 509     Reference< XInterface > xResolvedObject( xResolver->resolve( rUnoUrl ) );
 510
 511     if (! xResolvedObject.is())
 512     {
 513         OUStringBuffer buf( 32 );
 514         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("cannot resolve object \"") );
 515         buf.append( rUnoUrl );
 516         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
 517         throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
 518     }
 519
 520     return xResolvedObject;
 521 }
 522
 523 //==================================================================================================
 524 class TimeEntry
 525 {
 526     sal_Int64           nLoop;
 527     sal_uInt32          nTicks;
 528
 529 public:
 530     TimeEntry()
 531         {}
 532     TimeEntry( sal_Int64 nLoop_, sal_uInt32 nTicks_ )
 533         : nLoop( nLoop_ )
 534         , nTicks( nTicks_ )
 535         {}
 536
 537     inline double secPerCall() const
 538         { return (((double)nTicks) / (nLoop * 1000)); }
 539
 540     double ratio( const TimeEntry & rEntry ) const;
 541 };
 542 //__________________________________________________________________________________________________
 543 double TimeEntry::ratio( const TimeEntry & rEntry ) const
 544 {
 545     double f = rEntry.nTicks * nLoop;
 546     if (f == 0.0)
 547     {
 548         return 0.0;
 549     }
 550     else
 551     {
 552         return (((double)(nTicks * rEntry.nLoop)) / f);
 553     }
 554 }
 555
 556 //==================================================================================================
 557 typedef std::map< std::string, TimeEntry > t_TimeEntryMap;
 558
 559 //==================================================================================================
 560 struct TimingSheet
 561 {
 562     t_TimeEntryMap      _entries;
 563     void insert( const sal_Char * pText, sal_Int64 nLoop, sal_uInt32 nTicks );
 564 };
 565 //__________________________________________________________________________________________________
 566 void TimingSheet::insert( const sal_Char * pText, sal_Int64 nLoop, sal_uInt32 nTicks )
 567 {
 568     _entries[ pText ] = TimeEntry( nLoop, nTicks );
 569 }
 570
 571 //==================================================================================================
 572 typedef boost::unordered_map< std::string, TimingSheet > t_TimingSheetMap;
 573
 574 //--------------------------------------------------------------------------------------------------
 575 static void benchmark(
 576     TimingSheet & rSheet, const Reference< XInterface > & xInstance, sal_Int64 nLoop )
 577     throw (Exception)
 578 {
 579     Reference< XPerformanceTest > xBench( xInstance, UNO_QUERY );
 580     if (! xBench.is())
 581         throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("illegal test object!") ), Reference< XInterface >() );
 582
 583     sal_Int64 i;
 584     sal_uInt32 tStart, tEnd;
 585
 586     const Type & rKnownType = ::getCppuType( (const Reference< XPerformanceTest > *)0 );
 587     const Type & rUnKnownType = ::getCppuType( (const Reference< XSet > *)0 );
 588
 589     ComplexTypes aDummyStruct;
 590
 591     //------------------------------------
 592     // oneway calls
 593     i = nLoop;
 594     tStart = getSystemTicks();
 595     while (i--)
 596         xBench->async();
 597     sal_uInt32 tEndSend = getSystemTicks();
 598     xBench->sync();
 599     tEnd = getSystemTicks();
 600     rSheet.insert( "1a: sending simple oneway calls (no params, no return)", nLoop, tEndSend - tStart );
 601     rSheet.insert( "1b: simple oneway calls (no params, no return)", nLoop, tEnd - tStart );
 602     // synchron calls
 603     i = nLoop;
 604     tStart = getSystemTicks();
 605     while (i--)
 606         xBench->sync();
 607     xBench->sync();
 608     tEnd = getSystemTicks();
 609     rSheet.insert( "1c: simple synchron calls (no params no return)", nLoop+1, tEnd - tStart );
 610
 611     // acquire
 612     i = nLoop;
 613     tStart = getSystemTicks();
 614     while (i--)
 615         xBench->acquire();
 616     tEnd = getSystemTicks();
 617     rSheet.insert( "2a: interface acquire() calls", nLoop, tEnd - tStart );
 618     // release
 619     i = nLoop;
 620     tStart = getSystemTicks();
 621     while (i--)
 622         xBench->release();
 623     tEnd = getSystemTicks();
 624     rSheet.insert( "2b: interface release() calls", nLoop, tEnd - tStart );
 625
 626     // queryInterface() for known type
 627     i = nLoop;
 628     tStart = getSystemTicks();
 629     while (i--)
 630         xBench->queryInterface( rKnownType );
 631     tEnd = getSystemTicks();
 632     rSheet.insert( "2c: interface query for implemented type", nLoop, tEnd - tStart );
 633     // queryInterface() for unknown type
 634     i = nLoop;
 635     tStart = getSystemTicks();
 636     while (i--)
 637         xBench->queryInterface( rUnKnownType );
 638     tEnd = getSystemTicks();
 639     rSheet.insert( "2d: interface query for unknown type", nLoop, tEnd - tStart );
 640
 641     // create and forget objects
 642     Reference< XPerformanceTest > xBench2( xBench );
 643     i = nLoop;
 644     tStart = getSystemTicks();
 645     while (i--)
 646         xBench2 = xBench2->createObject();
 647     tEnd = getSystemTicks();
 648     rSheet.insert( "3a: create and release test objects", nLoop, tEnd - tStart );
 649
 650     // hold new objects
 651     Sequence< Reference< XInterface > > aSeq( nLoop / 100 );
 652     Reference< XInterface > * pSeq = aSeq.getArray();
 653     xBench2 = xBench;
 654     i = aSeq.getLength();
 655     tStart = getSystemTicks();
 656     while (i--)
 657         pSeq[i] = xBench2 = xBench2->createObject();
 658     tEnd = getSystemTicks();
 659     rSheet.insert( "3b: create and hold test objects", nLoop, tEnd - tStart );
 660
 661     // structs
 662     i = nLoop;
 663     tStart = getSystemTicks();
 664     while (i--)
 665         xBench->complex_in( aDummyStruct );
 666     tEnd = getSystemTicks();
 667     rSheet.insert( "4a: complex_in() calls (in struct; return struct)", nLoop, tEnd - tStart );
 668     i = nLoop;
 669     tStart = getSystemTicks();
 670     while (i--)
 671         xBench->complex_inout( aDummyStruct );
 672     tEnd = getSystemTicks();
 673     rSheet.insert( "4b: complex_inout() calls (inout struct; return struct)", nLoop, tEnd - tStart );
 674
 675     i = nLoop;
 676     tStart = getSystemTicks();
 677     while (i--)
 678         xBench->complex_oneway( aDummyStruct );
 679     tEnd = getSystemTicks();
 680     rSheet.insert( "4c: complex_oneway() oneway calls (in struct)", nLoop, tEnd - tStart );
 681     i = nLoop;
 682     tStart = getSystemTicks();
 683     while (i--)
 684         xBench->complex_noreturn( aDummyStruct );
 685     tEnd = getSystemTicks();
 686     rSheet.insert( "4d: complex_noreturn() calls (in struct)", nLoop, tEnd - tStart );
 687
 688     // attributes, get() methods
 689     i = nLoop;
 690     tStart = getSystemTicks();
 691     while (i--)
 692         xBench->getLong();
 693     tEnd = getSystemTicks();
 694     rSheet.insert( "5a: getLong() call", nLoop, tEnd - tStart );
 695     i = nLoop;
 696     tStart = getSystemTicks();
 697     while (i--)
 698         xBench->getLong_attr();
 699     tEnd = getSystemTicks();
 700     rSheet.insert( "5b: get long attribute", nLoop, tEnd - tStart );
 701
 702     i = nLoop;
 703     tStart = getSystemTicks();
 704     while (i--)
 705         xBench->setLong( 0 );
 706     tEnd = getSystemTicks();
 707     rSheet.insert( "5c: setLong() call", nLoop, tEnd - tStart );
 708     i = nLoop;
 709     tStart = getSystemTicks();
 710     while (i--)
 711         xBench->setLong_attr( 0 );
 712     tEnd = getSystemTicks();
 713     rSheet.insert( "5d: set long attribute", nLoop, tEnd - tStart );
 714
 715     i = nLoop;
 716     tStart = getSystemTicks();
 717     while (i--)
 718         xBench->getHyper();
 719     tEnd = getSystemTicks();
 720     rSheet.insert( "5e: getHyper() call", nLoop, tEnd - tStart );
 721     i = nLoop;
 722     tStart = getSystemTicks();
 723     while (i--)
 724         xBench->getHyper_attr();
 725     tEnd = getSystemTicks();
 726     rSheet.insert( "5f: get hyper attribute", nLoop, tEnd - tStart );
 727
 728     i = nLoop;
 729     tStart = getSystemTicks();
 730     while (i--)
 731         xBench->setHyper( 0 );
 732     tEnd = getSystemTicks();
 733     rSheet.insert( "5g: setHyper() call", nLoop, tEnd - tStart );
 734     i = nLoop;
 735     tStart = getSystemTicks();
 736     while (i--)
 737         xBench->setHyper_attr( 0 );
 738     tEnd = getSystemTicks();
 739     rSheet.insert( "5h: set hyper attribute", nLoop, tEnd - tStart );
 740
 741     i = nLoop;
 742     tStart = getSystemTicks();
 743     while (i--)
 744         xBench->getFloat();
 745     tEnd = getSystemTicks();
 746     rSheet.insert( "5i: getFloat() call", nLoop, tEnd - tStart );
 747     i = nLoop;
 748     tStart = getSystemTicks();
 749     while (i--)
 750         xBench->getFloat_attr();
 751     tEnd = getSystemTicks();
 752     rSheet.insert( "5j: get float attribute",nLoop,  tEnd - tStart );
 753
 754     i = nLoop;
 755     tStart = getSystemTicks();
 756     while (i--)
 757         xBench->setFloat( 0.0 );
 758     tEnd = getSystemTicks();
 759     rSheet.insert( "5k: setFloat() call", nLoop, tEnd - tStart );
 760     i = nLoop;
 761     tStart = getSystemTicks();
 762     while (i--)
 763         xBench->setFloat_attr( 0.0 );
 764     tEnd = getSystemTicks();
 765     rSheet.insert( "5l: set float attribute", nLoop, tEnd - tStart );
 766
 767     i = nLoop;
 768     tStart = getSystemTicks();
 769     while (i--)
 770         xBench->getDouble();
 771     tEnd = getSystemTicks();
 772     rSheet.insert( "5m: getDouble() call", nLoop, tEnd - tStart );
 773     i = nLoop;
 774     tStart = getSystemTicks();
 775     while (i--)
 776         xBench->getDouble_attr();
 777     tEnd = getSystemTicks();
 778     rSheet.insert( "5n: get double attribute", nLoop, tEnd - tStart );
 779     i = nLoop;
 780     tStart = getSystemTicks();
 781     while (i--)
 782         xBench->setDouble( 0.0 );
 783     tEnd = getSystemTicks();
 784     rSheet.insert( "5o: setDouble() call", nLoop, tEnd - tStart );
 785     i = nLoop;
 786     tStart = getSystemTicks();
 787     while (i--)
 788         xBench->setDouble_attr( 0.0 );
 789     tEnd = getSystemTicks();
 790     rSheet.insert( "5p: set double attribute", nLoop, tEnd - tStart );
 791
 792     i = nLoop;
 793     tStart = getSystemTicks();
 794     while (i--)
 795         xBench->getString();
 796     tEnd = getSystemTicks();
 797     rSheet.insert( "6a: getString() call (empty)", nLoop, tEnd - tStart );
 798     i = nLoop;
 799     tStart = getSystemTicks();
 800     while (i--)
 801         xBench->getString_attr();
 802     tEnd = getSystemTicks();
 803     rSheet.insert( "6b: get empty string attribute", nLoop, tEnd - tStart );
 804
 805     i = nLoop;
 806     OUString aDummyString;
 807     tStart = getSystemTicks();
 808     while (i--)
 809         xBench->setString( aDummyString );
 810     tEnd = getSystemTicks();
 811     rSheet.insert( "6c: setString() call (emtpy)", nLoop, tEnd - tStart );
 812     i = nLoop;
 813     tStart = getSystemTicks();
 814     while (i--)
 815         xBench->setString_attr( aDummyString );
 816     tEnd = getSystemTicks();
 817     rSheet.insert( "6d: set empty string attribute", nLoop, tEnd - tStart );
 818
 819     i = nLoop;
 820     tStart = getSystemTicks();
 821     while (i--)
 822         xBench->getInterface();
 823     tEnd = getSystemTicks();
 824     rSheet.insert( "7a: getInterface() call (null)", nLoop, tEnd - tStart );
 825     i = nLoop;
 826     tStart = getSystemTicks();
 827     while (i--)
 828         xBench->getInterface_attr();
 829     tEnd = getSystemTicks();
 830     rSheet.insert( "7b: get interface attribute", nLoop, tEnd - tStart );
 831
 832     i = nLoop;
 833     Reference< XInterface > aDummyInterface;
 834     tStart = getSystemTicks();
 835     while (i--)
 836         xBench->setInterface( aDummyInterface );
 837     tEnd = getSystemTicks();
 838     rSheet.insert( "7c: setInterface() call (null)", nLoop, tEnd - tStart );
 839     i = nLoop;
 840     tStart = getSystemTicks();
 841     while (i--)
 842         xBench->setInterface_attr( Reference< XInterface >() );
 843     tEnd = getSystemTicks();
 844     rSheet.insert( "7d: set interface attribute", nLoop, tEnd - tStart );
 845
 846     i = nLoop;
 847     tStart = getSystemTicks();
 848     while (i--)
 849         xBench->getAny();
 850     tEnd = getSystemTicks();
 851     rSheet.insert( "8a: getAny() call (empty)", nLoop, tEnd - tStart );
 852     i = nLoop;
 853     tStart = getSystemTicks();
 854     while (i--)
 855         xBench->getAny_attr();
 856     tEnd = getSystemTicks();
 857     rSheet.insert( "8b: get empty any attribute", nLoop, tEnd - tStart );
 858
 859     i = nLoop;
 860     Any aDummyAny;
 861     tStart = getSystemTicks();
 862     while (i--)
 863         xBench->setAny( aDummyAny );
 864     tEnd = getSystemTicks();
 865     rSheet.insert( "8c: setAny() call (empty)", nLoop, tEnd - tStart );
 866     i = nLoop;
 867     tStart = getSystemTicks();
 868     while (i--)
 869         xBench->setAny_attr( aDummyAny );
 870     tEnd = getSystemTicks();
 871     rSheet.insert( "8d: set empty any attribute", nLoop, tEnd - tStart );
 872
 873     i = nLoop;
 874     tStart = getSystemTicks();
 875     while (i--)
 876         xBench->getSequence();
 877     tEnd = getSystemTicks();
 878     rSheet.insert( "9a: getSequence() call (empty)", nLoop, tEnd - tStart );
 879     i = nLoop;
 880     tStart = getSystemTicks();
 881     while (i--)
 882         xBench->getSequence_attr();
 883     tEnd = getSystemTicks();
 884     rSheet.insert( "9b: get empty sequence attribute", nLoop, tEnd - tStart );
 885     i = nLoop;
 886     Sequence< Reference< XInterface > > aDummySeq;
 887     tStart = getSystemTicks();
 888     while (i--)
 889         xBench->setSequence( aDummySeq );
 890     tEnd = getSystemTicks();
 891     rSheet.insert( "9c: setSequence() call (empty)", nLoop, tEnd - tStart );
 892     i = nLoop;
 893     tStart = getSystemTicks();
 894     while (i--)
 895         xBench->setSequence_attr( aDummySeq );
 896     tEnd = getSystemTicks();
 897     rSheet.insert( "9d: set empty sequence attribute", nLoop, tEnd - tStart );
 898
 899     i = nLoop;
 900     tStart = getSystemTicks();
 901     while (i--)
 902         xBench->getStruct();
 903     tEnd = getSystemTicks();
 904     rSheet.insert( "Aa: getStruct() call", nLoop, tEnd - tStart );
 905     i = nLoop;
 906     tStart = getSystemTicks();
 907     while (i--)
 908         xBench->getStruct_attr();
 909     tEnd = getSystemTicks();
 910     rSheet.insert( "Ab: get struct attribute", nLoop, tEnd - tStart );
 911
 912     i = nLoop;
 913     tStart = getSystemTicks();
 914     while (i--)
 915         xBench->setStruct( aDummyStruct );
 916     tEnd = getSystemTicks();
 917     rSheet.insert( "Ac: setStruct() call", nLoop, tEnd - tStart );
 918     i = nLoop;
 919     tStart = getSystemTicks();
 920     while (i--)
 921         xBench->setStruct_attr( aDummyStruct );
 922     tEnd = getSystemTicks();
 923     rSheet.insert( "Ad: set struct attribute", nLoop, tEnd - tStart );
 924
 925     // load
 926 //      i = nLoop;
 927 //      tStart = getSystemTicks();
 928 //      while (i--)
 929 //          xBench->setSequence( aSeq );
 930 //      tEnd = getSystemTicks();
 931 //      rSheet.insert( "transfer of exisiting objects", nLoop, tEnd - tStart );
 932
 933     // exceptions
 934     i = nLoop;
 935     tStart = getSystemTicks();
 936     while (i--)
 937     {
 938         try
 939         {
 940             xBench->raiseRuntimeException();
 941         }
 942         catch (RuntimeException &)
 943         {
 944         }
 945     }
 946     tEnd = getSystemTicks();
 947     rSheet.insert( "Ba: raising RuntimeException", nLoop, tEnd - tStart );
 948
 949     //------------------------------------
 950 }
 951
 952 //--------------------------------------------------------------------------------------------------
 953 static OUString extractParam( const Sequence< OUString > & rArgs, const OUString & rParam )
 954 {
 955     const OUString * pArgs = rArgs.getConstArray();
 956     for ( sal_Int32 nPos = rArgs.getLength(); nPos--; )
 957     {
 958         if (pArgs[nPos].indexOf( rParam ) == 0 &&
 959             pArgs[nPos].getLength() > (rParam.getLength()+1))
 960         {
 961             return pArgs[nPos].copy( rParam.getLength() +1 ); // XXX=bla
 962         }
 963     }
 964     return OUString();
 965 }
 966
 967 const sal_Int32 nMagicNumberDirect = 34000;
 968
 969 //XMain
 970 //__________________________________________________________________________________________________
 971 sal_Int32 TestImpl::run( const Sequence< OUString > & rArgs )
 972     throw (RuntimeException)
 973 {
 974     // defaults
 975     FILE * stream = stderr;
 976     sal_Int64 nLoop = NLOOP;
 977     OUString aArg( RTL_CONSTASCII_USTRINGPARAM("dms") );
 978
 979     try
 980     {
 981         OUString aLoopStr( extractParam( rArgs, OUString( RTL_CONSTASCII_USTRINGPARAM("loop") ) ) );
 982         if (aLoopStr.getLength())
 983         {
 984             sal_Int64 n = aLoopStr.toInt64();
 985             if (n > 0)
 986                 nLoop = n;
 987         }
 988
 989         OUString aDurationStr( extractParam( rArgs , OUString( RTL_CONSTASCII_USTRINGPARAM("duration" ) ) ) );
 990         if( aDurationStr.getLength() )
 991         {
 992             sal_Int64 n = aDurationStr.toInt64();
 993             if( n >0 )
 994                 nLoop = nMagicNumberDirect * n;
 995         }
 996
 997         OUString aLogStr( extractParam( rArgs, OUString( RTL_CONSTASCII_USTRINGPARAM("log") ) ) );
 998         if (aLogStr.getLength())
 999         {
1000             if (aLogStr.compareToAscii( "stderr" ) == 0)
1001             {
1002                 stream = stderr;
1003             }
1004             else if (aLogStr.compareToAscii( "stdout" ) == 0)
1005             {
1006                 stream = stdout;
1007             }
1008             else
1009             {
1010                 OString aFileName( OUStringToOString( aLogStr, RTL_TEXTENCODING_ASCII_US ) );
1011                 stream = ::fopen( aFileName.getStr(), "w" );
1012                 if (! stream)
1013                 {
1014                     OUStringBuffer buf( 32 );
1015                     buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("cannot open file for writing: \"") );
1016                     buf.append( aLogStr );
1017                     buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\"!") );
1018                     throw RuntimeException( buf.makeStringAndClear(), Reference< XInterface >() );
1019                 }
1020             }
1021         }
1022
1023         OUString aArgStr( extractParam( rArgs, OUString( RTL_CONSTASCII_USTRINGPARAM("opt") ) ) );
1024         if (aArgStr.getLength())
1025         {
1026             aArg = aArgStr;
1027         }
1028
1029         if (! rArgs.getLength())
1030             out( "\n> no options given, using defaults" );
1031
1032         // params
1033         out( "\n> opt=" );
1034         out( aArg );
1035         out( " log=" );
1036         if (stream == stderr)
1037             out( "stderr" );
1038         else if (stream == stderr)
1039             out( "stdout loop=" );
1040         else
1041             out( aLogStr );
1042         out( " loop=" );
1043         out( nLoop );
1044         out( "\n" );
1045         t_TimingSheetMap aSheets;
1046         TimingSheet aDirect;
1047
1048         //------------------------------------------------------------------------------------------
1049
1050         if (aArg.indexOf( 'd' ) >= 0)
1051         {
1052             // in process direct test
1053             sal_uInt32 nStart = getSystemTicks();
1054             benchmark( aDirect, getDirect(), nLoop );
1055             sal_uInt32 nEnd = getSystemTicks();
1056             fprintf( stderr, "Duration (direct in process): %g s\n", (nEnd - nStart)/1000.  );
1057         }
1058
1059         //------------------------------------------------------------------------------------------
1060
1061         if (aArg.indexOf( 'm' ) >= 0)
1062         {
1063             // in process uno dispatch
1064             Environment aCppEnv, aAnoCppEnv;
1065             OUString aCurrentLanguageBindingName( RTL_CONSTASCII_USTRINGPARAM(CPPU_CURRENT_LANGUAGE_BINDING_NAME) );
1066             uno_getEnvironment( reinterpret_cast< uno_Environment ** >( &aCppEnv ),
1067                                 aCurrentLanguageBindingName.pData, 0 );
1068             // anonymous
1069             uno_createEnvironment( reinterpret_cast< uno_Environment ** >( &aAnoCppEnv ),
1070                                    aCurrentLanguageBindingName.pData, 0 );
1071
1072             // pseudo mapping uno<->uno: does nothing!
1073             Mapping aMapping( aCppEnv.get(), aAnoCppEnv.get(), OUString( RTL_CONSTASCII_USTRINGPARAM("pseudo") ) );
1074             if (! aMapping.is())
1075                 throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("no pseudo mapping available!") ), Reference< XInterface >() );
1076
1077             Reference< XInterface > xMapped;
1078             Reference< XInterface > xDirect( getDirect() );
1079             aMapping.mapInterface( reinterpret_cast< void ** >( &xMapped ), xDirect.get(),
1080                                    ::getCppuType( &xDirect ) );
1081             if (! xMapped.is())
1082                 throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("mapping object failed!") ), Reference< XInterface >() );
1083
1084             sal_uInt32 nStart = getSystemTicks();
1085             benchmark( aSheets[ "mapped in process" ], xMapped, nLoop / 100 );
1086             sal_uInt32 nEnd = getSystemTicks();
1087             fprintf( stderr, "Duration (mapped in process): %g s\n", (nStart - nEnd)/1000. );
1088         }
1089
1090         //------------------------------------------------------------------------------------------
1091
1092         if (aArg.indexOf( 's' ) >= 0)
1093         {
1094             // start server process
1095             oslSecurity hSecurity = osl_getCurrentSecurity();
1096             if (! hSecurity)
1097                 throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("cannot get current security handle!") ), Reference< XInterface >() );
1098
1099             OUString aArgs[] = {
1100                 OUString( RTL_CONSTASCII_USTRINGPARAM("-c") ),
1101                 OUString( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.performance.PerformanceTestObject") ),
1102                 OUString( RTL_CONSTASCII_USTRINGPARAM("-l") ),
1103 #ifdef SAL_UNX
1104                 OUString( RTL_CONSTASCII_USTRINGPARAM("libperfobj.so") ),
1105 #else
1106                 OUString( RTL_CONSTASCII_USTRINGPARAM("perfobj.dll") ),
1107 #endif
1108                 OUString( RTL_CONSTASCII_USTRINGPARAM("-r") ),
1109                 OUString( RTL_CONSTASCII_USTRINGPARAM("applicat.rdb") ),
1110                 OUString( RTL_CONSTASCII_USTRINGPARAM("-u") ),
1111                 OUString( RTL_CONSTASCII_USTRINGPARAM("uno:socket,host=localhost,port=6000;iiop;TestRemoteObject") ),
1112                 OUString( RTL_CONSTASCII_USTRINGPARAM("--singleaccept") )
1113             };
1114             rtl_uString * pArgs[] = {
1115                 aArgs[0].pData,
1116                 aArgs[1].pData,
1117                 aArgs[2].pData,
1118                 aArgs[3].pData,
1119                 aArgs[4].pData,
1120                 aArgs[5].pData,
1121                 aArgs[6].pData,
1122                 aArgs[7].pData,
1123                 aArgs[8].pData,
1124             };
1125
1126             out( "\n> executing: \"uno" );
1127             for ( sal_Int32 nPos = 0; nPos < (sizeof(aArgs) / sizeof(OUString)); ++nPos )
1128             {
1129                 out( " " );
1130                 out( aArgs[nPos] );
1131             }
1132             out( "\" ..." );
1133
1134             oslProcess hProcess = 0;
1135             OUString aUnoExe( RTL_CONSTASCII_USTRINGPARAM("uno") );
1136             OUString aWorkingDir( RTL_CONSTASCII_USTRINGPARAM(".") );
1137             osl_executeProcess(
1138                 aUnoExe.pData, pArgs, sizeof(aArgs) / sizeof(OUString),
1139                 osl_Process_SEARCHPATH | osl_Process_DETACHED | osl_Process_NORMAL,
1140                 hSecurity, aWorkingDir.pData, 0, 0, &hProcess );
1141
1142             osl_freeSecurityHandle( hSecurity );
1143             if (! hProcess)
1144                 throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("cannot start server process!") ), Reference< XInterface >() );
1145             osl_freeProcessHandle( hProcess );
1146
1147             // wait three seconds
1148             TimeValue threeSeconds;
1149             threeSeconds.Seconds = 3;
1150             osl_waitThread( &threeSeconds );
1151
1152             // connect and resolve outer process object
1153             Reference< XInterface > xResolvedObject( resolveObject( OUString(
1154                 RTL_CONSTASCII_USTRINGPARAM("uno:socket,host=localhost,port=6000;iiop;TestRemoteObject") ) ) );
1155
1156             benchmark( aSheets[ "remote same host" ], xResolvedObject, nLoop / 300 );
1157         }
1158
1159         //------------------------------------------------------------------------------------------
1160
1161         if (aArg.indexOf( 'r' ) >= 0)
1162         {
1163             // remote
1164             OUString aUnoUrl( extractParam( rArgs, OUString( RTL_CONSTASCII_USTRINGPARAM("url") ) ) );
1165             if (! aUnoUrl.getLength())
1166                 throw RuntimeException( OUString( RTL_CONSTASCII_USTRINGPARAM("performance test r(emote) needs additional uno url!") ), Reference< XInterface >() );
1167
1168             // connect and resolve outer process object
1169             Reference< XInterface > xResolvedObject( resolveObject( aUnoUrl ) );
1170
1171             sal_Int32 t1 = getSystemTicks();
1172             OString o = OUStringToOString( aUnoUrl, RTL_TEXTENCODING_ASCII_US );
1173             benchmark( aSheets[ o.getStr() ], xResolvedObject, nLoop / 900 );
1174             sal_Int32 t2 = getSystemTicks();
1175             fprintf( stderr, "Duration (%s): %g s\n", o.getStr(),(t2 - t1)/1000. );
1176         }
1177
1178         //------------------------------------------------------------------------------------------
1179
1180         if (aArg.indexOf( 'j' ) >= 0)
1181         {
1182             // java
1183               benchmark( aSheets[ "java in process" ],
1184                        _xSMgr->createInstance(OUString(RTL_CONSTASCII_USTRINGPARAM("com.sun.star.comp.benchmark.JavaTestObject"))),
1185                        nLoop / 1000 );
1186         }
1187
1188         //------------------------------------------------------------------------------------------
1189         // dump out tables
1190
1191         out( "\nTimes( ratio to direct in process )", stream );
1192 #if OSL_DEBUG_LEVEL > 1
1193         out ("; compiled with OSL_DEBUG_LEVEL > 1", stream );
1194 #endif
1195         out( ":", stream );
1196
1197         sal_Int32 nPos = 60;
1198         out( "[direct in process]", stream, nPos );
1199         t_TimingSheetMap::const_iterator iSheets( aSheets.begin() );
1200         for ( ; iSheets != aSheets.end(); ++iSheets )
1201         {
1202             nPos += 40;
1203             out( "[", stream, nPos );
1204             out( (*iSheets).first.c_str(), stream );
1205             out( "]", stream );
1206         }
1207         for ( t_TimeEntryMap::const_iterator iTopics( aDirect._entries.begin() );
1208               iTopics != aDirect._entries.end(); ++iTopics )
1209         {
1210             const std::string & rTopic = (*iTopics).first;
1211
1212             out( "\n", stream );
1213             out( rTopic.c_str(), stream );
1214
1215             out( ":", stream, 58, '.' );
1216
1217             sal_Int32 nPos = 60;
1218
1219             double secs = (*iTopics).second.secPerCall();
1220             if (secs > 0.0)
1221             {
1222                 out( secs * 1000, stream, nPos );
1223                 out( "ms", stream );
1224             }
1225             else
1226             {
1227                 out( "NA", stream, nPos );
1228             }
1229
1230             iSheets = aSheets.begin();
1231             for ( ; iSheets != aSheets.end(); ++iSheets )
1232             {
1233                 const t_TimeEntryMap::const_iterator iFind( (*iSheets).second._entries.find( rTopic ) );
1234                 OSL_ENSURE( iFind != (*iSheets).second._entries.end(), "####" );
1235
1236                 nPos += 40;
1237
1238                 double secs = (*iFind).second.secPerCall();
1239                 if (secs != 0.0)
1240                 {
1241                     out( secs * 1000, stream, nPos );
1242                     out( "ms", stream );
1243
1244                     out( " (", stream );
1245                     double ratio = (*iFind).second.ratio( (*iTopics).second );
1246                     if (ratio != 0.0)
1247                     {
1248                         out( ratio, stream );
1249                         out( " x)", stream );
1250                     }
1251                     else
1252                     {
1253                         out( "NA)", stream );
1254                     }
1255                 }
1256                 else
1257                 {
1258                     out( "NA", stream, nPos );
1259                 }
1260             }
1261         }
1262     }
1263     catch (Exception & rExc)
1264     {
1265         if (stream != stderr && stream != stdout)
1266             ::fclose( stream );
1267         throw RuntimeException( rExc.Message, rExc.Context );
1268     }
1269
1270     if (stream != stderr && stream != stdout)
1271         ::fclose( stream );
1272
1273     out( "\n> done.\n" );
1274     return 0;
1275 }
1276
1277 }
1278
1279
1280 //##################################################################################################
1281 //##################################################################################################
1282 //##################################################################################################
1283
1284
1285 extern "C"
1286 {
1287 //==================================================================================================
1288 sal_Bool SAL_CALL component_writeInfo(
1289     void * pServiceManager, void * pRegistryKey )
1290 {
1291     if (pRegistryKey)
1292     {
1293         try
1294         {
1295             Reference< XRegistryKey > xNewKey(
1296                 reinterpret_cast< XRegistryKey * >( pRegistryKey )->createKey(
1297                     OUString( RTL_CONSTASCII_USTRINGPARAM("/" IMPLNAME "/UNO/SERVICES") ) ) );
1298             xNewKey->createKey( OUString( RTL_CONSTASCII_USTRINGPARAM(SERVICENAME) ) );
1299
1300             return sal_True;
1301         }
1302         catch (InvalidRegistryException &)
1303         {
1304             OSL_FAIL( "### InvalidRegistryException!" );
1305         }
1306     }
1307     return sal_False;
1308 }
1309 //==================================================================================================
1310 SAL_DLLPUBLIC_EXPORT void * SAL_CALL component_getFactory(
1311     const sal_Char * pImplName, void * pServiceManager, void * pRegistryKey )
1312 {
1313     void * pRet = 0;
1314
1315     if (pServiceManager && rtl_str_compare( pImplName, IMPLNAME ) == 0)
1316     {
1317         Reference< XSingleServiceFactory > xFactory( createSingleFactory(
1318             reinterpret_cast< XMultiServiceFactory * >( pServiceManager ),
1319             OUString( RTL_CONSTASCII_USTRINGPARAM(IMPLNAME) ),
1320             benchmark_test::TestImpl_create,
1321             benchmark_test::getSupportedServiceNames() ) );
1322
1323         if (xFactory.is())
1324         {
1325             xFactory->acquire();
1326             pRet = xFactory.get();
1327         }
1328     }
1329
1330     return pRet;
1331 }
1332 }
1333
1334 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */