sw/source/ui/vba/vbaaddin.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:
  10  * $Revision:
  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 "vbaaddin.hxx"
  31 #include <vbahelper/vbahelper.hxx>
  32 #include <tools/diagnose_ex.h>
  33 #include <tools/urlobj.hxx>
  34 #include <osl/file.hxx>
  35
  36 using namespace ::ooo::vba;
  37 using namespace ::com::sun::star;
  38
  39 SwVbaAddin::SwVbaAddin( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const rtl::OUString& rFileURL, sal_Bool bAutoload ) throw ( uno::RuntimeException ) :
  40     SwVbaAddin_BASE( rParent, rContext ), msFileURL( rFileURL ), mbAutoload( bAutoload ), mbInstalled( bAutoload )
  41 {
  42 }
  43
  44 SwVbaAddin::~SwVbaAddin()
  45 {
  46 }
  47
  48 ::rtl::OUString SAL_CALL SwVbaAddin::getName() throw (uno::RuntimeException)
  49 {
  50     rtl::OUString sName;
  51     INetURLObject aURL( msFileURL );
  52     ::osl::File::getSystemPathFromFileURL( aURL.GetLastName(), sName );
  53     return sName;
  54 }
  55
  56 void SAL_CALL
  57 SwVbaAddin::setName( const rtl::OUString& ) throw ( css::uno::RuntimeException )
  58 {
  59     throw uno::RuntimeException( rtl::OUString(
  60             RTL_CONSTASCII_USTRINGPARAM(" Fail to set name")), uno::Reference< uno::XInterface >() );
  61 }
  62
  63 ::rtl::OUString SAL_CALL SwVbaAddin::getPath() throw (uno::RuntimeException)
  64 {
  65     INetURLObject aURL( msFileURL );
  66     aURL.CutLastName();
  67     return aURL.GetURLPath();
  68 }
  69
  70 ::sal_Bool SAL_CALL SwVbaAddin::getAutoload() throw (uno::RuntimeException)
  71 {
  72     return mbAutoload;
  73 }
  74
  75 ::sal_Bool SAL_CALL SwVbaAddin::getInstalled() throw (uno::RuntimeException)
  76 {
  77     return mbInstalled;
  78 }
  79
  80 void SAL_CALL SwVbaAddin::setInstalled( ::sal_Bool _installed ) throw (uno::RuntimeException)
  81 {
  82     if( _installed != mbInstalled )
  83     {
  84         mbInstalled = _installed;
  85         // TODO: should call AutoExec and AutoExit etc.
  86     }
  87 }
  88
  89 rtl::OUString&
  90 SwVbaAddin::getServiceImplName()
  91 {
  92         static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaAddin") );
  93         return sImplName;
  94 }
  95
  96 uno::Sequence< rtl::OUString >
  97 SwVbaAddin::getServiceNames()
  98 {
  99         static uno::Sequence< rtl::OUString > aServiceNames;
 100         if ( aServiceNames.getLength() == 0 )
 101         {
 102                 aServiceNames.realloc( 1 );
 103                 aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.Addin" ) );
 104         }
 105         return aServiceNames;
 106 }
 107