Allow at max one Remove operation to fail in tests.
[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 using System.Runtime.Remoting.Proxies;
39
40 namespace System.Runtime.Remoting.Messaging
41 {
42         [Serializable] [CLSCompliant (false)]
43         [System.Runtime.InteropServices.ComVisible (true)]
44         public class ConstructionCall: MethodCall, IConstructionCallMessage
45         {
46                 IActivator _activator;
47                 object[] _activationAttributes;
48                 IList _contextProperties;
49                 Type _activationType;
50                 string _activationTypeName;
51                 bool _isContextOk;
52                 [NonSerialized] RemotingProxy _sourceProxy;
53
54                 public ConstructionCall (IMessage m): base (m)
55                 {
56                         _activationTypeName = TypeName;
57                         _isContextOk = true;
58                 }
59
60                 internal ConstructionCall (Type type)
61                 {
62                         _activationType = type;
63                         _activationTypeName = type.AssemblyQualifiedName;
64                         _isContextOk = true;
65                 }
66
67                 public ConstructionCall (Header[] headers): base (headers)
68                 {
69                 }
70
71                 internal ConstructionCall (SerializationInfo info, StreamingContext context): base (info, context)
72                 {
73                 }
74
75                 internal override void InitDictionary()
76                 {
77                         ConstructionCallDictionary props = new ConstructionCallDictionary (this);
78                         ExternalProperties = props;
79                         InternalProperties = props.GetInternalProperties();
80                 }
81
82                 internal bool IsContextOk
83                 {
84                         get { return _isContextOk; }
85                         set { _isContextOk = value; }
86                 }
87
88                 public Type ActivationType 
89                 {
90                         get 
91                         { 
92                                 if (_activationType == null) _activationType = Type.GetType (_activationTypeName);
93                                 return _activationType; 
94                         }
95                 }
96
97                 public string ActivationTypeName 
98                 {
99                         get { return _activationTypeName; }
100                 }
101
102                 public IActivator Activator 
103                 {
104                         get { return _activator; }
105                         set { _activator = value; }
106                 }
107
108                 public object [] CallSiteActivationAttributes 
109                 {
110                         get { return _activationAttributes; }
111                 }
112
113                 internal void SetActivationAttributes (object [] attributes)
114                 {
115                         _activationAttributes = attributes;
116                 }
117
118                 public IList ContextProperties 
119                 {
120                         get 
121                         {
122                                 if (_contextProperties == null) _contextProperties = new ArrayList ();
123                                 return _contextProperties; 
124                         }
125                 }
126
127                 internal override void InitMethodProperty(string key, object value)
128                 {
129                         switch (key)
130                         {
131                                 case "__Activator" : _activator = (IActivator) value; return;
132                                 case "__CallSiteActivationAttributes" : _activationAttributes = (object[]) value; return;
133                                 case "__ActivationType" : _activationType = (Type) value; return;
134                                 case "__ContextProperties" : _contextProperties = (IList) value; return;
135                                 case "__ActivationTypeName" : _activationTypeName = (string) value; return;
136                                 default: base.InitMethodProperty (key, value); return;
137                         }
138                 }
139
140                 public override void GetObjectData (SerializationInfo info, StreamingContext context)
141                 {
142                         base.GetObjectData (info, context);
143
144                         IList props = _contextProperties;
145                         if (props != null && props.Count == 0) props = null;
146
147                         info.AddValue ("__Activator", _activator);
148                         info.AddValue ("__CallSiteActivationAttributes", _activationAttributes);
149                         info.AddValue ("__ActivationType", null);
150                         info.AddValue ("__ContextProperties", props);
151                         info.AddValue ("__ActivationTypeName", _activationTypeName);
152                 } 
153                 
154                 public override IDictionary Properties 
155                 {
156                         get { return base.Properties; }
157                 }
158                 
159                 internal RemotingProxy SourceProxy
160                 {
161                         get { return _sourceProxy; }
162                         set {_sourceProxy = value; }
163                 }
164         }
165 }