2 // System.Runtime.Remoting.StackBuilderSink.cs
4 // Author: Lluis Sanchez Gual (lsg@ctv.es)
6 // (C) 2002, Lluis Sanchez Gual
10 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
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:
20 // The above copyright notice and this permission notice shall be
21 // included in all copies or substantial portions of the Software.
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.
33 using System
.Threading
;
34 using System
.Reflection
;
35 using System
.Runtime
.Remoting
.Proxies
;
37 namespace System
.Runtime
.Remoting
.Messaging
39 // Sink that calls the real method of the object
41 internal class StackBuilderSink
: IMessageSink
43 MarshalByRefObject _target
;
46 public StackBuilderSink (MarshalByRefObject obj
, bool forceInternalExecute
)
49 if (!forceInternalExecute
&& RemotingServices
.IsTransparentProxy (obj
))
50 _rp
= RemotingServices
.GetRealProxy (obj
);
53 public IMessage
SyncProcessMessage (IMessage msg
)
55 CheckParameters (msg
);
57 // Makes the real call to the object
58 if (_rp
!= null) return _rp
.Invoke (msg
);
59 else return RemotingServices
.InternalExecuteMessage (_target
, (IMethodCallMessage
)msg
);
62 public IMessageCtrl
AsyncProcessMessage (IMessage msg
, IMessageSink replySink
)
64 object[] parms
= new object[] {msg, replySink}
;
65 ThreadPool
.QueueUserWorkItem (new WaitCallback (ExecuteAsyncMessage
), parms
);
69 void ExecuteAsyncMessage (object ob
)
71 object[] parms
= (object[]) ob
;
72 IMethodCallMessage msg
= (IMethodCallMessage
) parms
[0];
73 IMessageSink replySink
= (IMessageSink
)parms
[1];
75 CheckParameters (msg
);
78 if (_rp
!= null) res
= _rp
.Invoke (msg
);
79 else res
= RemotingServices
.InternalExecuteMessage (_target
, msg
);
81 replySink
.SyncProcessMessage (res
);
84 public IMessageSink NextSink
89 void CheckParameters (IMessage msg
)
91 IMethodCallMessage mcm
= (IMethodCallMessage
) msg
;
93 ParameterInfo
[] parameters
= mcm
.MethodBase
.GetParameters();
96 foreach (ParameterInfo pi
in parameters
)
98 object pval
= mcm
.GetArg (narg
++);
99 Type pt
= pi
.ParameterType
;
100 if (pt
.IsByRef
) pt
= pt
.GetElementType ();
102 if (pval
!= null && !pt
.IsInstanceOfType (pval
))
103 throw new RemotingException ("Cannot cast argument " + pi
.Position
+ " of type '" + pval
.GetType().AssemblyQualifiedName
+
104 "' to type '" + pt
.AssemblyQualifiedName
+ "'");