cli_ure/source/bootstrap/native_glue.cxx

   1 /*************************************************************************
   2  *
   3  *  $RCSfile: $
   4  *
   5  *  $Revision: $
   6  *
   7  *  last change: $Author: $ $Date: $
   8  *
   9  *  The Contents of this file are made available subject to the terms of
  10  *  either of the following licenses
  11  *
  12  *         - GNU Lesser General Public License Version 2.1
  13  *         - Sun Industry Standards Source License Version 1.1
  14  *
  15  *  Sun Microsystems Inc., October, 2000
  16  *
  17  *  GNU Lesser General Public License Version 2.1
  18  *  =============================================
  19  *  Copyright 2000 by Sun Microsystems, Inc.
  20  *  901 San Antonio Road, Palo Alto, CA 94303, USA
  21  *
  22  *  This library is free software; you can redistribute it and/or
  23  *  modify it under the terms of the GNU Lesser General Public
  24  *  License version 2.1, as published by the Free Software Foundation.
  25  *
  26  *  This library is distributed in the hope that it will be useful,
  27  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  28  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  29  *  Lesser General Public License for more details.
  30  *
  31  *  You should have received a copy of the GNU Lesser General Public
  32  *  License along with this library; if not, write to the Free Software
  33  *  Foundation, Inc., 59 Temple Place, Suite 330, Boston,
  34  *  MA  02111-1307  USA
  35  *
  36  *
  37  *  Sun Industry Standards Source License Version 1.1
  38  *  =================================================
  39  *  The contents of this file are subject to the Sun Industry Standards
  40  *  Source License Version 1.1 (the "License"); You may not use this file
  41  *  except in compliance with the License. You may obtain a copy of the
  42  *  License at http://www.openoffice.org/license.html.
  43  *
  44  *  Software provided under this License is provided on an "AS IS" basis,
  45  *  WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
  46  *  WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
  47  *  MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
  48  *  See the License for the specific provisions governing your rights and
  49  *  obligations concerning the Software.
  50  *
  51  *  The Initial Developer of the Original Code is: Sun Microsystems, Inc.
  52  *
  53  *  Copyright: 2000 by Sun Microsystems, Inc.
  54  *
  55  *  All Rights Reserved.
  56  *
  57  *  Contributor(s): _______________________________________
  58  *
  59  *
  60  ************************************************************************/
  61
  62 #ifndef _RTL_USTRING_HXX_
  63 #include "rtl/ustring.hxx"
  64 #endif
  65 #ifndef _RTL_BOOTSTRAP_HXX_
  66 #include "rtl/bootstrap.hxx"
  67 #endif
  68 #ifndef _CPPUHELPER_BOOTSTRAP_HXX_
  69 #include "cppuhelper/bootstrap.hxx"
  70 #endif
  71 #ifndef _UNO_MAPPING_HXX_
  72 #include "uno/mapping.hxx"
  73 #endif
  74 extern "C" {
  75 #include "mono/metadata/object.h"
  76 }
  77
  78 #define OUSTR(x) ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(x) )
  79
  80 using namespace com::sun::star::uno;
  81
  82 static void * to_cli( Reference< XInterface > const & context )
  83 {
  84     Mapping mapping( OUSTR( CPPU_CURRENT_LANGUAGE_BINDING_NAME ), OUSTR( UNO_LB_CLI ) );
  85     OSL_ASSERT( mapping.is() );
  86     if (! mapping.is() )
  87     {
  88         // FIXME do something
  89         return 0;
  90     }
  91
  92     return (void *)mono_gchandle_new( (MonoObject *)mapping.mapInterface( context.get(), ::getCppuType( &context ) ), sal_False );
  93 }
  94
  95 extern "C" {
  96
  97 void SAL_CALL native_bootstrap_set( const sal_Unicode* pName, sal_Int32 nNameLength,
  98                                     const sal_Unicode* pValue, sal_Int32 nValueLength )
  99     SAL_THROW_EXTERN_C()
 100 {
 101     ::rtl::OUString const name( pName, nNameLength );
 102     ::rtl::OUString const value( pValue, nValueLength );
 103
 104     ::rtl::Bootstrap::set( name, value );
 105 }
 106
 107 void * SAL_CALL native_defaultBootstrap_InitialComponentContext()
 108     SAL_THROW_EXTERN_C()
 109 {
 110         try {
 111                 Reference< XComponentContext > xContext = ::cppu::defaultBootstrap_InitialComponentContext();
 112
 113                 return to_cli( xContext );
 114         } catch (const Exception &ex) {
 115                         fprintf( stderr, "Exception bootstrapping '%s'\n",
 116                                          (const sal_Char *) rtl::OUStringToOString( ex.Message, RTL_TEXTENCODING_UTF8 ) );
 117                         return NULL;
 118         }
 119 }
 120
 121 void * SAL_CALL native_defaultBootstrap_InitialComponentContext_iniFile( const sal_Unicode *pIniFile, sal_Int32 nNameLength )
 122     SAL_THROW_EXTERN_C()
 123 {
 124     ::rtl::OUString sFileName( pIniFile, nNameLength );
 125
 126         try {
 127                         Reference< XComponentContext > xContext = ::cppu::defaultBootstrap_InitialComponentContext( sFileName );
 128                         if (!xContext.is())
 129                                         fprintf( stderr, "Bootstrap context is in fact NULL\n" );
 130
 131                         return to_cli( xContext );
 132         } catch (const Exception &ex) {
 133                         rtl::OString aIni = rtl::OUStringToOString( sFileName, RTL_TEXTENCODING_UTF8 );
 134                         fprintf( stderr, "Exception bootstrapping from ini '%s' (%d) '%s'\n", (const sal_Char *) aIni, nNameLength,
 135                                          (const sal_Char *) rtl::OUStringToOString( ex.Message, RTL_TEXTENCODING_UTF8 ) );
 136                         return NULL;
 137         }
 138 }
 139
 140 void * SAL_CALL native_bootstrap()
 141     SAL_THROW_EXTERN_C()
 142 {
 143     Reference< XComponentContext > xContext = ::cppu::bootstrap();
 144
 145     return to_cli( xContext );
 146 }
 147
 148 } // extern "C"