sc/source/ui/vba/service.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: service.cxx,v $
  10  * $Revision: 1.4 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30 #include "cppuhelper/implementationentry.hxx"
  31 #include "com/sun/star/lang/XMultiServiceFactory.hpp"
  32 #include "com/sun/star/registry/XRegistryKey.hpp"
  33 #include "comphelper/servicedecl.hxx"
  34
  35 // =============================================================================
  36 // component exports
  37 // =============================================================================
  38 using namespace ::com::sun::star;
  39 using namespace ::com::sun::star::uno;
  40
  41 namespace sdecl = comphelper::service_decl;
  42
  43 // reference service helper(s)
  44 namespace  range
  45 {
  46 extern sdecl::ServiceDecl const serviceDecl;
  47 }
  48 namespace  workbook
  49 {
  50 extern sdecl::ServiceDecl const serviceDecl;
  51 }
  52 namespace  worksheet
  53 {
  54 extern sdecl::ServiceDecl const serviceDecl;
  55 }
  56 namespace window
  57 {
  58 extern sdecl::ServiceDecl const serviceDecl;
  59 }
  60 namespace globals
  61 {
  62 extern sdecl::ServiceDecl const serviceDecl;
  63 }
  64 namespace hyperlink
  65 {
  66 extern sdecl::ServiceDecl const serviceDecl;
  67 }
  68 namespace application
  69 {
  70 extern sdecl::ServiceDecl const serviceDecl;
  71 }
  72 namespace vbaeventshelper
  73 {
  74 extern sdecl::ServiceDecl const serviceDecl;
  75 }
  76 namespace textframe
  77 {
  78 extern sdecl::ServiceDecl const serviceDecl;
  79 }
  80
  81 extern "C"
  82 {
  83     SAL_DLLPUBLIC_EXPORT void SAL_CALL component_getImplementationEnvironment(
  84         const sal_Char ** ppEnvTypeName, uno_Environment ** /*ppEnv*/ )
  85     {
  86         OSL_TRACE("In component_getImplementationEnv");
  87         *ppEnvTypeName = CPPU_CURRENT_LANGUAGE_BINDING_NAME;
  88     }
  89
  90     SAL_DLLPUBLIC_EXPORT sal_Bool SAL_CALL component_writeInfo(
  91         lang::XMultiServiceFactory * pServiceManager, registry::XRegistryKey * pRegistryKey )
  92     {
  93         OSL_TRACE("In component_writeInfo");
  94 #if 0
  95     // Component registration
  96         if ( component_writeInfoHelper( pServiceManager, pRegistryKey,
  97                 range::serviceDecl, workbook::serviceDecl, worksheet::serviceDecl, globals::serviceDecl, window::serviceDecl, hyperlink::serviceDecl, application::serviceDecl ) && component_writeInfoHelper( pServiceManager, pRegistryKey, vbaeventshelper::serviceDecl ) )
  98         {
  99             // Singleton registration
 100             try
 101             {
 102                 registry::XRegistryKey * pKey =
 103                     reinterpret_cast< registry::XRegistryKey * >(pRegistryKey);
 104
 105                 Reference< registry::XRegistryKey >xKey = pKey->createKey(
 106                     rtl::OUString::createFromAscii( ("ooo.vba.Globals/UNO/SINGLETONS/ooo.vba.theGlobals") ) );
 107                 xKey->setStringValue( ::rtl::OUString::createFromAscii(
 108                     ("ooo.vba.Globals") ) );
 109                 return sal_True;
 110             }
 111             catch( uno::Exception& /*e*/ )
 112             {
 113                 //recomp & friends will detect false returned and fail
 114             }
 115         }
 116         return sal_False;
 117 #else
 118         // Component registration
 119         return component_writeInfoHelper( pServiceManager, pRegistryKey,
 120                 range::serviceDecl, workbook::serviceDecl, worksheet::serviceDecl, globals::serviceDecl, window::serviceDecl, hyperlink::serviceDecl, application::serviceDecl ) && component_writeInfoHelper( pServiceManager, pRegistryKey, vbaeventshelper::serviceDecl, textframe::serviceDecl );
 121 #endif
 122
 123     }
 124
 125     SAL_DLLPUBLIC_EXPORT void * SAL_CALL component_getFactory(
 126         const sal_Char * pImplName, lang::XMultiServiceFactory * pServiceManager,
 127         registry::XRegistryKey * pRegistryKey )
 128     {
 129         OSL_TRACE("In component_getFactory for %s", pImplName );
 130     void* pRet =  component_getFactoryHelper(
 131                 pImplName, pServiceManager, pRegistryKey, range::serviceDecl, workbook::serviceDecl, worksheet::serviceDecl, globals::serviceDecl, window::serviceDecl, hyperlink::serviceDecl, application::serviceDecl );
 132     if( !pRet )
 133         pRet = component_getFactoryHelper( pImplName, pServiceManager, pRegistryKey, vbaeventshelper::serviceDecl, textframe::serviceDecl );
 134     OSL_TRACE("Ret is 0x%x", pRet);
 135     return pRet;
 136     }
 137 }