INTEGRATION: CWS relocinst (1.1.2); FILE ADDED

2004/04/22 11:00:26 kso 1.1.2.1: #116281# Initial revision

1 files changed, 363 insertions, 0 deletions

diff --git a/comphelper/source/officeinstdir/officeinstallationdirectories.cxx b/comphelper/source/officeinstdir/officeinstallationdirectories.cxx
new file mode 100644
index 000000000000..bbb40f38c1c2
--- /dev/null
+++ b/comphelper/source/officeinstdir/officeinstallationdirectories.cxx
@@ -0,0 +1,363 @@
+/*************************************************************************
+ *
+ *  $RCSfile: officeinstallationdirectories.cxx,v $
+ *
+ *  $Revision: 1.2 $
+ *
+ *  last change: $Author: hr $ $Date: 2004-05-10 14:19:58 $
+ *
+ *  The Contents of this file are made available subject to the terms of
+ *  either of the following licenses
+ *
+ *         - GNU Lesser General Public License Version 2.1
+ *         - Sun Industry Standards Source License Version 1.1
+ *
+ *  Sun Microsystems Inc., October, 2000
+ *
+ *  GNU Lesser General Public License Version 2.1
+ *  =============================================
+ *  Copyright 2000 by Sun Microsystems, Inc.
+ *  901 San Antonio Road, Palo Alto, CA 94303, USA
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License version 2.1, as published by the Free Software Foundation.
+ *
+ *  This library is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
+ *  MA  02111-1307  USA
+ *
+ *
+ *  Sun Industry Standards Source License Version 1.1
+ *  =================================================
+ *  The contents of this file are subject to the Sun Industry Standards
+ *  Source License Version 1.1 (the "License"); You may not use this file
+ *  except in compliance with the License. You may obtain a copy of the
+ *  License at http://www.openoffice.org/license.html.
+ *
+ *  Software provided under this License is provided on an "AS IS" basis,
+ *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
+ *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
+ *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
+ *  See the License for the specific provisions governing your rights and
+ *  obligations concerning the Software.
+ *
+ *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
+ *
+ *  Copyright: 2000 by Sun Microsystems, Inc.
+ *
+ *  All Rights Reserved.
+ *
+ *  Contributor(s): Kai Sommerfeld ( kso@sun.com )
+ *
+ *
+ ************************************************************************/
+
+/**************************************************************************
+                                TODO
+ **************************************************************************
+
+ *************************************************************************/
+
+#include "osl/file.hxx"
+#include "com/sun/star/beans/XPropertySet.hpp"
+#include "com/sun/star/util/XMacroExpander.hpp"
+
+#include "officeinstallationdirectories.hxx"
+
+using namespace com::sun::star;
+
+using namespace comphelper;
+
+//=========================================================================
+// helpers
+//=========================================================================
+
+uno::Sequence< rtl::OUString > SAL_CALL
+OfficeInstallationDirectories_getSupportedServiceNames()
+    throw()
+{
+    const rtl::OUString aServiceName(
+        RTL_CONSTASCII_USTRINGPARAM(
+            "com.sun.star.util.OfficeInstallationDirectories" ) );
+    return uno::Sequence< rtl::OUString >( &aServiceName, 1 );
+}
+
+//=========================================================================
+rtl::OUString SAL_CALL OfficeInstallationDirectories_getImplementationName()
+    throw()
+{
+    return rtl::OUString(
+        RTL_CONSTASCII_USTRINGPARAM(
+            "com.sun.star.comp.util.OfficeInstallationDirectories" ) );
+}
+
+//=========================================================================
+rtl::OUString SAL_CALL OfficeInstallationDirectories_getSingletonName()
+    throw()
+{
+    return rtl::OUString(
+        RTL_CONSTASCII_USTRINGPARAM(
+            "com.sun.star.util.theOfficeInstallationDirectories" ) );
+}
+
+//=========================================================================
+rtl::OUString SAL_CALL OfficeInstallationDirectories_getSingletonServiceName()
+    throw()
+{
+    return rtl::OUString(
+        RTL_CONSTASCII_USTRINGPARAM(
+            "com.sun.star.util.OfficeInstallationDirectories" ) );
+}
+
+//=========================================================================
+uno::Reference< uno::XInterface > SAL_CALL
+OfficeInstallationDirectories_createInstance(
+        const uno::Reference< lang::XMultiServiceFactory > & xSMgr )
+    throw( uno::Exception )
+{
+    OSL_ENSURE( xSMgr.is(), "No service manager!" );
+
+    uno::Reference< uno::XComponentContext > xCtx;
+    uno::Reference< beans::XPropertySet > xPropSet( xSMgr, uno::UNO_QUERY );
+    if ( xPropSet.is() )
+    {
+        xPropSet->getPropertyValue(
+            rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "DefaultContext" ) ) )
+        >>= xCtx;
+    }
+
+    if ( !xCtx.is() )
+    {
+        throw uno::RuntimeException(
+            rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(
+                "Unable to obtain component context from service manager!" ) ),
+            uno::Reference< uno::XInterface >() );
+    }
+
+    return static_cast< cppu::OWeakObject * >(
+        new OfficeInstallationDirectories( xCtx ) );
+}
+
+//=========================================================================
+//=========================================================================
+//
+// OfficeInstallationDirectories Implementation.
+//
+//=========================================================================
+//=========================================================================
+
+OfficeInstallationDirectories::OfficeInstallationDirectories(
+        const uno::Reference< uno::XComponentContext > & xCtx )
+: m_aOfficeDirMacro( RTL_CONSTASCII_USTRINGPARAM( "$(baseinsturl)" ) ),
+  m_aUserDirMacro( RTL_CONSTASCII_USTRINGPARAM( "$(userdataurl)" ) ),
+  m_xCtx( xCtx ),
+  m_pOfficeDir( 0 ),
+  m_pUserDir( 0 )
+{
+}
+
+//=========================================================================
+// virtual
+OfficeInstallationDirectories::~OfficeInstallationDirectories()
+{
+}
+
+//=========================================================================
+// util::XOfficeInstallationDirectories
+//=========================================================================
+
+// virtual
+rtl::OUString SAL_CALL
+OfficeInstallationDirectories::getOfficeInstallationDirectoryURL()
+    throw ( uno::RuntimeException )
+{
+    // late init m_pOfficeDir and m_pUserDir
+    initDirs();
+    return rtl::OUString( *m_pOfficeDir );
+}
+
+//=========================================================================
+// virtual
+rtl::OUString SAL_CALL
+OfficeInstallationDirectories::getOfficeUserDataDirectoryURL()
+    throw ( uno::RuntimeException )
+{
+    // late init m_pOfficeDir and m_pUserDir
+    initDirs();
+    return rtl::OUString( *m_pUserDir );
+}
+
+
+//=========================================================================
+// virtual
+rtl::OUString SAL_CALL
+OfficeInstallationDirectories::makeRelocatableURL( const rtl::OUString& URL )
+    throw ( uno::RuntimeException )
+{
+    if ( URL.getLength() > 0 )
+    {
+        // late init m_pOfficeDir and m_pUserDir
+        initDirs();
+
+        // @@@ should this really be case sensitive? How to make canonical URL?
+        sal_Int32 nIndex = URL.indexOf( *m_pOfficeDir );
+        if ( nIndex  != -1 )
+        {
+            return rtl::OUString(
+                URL.replaceAt( nIndex,
+                               m_pOfficeDir->getLength(),
+                               m_aOfficeDirMacro ) );
+        }
+        else
+        {
+            // @@@ should this really be case sensitive? How to make canonical URL?
+            sal_Int32 nIndex = URL.indexOf( *m_pUserDir );
+            if ( nIndex  != -1 )
+            {
+                return rtl::OUString(
+                    URL.replaceAt( nIndex,
+                                   m_pUserDir->getLength(),
+                                   m_aUserDirMacro ) );
+            }
+        }
+    }
+    return rtl::OUString( URL );
+}
+
+//=========================================================================
+// virtual
+rtl::OUString SAL_CALL
+OfficeInstallationDirectories::makeAbsoluteURL( const rtl::OUString& URL )
+    throw ( uno::RuntimeException )
+{
+    if ( URL.getLength() > 0 )
+    {
+        sal_Int32 nIndex = URL.indexOf( m_aOfficeDirMacro );
+        if ( nIndex != -1 )
+        {
+            // late init m_pOfficeDir and m_pUserDir
+            initDirs();
+
+            return rtl::OUString(
+                URL.replaceAt( nIndex,
+                               m_aOfficeDirMacro.getLength(),
+                               *m_pOfficeDir ) );
+        }
+        else
+        {
+            sal_Int32 nIndex = URL.indexOf( m_aUserDirMacro );
+            if ( nIndex != -1 )
+            {
+                // late init m_pOfficeDir and m_pUserDir
+                initDirs();
+
+                return rtl::OUString(
+                    URL.replaceAt( nIndex,
+                                   m_aUserDirMacro.getLength(),
+                                   *m_pUserDir ) );
+            }
+        }
+    }
+    return rtl::OUString( URL );
+}
+
+//=========================================================================
+// lang::XServiceInfo
+//=========================================================================
+
+// virtual
+rtl::OUString SAL_CALL
+OfficeInstallationDirectories::getImplementationName()
+    throw ( uno::RuntimeException )
+{
+    return OfficeInstallationDirectories_getImplementationName();
+}
+
+//=========================================================================
+// virtual
+sal_Bool SAL_CALL
+OfficeInstallationDirectories::supportsService( const rtl::OUString& ServiceName )
+    throw ( uno::RuntimeException )
+{
+    const uno::Sequence< rtl::OUString > & aNames
+        = OfficeInstallationDirectories_getSupportedServiceNames();
+    const rtl::OUString * p = aNames.getConstArray();
+    for ( sal_Int32 nPos = 0; nPos < aNames.getLength(); nPos++ )
+    {
+        if ( p[ nPos ].equals( ServiceName ) )
+            return sal_True;
+    }
+    return sal_False;
+
+}
+
+//=========================================================================
+// virtual
+uno::Sequence< ::rtl::OUString > SAL_CALL
+OfficeInstallationDirectories::getSupportedServiceNames()
+    throw ( uno::RuntimeException )
+{
+    return OfficeInstallationDirectories_getSupportedServiceNames();
+}
+
+//=========================================================================
+// non-UNO
+//=========================================================================
+
+void OfficeInstallationDirectories::initDirs()
+{
+    if ( m_pOfficeDir == 0 )
+    {
+        osl::MutexGuard aGuard( m_aMutex );
+        if ( m_pOfficeDir == 0 )
+        {
+            m_pOfficeDir = new rtl::OUString;
+            m_pUserDir   = new rtl::OUString;
+
+            uno::Reference< util::XMacroExpander > xExpander;
+
+            m_xCtx->getValueByName(
+                rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(
+                    "/singletons/com.sun.star.util.theMacroExpander" ) ) )
+            >>= xExpander;
+
+            OSL_ENSURE( xExpander.is(),
+                        "Unable to obtain macro expander singleton!" );
+
+            if ( xExpander.is() )
+            {
+                *m_pOfficeDir =
+                    xExpander->expandMacros(
+                        rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(
+                            "${$SYSBINDIR/" SAL_CONFIGFILE( "bootstrap" ) ":BaseInstallation}" ) ) );
+
+                OSL_ENSURE( m_pOfficeDir->getLength() > 0,
+                        "Unable to obtain office installation directory!" );
+
+                // make dir absolute; it may be relative.
+                osl::FileBase::getAbsoluteFileURL(
+                    rtl::OUString(), *m_pOfficeDir, *m_pOfficeDir );
+
+                *m_pUserDir =
+                    xExpander->expandMacros(
+                        rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(
+                            "${$SYSBINDIR/" SAL_CONFIGFILE( "bootstrap" ) ":UserInstallation}" ) ) );
+
+                OSL_ENSURE( m_pUserDir->getLength() > 0,
+                        "Unable to obtain office user data directory!" );
+
+                // make dir absolute; it may be relative.
+                osl::FileBase::getAbsoluteFileURL(
+                    rtl::OUString(), *m_pUserDir, *m_pUserDir );
+            }
+        }
+    }
+}
+