xref: /aoo4110/main/cppu/source/uno/lbenv.cxx (revision b1cdbd2c)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_cppu.hxx"
26 
27 #include "cppu/EnvDcp.hxx"
28 
29 #include "sal/alloca.h"
30 #include "osl/diagnose.h"
31 #include "osl/interlck.h"
32 #include "osl/mutex.hxx"
33 #include "osl/module.h"
34 #include "osl/process.h"
35 #include "rtl/process.h"
36 #include "rtl/unload.h"
37 #include "rtl/string.hxx"
38 #include "rtl/ustring.hxx"
39 #include "rtl/ustrbuf.hxx"
40 #include "rtl/instance.hxx"
41 #include "typelib/typedescription.h"
42 #include "uno/dispatcher.h"
43 #include "uno/environment.h"
44 #include "uno/lbnames.h"
45 #include "prim.hxx"
46 #include "destr.hxx"
47 #include "loadmodule.hxx"
48 
49 #include <hash_map>
50 #include <vector>
51 #include <stdio.h>
52 
53 
54 using ::rtl::OUString;
55 
56 namespace
57 {
58 
59 //------------------------------------------------------------------------------
td_equals(typelib_InterfaceTypeDescription * pTD1,typelib_InterfaceTypeDescription * pTD2)60 inline static bool td_equals( typelib_InterfaceTypeDescription * pTD1,
61                               typelib_InterfaceTypeDescription * pTD2 )
62 {
63     return (pTD1 == pTD2 ||
64             (((typelib_TypeDescription *)pTD1)->pTypeName->length ==
65              ((typelib_TypeDescription *)pTD2)->pTypeName->length &&
66              ::rtl_ustr_compare(
67                  ((typelib_TypeDescription *) pTD1)->pTypeName->buffer,
68                  ((typelib_TypeDescription *) pTD2)->pTypeName->buffer ) == 0));
69 }
70 
71 struct ObjectEntry;
72 struct uno_DefaultEnvironment;
73 
74 //------------------------------------------------------------------------------
75 struct InterfaceEntry
76 {
77     sal_Int32 refCount;
78     void * pInterface;
79     uno_freeProxyFunc fpFreeProxy;
80     typelib_InterfaceTypeDescription * pTypeDescr;
81 };
82 
83 struct ObjectEntry
84 {
85     OUString oid;
86     sal_Int32 nRef;
87     ::std::vector< InterfaceEntry > aInterfaces;
88     bool mixedObject;
89 
90     inline ObjectEntry( const OUString & rOId_ );
91 
92     inline void append(
93         uno_DefaultEnvironment * pEnv,
94         void * pInterface, typelib_InterfaceTypeDescription * pTypeDescr,
95         uno_freeProxyFunc fpFreeProxy );
96     inline InterfaceEntry * find(
97         typelib_InterfaceTypeDescription * pTypeDescr );
98     inline sal_Int32 find( void * iface_ptr, ::std::size_t pos );
99 };
100 
101 //------------------------------------------------------------------------------
102 struct FctPtrHash :
103     public ::std::unary_function< const void *, ::std::size_t >
104 {
operator ()__anon3a41157f0111::FctPtrHash105     ::std::size_t operator () ( const void * pKey ) const
106         { return (::std::size_t) pKey; }
107 };
108 
109 //------------------------------------------------------------------------------
110 struct FctOUStringHash :
111     public ::std::unary_function< const OUString &, ::std::size_t >
112 {
operator ()__anon3a41157f0111::FctOUStringHash113     ::std::size_t operator () ( const OUString & rKey ) const
114         { return rKey.hashCode(); }
115 };
116 
117 // mapping from environment name to environment
118 typedef ::std::hash_map<
119     OUString, uno_Environment *, FctOUStringHash,
120     ::std::equal_to< OUString > > OUString2EnvironmentMap;
121 
122 // mapping from ptr to object entry
123 typedef ::std::hash_map<
124     void *, ObjectEntry *, FctPtrHash,
125     ::std::equal_to< void * > > Ptr2ObjectMap;
126 // mapping from oid to object entry
127 typedef ::std::hash_map<
128     OUString, ObjectEntry *, FctOUStringHash,
129     ::std::equal_to< OUString > > OId2ObjectMap;
130 
131 
132 //==============================================================================
133 struct EnvironmentsData
134 {
135     ::osl::Mutex mutex;
136     OUString2EnvironmentMap aName2EnvMap;
137 
EnvironmentsData__anon3a41157f0111::EnvironmentsData138     EnvironmentsData() : isDisposing(false) {}
139     ~EnvironmentsData();
140 
141     inline void getEnvironment(
142         uno_Environment ** ppEnv, const OUString & rEnvDcp, void * pContext );
143     inline void registerEnvironment( uno_Environment ** ppEnv );
144     inline void getRegisteredEnvironments(
145         uno_Environment *** pppEnvs, sal_Int32 * pnLen,
146         uno_memAlloc memAlloc, const OUString & rEnvDcp );
147 
148     bool isDisposing;
149 };
150 
151 namespace
152 {
153     struct theEnvironmentsData : public rtl::Static< EnvironmentsData, theEnvironmentsData > {};
154 }
155 
156 //==============================================================================
157 struct uno_DefaultEnvironment : public uno_ExtEnvironment
158 {
159     sal_Int32 nRef;
160     sal_Int32 nWeakRef;
161 
162     ::osl::Mutex mutex;
163     Ptr2ObjectMap aPtr2ObjectMap;
164     OId2ObjectMap aOId2ObjectMap;
165 
166     uno_DefaultEnvironment(
167         const OUString & rEnvDcp_, void * pContext_ );
168     ~uno_DefaultEnvironment();
169 };
170 
171 //______________________________________________________________________________
ObjectEntry(OUString const & rOId_)172 inline ObjectEntry::ObjectEntry( OUString const & rOId_ )
173     : oid( rOId_ ),
174       nRef( 0 ),
175       mixedObject( false )
176 {
177     aInterfaces.reserve( 2 );
178 }
179 
180 //______________________________________________________________________________
append(uno_DefaultEnvironment * pEnv,void * pInterface,typelib_InterfaceTypeDescription * pTypeDescr,uno_freeProxyFunc fpFreeProxy)181 inline void ObjectEntry::append(
182     uno_DefaultEnvironment * pEnv,
183     void * pInterface, typelib_InterfaceTypeDescription * pTypeDescr,
184     uno_freeProxyFunc fpFreeProxy )
185 {
186     InterfaceEntry aNewEntry;
187     if (! fpFreeProxy)
188         (*pEnv->acquireInterface)( pEnv, pInterface );
189     aNewEntry.refCount = 1;
190     aNewEntry.pInterface = pInterface;
191     aNewEntry.fpFreeProxy = fpFreeProxy;
192     typelib_typedescription_acquire( (typelib_TypeDescription *) pTypeDescr );
193     aNewEntry.pTypeDescr = pTypeDescr;
194 
195     ::std::pair< Ptr2ObjectMap::iterator, bool > insertion(
196         pEnv->aPtr2ObjectMap.insert( Ptr2ObjectMap::value_type(
197                                          pInterface, this ) ) );
198     OSL_ASSERT( insertion.second ||
199                 (find( pInterface, 0 ) >= 0 &&
200                  // points to the same object entry:
201                  insertion.first->second == this) );
202     aInterfaces.push_back( aNewEntry );
203 }
204 
205 //______________________________________________________________________________
find(typelib_InterfaceTypeDescription * pTypeDescr_)206 inline InterfaceEntry * ObjectEntry::find(
207     typelib_InterfaceTypeDescription * pTypeDescr_ )
208 {
209     OSL_ASSERT( ! aInterfaces.empty() );
210     if (aInterfaces.empty())
211         return 0;
212 
213     // shortcut common case:
214     OUString const & type_name =
215         OUString::unacquired(
216             &((typelib_TypeDescription *) pTypeDescr_)->pTypeName );
217     if (type_name.equalsAsciiL(
218             RTL_CONSTASCII_STRINGPARAM("com.sun.star.uno.XInterface") ))
219     {
220         return &aInterfaces[ 0 ];
221     }
222 
223     ::std::size_t nSize = aInterfaces.size();
224     for ( ::std::size_t nPos = 0; nPos < nSize; ++nPos )
225     {
226         typelib_InterfaceTypeDescription * pITD =
227             aInterfaces[ nPos ].pTypeDescr;
228         while (pITD)
229         {
230             if (td_equals( pITD, pTypeDescr_ ))
231                 return &aInterfaces[ nPos ];
232             pITD = pITD->pBaseTypeDescription;
233         }
234     }
235     return 0;
236 }
237 
238 //______________________________________________________________________________
find(void * iface_ptr,::std::size_t pos)239 inline sal_Int32 ObjectEntry::find(
240     void * iface_ptr, ::std::size_t pos )
241 {
242     ::std::size_t size = aInterfaces.size();
243     for ( ; pos < size; ++pos )
244     {
245         if (aInterfaces[ pos ].pInterface == iface_ptr)
246             return pos;
247     }
248     return -1;
249 }
250 
251 extern "C"
252 {
253 
254 //------------------------------------------------------------------------------
defenv_registerInterface(uno_ExtEnvironment * pEnv,void ** ppInterface,rtl_uString * pOId,typelib_InterfaceTypeDescription * pTypeDescr)255 static void SAL_CALL defenv_registerInterface(
256     uno_ExtEnvironment * pEnv, void ** ppInterface,
257     rtl_uString * pOId, typelib_InterfaceTypeDescription * pTypeDescr )
258 {
259     OSL_ENSURE( pEnv && ppInterface && pOId && pTypeDescr, "### null ptr!" );
260     OUString const & rOId = OUString::unacquired( &pOId );
261 
262     uno_DefaultEnvironment * that =
263         static_cast< uno_DefaultEnvironment * >( pEnv );
264     ::osl::ClearableMutexGuard guard( that->mutex );
265 
266     // try to insert dummy 0:
267     std::pair<OId2ObjectMap::iterator, bool> const insertion(
268         that->aOId2ObjectMap.insert( OId2ObjectMap::value_type( rOId, 0 ) ) );
269     if (insertion.second)
270     {
271         ObjectEntry * pOEntry = new ObjectEntry( rOId );
272         insertion.first->second = pOEntry;
273         ++pOEntry->nRef; // another register call on object
274         pOEntry->append( that, *ppInterface, pTypeDescr, 0 );
275     }
276     else // object entry exists
277     {
278         ObjectEntry * pOEntry = insertion.first->second;
279         ++pOEntry->nRef; // another register call on object
280         InterfaceEntry * pIEntry = pOEntry->find( pTypeDescr );
281 
282         if (pIEntry) // type entry exists
283         {
284             ++pIEntry->refCount;
285             if (pIEntry->pInterface != *ppInterface)
286             {
287                 void * pInterface = pIEntry->pInterface;
288                 (*pEnv->acquireInterface)( pEnv, pInterface );
289                 guard.clear();
290                 (*pEnv->releaseInterface)( pEnv, *ppInterface );
291                 *ppInterface = pInterface;
292             }
293         }
294         else
295         {
296             pOEntry->append( that, *ppInterface, pTypeDescr, 0 );
297         }
298     }
299 }
300 
301 //------------------------------------------------------------------------------
defenv_registerProxyInterface(uno_ExtEnvironment * pEnv,void ** ppInterface,uno_freeProxyFunc freeProxy,rtl_uString * pOId,typelib_InterfaceTypeDescription * pTypeDescr)302 static void SAL_CALL defenv_registerProxyInterface(
303     uno_ExtEnvironment * pEnv, void ** ppInterface, uno_freeProxyFunc freeProxy,
304     rtl_uString * pOId, typelib_InterfaceTypeDescription * pTypeDescr )
305 {
306     OSL_ENSURE( pEnv && ppInterface && pOId && pTypeDescr && freeProxy,
307                 "### null ptr!" );
308     OUString const & rOId = OUString::unacquired( &pOId );
309 
310     uno_DefaultEnvironment * that =
311         static_cast< uno_DefaultEnvironment * >( pEnv );
312     ::osl::ClearableMutexGuard guard( that->mutex );
313 
314     // try to insert dummy 0:
315     std::pair<OId2ObjectMap::iterator, bool> const insertion(
316         that->aOId2ObjectMap.insert( OId2ObjectMap::value_type( rOId, 0 ) ) );
317     if (insertion.second)
318     {
319         ObjectEntry * pOEntry = new ObjectEntry( rOId );
320         insertion.first->second = pOEntry;
321         ++pOEntry->nRef; // another register call on object
322         pOEntry->append( that, *ppInterface, pTypeDescr, freeProxy );
323     }
324     else // object entry exists
325     {
326         ObjectEntry * pOEntry = insertion.first->second;
327 
328         // first registration was an original, then registerProxyInterface():
329         pOEntry->mixedObject |=
330             (!pOEntry->aInterfaces.empty() &&
331              pOEntry->aInterfaces[ 0 ].fpFreeProxy == 0);
332 
333         ++pOEntry->nRef; // another register call on object
334         InterfaceEntry * pIEntry = pOEntry->find( pTypeDescr );
335 
336         if (pIEntry) // type entry exists
337         {
338             if (pIEntry->pInterface == *ppInterface)
339             {
340                 ++pIEntry->refCount;
341             }
342             else
343             {
344                 void * pInterface = pIEntry->pInterface;
345                 (*pEnv->acquireInterface)( pEnv, pInterface );
346                 --pOEntry->nRef; // manual revoke of proxy to be freed
347                 guard.clear();
348                 (*freeProxy)( pEnv, *ppInterface );
349                 *ppInterface = pInterface;
350             }
351         }
352         else
353         {
354             pOEntry->append( that, *ppInterface, pTypeDescr, freeProxy );
355         }
356     }
357 }
358 
359 //------------------------------------------------------------------------------
s_stub_defenv_revokeInterface(va_list * pParam)360 static void SAL_CALL s_stub_defenv_revokeInterface(va_list * pParam)
361 {
362 	uno_ExtEnvironment * pEnv       = va_arg(*pParam, uno_ExtEnvironment *);
363 	void               * pInterface = va_arg(*pParam, void *);
364 
365     OSL_ENSURE( pEnv && pInterface, "### null ptr!" );
366     uno_DefaultEnvironment * that =
367         static_cast< uno_DefaultEnvironment * >( pEnv );
368     ::osl::ClearableMutexGuard guard( that->mutex );
369 
370     Ptr2ObjectMap::const_iterator const iFind(
371         that->aPtr2ObjectMap.find( pInterface ) );
372     OSL_ASSERT( iFind != that->aPtr2ObjectMap.end() );
373     ObjectEntry * pOEntry = iFind->second;
374     if (! --pOEntry->nRef)
375     {
376         // cleanup maps
377         that->aOId2ObjectMap.erase( pOEntry->oid );
378         sal_Int32 nPos;
379         for ( nPos = pOEntry->aInterfaces.size(); nPos--; )
380         {
381             that->aPtr2ObjectMap.erase( pOEntry->aInterfaces[nPos].pInterface );
382         }
383 
384         // the last proxy interface of the environment might kill this
385         // environment, because of releasing its language binding!!!
386         guard.clear();
387 
388         // release interfaces
389         for ( nPos = pOEntry->aInterfaces.size(); nPos--; )
390         {
391             InterfaceEntry const & rEntry = pOEntry->aInterfaces[nPos];
392             typelib_typedescription_release(
393                 (typelib_TypeDescription *) rEntry.pTypeDescr );
394             if (rEntry.fpFreeProxy) // is proxy or used interface?
395             {
396                 (*rEntry.fpFreeProxy)( pEnv, rEntry.pInterface );
397             }
398             else
399             {
400                 (*pEnv->releaseInterface)( pEnv, rEntry.pInterface );
401             }
402         }
403 
404         delete pOEntry;
405     }
406     else if (pOEntry->mixedObject)
407     {
408         OSL_ASSERT( !pOEntry->aInterfaces.empty() &&
409                     pOEntry->aInterfaces[ 0 ].fpFreeProxy == 0 );
410 
411         sal_Int32 index = pOEntry->find( pInterface, 1 );
412         OSL_ASSERT( index > 0 );
413         if (index > 0)
414         {
415             InterfaceEntry & entry = pOEntry->aInterfaces[ index ];
416             OSL_ASSERT( entry.pInterface == pInterface );
417             if (entry.fpFreeProxy != 0)
418             {
419                 --entry.refCount;
420                 if (entry.refCount == 0)
421                 {
422                     uno_freeProxyFunc fpFreeProxy = entry.fpFreeProxy;
423                     typelib_TypeDescription * pTypeDescr =
424                         reinterpret_cast< typelib_TypeDescription * >(
425                             entry.pTypeDescr );
426 
427                     pOEntry->aInterfaces.erase(
428                         pOEntry->aInterfaces.begin() + index );
429                     if (pOEntry->find( pInterface, index ) < 0)
430                     {
431                         // proxy ptr not registered for another interface:
432                         // remove from ptr map
433 #if OSL_DEBUG_LEVEL > 0
434                         ::std::size_t erased =
435 #endif
436                               that->aPtr2ObjectMap.erase( pInterface );
437                         OSL_ASSERT( erased == 1 );
438                     }
439 
440                     guard.clear();
441 
442                     typelib_typedescription_release( pTypeDescr );
443                     (*fpFreeProxy)( pEnv, pInterface );
444                 }
445             }
446         }
447     }
448 }
449 
defenv_revokeInterface(uno_ExtEnvironment * pEnv,void * pInterface)450 static void SAL_CALL defenv_revokeInterface(uno_ExtEnvironment * pEnv, void * pInterface)
451 {
452 	uno_Environment_invoke(&pEnv->aBase, s_stub_defenv_revokeInterface, pEnv, pInterface);
453 }
454 
455 //------------------------------------------------------------------------------
defenv_getObjectIdentifier(uno_ExtEnvironment * pEnv,rtl_uString ** ppOId,void * pInterface)456 static void SAL_CALL defenv_getObjectIdentifier(
457     uno_ExtEnvironment * pEnv, rtl_uString ** ppOId, void * pInterface )
458 {
459     OSL_ENSURE( pEnv && ppOId && pInterface, "### null ptr!" );
460     if (*ppOId)
461     {
462         ::rtl_uString_release( *ppOId );
463         *ppOId = 0;
464     }
465 
466     uno_DefaultEnvironment * that =
467         static_cast< uno_DefaultEnvironment * >( pEnv );
468     ::osl::ClearableMutexGuard guard( that->mutex );
469 
470     Ptr2ObjectMap::const_iterator const iFind(
471         that->aPtr2ObjectMap.find( pInterface ) );
472     if (iFind == that->aPtr2ObjectMap.end())
473     {
474         guard.clear();
475         (*pEnv->computeObjectIdentifier)( pEnv, ppOId, pInterface );
476     }
477     else
478     {
479         rtl_uString * hstr = iFind->second->oid.pData;
480         rtl_uString_acquire( hstr );
481         *ppOId = hstr;
482     }
483 }
484 
485 //------------------------------------------------------------------------------
defenv_getRegisteredInterface(uno_ExtEnvironment * pEnv,void ** ppInterface,rtl_uString * pOId,typelib_InterfaceTypeDescription * pTypeDescr)486 static void SAL_CALL defenv_getRegisteredInterface(
487     uno_ExtEnvironment * pEnv, void ** ppInterface,
488     rtl_uString * pOId, typelib_InterfaceTypeDescription * pTypeDescr )
489 {
490     OSL_ENSURE( pEnv && ppInterface && pOId && pTypeDescr, "### null ptr!" );
491     if (*ppInterface)
492     {
493         (*pEnv->releaseInterface)( pEnv, *ppInterface );
494         *ppInterface = 0;
495     }
496 
497     OUString const & rOId = OUString::unacquired( &pOId );
498     uno_DefaultEnvironment * that =
499         static_cast< uno_DefaultEnvironment * >( pEnv );
500     ::osl::MutexGuard guard( that->mutex );
501 
502     OId2ObjectMap::const_iterator const iFind
503         ( that->aOId2ObjectMap.find( rOId ) );
504     if (iFind != that->aOId2ObjectMap.end())
505     {
506         InterfaceEntry const * pIEntry = iFind->second->find( pTypeDescr );
507         if (pIEntry)
508         {
509             (*pEnv->acquireInterface)( pEnv, pIEntry->pInterface );
510             *ppInterface = pIEntry->pInterface;
511         }
512     }
513 }
514 
515 //------------------------------------------------------------------------------
defenv_getRegisteredInterfaces(uno_ExtEnvironment * pEnv,void *** pppInterfaces,sal_Int32 * pnLen,uno_memAlloc memAlloc)516 static void SAL_CALL defenv_getRegisteredInterfaces(
517     uno_ExtEnvironment * pEnv, void *** pppInterfaces, sal_Int32 * pnLen,
518     uno_memAlloc memAlloc )
519 {
520     OSL_ENSURE( pEnv && pppInterfaces && pnLen && memAlloc, "### null ptr!" );
521     uno_DefaultEnvironment * that =
522         static_cast< uno_DefaultEnvironment * >( pEnv );
523     ::osl::MutexGuard guard( that->mutex );
524 
525     sal_Int32 nLen = that->aPtr2ObjectMap.size();
526     sal_Int32 nPos = 0;
527     void ** ppInterfaces = (void **) (*memAlloc)( nLen * sizeof (void *) );
528 
529     Ptr2ObjectMap::const_iterator iPos( that->aPtr2ObjectMap.begin() );
530     Ptr2ObjectMap::const_iterator const iEnd( that->aPtr2ObjectMap.end() );
531     while (iPos != iEnd)
532     {
533         (*pEnv->acquireInterface)( pEnv, ppInterfaces[nPos++] = (*iPos).first );
534         ++iPos;
535     }
536 
537     *pppInterfaces = ppInterfaces;
538     *pnLen = nLen;
539 }
540 
541 //------------------------------------------------------------------------------
defenv_acquire(uno_Environment * pEnv)542 static void SAL_CALL defenv_acquire( uno_Environment * pEnv )
543 {
544     uno_DefaultEnvironment * that = (uno_DefaultEnvironment *)pEnv;
545     ::osl_incrementInterlockedCount( &that->nWeakRef );
546     ::osl_incrementInterlockedCount( &that->nRef );
547 }
548 
549 //------------------------------------------------------------------------------
defenv_release(uno_Environment * pEnv)550 static void SAL_CALL defenv_release( uno_Environment * pEnv )
551 {
552     uno_DefaultEnvironment * that = (uno_DefaultEnvironment *)pEnv;
553     if (! ::osl_decrementInterlockedCount( &that->nRef ))
554     {
555         // invoke dispose callback
556         if (pEnv->environmentDisposing)
557         {
558             (*pEnv->environmentDisposing)( pEnv );
559         }
560 
561         OSL_ENSURE( that->aOId2ObjectMap.empty(), "### object entries left!" );
562     }
563     // free memory if no weak refs left
564     if (! ::osl_decrementInterlockedCount( &that->nWeakRef ))
565     {
566         delete that;
567     }
568 }
569 
570 //------------------------------------------------------------------------------
defenv_acquireWeak(uno_Environment * pEnv)571 static void SAL_CALL defenv_acquireWeak( uno_Environment * pEnv )
572 {
573     uno_DefaultEnvironment * that = (uno_DefaultEnvironment *)pEnv;
574     ::osl_incrementInterlockedCount( &that->nWeakRef );
575 }
576 
577 //------------------------------------------------------------------------------
defenv_releaseWeak(uno_Environment * pEnv)578 static void SAL_CALL defenv_releaseWeak( uno_Environment * pEnv )
579 {
580     uno_DefaultEnvironment * that = (uno_DefaultEnvironment *)pEnv;
581     if (! ::osl_decrementInterlockedCount( &that->nWeakRef ))
582     {
583         delete that;
584     }
585 }
586 
587 //------------------------------------------------------------------------------
defenv_harden(uno_Environment ** ppHardEnv,uno_Environment * pEnv)588 static void SAL_CALL defenv_harden(
589     uno_Environment ** ppHardEnv, uno_Environment * pEnv )
590 {
591     if (*ppHardEnv)
592     {
593         (*(*ppHardEnv)->release)( *ppHardEnv );
594         *ppHardEnv = 0;
595     }
596 
597     EnvironmentsData & rData = theEnvironmentsData::get();
598 
599     if (rData.isDisposing)
600         return;
601 
602     uno_DefaultEnvironment * that = (uno_DefaultEnvironment *)pEnv;
603     {
604     ::osl::MutexGuard guard( rData.mutex );
605     if (1 == ::osl_incrementInterlockedCount( &that->nRef )) // is dead
606     {
607         that->nRef = 0;
608         return;
609     }
610     }
611     ::osl_incrementInterlockedCount( &that->nWeakRef );
612     *ppHardEnv = pEnv;
613 }
614 
615 //------------------------------------------------------------------------------
defenv_dispose(uno_Environment *)616 static void SAL_CALL defenv_dispose( uno_Environment * )
617 {
618 }
619 }
620 
621 //______________________________________________________________________________
uno_DefaultEnvironment(const OUString & rEnvDcp_,void * pContext_)622 uno_DefaultEnvironment::uno_DefaultEnvironment(
623     const OUString & rEnvDcp_, void * pContext_ )
624     : nRef( 0 ),
625       nWeakRef( 0 )
626 {
627     uno_Environment * that = reinterpret_cast< uno_Environment * >(this);
628     that->pReserved = 0;
629     // functions
630     that->acquire = defenv_acquire;
631     that->release = defenv_release;
632     that->acquireWeak = defenv_acquireWeak;
633     that->releaseWeak = defenv_releaseWeak;
634     that->harden = defenv_harden;
635     that->dispose = defenv_dispose;
636     that->pExtEnv = this;
637     // identifier
638     ::rtl_uString_acquire( rEnvDcp_.pData );
639     that->pTypeName = rEnvDcp_.pData;
640     that->pContext = pContext_;
641 
642     // will be late initialized
643     that->environmentDisposing = 0;
644 
645     uno_ExtEnvironment::registerInterface = defenv_registerInterface;
646     uno_ExtEnvironment::registerProxyInterface = defenv_registerProxyInterface;
647     uno_ExtEnvironment::revokeInterface = defenv_revokeInterface;
648     uno_ExtEnvironment::getObjectIdentifier = defenv_getObjectIdentifier;
649     uno_ExtEnvironment::getRegisteredInterface = defenv_getRegisteredInterface;
650     uno_ExtEnvironment::getRegisteredInterfaces =
651         defenv_getRegisteredInterfaces;
652 
653 }
654 
655 //______________________________________________________________________________
~uno_DefaultEnvironment()656 uno_DefaultEnvironment::~uno_DefaultEnvironment()
657 {
658     ::rtl_uString_release( ((uno_Environment *) this)->pTypeName );
659 }
660 
661 //==============================================================================
writeLine(void * stream,const sal_Char * pLine,const sal_Char * pFilter)662 static void writeLine(
663     void * stream, const sal_Char * pLine, const sal_Char * pFilter )
664 {
665     if (pFilter && *pFilter)
666     {
667         // lookup pFilter in pLine
668         while (*pLine)
669         {
670             if (*pLine == *pFilter)
671             {
672                 sal_Int32 nPos = 1;
673                 while (pLine[nPos] && pFilter[nPos] == pLine[nPos])
674                 {
675                     ++nPos;
676                 }
677                 if (! pFilter[nPos])
678                 {
679                     if (stream)
680                     {
681                         fprintf( (FILE *) stream, "%s\n", pLine );
682                     }
683                     else
684                     {
685                         OSL_TRACE( pLine );
686                         OSL_TRACE( "\n" );
687                     }
688                 }
689             }
690             ++pLine;
691         }
692     }
693     else
694     {
695         if (stream)
696         {
697             fprintf( (FILE *) stream, "%s\n", pLine );
698         }
699         else
700         {
701             fprintf( stderr, "%s\n", pLine );
702         }
703     }
704 }
705 
706 //==============================================================================
writeLine(void * stream,const OUString & rLine,const sal_Char * pFilter)707 static void writeLine(
708     void * stream, const OUString & rLine, const sal_Char * pFilter )
709 {
710     ::rtl::OString aLine( ::rtl::OUStringToOString(
711                               rLine, RTL_TEXTENCODING_ASCII_US ) );
712     writeLine( stream, aLine.getStr(), pFilter );
713 }
714 
715 //##############################################################################
uno_dumpEnvironment(void * stream,uno_Environment * pEnv,const sal_Char * pFilter)716 extern "C" void SAL_CALL uno_dumpEnvironment(
717     void * stream, uno_Environment * pEnv, const sal_Char * pFilter )
718     SAL_THROW_EXTERN_C()
719 {
720     OSL_ENSURE( pEnv, "### null ptr!" );
721     ::rtl::OUStringBuffer buf;
722 
723     if (! pEnv->pExtEnv)
724     {
725         writeLine( stream, "###################################"
726                    "###########################################", pFilter );
727         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("environment: ") );
728         buf.append( pEnv->pTypeName );
729         writeLine( stream, buf.makeStringAndClear(), pFilter );
730         writeLine( stream, "NO INTERFACE INFORMATION AVAILABLE!", pFilter );
731         return;
732     }
733 
734     writeLine( stream, "########################################"
735                "######################################", pFilter );
736     buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("environment dump: ") );
737     buf.append( pEnv->pTypeName );
738     writeLine( stream, buf.makeStringAndClear(), pFilter );
739 
740     uno_DefaultEnvironment * that =
741         reinterpret_cast< uno_DefaultEnvironment * >(pEnv);
742     ::osl::MutexGuard guard( that->mutex );
743 
744     Ptr2ObjectMap ptr2obj( that->aPtr2ObjectMap );
745     OId2ObjectMap::const_iterator iPos( that->aOId2ObjectMap.begin() );
746     while (iPos != that->aOId2ObjectMap.end())
747     {
748         ObjectEntry * pOEntry = iPos->second;
749 
750         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("+ ") );
751         if (pOEntry->mixedObject)
752             buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("mixed ") );
753         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("object entry: nRef=") );
754         buf.append( pOEntry->nRef, 10 );
755         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("; oid=\"") );
756         buf.append( pOEntry->oid );
757         buf.append( (sal_Unicode) '\"' );
758         writeLine( stream, buf.makeStringAndClear(), pFilter );
759 
760         for ( ::std::size_t nPos = 0;
761               nPos < pOEntry->aInterfaces.size(); ++nPos )
762         {
763             const InterfaceEntry & rIEntry = pOEntry->aInterfaces[nPos];
764 
765             buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("  - ") );
766             buf.append(
767                 ((typelib_TypeDescription *) rIEntry.pTypeDescr)->pTypeName );
768             if (rIEntry.fpFreeProxy)
769             {
770                 buf.appendAscii(
771                     RTL_CONSTASCII_STRINGPARAM("; proxy free=0x") );
772                 buf.append(
773                     reinterpret_cast< sal_IntPtr >(rIEntry.fpFreeProxy), 16 );
774             }
775             else
776             {
777                 buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("; original") );
778             }
779             buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("; ptr=0x") );
780             buf.append(
781                 reinterpret_cast< sal_IntPtr >(rIEntry.pInterface), 16 );
782 
783             if (pOEntry->find( rIEntry.pInterface, nPos + 1 ) < 0)
784             {
785                 ::std::size_t erased = ptr2obj.erase( rIEntry.pInterface );
786                 if (erased != 1)
787                 {
788                     buf.appendAscii( RTL_CONSTASCII_STRINGPARAM(
789                                          " (ptr not found in map!)") );
790                 }
791             }
792             writeLine( stream, buf.makeStringAndClear(), pFilter );
793         }
794         ++iPos;
795     }
796     if (! ptr2obj.empty())
797         writeLine( stream, "ptr map inconsistency!!!", pFilter );
798     writeLine( stream, "#####################################"
799                "#########################################", pFilter );
800 }
801 
802 //##############################################################################
uno_dumpEnvironmentByName(void * stream,rtl_uString * pEnvDcp,const sal_Char * pFilter)803 extern "C" void SAL_CALL uno_dumpEnvironmentByName(
804     void * stream, rtl_uString * pEnvDcp, const sal_Char * pFilter )
805     SAL_THROW_EXTERN_C()
806 {
807     uno_Environment * pEnv = 0;
808     uno_getEnvironment( &pEnv, pEnvDcp, 0 );
809     if (pEnv)
810     {
811         ::uno_dumpEnvironment( stream, pEnv, pFilter );
812         (*pEnv->release)( pEnv );
813     }
814     else
815     {
816         ::rtl::OUStringBuffer buf( 32 );
817         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("environment \"") );
818         buf.append( pEnvDcp );
819         buf.appendAscii( RTL_CONSTASCII_STRINGPARAM("\" does not exist!") );
820         writeLine( stream, buf.makeStringAndClear(), pFilter );
821     }
822 }
823 
824 //------------------------------------------------------------------------------
unoenv_getStaticOIdPart()825 inline static const OUString & unoenv_getStaticOIdPart()
826 {
827     static OUString * s_pStaticOidPart = 0;
828     if (! s_pStaticOidPart)
829     {
830         ::osl::MutexGuard guard( ::osl::Mutex::getGlobalMutex() );
831         if (! s_pStaticOidPart)
832         {
833             ::rtl::OUStringBuffer aRet( 64 );
834             aRet.appendAscii( RTL_CONSTASCII_STRINGPARAM("];") );
835             // pid
836             oslProcessInfo info;
837             info.Size = sizeof(oslProcessInfo);
838             if (::osl_getProcessInfo( 0, osl_Process_IDENTIFIER, &info ) ==
839                 osl_Process_E_None)
840             {
841                 aRet.append( (sal_Int64)info.Ident, 16 );
842             }
843             else
844             {
845                 aRet.appendAscii(
846                     RTL_CONSTASCII_STRINGPARAM("unknown process id") );
847             }
848             // good guid
849             sal_uInt8 ar[16];
850             ::rtl_getGlobalProcessId( ar );
851             aRet.append( (sal_Unicode)';' );
852             for ( sal_Int32 i = 0; i < 16; ++i )
853                 aRet.append( (sal_Int32)ar[i], 16 );
854 
855             static OUString s_aStaticOidPart( aRet.makeStringAndClear() );
856             s_pStaticOidPart = &s_aStaticOidPart;
857         }
858     }
859     return *s_pStaticOidPart;
860 }
861 
862 extern "C"
863 {
864 
865 //------------------------------------------------------------------------------
unoenv_computeObjectIdentifier(uno_ExtEnvironment * pEnv,rtl_uString ** ppOId,void * pInterface)866 static void SAL_CALL unoenv_computeObjectIdentifier(
867     uno_ExtEnvironment * pEnv, rtl_uString ** ppOId, void * pInterface )
868 {
869     OSL_ENSURE( pEnv && ppOId && pInterface, "### null ptr!" );
870     if (*ppOId)
871     {
872         ::rtl_uString_release( *ppOId );
873         *ppOId = 0;
874     }
875 
876     uno_Interface * pUnoI = (uno_Interface *)
877         ::cppu::binuno_queryInterface(
878             pInterface, *typelib_static_type_getByTypeClass(
879                 typelib_TypeClass_INTERFACE ) );
880     if (0 != pUnoI)
881     {
882         (*pUnoI->release)( pUnoI );
883         // interface
884         ::rtl::OUStringBuffer oid( 64 );
885         oid.append( reinterpret_cast< sal_Int64 >(pUnoI), 16 );
886         oid.append( static_cast< sal_Unicode >(';') );
887         // environment[context]
888         oid.append( ((uno_Environment *) pEnv)->pTypeName );
889         oid.append( static_cast< sal_Unicode >('[') );
890         oid.append( reinterpret_cast< sal_Int64 >(
891                         reinterpret_cast<
892                         uno_Environment * >(pEnv)->pContext ), 16 );
893         // process;good guid
894         oid.append( unoenv_getStaticOIdPart() );
895         OUString aStr( oid.makeStringAndClear() );
896         ::rtl_uString_acquire( *ppOId = aStr.pData );
897     }
898 }
899 
900 //==============================================================================
unoenv_acquireInterface(uno_ExtEnvironment *,void * pUnoI_)901 static void SAL_CALL unoenv_acquireInterface(
902     uno_ExtEnvironment *, void * pUnoI_ )
903 {
904     uno_Interface * pUnoI = reinterpret_cast< uno_Interface * >(pUnoI_);
905     (*pUnoI->acquire)( pUnoI );
906 }
907 
908 //==============================================================================
unoenv_releaseInterface(uno_ExtEnvironment *,void * pUnoI_)909 static void SAL_CALL unoenv_releaseInterface(
910     uno_ExtEnvironment *, void * pUnoI_ )
911 {
912     uno_Interface * pUnoI = reinterpret_cast< uno_Interface * >(pUnoI_);
913     (*pUnoI->release)( pUnoI );
914 }
915 }
916 
917 //______________________________________________________________________________
~EnvironmentsData()918 EnvironmentsData::~EnvironmentsData()
919 {
920     ::osl::MutexGuard guard( mutex );
921     isDisposing = true;
922 
923     for ( OUString2EnvironmentMap::const_iterator iPos( aName2EnvMap.begin() );
924           iPos != aName2EnvMap.end(); ++iPos )
925     {
926         uno_Environment * pWeak = iPos->second;
927         uno_Environment * pHard = 0;
928         (*pWeak->harden)( &pHard, pWeak );
929         (*pWeak->releaseWeak)( pWeak );
930 
931         if (pHard)
932         {
933 #if OSL_DEBUG_LEVEL > 1
934             ::uno_dumpEnvironment( 0, pHard, 0 );
935 #endif
936             (*pHard->dispose)( pHard ); // send explicit dispose
937             (*pHard->release)( pHard );
938         }
939     }
940 }
941 
942 //______________________________________________________________________________
getEnvironment(uno_Environment ** ppEnv,const OUString & rEnvDcp,void * pContext)943 inline void EnvironmentsData::getEnvironment(
944     uno_Environment ** ppEnv, const OUString & rEnvDcp, void * pContext )
945 {
946     if (*ppEnv)
947     {
948         (*(*ppEnv)->release)( *ppEnv );
949         *ppEnv = 0;
950     }
951 
952     OUString aKey(
953         OUString::valueOf( reinterpret_cast< sal_IntPtr >(pContext) ) );
954     aKey += rEnvDcp;
955 
956     // try to find registered mapping
957     OUString2EnvironmentMap::const_iterator const iFind(
958         aName2EnvMap.find( aKey ) );
959     if (iFind != aName2EnvMap.end())
960     {
961         uno_Environment * pWeak = iFind->second;
962         (*pWeak->harden)( ppEnv, pWeak );
963     }
964 }
965 
966 //______________________________________________________________________________
registerEnvironment(uno_Environment ** ppEnv)967 inline void EnvironmentsData::registerEnvironment( uno_Environment ** ppEnv )
968 {
969     OSL_ENSURE( ppEnv, "### null ptr!" );
970     uno_Environment * pEnv =  *ppEnv;
971 
972     OUString aKey(
973         OUString::valueOf( reinterpret_cast< sal_IntPtr >(pEnv->pContext) ) );
974     aKey += pEnv->pTypeName;
975 
976     // try to find registered environment
977     OUString2EnvironmentMap::const_iterator const iFind(
978         aName2EnvMap.find( aKey ) );
979     if (iFind == aName2EnvMap.end())
980     {
981         (*pEnv->acquireWeak)( pEnv );
982         ::std::pair< OUString2EnvironmentMap::iterator, bool > insertion(
983             aName2EnvMap.insert(
984                 OUString2EnvironmentMap::value_type( aKey, pEnv ) ) );
985         OSL_ENSURE(
986             insertion.second, "### insertion of env into map failed?!" );
987     }
988     else
989     {
990         uno_Environment * pHard = 0;
991         uno_Environment * pWeak = iFind->second;
992         (*pWeak->harden)( &pHard, pWeak );
993         if (pHard)
994         {
995             if (pEnv)
996                 (*pEnv->release)( pEnv );
997             *ppEnv = pHard;
998         }
999         else // registered one is dead
1000         {
1001             (*pWeak->releaseWeak)( pWeak );
1002             (*pEnv->acquireWeak)( pEnv );
1003             aName2EnvMap[ aKey ] = pEnv;
1004         }
1005     }
1006 }
1007 
1008 //______________________________________________________________________________
getRegisteredEnvironments(uno_Environment *** pppEnvs,sal_Int32 * pnLen,uno_memAlloc memAlloc,const OUString & rEnvDcp)1009 inline void EnvironmentsData::getRegisteredEnvironments(
1010     uno_Environment *** pppEnvs, sal_Int32 * pnLen, uno_memAlloc memAlloc,
1011     const OUString & rEnvDcp )
1012 {
1013     OSL_ENSURE( pppEnvs && pnLen && memAlloc, "### null ptr!" );
1014 
1015     // max size
1016     uno_Environment ** ppFound = (uno_Environment **)alloca(
1017         sizeof(uno_Environment *) * aName2EnvMap.size() );
1018     sal_Int32 nSize = 0;
1019 
1020     // find matching environment
1021     for ( OUString2EnvironmentMap::const_iterator iPos( aName2EnvMap.begin() );
1022           iPos != aName2EnvMap.end(); ++iPos )
1023     {
1024         uno_Environment * pWeak = iPos->second;
1025         if (!rEnvDcp.getLength() ||
1026             rEnvDcp.equals( pWeak->pTypeName ))
1027         {
1028             ppFound[nSize] = 0;
1029             (*pWeak->harden)( &ppFound[nSize], pWeak );
1030             if (ppFound[nSize])
1031                 ++nSize;
1032         }
1033     }
1034 
1035     *pnLen = nSize;
1036     if (nSize)
1037     {
1038         *pppEnvs = (uno_Environment **) (*memAlloc)(
1039             sizeof (uno_Environment *) * nSize );
1040         OSL_ASSERT( *pppEnvs );
1041         while (nSize--)
1042         {
1043             (*pppEnvs)[nSize] = ppFound[nSize];
1044         }
1045     }
1046     else
1047     {
1048         *pppEnvs = 0;
1049     }
1050 }
1051 
loadEnv(OUString const & cLibStem,uno_Environment * pEnv,void *)1052 static bool loadEnv(OUString const  & cLibStem,
1053 					uno_Environment * pEnv,
1054 					void            * /*pContext*/)
1055 {
1056 	// late init with some code from matching uno language binding
1057 	// will be unloaded by environment
1058 	oslModule hMod = cppu::detail::loadModule( cLibStem );
1059 
1060 	if (!hMod)
1061 		return false;
1062 
1063 	OUString aSymbolName(RTL_CONSTASCII_USTRINGPARAM(UNO_INIT_ENVIRONMENT));
1064 	uno_initEnvironmentFunc fpInit = (uno_initEnvironmentFunc)
1065 		::osl_getFunctionSymbol( hMod, aSymbolName.pData );
1066 	if (!fpInit)
1067 	{
1068 		::osl_unloadModule( hMod );
1069 		return false;
1070 	}
1071 
1072 	(*fpInit)( pEnv ); // init of environment
1073 	::rtl_registerModuleForUnloading( hMod );
1074 
1075 	return true;
1076 }
1077 
1078 
1079 extern "C"
1080 {
1081 
1082 //------------------------------------------------------------------------------
initDefaultEnvironment(const OUString & rEnvDcp,void * pContext)1083 static uno_Environment * initDefaultEnvironment(
1084     const OUString & rEnvDcp, void * pContext )
1085 {
1086     uno_Environment * pEnv = &(new uno_DefaultEnvironment( rEnvDcp, pContext ))->aBase;
1087 	(*pEnv->acquire)( pEnv );
1088 
1089 	OUString envTypeName = cppu::EnvDcp::getTypeName(rEnvDcp);
1090 
1091     // create default environment
1092     if (envTypeName.equalsAsciiL( RTL_CONSTASCII_STRINGPARAM(UNO_LB_UNO) ))
1093     {
1094         uno_DefaultEnvironment * that = (uno_DefaultEnvironment *)pEnv;
1095 		that->computeObjectIdentifier = unoenv_computeObjectIdentifier;
1096 		that->acquireInterface = unoenv_acquireInterface;
1097 		that->releaseInterface = unoenv_releaseInterface;
1098 
1099 		OUString envPurpose = cppu::EnvDcp::getPurpose(rEnvDcp);
1100 		if (envPurpose.getLength())
1101 		{
1102 			rtl::OUString libStem = envPurpose.copy(envPurpose.lastIndexOf(':') + 1);
1103 			libStem += rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("_uno_uno") );
1104 
1105 			if(!loadEnv(libStem, pEnv, pContext))
1106 			{
1107 				pEnv->release(pEnv);
1108 				return NULL;
1109 			}
1110 		}
1111     }
1112     else
1113     {
1114         // late init with some code from matching uno language binding
1115         ::rtl::OUStringBuffer aLibName( 16 );
1116         aLibName.append( envTypeName );
1117         aLibName.appendAscii( RTL_CONSTASCII_STRINGPARAM("_uno" ) );
1118         OUString aStr( aLibName.makeStringAndClear() );
1119 
1120 		if (!loadEnv(aStr, pEnv, pContext))
1121 		{
1122 			pEnv->release(pEnv);
1123 			return NULL;
1124 		}
1125     }
1126 
1127     return pEnv;
1128 }
1129 
1130 //##############################################################################
uno_createEnvironment(uno_Environment ** ppEnv,rtl_uString * pEnvDcp,void * pContext)1131 void SAL_CALL uno_createEnvironment(
1132     uno_Environment ** ppEnv, rtl_uString * pEnvDcp, void * pContext )
1133     SAL_THROW_EXTERN_C()
1134 {
1135     OSL_ENSURE( ppEnv, "### null ptr!" );
1136     if (*ppEnv)
1137         (*(*ppEnv)->release)( *ppEnv );
1138 
1139     OUString const & rEnvDcp = OUString::unacquired( &pEnvDcp );
1140     *ppEnv = initDefaultEnvironment( rEnvDcp, pContext );
1141 }
1142 
1143 //##############################################################################
uno_direct_getEnvironment(uno_Environment ** ppEnv,rtl_uString * pEnvDcp,void * pContext)1144 void SAL_CALL uno_direct_getEnvironment(
1145     uno_Environment ** ppEnv, rtl_uString * pEnvDcp, void * pContext )
1146     SAL_THROW_EXTERN_C()
1147 {
1148     OSL_ENSURE( ppEnv, "### null ptr!" );
1149     OUString const & rEnvDcp = OUString::unacquired( &pEnvDcp );
1150 
1151     EnvironmentsData & rData = theEnvironmentsData::get();
1152 
1153     ::osl::MutexGuard guard( rData.mutex );
1154     rData.getEnvironment( ppEnv, rEnvDcp, pContext );
1155     if (! *ppEnv)
1156     {
1157         *ppEnv = initDefaultEnvironment( rEnvDcp, pContext );
1158         if (*ppEnv)
1159         {
1160             // register new environment:
1161             rData.registerEnvironment( ppEnv );
1162         }
1163     }
1164 }
1165 
1166 //##############################################################################
uno_getRegisteredEnvironments(uno_Environment *** pppEnvs,sal_Int32 * pnLen,uno_memAlloc memAlloc,rtl_uString * pEnvDcp)1167 void SAL_CALL uno_getRegisteredEnvironments(
1168     uno_Environment *** pppEnvs, sal_Int32 * pnLen, uno_memAlloc memAlloc,
1169     rtl_uString * pEnvDcp )
1170     SAL_THROW_EXTERN_C()
1171 {
1172     EnvironmentsData & rData = theEnvironmentsData::get();
1173 
1174     ::osl::MutexGuard guard( rData.mutex );
1175     rData.getRegisteredEnvironments(
1176         pppEnvs, pnLen, memAlloc,
1177         (pEnvDcp ? OUString(pEnvDcp) : OUString()) );
1178 }
1179 
1180 } // extern "C"
1181 
1182 }
1183 
1184