This commit was manufactured by cvs2svn to create branch 'mono-1-0'.
[mono.git] / mcs / class / corlib / System.Runtime.Remoting.Messaging / ConstructionCall.cs
1 //
2 // System.Runtime.Remoting.Messaging.ConstructionCall.cs
3 //
4 // Author: Lluis Sanchez Gual (lluis@ideary.com)
5 //
6 // (C) 2003, 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.Collections;
35 using System.Runtime.Remoting.Activation;
36 using System.Runtime.Serialization;
37 using System.Runtime.Remoting.Contexts;
38
39 namespace System.Runtime.Remoting.Messaging
40 {
41         [Serializable] [CLSCompliant (false)]
42         public class ConstructionCall: MethodCall, IConstructionCallMessage
43         {
44                 IActivator _activator;
45                 object[] _activationAttributes;
46                 IList _contextProperties;
47                 Type _activationType;
48                 string _activationTypeName;
49                 bool _isContextOk;
50
51                 public ConstructionCall(IMessage msg): base (msg)
52                 {
53                         _activationTypeName = TypeName;
54                         _isContextOk = true;
55                 }
56
57                 internal ConstructionCall (Type type)
58                 {
59                         _activationType = type;
60                         _activationTypeName = type.AssemblyQualifiedName;
61                         _isContextOk = true;
62                 }
63
64                 public ConstructionCall (Header[] headers): base (headers)
65                 {
66                 }
67
68                 internal ConstructionCall (SerializationInfo info, StreamingContext context): base (info, context)
69                 {
70                 }
71
72                 internal override void InitDictionary()
73                 {
74                         ConstructionCallDictionary props = new ConstructionCallDictionary (this);
75                         ExternalProperties = props;
76                         InternalProperties = props.GetInternalProperties();
77                 }
78
79                 internal bool IsContextOk
80                 {
81                         get { return _isContextOk; }
82                         set { _isContextOk = value; }
83                 }
84
85                 public Type ActivationType 
86                 {
87                         get 
88                         { 
89                                 if (_activationType == null) _activationType = Type.GetType (_activationTypeName);
90                                 return _activationType; 
91                         }
92                 }
93
94                 public string ActivationTypeName 
95                 {
96                         get { return _activationTypeName; }
97                 }
98
99                 public IActivator Activator 
100                 {
101                         get { return _activator; }
102                         set { _activator = value; }
103                 }
104
105                 public object [] CallSiteActivationAttributes 
106                 {
107                         get { return _activationAttributes; }
108                 }
109
110                 internal void SetActivationAttributes (object [] attributes)
111                 {
112                         _activationAttributes = attributes;
113                 }
114
115                 public IList ContextProperties 
116                 {
117                         get 
118                         {
119                                 if (_contextProperties == null) _contextProperties = new ArrayList ();
120                                 return _contextProperties; 
121                         }
122                 }
123
124                 internal override void InitMethodProperty(string key, object value)
125                 {
126                         switch (key)
127                         {
128                                 case "__Activator" : _activator = (IActivator) value; return;
129                                 case "__CallSiteActivationAttributes" : _activationAttributes = (object[]) value; return;
130                                 case "__ActivationType" : _activationType = (Type) value; return;
131                                 case "__ContextProperties" : _contextProperties = (IList) value; return;
132                                 case "__ActivationTypeName" : _activationTypeName = (string) value; return;
133                                 default: base.InitMethodProperty (key, value); return;
134                         }
135                 }
136
137                 public override void GetObjectData (SerializationInfo info, StreamingContext context)
138                 {
139                         base.GetObjectData (info, context);
140
141                         IList props = _contextProperties;
142                         if (props != null && props.Count == 0) props = null;
143
144                         info.AddValue ("__Activator", _activator);
145                         info.AddValue ("__CallSiteActivationAttributes", _activationAttributes);
146                         info.AddValue ("__ActivationType", null);
147                         info.AddValue ("__ContextProperties", props);
148                         info.AddValue ("__ActivationTypeName", _activationTypeName);
149                 } 
150                 
151                 public override IDictionary Properties 
152                 {
153                         get { return base.Properties; }
154                 }
155         }
156 }