This commit was manufactured by cvs2svn to create branch 'mono-1-0'.
[mono.git] / mcs / class / corlib / System.Runtime.Remoting.Activation / ActivationServices.cs
1 //
2 // System.Runtime.Remoting.ActivationServices.cs
3 //
4 // Author: Lluis Sanchez Gual (lluis@ideary.com)
5 //
6 // (C) 2002, Lluis Sanchez Gual
7 //
8
9 //
10 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
11 //
12 // Permission is hereby granted, free of charge, to any person obtaining
13 // a copy of this software and associated documentation files (the
14 // "Software"), to deal in the Software without restriction, including
15 // without limitation the rights to use, copy, modify, merge, publish,
16 // distribute, sublicense, and/or sell copies of the Software, and to
17 // permit persons to whom the Software is furnished to do so, subject to
18 // the following conditions:
19 // 
20 // The above copyright notice and this permission notice shall be
21 // included in all copies or substantial portions of the Software.
22 // 
23 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
24 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
25 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
26 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
27 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
28 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
29 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
30 //
31
32 using System;
33 using System.Threading;
34 using System.Runtime.Remoting.Messaging;
35 using System.Runtime.Remoting.Activation;
36 using System.Runtime.Remoting.Contexts;
37 using System.Runtime.Remoting.Proxies;
38 using System.Reflection;
39 using System.Runtime.CompilerServices;
40 using System.Collections;
41 using System.Runtime.Remoting.Channels;
42
43 namespace System.Runtime.Remoting.Activation
44 {
45         internal class ActivationServices
46         {
47                 static IActivator _constructionActivator = new ConstructionLevelActivator ();
48
49                 public static IMessage Activate (RemotingProxy proxy, ConstructionCall ctorCall)
50                 {
51                         IMessage response;
52
53                         if (Thread.CurrentContext.HasExitSinks && !ctorCall.IsContextOk)
54                                 response = Thread.CurrentContext.GetClientContextSinkChain ().SyncProcessMessage (ctorCall);
55                         else
56                                 response = RemoteActivate (ctorCall);
57
58                         if (response is IConstructionReturnMessage && ((IConstructionReturnMessage)response).Exception == null)
59                         {
60                                 Identity identity = RemotingServices.GetMessageTargetIdentity (ctorCall);
61                                 proxy.AttachIdentity (identity);
62                         }
63
64                         return response;
65                 }
66
67                 public static IMessage RemoteActivate (IConstructionCallMessage ctorCall)
68                 {
69                         try \r
70                         {
71                                 return ctorCall.Activator.Activate (ctorCall);
72                         }
73                         catch (Exception ex) \r
74                         {
75                                 return new ReturnMessage (ex, ctorCall);
76                         }               \r
77                 }
78
79                 public static object CreateProxyFromAttributes (Type type, object[] activationAttributes)
80                 {
81                         string activationUrl = null;
82                         foreach (object attr in activationAttributes)
83                         {
84                                 if (!(attr is IContextAttribute)) throw new RemotingException ("Activation attribute does not implement the IContextAttribute interface");
85                                 if (attr is UrlAttribute) activationUrl = ((UrlAttribute)attr).UrlValue;
86                         }
87
88                         if (activationUrl != null)
89                                 return RemotingServices.CreateClientProxy (type, activationUrl, activationAttributes);
90
91                         ActivatedClientTypeEntry activatedEntry = RemotingConfiguration.IsRemotelyActivatedClientType (type);
92                         if (activatedEntry != null)
93                                 return RemotingServices.CreateClientProxy (activatedEntry, activationAttributes);
94
95                         if (type.IsContextful)
96                                 return RemotingServices.CreateClientProxyForContextBound (type, activationAttributes);
97                         
98                         return null;
99                 }
100
101                 public static ConstructionCall CreateConstructionCall (Type type, string activationUrl, object[] activationAttributes)
102                 {
103                         ConstructionCall ctorCall = new ConstructionCall (type);
104
105                         if (!type.IsContextful) 
106                         {
107                                 // Must be a remote activated object
108                                 ctorCall.Activator = new AppDomainLevelActivator (activationUrl, _constructionActivator);
109                                 ctorCall.IsContextOk = false;   // It'll be activated in a remote context
110                                 return ctorCall;
111                         }
112
113                         // It is a CBO. Need collect context properties and
114                         // check if a new context is needed.
115
116                         IActivator activatorChain = _constructionActivator;
117                         activatorChain = new ContextLevelActivator (activatorChain);
118
119                         ArrayList attributes = new ArrayList ();
120                         if (activationAttributes != null) attributes.AddRange (activationAttributes);
121
122                         bool isContextOk = (activationUrl == ChannelServices.CrossContextUrl);  // Remote CBOs are always created in a new context
123                         Context currentContext = Threading.Thread.CurrentContext;
124
125                         if (isContextOk) 
126                         {
127                                 foreach (IContextAttribute attr in attributes) 
128                                 {
129                                         if (!attr.IsContextOK (currentContext, ctorCall)) 
130                                         {
131                                                 isContextOk = false;
132                                                 break;
133                                         }
134                                 }
135                         }
136
137                         object[] typeAttributes = type.GetCustomAttributes (true);
138                         foreach (object attr in typeAttributes) 
139                         {
140                                 if (attr is IContextAttribute) 
141                                 {
142                                         isContextOk = isContextOk && ((IContextAttribute)attr).IsContextOK (currentContext, ctorCall);
143                                         attributes.Add (attr);
144                                 }
145                         }
146
147                         if (!isContextOk)
148                         {
149                                 // A new context is needed. Collect the context properties and chain
150                                 // the context level activator.
151
152                                 ctorCall.SetActivationAttributes (attributes.ToArray());
153
154                                 foreach (IContextAttribute attr in attributes)
155                                         attr.GetPropertiesForNewContext (ctorCall);
156                         }
157
158                         if (activationUrl != ChannelServices.CrossContextUrl)
159                                 activatorChain = new AppDomainLevelActivator (activationUrl, activatorChain);
160                         
161                         ctorCall.Activator = activatorChain;
162                         ctorCall.IsContextOk = isContextOk;
163
164                         return ctorCall;
165                 }
166
167                 public static IMessage CreateInstanceFromMessage (IConstructionCallMessage ctorCall)
168                 {
169                         object obj = AllocateUninitializedClassInstance (ctorCall.ActivationType);
170                         ctorCall.MethodBase.Invoke (obj, ctorCall.Args);
171
172                         ServerIdentity identity = (ServerIdentity) RemotingServices.GetMessageTargetIdentity (ctorCall);
173
174                         identity.AttachServerObject ((MarshalByRefObject) obj, Threading.Thread.CurrentContext);
175
176                         return new ConstructionResponse (obj, null, ctorCall);
177                 }
178
179                 public static object CreateProxyForType (Type type)
180                 {
181                         // Called by the runtime when creating an instance of a type
182                         // that has been registered as remotely activated.
183
184                         // First of all check for remote activation. If the object is not remote, then
185                         // it may be contextbound.
186
187                         ActivatedClientTypeEntry activatedEntry = RemotingConfiguration.IsRemotelyActivatedClientType (type);
188                         if (activatedEntry != null)
189                                 return RemotingServices.CreateClientProxy (activatedEntry, null);
190
191                         WellKnownClientTypeEntry wellknownEntry = RemotingConfiguration.IsWellKnownClientType (type);
192                         if (wellknownEntry != null)
193                                 return RemotingServices.CreateClientProxy (wellknownEntry);
194
195                         if (type.IsContextful)
196                                 return RemotingServices.CreateClientProxyForContextBound (type, null);
197
198                         return null;
199                 }
200
201                 // Allocates an uninitialized instance. It never creates proxies.
202                 [MethodImplAttribute(MethodImplOptions.InternalCall)]
203                 public static extern object AllocateUninitializedClassInstance (Type type);
204
205                 [MethodImplAttribute(MethodImplOptions.InternalCall)]
206                 public extern static void EnableProxyActivation (Type type, bool enable);
207         }
208 }