mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

INTEGRATION: CWS bunoexttm (1.1.2); FILE ADDED

Browse Source 
2006/12/19 12:05:24 kr 1.1.2.1: added: moved cli_uno bridge from bridges to here
This commit is contained in:
Kurt Zenker 2007-05-09 12:32:11 +00:00
parent 740b0ecbd5
commit fc9ece6244
2 changed files with 406 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

301
cli_ure/source/uno_bridge/cli_uno.cxx Normal file
View File

@ -0,0 +1,301 @@
/*************************************************************************
*
* 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;
}
}

105
cli_ure/source/uno_bridge/makefile.mk Normal file
View File

@ -0,0 +1,105 @@
#*************************************************************************
#
# OpenOffice.org - a multi-platform office productivity suite
#
# $RCSfile: makefile.mk,v $
#
# $Revision: 1.2 $
#
# last change: $Author: kz $ $Date: 2007-05-09 13:32:11 $
#
# 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
#
#*************************************************************************
PRJ = ..$/..
PRJNAME = cli_ure
TARGET = cli_uno
NO_BSYMBOLIC = TRUE
ENABLE_EXCEPTIONS = TRUE
USE_DEFFILE = TRUE
# --- Settings -----------------------------------------------------
.INCLUDE : settings.mk
.IF "$(COM)$(COMEX)" == "MSC11" || "$(COM)$(COMEX)" == "MSC10"
.IF "$(COM)" == "MSC"
# When compiling for CLR, disable "warning C4339: use of undefined type detected
# in CLR meta-data - use of this type may lead to a runtime exception":
.IF "$(CCNUMVER)" <= "001399999999"
CFLAGSCXX += -clr -AI $(DLLDEST) -AI $(SOLARBINDIR) -wd4339
.ELSE
CFLAGSCXX += -clr:oldSyntax -AI $(DLLDEST) -AI $(SOLARBINDIR) -wd4339
.ENDIF
.IF "$(debug)" != ""
CFLAGS += -Ob0
.ENDIF
.ENDIF
.IF "$(CCNUMVER)" <= "001399999999"
#see Microsoft Knowledge Base Article - 814472
LINKFLAGS += -NOENTRY -NODEFAULTLIB:nochkclr.obj -INCLUDE:__DllMainCRTStartup@12
.ENDIF
# --- Files --------------------------------------------------------
SLOFILES = \
$(SLO)$/cli_environment.obj \
$(SLO)$/cli_bridge.obj \
$(SLO)$/cli_data.obj \
$(SLO)$/cli_proxy.obj \
$(SLO)$/cli_uno.obj
SHL1OBJS = $(SLOFILES)
SHL1TARGET = $(TARGET)
SHL1STDLIBS = \
$(CPPULIB) \
$(SALLIB) \
mscoree.lib
.IF "$(CCNUMVER)" >= "001399999999"
SHL1STDLIBS += \
msvcmrt.lib
.ENDIF
SHL1VERSIONMAP = bridge_exports.map
SHL1IMPLIB = i$(TARGET)
SHL1LIBS = $(SLB)$/$(TARGET).lib
SHL1DEF = $(MISC)$/$(SHL1TARGET).def
DEF1NAME = $(SHL1TARGET)
.ENDIF
# --- Targets ------------------------------------------------------
.INCLUDE : target.mk