LCOV - code coverage report
Current view: top level - sw/source/core/doc - docbasic.cxx (source / functions) Hit Total Coverage
Test: commit e02a6cb2c3e2b23b203b422e4e0680877f232636 Lines: 0 101 0.0 %
Date: 2014-04-14 Functions: 0 3 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 <hintids.hxx>
      21             : 
      22             : #include <rtl/ustring.hxx>
      23             : #include <svtools/imap.hxx>
      24             : #include <svtools/imapobj.hxx>
      25             : #include <basic/sbx.hxx>
      26             : #include <frmfmt.hxx>
      27             : #include <fmtinfmt.hxx>
      28             : #include <fmturl.hxx>
      29             : #include <frmatr.hxx>
      30             : #include <docary.hxx>
      31             : #include <doc.hxx>
      32             : #include <docsh.hxx>
      33             : #include <swevent.hxx>
      34             : #include <boost/scoped_ptr.hpp>
      35             : 
      36             : using namespace ::com::sun::star::uno;
      37             : 
      38           0 : static Sequence<Any> *lcl_docbasic_convertArgs( SbxArray& rArgs )
      39             : {
      40           0 :     Sequence<Any> *pRet = 0;
      41             : 
      42           0 :     sal_uInt16 nCount = rArgs.Count();
      43           0 :     if( nCount > 1 )
      44             :     {
      45           0 :         nCount--;
      46           0 :         pRet = new Sequence<Any>( nCount );
      47           0 :         Any *pUnoArgs = pRet->getArray();
      48           0 :         for( sal_uInt16 i=0; i<nCount; i++ )
      49             :         {
      50           0 :             SbxVariable *pVar = rArgs.Get( i+1 );
      51           0 :             switch( pVar->GetType() )
      52             :             {
      53             :             case SbxSTRING:
      54           0 :                 pUnoArgs[i] <<= OUString( pVar->GetOUString() );
      55           0 :                 break;
      56             :             case SbxCHAR:
      57           0 :                 pUnoArgs[i] <<= (sal_Int16)pVar->GetChar() ;
      58           0 :                 break;
      59             :             case SbxUSHORT:
      60           0 :                 pUnoArgs[i] <<= (sal_Int16)pVar->GetUShort();
      61           0 :                 break;
      62             :             case SbxLONG:
      63           0 :                 pUnoArgs[i] <<= (sal_Int32)pVar->GetLong();
      64           0 :                 break;
      65             :             default:
      66           0 :                 pUnoArgs[i].setValue(0, ::getVoidCppuType());
      67           0 :                 break;
      68             :             }
      69             :         }
      70             :     }
      71             : 
      72           0 :     return pRet;
      73             : }
      74             : 
      75           0 : bool SwDoc::ExecMacro( const SvxMacro& rMacro, OUString* pRet, SbxArray* pArgs )
      76             : {
      77           0 :     ErrCode eErr = 0;
      78           0 :     switch( rMacro.GetScriptType() )
      79             :     {
      80             :     case STARBASIC:
      81             :         {
      82           0 :             SbxBaseRef aRef;
      83           0 :             SbxValue* pRetValue = new SbxValue;
      84           0 :             aRef = pRetValue;
      85           0 :             eErr = mpDocShell->CallBasic( rMacro.GetMacName(),
      86           0 :                                          rMacro.GetLibName(),
      87           0 :                                          pArgs, pRet ? pRetValue : 0 );
      88             : 
      89           0 :             if( pRet && SbxNULL <  pRetValue->GetType() &&
      90           0 :                         SbxVOID != pRetValue->GetType() )
      91             :             {
      92             :                 // valid value, so set it
      93           0 :                 *pRet = pRetValue->GetOUString();
      94           0 :             }
      95             :         }
      96           0 :         break;
      97             :     case JAVASCRIPT:
      98             :         // ignore JavaScript calls
      99           0 :         break;
     100             :     case EXTENDED_STYPE:
     101             :         {
     102           0 :             boost::scoped_ptr<Sequence<Any> > pUnoArgs;
     103           0 :             if( pArgs )
     104             :             {
     105             :                 // better to rename the local function to lcl_translateBasic2Uno and
     106             :                 // a much shorter routine can be found in sfx2/source/doc/objmisc.cxx
     107           0 :                 pUnoArgs.reset(lcl_docbasic_convertArgs( *pArgs ));
     108             :             }
     109             : 
     110           0 :             if (!pUnoArgs)
     111             :             {
     112           0 :                 pUnoArgs.reset(new Sequence< Any > (0));
     113             :             }
     114             : 
     115             :             // TODO - return value is not handled
     116           0 :             Any aRet;
     117           0 :             Sequence< sal_Int16 > aOutArgsIndex;
     118           0 :             Sequence< Any > aOutArgs;
     119             : 
     120             :             OSL_TRACE( "SwDoc::ExecMacro URL is %s", OUStringToOString( rMacro.GetMacName(),
     121             :                 RTL_TEXTENCODING_UTF8).getStr() );
     122             : 
     123             :             eErr = mpDocShell->CallXScript(
     124           0 :                 rMacro.GetMacName(), *pUnoArgs, aRet, aOutArgsIndex, aOutArgs);
     125             : 
     126           0 :             break;
     127             :         }
     128             :     }
     129             : 
     130           0 :     return 0 == eErr;
     131             : }
     132             : 
     133           0 : sal_uInt16 SwDoc::CallEvent( sal_uInt16 nEvent, const SwCallMouseEvent& rCallEvent,
     134             :                     bool bCheckPtr, SbxArray* pArgs, const Link* )
     135             : {
     136           0 :     if( !mpDocShell )        // we can't do that without a DocShell!
     137           0 :         return 0;
     138             : 
     139           0 :     sal_uInt16 nRet = 0;
     140           0 :     const SvxMacroTableDtor* pTbl = 0;
     141           0 :     switch( rCallEvent.eType )
     142             :     {
     143             :     case EVENT_OBJECT_INETATTR:
     144           0 :         if( bCheckPtr  )
     145             :         {
     146             :             const SfxPoolItem* pItem;
     147           0 :             sal_uInt32 n, nMaxItems = GetAttrPool().GetItemCount2( RES_TXTATR_INETFMT );
     148           0 :             for( n = 0; n < nMaxItems; ++n )
     149           0 :                 if( 0 != (pItem = GetAttrPool().GetItem2( RES_TXTATR_INETFMT, n ) )
     150           0 :                     && rCallEvent.PTR.pINetAttr == pItem )
     151             :                 {
     152           0 :                     bCheckPtr = false;       // misuse as a flag
     153           0 :                     break;
     154             :                 }
     155             :         }
     156           0 :         if( !bCheckPtr )
     157           0 :             pTbl = rCallEvent.PTR.pINetAttr->GetMacroTbl();
     158           0 :         break;
     159             : 
     160             :     case EVENT_OBJECT_URLITEM:
     161             :     case EVENT_OBJECT_IMAGE:
     162             :         {
     163           0 :             const SwFrmFmt* pFmt = (SwFrmFmt*)rCallEvent.PTR.pFmt;
     164           0 :             if( bCheckPtr )
     165             :             {
     166           0 :                 if ( GetSpzFrmFmts()->Contains( pFmt ) )
     167           0 :                     bCheckPtr = false;      // misuse as a flag
     168             :             }
     169           0 :             if( !bCheckPtr )
     170           0 :                 pTbl = &pFmt->GetMacro().GetMacroTable();
     171             :         }
     172           0 :         break;
     173             : 
     174             :     case EVENT_OBJECT_IMAGEMAP:
     175             :         {
     176           0 :             const IMapObject* pIMapObj = rCallEvent.PTR.IMAP.pIMapObj;
     177           0 :             if( bCheckPtr )
     178             :             {
     179           0 :                 const SwFrmFmt* pFmt = (SwFrmFmt*)rCallEvent.PTR.IMAP.pFmt;
     180             :                 const ImageMap* pIMap;
     181           0 :                 if( GetSpzFrmFmts()->Contains( pFmt ) &&
     182           0 :                     0 != (pIMap = pFmt->GetURL().GetMap()) )
     183             :                 {
     184           0 :                     for( sal_uInt16 nPos = pIMap->GetIMapObjectCount(); nPos; )
     185           0 :                         if( pIMapObj == pIMap->GetIMapObject( --nPos ))
     186             :                         {
     187           0 :                             bCheckPtr = false;      // misuse as a flag
     188           0 :                             break;
     189             :                         }
     190             :                 }
     191             :             }
     192           0 :             if( !bCheckPtr )
     193           0 :                 pTbl = &pIMapObj->GetMacroTable();
     194             :         }
     195           0 :         break;
     196             :     default:
     197           0 :         break;
     198             :     }
     199             : 
     200           0 :     if( pTbl )
     201             :     {
     202           0 :         nRet = 0x1;
     203           0 :         if( pTbl->IsKeyValid( nEvent ) )
     204             :         {
     205           0 :             const SvxMacro& rMacro = *pTbl->Get( nEvent );
     206           0 :             if( STARBASIC == rMacro.GetScriptType() )
     207             :             {
     208           0 :                 nRet += 0 == mpDocShell->CallBasic( rMacro.GetMacName(),
     209           0 :                                     rMacro.GetLibName(), pArgs ) ? 1 : 0;
     210             :             }
     211           0 :             else if( EXTENDED_STYPE == rMacro.GetScriptType() )
     212             :             {
     213           0 :                 boost::scoped_ptr<Sequence<Any> > pUnoArgs;
     214             : 
     215           0 :                 if( pArgs )
     216             :                 {
     217           0 :                     pUnoArgs.reset(lcl_docbasic_convertArgs( *pArgs ));
     218             :                 }
     219             : 
     220           0 :                 if (!pUnoArgs)
     221             :                 {
     222           0 :                     pUnoArgs.reset(new Sequence <Any> (0));
     223             :                 }
     224             : 
     225           0 :                 Any aRet;
     226           0 :                 Sequence< sal_Int16 > aOutArgsIndex;
     227           0 :                 Sequence< Any > aOutArgs;
     228             : 
     229             :                 OSL_TRACE( "SwDoc::CallEvent URL is %s", OUStringToOString(
     230             :                     rMacro.GetMacName(), RTL_TEXTENCODING_UTF8).getStr() );
     231             : 
     232             :                 nRet += 0 == mpDocShell->CallXScript(
     233           0 :                     rMacro.GetMacName(), *pUnoArgs,aRet, aOutArgsIndex, aOutArgs) ? 1 : 0;
     234             :             }
     235             :             // JavaScript calls are ignored
     236             :         }
     237             :     }
     238           0 :     return nRet;
     239             : }
     240             : 
     241             : /* vim:set shiftwidth=4 softtabstop=4 expandtab: */

Generated by: LCOV version 1.10