LCOV - code coverage report
Current view: top level - vbahelper/source/msforms - vbalistcontrolhelper.cxx (source / functions) Hit Total Coverage
Test: commit e02a6cb2c3e2b23b203b422e4e0680877f232636 Lines: 0 84 0.0 %
Date: 2014-04-14 Functions: 0 13 0.0 %
Legend: Lines: hit not hit

          Line data    Source code
       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             : 
      20             : #include <vbalistcontrolhelper.hxx>
      21             : #include <vector>
      22             : #include <vbahelper/vbapropvalue.hxx>
      23             : 
      24             : using namespace com::sun::star;
      25             : using namespace ooo::vba;
      26             : 
      27           0 : const static OUString ITEMS( "StringItemList" );
      28             : 
      29             : class ListPropListener : public PropListener
      30             : {
      31             : private:
      32             :     uno::Reference< beans::XPropertySet > m_xProps;
      33             :     uno::Any m_pvargIndex;
      34             :     uno::Any m_pvarColumn;
      35             : 
      36             : public:
      37             :     ListPropListener( const uno::Reference< beans::XPropertySet >& xProps, const uno::Any& pvargIndex, const uno::Any& pvarColumn );
      38           0 :     virtual ~ListPropListener() { };
      39             :     virtual void setValueEvent( const css::uno::Any& value ) SAL_OVERRIDE;
      40             :     virtual css::uno::Any getValueEvent() SAL_OVERRIDE;
      41             : };
      42             : 
      43           0 : ListPropListener::ListPropListener( const uno::Reference< beans::XPropertySet >& xProps, const uno::Any& pvargIndex, const uno::Any& pvarColumn ) : m_xProps( xProps ), m_pvargIndex( pvargIndex ), m_pvarColumn( pvarColumn )
      44             : {
      45           0 : }
      46             : 
      47           0 : void ListPropListener::setValueEvent( const uno::Any& value )
      48             : {
      49           0 :     if( m_pvargIndex.hasValue() || m_pvarColumn.hasValue() )
      50           0 :         throw uno::RuntimeException( "Bad argument" , uno::Reference< uno::XInterface >() );
      51             : 
      52           0 :     m_xProps->setPropertyValue( ITEMS, value );
      53           0 : }
      54             : 
      55           0 : uno::Any ListPropListener::getValueEvent()
      56             : {
      57           0 :     uno::Sequence< OUString > sList;
      58           0 :     m_xProps->getPropertyValue( ITEMS ) >>= sList;
      59           0 :     sal_Int16 nLength = static_cast< sal_Int16 >( sList.getLength() );
      60           0 :     uno::Any aRet;
      61           0 :     if ( m_pvargIndex.hasValue() )
      62             :     {
      63           0 :         sal_Int16 nIndex = -1;
      64           0 :         m_pvargIndex >>= nIndex;
      65           0 :         if( nIndex < 0 || nIndex >= nLength )
      66           0 :             throw uno::RuntimeException( "Bad row Index" , uno::Reference< uno::XInterface >() );
      67           0 :         aRet <<= sList[ nIndex ];
      68             :     }
      69           0 :     else if ( m_pvarColumn.hasValue() ) // pvarColumn on its own would be bad
      70           0 :             throw uno::RuntimeException( "Bad column Index" , uno::Reference< uno::XInterface >() );
      71             :     else // List() ( e.g. no args )
      72             :     {
      73           0 :         uno::Sequence< uno::Sequence< OUString > > sReturnArray( nLength );
      74           0 :         for ( sal_Int32 i = 0; i < nLength; ++i )
      75             :         {
      76           0 :             sReturnArray[ i ].realloc( 10 );
      77           0 :             sReturnArray[ i ][ 0 ] = sList[ i ];
      78             :         }
      79           0 :         aRet = uno::makeAny( sReturnArray );
      80             :     }
      81           0 :     return aRet;
      82             : }
      83             : 
      84             : void SAL_CALL
      85           0 : ListControlHelper::AddItem( const uno::Any& pvargItem, const uno::Any& pvargIndex ) throw (uno::RuntimeException)
      86             : {
      87           0 :     if ( pvargItem.hasValue()  )
      88             :     {
      89           0 :         uno::Sequence< OUString > sList;
      90           0 :         m_xProps->getPropertyValue( ITEMS ) >>= sList;
      91             : 
      92           0 :         sal_Int32 nIndex = sList.getLength();
      93             : 
      94           0 :         if ( pvargIndex.hasValue() )
      95           0 :             pvargIndex >>= nIndex;
      96             : 
      97           0 :         OUString sString = getAnyAsString( pvargItem );
      98             : 
      99             :         // if no index specified or item is to be appended to end of
     100             :         // list just realloc the array and set the last item
     101           0 :         if ( nIndex  == sList.getLength() )
     102             :         {
     103           0 :             sal_Int32 nOldSize = sList.getLength();
     104           0 :             sList.realloc( nOldSize + 1 );
     105           0 :             sList[ nOldSize ] = sString;
     106             :         }
     107             :         else
     108             :         {
     109             :             // just copy those elements above the one to be inserted
     110           0 :             std::vector< OUString > sVec;
     111             :             // reserve just the amount we need to copy
     112           0 :             sVec.reserve( sList.getLength() - nIndex );
     113             : 
     114             :             // point at first element to copy
     115           0 :             OUString* pString = sList.getArray() + nIndex;
     116           0 :             const OUString* pEndString = sList.getArray() + sList.getLength();
     117             :             // insert the new element
     118           0 :             sVec.push_back( sString );
     119             :             // copy elements
     120           0 :             for ( ; pString != pEndString; ++pString )
     121           0 :                 sVec.push_back( *pString );
     122             : 
     123           0 :             sList.realloc(  sList.getLength() + 1 );
     124             : 
     125             :             // point at first element to be overwritten
     126           0 :             pString = sList.getArray() + nIndex;
     127           0 :             pEndString = sList.getArray() + sList.getLength();
     128           0 :             std::vector< OUString >::iterator it = sVec.begin();
     129           0 :             for ( ; pString != pEndString; ++pString, ++it)
     130           0 :                 *pString = *it;
     131             : 
     132             :         }
     133             : 
     134           0 :         m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
     135             : 
     136             :     }
     137           0 : }
     138             : 
     139             : void SAL_CALL
     140           0 : ListControlHelper::removeItem( const uno::Any& index ) throw (uno::RuntimeException)
     141             : {
     142           0 :     sal_Int32 nIndex = 0;
     143             :     // for int index
     144           0 :     if ( index >>= nIndex  )
     145             :     {
     146           0 :         uno::Sequence< OUString > sList;
     147           0 :         m_xProps->getPropertyValue( ITEMS ) >>= sList;
     148           0 :         if( nIndex < 0 || nIndex > ( sList.getLength() - 1 ) )
     149           0 :             throw uno::RuntimeException( "Invalid index" , uno::Reference< uno::XInterface > () );
     150           0 :         if( sList.hasElements() )
     151             :         {
     152           0 :             if( sList.getLength() == 1 )
     153             :             {
     154           0 :                 Clear();
     155           0 :                 return;
     156             :             }
     157           0 :             for( sal_Int32 i = nIndex; i < ( sList.getLength()-1 ); i++ )
     158             :             {
     159           0 :                 sList[i] = sList[i+1];
     160             :             }
     161           0 :             sList.realloc(  sList.getLength() - 1 );
     162             :         }
     163             : 
     164           0 :         m_xProps->setPropertyValue( ITEMS, uno::makeAny( sList ) );
     165             :     }
     166             : }
     167             : 
     168             : void SAL_CALL
     169           0 : ListControlHelper::Clear(  ) throw (uno::RuntimeException)
     170             : {
     171             :     // urk, setValue doesn't seem to work !!
     172             :     //setValue( uno::makeAny( sal_Int16() ) );
     173           0 :     m_xProps->setPropertyValue( ITEMS, uno::makeAny( uno::Sequence< OUString >() ) );
     174           0 : }
     175             : 
     176             : void SAL_CALL
     177           0 : ListControlHelper::setRowSource( const OUString& _rowsource ) throw (uno::RuntimeException)
     178             : {
     179           0 :     if ( _rowsource.isEmpty() )
     180           0 :         Clear();
     181           0 : }
     182             : 
     183             : sal_Int32 SAL_CALL
     184           0 : ListControlHelper::getListCount() throw (uno::RuntimeException)
     185             : {
     186           0 :     uno::Sequence< OUString > sList;
     187           0 :     m_xProps->getPropertyValue( ITEMS ) >>= sList;
     188           0 :     return sList.getLength();
     189             : }
     190             : 
     191             : uno::Any SAL_CALL
     192           0 : ListControlHelper::List( const ::uno::Any& pvargIndex, const uno::Any& pvarColumn ) throw (uno::RuntimeException)
     193             : {
     194           0 :     return uno::makeAny( uno::Reference< XPropValue > ( new ScVbaPropValue( new ListPropListener( m_xProps, pvargIndex, pvarColumn ) ) ) );
     195           0 : }
     196             : 
     197             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10