1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski
24*b1cdbd2cSJim Jagielski // MARKER(update_precomp.py): autogen include statement, do not remove
25*b1cdbd2cSJim Jagielski #include "precompiled_cli_ure.hxx"
26*b1cdbd2cSJim Jagielski
27*b1cdbd2cSJim Jagielski #include "Cli_environment.h"
28*b1cdbd2cSJim Jagielski
29*b1cdbd2cSJim Jagielski #using <mscorlib.dll>
30*b1cdbd2cSJim Jagielski #using <cli_ure.dll>
31*b1cdbd2cSJim Jagielski #using <system.dll>
32*b1cdbd2cSJim Jagielski #include "osl/diagnose.h"
33*b1cdbd2cSJim Jagielski #include "cli_proxy.h"
34*b1cdbd2cSJim Jagielski
35*b1cdbd2cSJim Jagielski using namespace System::Runtime::Remoting;
36*b1cdbd2cSJim Jagielski using namespace System::Runtime::Remoting::Proxies;
37*b1cdbd2cSJim Jagielski using namespace System::Collections;
38*b1cdbd2cSJim Jagielski using namespace System::Text;
39*b1cdbd2cSJim Jagielski using namespace System::Diagnostics;
40*b1cdbd2cSJim Jagielski using namespace System::Threading;
41*b1cdbd2cSJim Jagielski
42*b1cdbd2cSJim Jagielski namespace cli_uno
43*b1cdbd2cSJim Jagielski {
44*b1cdbd2cSJim Jagielski
createKey(System::String * oid,System::Type * t)45*b1cdbd2cSJim Jagielski inline System::String* Cli_environment::createKey(System::String* oid, System::Type* t)
46*b1cdbd2cSJim Jagielski {
47*b1cdbd2cSJim Jagielski return System::String::Concat(oid, t->get_FullName());
48*b1cdbd2cSJim Jagielski }
49*b1cdbd2cSJim Jagielski
50*b1cdbd2cSJim Jagielski
Cli_environment()51*b1cdbd2cSJim Jagielski inline Cli_environment::Cli_environment()
52*b1cdbd2cSJim Jagielski {
53*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL >= 2
54*b1cdbd2cSJim Jagielski _numRegisteredObjects = 0;
55*b1cdbd2cSJim Jagielski #endif
56*b1cdbd2cSJim Jagielski }
57*b1cdbd2cSJim Jagielski
~Cli_environment()58*b1cdbd2cSJim Jagielski Cli_environment::~Cli_environment()
59*b1cdbd2cSJim Jagielski {
60*b1cdbd2cSJim Jagielski OSL_ENSURE(_numRegisteredObjects == 0,
61*b1cdbd2cSJim Jagielski "cli uno bridge: CLI environment contains unrevoked objects");
62*b1cdbd2cSJim Jagielski }
63*b1cdbd2cSJim Jagielski
64*b1cdbd2cSJim Jagielski
registerInterface(System::Object * obj,System::String * oid)65*b1cdbd2cSJim Jagielski System::Object* Cli_environment::registerInterface(
66*b1cdbd2cSJim Jagielski System::Object* obj, System::String* oid)
67*b1cdbd2cSJim Jagielski {
68*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL >= 1
69*b1cdbd2cSJim Jagielski //obj must be a transparent proxy
70*b1cdbd2cSJim Jagielski OSL_ASSERT(RemotingServices::IsTransparentProxy(obj));
71*b1cdbd2cSJim Jagielski _numRegisteredObjects ++;
72*b1cdbd2cSJim Jagielski #endif
73*b1cdbd2cSJim Jagielski OSL_ASSERT( ! m_objects->ContainsKey(oid));
74*b1cdbd2cSJim Jagielski m_objects->Add(oid, new WeakReference(obj));
75*b1cdbd2cSJim Jagielski return obj;
76*b1cdbd2cSJim Jagielski }
registerInterface(System::Object * obj,System::String * oid,System::Type * type)77*b1cdbd2cSJim Jagielski System::Object* Cli_environment::registerInterface (
78*b1cdbd2cSJim Jagielski System::Object* obj, System::String* oid, System::Type* type)
79*b1cdbd2cSJim Jagielski {
80*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL >= 1
81*b1cdbd2cSJim Jagielski //obj must be a real cli object
82*b1cdbd2cSJim Jagielski OSL_ASSERT( ! RemotingServices::IsTransparentProxy(obj));
83*b1cdbd2cSJim Jagielski _numRegisteredObjects ++;
84*b1cdbd2cSJim Jagielski #endif
85*b1cdbd2cSJim Jagielski System::String* key = createKey(oid, type);
86*b1cdbd2cSJim Jagielski //see synchronization in map_uno2cli in cli_data.cxx
87*b1cdbd2cSJim Jagielski OSL_ASSERT( ! m_objects->ContainsKey(key));
88*b1cdbd2cSJim Jagielski m_objects->Add(key, new WeakReference(obj));
89*b1cdbd2cSJim Jagielski return obj;
90*b1cdbd2cSJim Jagielski }
91*b1cdbd2cSJim Jagielski
revokeInterface(System::String * oid,System::Type * type)92*b1cdbd2cSJim Jagielski void Cli_environment::revokeInterface(System::String* oid, System::Type* type)
93*b1cdbd2cSJim Jagielski {
94*b1cdbd2cSJim Jagielski System::String* key = type != NULL ? createKey(oid, type) : oid;
95*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL >= 1
96*b1cdbd2cSJim Jagielski _numRegisteredObjects --;
97*b1cdbd2cSJim Jagielski #endif
98*b1cdbd2cSJim Jagielski #if OSL_DEBUG_LEVEL >= 2
99*b1cdbd2cSJim Jagielski int i = 1;
100*b1cdbd2cSJim Jagielski if (m_objects->ContainsKey(key) == false)
101*b1cdbd2cSJim Jagielski {
102*b1cdbd2cSJim Jagielski Trace::WriteLine("cli uno bridge: try to revoke unregistered interface");
103*b1cdbd2cSJim Jagielski Trace::WriteLine(oid);
104*b1cdbd2cSJim Jagielski i = 0;
105*b1cdbd2cSJim Jagielski }
106*b1cdbd2cSJim Jagielski Trace::WriteLine(System::String::Format(
107*b1cdbd2cSJim Jagielski new System::String(S"cli uno bridge: {0} remaining registered interfaces"),
108*b1cdbd2cSJim Jagielski __box(m_objects->get_Count() - 1)));
109*b1cdbd2cSJim Jagielski #endif
110*b1cdbd2cSJim Jagielski m_objects->Remove(key);
111*b1cdbd2cSJim Jagielski }
112*b1cdbd2cSJim Jagielski
revokeInterface(System::String * oid)113*b1cdbd2cSJim Jagielski inline void Cli_environment::revokeInterface(System::String* oid)
114*b1cdbd2cSJim Jagielski {
115*b1cdbd2cSJim Jagielski return revokeInterface(oid, NULL);
116*b1cdbd2cSJim Jagielski }
117*b1cdbd2cSJim Jagielski
getRegisteredInterface(System::String * oid,System::Type * type)118*b1cdbd2cSJim Jagielski System::Object* Cli_environment::getRegisteredInterface(System::String* oid,
119*b1cdbd2cSJim Jagielski System::Type* type)
120*b1cdbd2cSJim Jagielski {
121*b1cdbd2cSJim Jagielski //try if it is a UNO interface
122*b1cdbd2cSJim Jagielski System::Object* ret = NULL;
123*b1cdbd2cSJim Jagielski ret = m_objects->get_Item(oid);
124*b1cdbd2cSJim Jagielski if (! ret)
125*b1cdbd2cSJim Jagielski {
126*b1cdbd2cSJim Jagielski //try if if it is a proxy for a cli object
127*b1cdbd2cSJim Jagielski oid = createKey(oid, type);
128*b1cdbd2cSJim Jagielski ret = m_objects->get_Item( oid );
129*b1cdbd2cSJim Jagielski }
130*b1cdbd2cSJim Jagielski if (ret != 0)
131*b1cdbd2cSJim Jagielski {
132*b1cdbd2cSJim Jagielski System::WeakReference* weakIface =
133*b1cdbd2cSJim Jagielski static_cast< System::WeakReference * >( ret );
134*b1cdbd2cSJim Jagielski ret = weakIface->Target;
135*b1cdbd2cSJim Jagielski }
136*b1cdbd2cSJim Jagielski if (ret == 0)
137*b1cdbd2cSJim Jagielski m_objects->Remove( oid );
138*b1cdbd2cSJim Jagielski return ret;
139*b1cdbd2cSJim Jagielski }
140*b1cdbd2cSJim Jagielski
getObjectIdentifier(System::Object * obj)141*b1cdbd2cSJim Jagielski System::String* Cli_environment::getObjectIdentifier(System::Object* obj)
142*b1cdbd2cSJim Jagielski {
143*b1cdbd2cSJim Jagielski System::String* oId= 0;
144*b1cdbd2cSJim Jagielski RealProxy* aProxy= RemotingServices::GetRealProxy(obj);
145*b1cdbd2cSJim Jagielski if (aProxy)
146*b1cdbd2cSJim Jagielski {
147*b1cdbd2cSJim Jagielski UnoInterfaceProxy* proxyImpl= dynamic_cast<UnoInterfaceProxy*>(aProxy);
148*b1cdbd2cSJim Jagielski if (proxyImpl)
149*b1cdbd2cSJim Jagielski oId= proxyImpl->getOid();
150*b1cdbd2cSJim Jagielski }
151*b1cdbd2cSJim Jagielski
152*b1cdbd2cSJim Jagielski if (oId == 0)
153*b1cdbd2cSJim Jagielski {
154*b1cdbd2cSJim Jagielski StringBuilder * buf= new StringBuilder(256);
155*b1cdbd2cSJim Jagielski bool bFirst = false;
156*b1cdbd2cSJim Jagielski System::Threading::Monitor::Enter(__typeof(Cli_environment));
157*b1cdbd2cSJim Jagielski try {
158*b1cdbd2cSJim Jagielski buf->Append(m_IDGen->GetId(obj, & bFirst));
159*b1cdbd2cSJim Jagielski } __finally
160*b1cdbd2cSJim Jagielski {
161*b1cdbd2cSJim Jagielski System::Threading::Monitor::Exit(__typeof(Cli_environment));
162*b1cdbd2cSJim Jagielski }
163*b1cdbd2cSJim Jagielski
164*b1cdbd2cSJim Jagielski buf->Append(sOidPart);
165*b1cdbd2cSJim Jagielski oId= buf->ToString();
166*b1cdbd2cSJim Jagielski }
167*b1cdbd2cSJim Jagielski return oId;
168*b1cdbd2cSJim Jagielski }
169*b1cdbd2cSJim Jagielski } //namespace cli_uno
170