2005-01-31 Zoltan Varga <vargaz@freemail.hu>
[mono.git] / mcs / class / corlib / System.Runtime.Remoting / InternalRemotingServices.cs
1 //
2 // System.Runtime.Remoting.InternalRemotingServices.cs
3 //
4 // Authors:
5 //   Lluis Sanchez Gual (lluis@ximian.com)
6 //
7 // (C) 2003 Novell, Inc.
8 //
9
10 //
11 // Copyright (C) 2004 Novell, Inc (http://www.novell.com)
12 //
13 // Permission is hereby granted, free of charge, to any person obtaining
14 // a copy of this software and associated documentation files (the
15 // "Software"), to deal in the Software without restriction, including
16 // without limitation the rights to use, copy, modify, merge, publish,
17 // distribute, sublicense, and/or sell copies of the Software, and to
18 // permit persons to whom the Software is furnished to do so, subject to
19 // the following conditions:
20 // 
21 // The above copyright notice and this permission notice shall be
22 // included in all copies or substantial portions of the Software.
23 // 
24 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
25 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
26 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
27 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
28 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
29 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
30 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
31 //
32
33 using System;
34 using System.Reflection;
35 using System.Diagnostics;
36 using System.Collections;
37 using System.Runtime.Remoting.Metadata;
38 using System.Runtime.Remoting.Messaging;
39
40 namespace System.Runtime.Remoting
41 {
42         public class InternalRemotingServices 
43         {
44                 static Hashtable _soapAttributes;
45                 
46                 public InternalRemotingServices ()
47                 {
48                 }
49                 
50                 [Conditional("_LOGGING")]
51                 public static void DebugOutChnl (string s)
52                 {
53                         // Mono does not support this internal method
54                         throw new NotSupportedException ();
55                 }
56                 
57                 public static SoapAttribute GetCachedSoapAttribute (object reflectionObject)
58                 {
59                         if (_soapAttributes == null)
60                         {
61                                 lock (typeof(InternalRemotingServices))
62                                 {
63                                         if (_soapAttributes == null)
64                                                 _soapAttributes = new Hashtable ();
65                                 }
66                         }
67                         
68                         lock (_soapAttributes.SyncRoot)
69                         {
70                                 SoapAttribute att = _soapAttributes [reflectionObject] as SoapAttribute;
71                                 if (att != null) return att;
72                                 
73                                 ICustomAttributeProvider ap = (ICustomAttributeProvider) reflectionObject;
74                                 object[] atts = ap.GetCustomAttributes (typeof(SoapAttribute), true);
75                                 if (atts.Length > 0) 
76                                         att = (SoapAttribute) atts[0];
77                                 else
78                                 {
79                                         if (reflectionObject is Type)
80                                                 att = new SoapTypeAttribute ();
81                                         else if (reflectionObject is FieldInfo)
82                                                 att = new SoapFieldAttribute ();
83                                         else if (reflectionObject is MethodBase)
84                                                 att = new SoapMethodAttribute ();
85                                         else if (reflectionObject is ParameterInfo)
86                                                 att = new SoapParameterAttribute ();
87                                 }
88                                 
89                                 att.SetReflectionObject (reflectionObject);
90                                 _soapAttributes [reflectionObject] = att;
91                                 return att;
92                         }
93                 }
94                 
95                 [Conditional("_DEBUG")]
96                 public static void RemotingAssert (bool condition, string message)
97                 {
98                         // Mono does not support this internal method
99                         throw new NotSupportedException ();
100                 }
101                 
102                 [Conditional("_LOGGING")]
103                 public static void RemotingTrace (params object[] messages)
104                 {
105                         // Mono does not support this internal method
106                         throw new NotSupportedException ();
107                 }
108                 
109                 [CLSCompliant (false)]
110                 public static void SetServerIdentity (MethodCall m, object srvID)
111                 {
112                         Identity ident = srvID as Identity;
113                         if (ident == null) throw new ArgumentException ("srvID");
114                         
115                         RemotingServices.SetMessageTargetIdentity (m, ident);
116                 }
117         }
118 }