302 lines
9.8 KiB
C++
302 lines
9.8 KiB
C++
|
/*************************************************************************
|
||
|
|
*
|
||
|
|
* OpenOffice.org - a multi-platform office productivity suite
|
||
|
|
*
|
||
|
|
* $RCSfile: cli_uno.cxx,v $
|
||
|
|
*
|
||
|
|
* $Revision: 1.2 $
|
||
|
|
*
|
||
|
|
* last change: $Author: kz $ $Date: 2007-05-09 13:31:59 $
|
||
|
|
*
|
||
|
|
* The Contents of this file are made available subject to
|
||
|
|
* the terms of GNU Lesser General Public License Version 2.1.
|
||
|
|
*
|
||
|
|
*
|
||
|
|
* GNU Lesser General Public License Version 2.1
|
||
|
|
* =============================================
|
||
|
|
* Copyright 2005 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
|
||
|
|
*
|
||
|
|
************************************************************************/
|
||
|
|
|
||
|
|
// MARKER(update_precomp.py): autogen include statement, do not remove
|
||
|
|
#include "precompiled_cli_ure.hxx"
|
||
|
|
|
||
|
|
#include <sal/alloca.h>
|
||
|
|
#include "rtl/ustrbuf.hxx"
|
||
|
|
#include "cli_base.h"
|
||
|
|
#include "cli_bridge.h"
|
||
|
|
|
||
|
|
|
||
|
|
namespace sr=System::Reflection;
|
||
|
|
namespace css=com::sun::star;
|
||
|
|
namespace ucss=unoidl::com::sun::star;
|
||
|
|
|
||
|
|
using namespace rtl;
|
||
|
|
|
||
|
|
namespace cli_uno
|
||
|
|
{
|
||
|
|
|
||
|
|
union largest
|
||
|
|
{
|
||
|
|
sal_Int64 n;
|
||
|
|
double d;
|
||
|
|
void * p;
|
||
|
|
uno_Any a;
|
||
|
|
};
|
||
|
|
|
||
|
|
System::Object* Bridge::call_uno(uno_Interface * pUnoI,
|
||
|
|
typelib_TypeDescription* member_td,
|
||
|
|
typelib_TypeDescriptionReference * return_type,
|
||
|
|
sal_Int32 nParams, typelib_MethodParameter const * pParams,
|
||
|
|
System::Object * args[], System::Type* argTypes[],
|
||
|
|
System::Object** ppExc) const
|
||
|
|
{
|
||
|
|
// return mem
|
||
|
|
sal_Int32 return_size = sizeof (largest);
|
||
|
|
if ((0 != return_type) &&
|
||
|
|
(typelib_TypeClass_STRUCT == return_type->eTypeClass ||
|
||
|
|
typelib_TypeClass_EXCEPTION == return_type->eTypeClass))
|
||
|
|
{
|
||
|
|
TypeDescr return_td( return_type );
|
||
|
|
if (return_td.get()->nSize > sizeof (largest))
|
||
|
|
return_size = return_td.get()->nSize;
|
||
|
|
}
|
||
|
|
//Prepare memory that contains all converted arguments and return valuse
|
||
|
|
//The memory block contains first pointers to the arguments which are in the same block
|
||
|
|
// For example, 2 arguments, 1 ret.
|
||
|
|
//
|
||
|
|
// | Pointer
|
||
|
|
// | Pointer
|
||
|
|
// | Return value
|
||
|
|
// | Arg 1
|
||
|
|
// | Arg 2
|
||
|
|
//
|
||
|
|
// If an argument is larger then union largest, such as some structures, then the pointer
|
||
|
|
// points to an extra block of memory. The same goes for a big return value.
|
||
|
|
|
||
|
|
char * mem = (char *)alloca(
|
||
|
|
(nParams * sizeof (void *)) + return_size + (nParams * sizeof (largest)) );
|
||
|
|
//array of pointers to args
|
||
|
|
void ** uno_args = (void **)mem;
|
||
|
|
//If an attribute is set, then uno_ret must be null, e.g void setAttribute(int )
|
||
|
|
void * uno_ret= NULL;
|
||
|
|
if ( !(member_td->eTypeClass == typelib_TypeClass_INTERFACE_ATTRIBUTE && nParams == 1))
|
||
|
|
uno_ret = (mem + (nParams * sizeof (void *)));
|
||
|
|
largest * uno_args_mem = (largest *)(mem + (nParams * sizeof (void *)) + return_size);
|
||
|
|
|
||
|
|
OSL_ASSERT( (0 == nParams) || (nParams == args->get_Length()) );
|
||
|
|
for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param = pParams[ nPos ];
|
||
|
|
typelib_TypeDescriptionReference * type = param.pTypeRef;
|
||
|
|
|
||
|
|
uno_args[ nPos ] = &uno_args_mem[ nPos ];
|
||
|
|
if (typelib_TypeClass_STRUCT == type->eTypeClass ||
|
||
|
|
typelib_TypeClass_EXCEPTION == type->eTypeClass)
|
||
|
|
{
|
||
|
|
TypeDescr td( type );
|
||
|
|
if (td.get()->nSize > sizeof (largest))
|
||
|
|
uno_args[ nPos ] = alloca( td.get()->nSize );
|
||
|
|
}
|
||
|
|
|
||
|
|
if (param.bIn)
|
||
|
|
{
|
||
|
|
try
|
||
|
|
{
|
||
|
|
// in, in/out params
|
||
|
|
map_to_uno(
|
||
|
|
uno_args[ nPos ],args[nPos] , type, false /* no assign */);
|
||
|
|
}
|
||
|
|
catch (...)
|
||
|
|
{
|
||
|
|
// cleanup uno in args
|
||
|
|
for (sal_Int32 n = 0; n < nPos; ++n)
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param = pParams[n];
|
||
|
|
if (param.bIn)
|
||
|
|
{
|
||
|
|
uno_type_destructData(uno_args[n], param.pTypeRef, 0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
throw;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
uno_Any uno_exc_holder;
|
||
|
|
uno_Any * uno_exc = &uno_exc_holder;
|
||
|
|
// call binary uno
|
||
|
|
|
||
|
|
(*pUnoI->pDispatcher)( pUnoI, member_td, uno_ret, uno_args, &uno_exc );
|
||
|
|
|
||
|
|
if (0 == uno_exc)
|
||
|
|
{
|
||
|
|
// convert out args; destruct uno args
|
||
|
|
for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param = pParams[ nPos ];
|
||
|
|
typelib_TypeDescriptionReference * type = param.pTypeRef;
|
||
|
|
if (param.bOut)
|
||
|
|
{
|
||
|
|
try
|
||
|
|
{
|
||
|
|
map_to_cli(
|
||
|
|
&args[nPos], uno_args[nPos], param.pTypeRef,
|
||
|
|
argTypes != NULL ? argTypes[nPos] : NULL, false );
|
||
|
|
}
|
||
|
|
catch (...)
|
||
|
|
{
|
||
|
|
// cleanup further uno args
|
||
|
|
for ( sal_Int32 n = nPos; n < nParams; ++n )
|
||
|
|
{
|
||
|
|
uno_type_destructData( uno_args[n], pParams[n].pTypeRef, 0 );
|
||
|
|
}
|
||
|
|
// cleanup uno return value
|
||
|
|
uno_type_destructData( uno_ret, return_type, 0 );
|
||
|
|
throw;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
//cleanup args
|
||
|
|
if (typelib_TypeClass_DOUBLE < type->eTypeClass &&
|
||
|
|
typelib_TypeClass_ENUM != type->eTypeClass) // opt
|
||
|
|
{
|
||
|
|
uno_type_destructData(uno_args[nPos], type, 0);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
if ((0 != return_type) &&
|
||
|
|
(typelib_TypeClass_VOID != return_type->eTypeClass))
|
||
|
|
{
|
||
|
|
// convert uno return value
|
||
|
|
try
|
||
|
|
{
|
||
|
|
System::Object* cli_ret;
|
||
|
|
map_to_cli(
|
||
|
|
&cli_ret, uno_ret, return_type, 0, false);
|
||
|
|
uno_type_destructData(uno_ret, return_type, 0);
|
||
|
|
return cli_ret;
|
||
|
|
}
|
||
|
|
catch (...)
|
||
|
|
{
|
||
|
|
uno_type_destructData(uno_ret, return_type, 0);
|
||
|
|
throw;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
return 0; // void return
|
||
|
|
}
|
||
|
|
else // exception occured
|
||
|
|
{
|
||
|
|
// destruct uno in args
|
||
|
|
for ( sal_Int32 nPos = 0; nPos < nParams; ++nPos )
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param = pParams[ nPos ];
|
||
|
|
if (param.bIn)
|
||
|
|
{
|
||
|
|
uno_type_destructData( uno_args[ nPos ], param.pTypeRef, 0 );
|
||
|
|
}
|
||
|
|
}
|
||
|
|
map_to_cli(ppExc, uno_exc_holder.pData,
|
||
|
|
uno_exc_holder.pType, NULL, false);
|
||
|
|
return 0;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
void Bridge::call_cli(
|
||
|
|
System::Object* cliI,
|
||
|
|
sr::MethodInfo* method,
|
||
|
|
typelib_TypeDescriptionReference * return_type,
|
||
|
|
typelib_MethodParameter * params, int nParams,
|
||
|
|
void * uno_ret, void * uno_args [], uno_Any ** uno_exc ) const
|
||
|
|
{
|
||
|
|
System::Object *args[]= new System::Object*[nParams];
|
||
|
|
for (int nPos= 0; nPos < nParams; nPos++)
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param= params[nPos];
|
||
|
|
if (param.bIn)
|
||
|
|
{
|
||
|
|
map_to_cli( &args[nPos],
|
||
|
|
uno_args[nPos], param.pTypeRef, 0, false);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
System::Object* retInvoke= NULL;
|
||
|
|
try
|
||
|
|
{
|
||
|
|
retInvoke= method->Invoke(cliI, args);
|
||
|
|
}
|
||
|
|
catch (sr::TargetInvocationException* e)
|
||
|
|
{
|
||
|
|
System::Exception* exc= e->get_InnerException();
|
||
|
|
css::uno::TypeDescription td(mapCliType(exc->GetType()));
|
||
|
|
// memory for exception
|
||
|
|
std::auto_ptr< rtl_mem > memExc(rtl_mem::allocate(td.get()->nSize));
|
||
|
|
map_to_uno(memExc.get(), exc, td.get()->pWeakRef, false);
|
||
|
|
(*uno_exc)->pType= td.get()->pWeakRef;
|
||
|
|
(*uno_exc)->pData= memExc.release();
|
||
|
|
return;
|
||
|
|
}
|
||
|
|
catch (System::Exception* e)
|
||
|
|
{
|
||
|
|
OUStringBuffer buf( 128 );
|
||
|
|
buf.appendAscii( RTL_CONSTASCII_STRINGPARAM(
|
||
|
|
"Unexspected exception during invocation of cli object. "
|
||
|
|
"Original message is: \n") );
|
||
|
|
buf.append(mapCliString(e->get_Message()));
|
||
|
|
throw BridgeRuntimeError( buf.makeStringAndClear() );
|
||
|
|
}
|
||
|
|
|
||
|
|
//convert out, in/out params
|
||
|
|
for (int nPos = 0; nPos < nParams; ++nPos )
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param = params[ nPos ];
|
||
|
|
|
||
|
|
if (param.bOut)
|
||
|
|
{
|
||
|
|
try
|
||
|
|
{
|
||
|
|
map_to_uno(
|
||
|
|
uno_args[ nPos ], args[ nPos ], param.pTypeRef,
|
||
|
|
sal_True == param.bIn /* assign if inout */);
|
||
|
|
// out array
|
||
|
|
}
|
||
|
|
catch (...)
|
||
|
|
{
|
||
|
|
// cleanup uno pure out
|
||
|
|
for ( sal_Int32 n = 0; n < nPos; ++n )
|
||
|
|
{
|
||
|
|
typelib_MethodParameter const & param = params[ n ];
|
||
|
|
if (! param.bIn)
|
||
|
|
uno_type_destructData( uno_args[ n ], param.pTypeRef, 0 );
|
||
|
|
}
|
||
|
|
throw;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|
||
|
|
// return value
|
||
|
|
if (0 != return_type)
|
||
|
|
{
|
||
|
|
map_to_uno(
|
||
|
|
uno_ret, retInvoke, return_type, false /* no assign */);
|
||
|
|
}
|
||
|
|
// no exception occured
|
||
|
|
*uno_exc = 0;
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
}
|