INTEGRATION: CWS bunoexttm (1.1.2); FILE ADDED

2006/12/19 12:05:24 kr 1.1.2.1: added: moved cli_uno bridge from bridges to here

2 files changed, 406 insertions, 0 deletions

diff --git a/cli_ure/source/uno_bridge/cli_uno.cxx b/cli_ure/source/uno_bridge/cli_uno.cxx
new file mode 100644
index 000000000..da5165d28
--- /dev/null
+++ b/cli_ure/source/uno_bridge/cli_uno.cxx
@@ -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;
+}
+
+
+
+
+}
diff --git a/cli_ure/source/uno_bridge/makefile.mk b/cli_ure/source/uno_bridge/makefile.mk
new file mode 100644
index 000000000..7930126f1
--- /dev/null
+++ b/cli_ure/source/uno_bridge/makefile.mk
@@ -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