sc/source/ui/vba/vbaname.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19 #include <vbahelper/helperdecl.hxx>
  20
  21 #include <com/sun/star/table/XCellRange.hpp>
  22 #include <com/sun/star/sheet/XCellRangeAddressable.hpp>
  23 #include <com/sun/star/sheet/XCellRangeReferrer.hpp>
  24
  25 #include "vbaname.hxx"
  26 #include "vbarange.hxx"
  27 #include "vbaglobals.hxx"
  28 #include <vector>
  29 #include <rangenam.hxx>
  30 #include <vcl/msgbox.hxx>
  31 #include "tabvwsh.hxx"
  32 #include "viewdata.hxx"
  33 #include "nameuno.hxx"
  34 #include "compiler.hxx"
  35 #include "tokenarray.hxx"
  36
  37 #include <boost/scoped_ptr.hpp>
  38
  39 using namespace ::ooo::vba;
  40 using namespace ::com::sun::star;
  41
  42 ScVbaName::ScVbaName(const css::uno::Reference< ov::XHelperInterface >& xParent,
  43             const css::uno::Reference< css::uno::XComponentContext >& xContext,
  44             const css::uno::Reference< css::sheet::XNamedRange >& xName,
  45             const css::uno::Reference< css::sheet::XNamedRanges >& xNames,
  46             const css::uno::Reference< css::frame::XModel >& xModel ):
  47             NameImpl_BASE(  xParent , xContext ),
  48             mxModel( xModel ),
  49             mxNamedRange( xName ),
  50             mxNames( xNames )
  51 {
  52 }
  53
  54 ScVbaName::~ScVbaName()
  55 {
  56 }
  57
  58 css::uno::Reference< ov::excel::XWorksheet >
  59 ScVbaName::getWorkSheet() throw (css::uno::RuntimeException)
  60 {
  61     uno::Reference< excel::XApplication > xApplication( Application(), uno::UNO_QUERY_THROW );
  62     return xApplication->getActiveSheet();
  63 }
  64
  65 OUString
  66 ScVbaName::getName() throw (css::uno::RuntimeException)
  67 {
  68     return mxNamedRange->getName();
  69 }
  70
  71 void
  72 ScVbaName::setName( const OUString & rName ) throw (css::uno::RuntimeException)
  73 {
  74     mxNamedRange->setName( rName );
  75 }
  76
  77 OUString
  78 ScVbaName::getNameLocal() throw (css::uno::RuntimeException)
  79 {
  80     return getName();
  81 }
  82
  83 void
  84 ScVbaName::setNameLocal( const OUString & rName ) throw (css::uno::RuntimeException)
  85 {
  86     setName( rName );
  87 }
  88
  89 sal_Bool
  90 ScVbaName::getVisible() throw (css::uno::RuntimeException)
  91 {
  92     return true;
  93 }
  94
  95 void
  96 ScVbaName::setVisible( sal_Bool /*bVisible*/ ) throw (css::uno::RuntimeException)
  97 {
  98 }
  99
 100 OUString ScVbaName::getContent( const formula::FormulaGrammar::Grammar eGrammar, bool bPrependEquals )
 101 {
 102     ScNamedRangeObj* pNamedRange = dynamic_cast< ScNamedRangeObj* >( mxNamedRange.get() );
 103     OUString aContent;
 104     if ( pNamedRange )
 105     {
 106         ScRangeData* pData = pNamedRange->GetRangeData_Impl();
 107         if (pData)
 108             pData->GetSymbol( aContent, eGrammar );
 109     }
 110     if ( bPrependEquals )
 111     {
 112         if (aContent.indexOf('=') != 0)
 113             aContent = "=" + aContent;
 114     }
 115     return aContent;
 116 }
 117
 118 void  ScVbaName::setContent( const OUString& rContent, const formula::FormulaGrammar::Grammar eGrammar, bool bRemoveEquals )
 119 {
 120     OUString sContent( rContent );
 121     if ( bRemoveEquals )
 122     {
 123         if (sContent.startsWith("="))
 124             sContent = sContent.copy(1);
 125     }
 126     ScNamedRangeObj* pNamedRange = dynamic_cast< ScNamedRangeObj* >( mxNamedRange.get() );
 127
 128     // We should be able to do the below by just setting calling SetCode on pNamedRange
 129     // right?
 130     if ( pNamedRange && pNamedRange->pDocShell )
 131     {
 132
 133         ScDocument* pDoc = pNamedRange->pDocShell->GetDocument();
 134         ScRangeData* pOldData = pNamedRange->GetRangeData_Impl();
 135         if (pOldData)
 136         {
 137             // Shorter way of doing this ?
 138             ScCompiler aComp( pDoc, pOldData->GetPos() );
 139             aComp.SetGrammar( eGrammar );
 140             boost::scoped_ptr<ScTokenArray> pArray(aComp.CompileString(sContent));
 141             pOldData->SetCode(*pArray);
 142         }
 143     }
 144 }
 145
 146 OUString
 147 ScVbaName::getValue() throw (css::uno::RuntimeException)
 148 {
 149     rtl::OUString sResult = getContent( formula::FormulaGrammar::GRAM_NATIVE_XL_A1, true );
 150
 151     return sResult;
 152 }
 153
 154 void
 155 ScVbaName::setValue( const OUString & rValue ) throw (css::uno::RuntimeException)
 156 {
 157     setContent( rValue, formula::FormulaGrammar::GRAM_NATIVE_XL_A1, true );
 158 }
 159
 160 OUString
 161 ScVbaName::getRefersTo() throw (css::uno::RuntimeException)
 162 {
 163     return getValue();
 164 }
 165
 166 void
 167 ScVbaName::setRefersTo( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 168 {
 169     setValue( rRefersTo );
 170 }
 171
 172 OUString
 173 ScVbaName::getRefersToLocal() throw (css::uno::RuntimeException)
 174 {
 175     return getRefersTo();
 176 }
 177
 178 void
 179 ScVbaName::setRefersToLocal( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 180 {
 181     setRefersTo( rRefersTo );
 182 }
 183
 184 OUString
 185 ScVbaName::getRefersToR1C1() throw (css::uno::RuntimeException)
 186 {
 187     rtl::OUString sResult = getContent( formula::FormulaGrammar::GRAM_NATIVE_XL_R1C1, true );
 188     return  sResult;
 189 }
 190
 191 void
 192 ScVbaName::setRefersToR1C1( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 193 {
 194     setContent( rRefersTo, formula::FormulaGrammar::GRAM_NATIVE_XL_R1C1, true );
 195 }
 196
 197 OUString
 198 ScVbaName::getRefersToR1C1Local() throw (css::uno::RuntimeException)
 199 {
 200     return getRefersToR1C1();
 201 }
 202
 203 void
 204 ScVbaName::setRefersToR1C1Local( const OUString & rRefersTo ) throw (css::uno::RuntimeException)
 205 {
 206     setRefersTo( rRefersTo );
 207 }
 208
 209 css::uno::Reference< ov::excel::XRange >
 210 ScVbaName::getRefersToRange() throw (css::uno::RuntimeException)
 211 {
 212     uno::Reference< ov::excel::XRange > xRange = ScVbaRange::getRangeObjectForName(
 213         mxContext, mxNamedRange->getName(), excel::getDocShell( mxModel ), formula::FormulaGrammar::CONV_XL_R1C1 );
 214     return xRange;
 215 }
 216
 217 void
 218 ScVbaName::setRefersToRange( const css::uno::Reference< ov::excel::XRange > /*rRange*/ ) throw (css::uno::RuntimeException)
 219 {
 220 }
 221
 222 void
 223 ScVbaName::Delete() throw (css::uno::RuntimeException)
 224 {
 225     mxNames->removeByName( mxNamedRange->getName() );
 226 }
 227
 228 OUString
 229 ScVbaName::getServiceImplName()
 230 {
 231     return OUString( "ScVbaName" );
 232 }
 233
 234 uno::Sequence< OUString >
 235 ScVbaName::getServiceNames()
 236 {
 237     static uno::Sequence< OUString > aServiceNames;
 238     if ( aServiceNames.getLength() == 0 )
 239     {
 240         aServiceNames.realloc( 1 );
 241         aServiceNames[ 0 ] = "ooo.vba.excel.Name";
 242     }
 243     return aServiceNames;
 244 }
 245
 246 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */