// System.Runtime.Remoting.SoapServices.cs
//
// Author: Jaime Anguiano Olarra (jaime@gnome.org)
-// Lluis Sanchez Gual (lsg@ctv.es)
+// Lluis Sanchez Gual (lluis@ximian.com)
//
// (c) 2002, Jaime Anguiano Olarra
//
+//
+// Copyright (C) 2004 Novell, Inc (http://www.novell.com)
+//
+// Permission is hereby granted, free of charge, to any person obtaining
+// a copy of this software and associated documentation files (the
+// "Software"), to deal in the Software without restriction, including
+// without limitation the rights to use, copy, modify, merge, publish,
+// distribute, sublicense, and/or sell copies of the Software, and to
+// permit persons to whom the Software is furnished to do so, subject to
+// the following conditions:
+//
+// The above copyright notice and this permission notice shall be
+// included in all copies or substantial portions of the Software.
+//
+// THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+// EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+// MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+// NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+// LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+// OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+// WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+//
+
using System;
+using System.Collections;
using System.Runtime.Remoting;
+using System.Runtime.Remoting.Metadata;
using System.Reflection;
using System.Runtime.InteropServices;
namespace System.Runtime.Remoting {
- [Serializable]
- [ClassInterface (ClassInterfaceType.AutoDual)]
+ [System.Runtime.InteropServices.ComVisible (true)]
public class SoapServices
{
+ static Hashtable _xmlTypes = new Hashtable ();
+ static Hashtable _xmlElements = new Hashtable ();
+ static Hashtable _soapActions = new Hashtable ();
+ static Hashtable _soapActionsMethods = new Hashtable ();
+ static Hashtable _typeInfos = new Hashtable ();
+
+ class TypeInfo
+ {
+ public Hashtable Attributes;
+ public Hashtable Elements;
+ }
+
+ // Private constructor: nobody instantiates this class
+ private SoapServices () {}
+
// properties
public static string XmlNsForClrType
// If assemblyName is empty, then use the corlib namespace
if (assemblyName == string.Empty)
- return XmlNsForClrTypeWithNs + typeNamespace + "/" + assemblyName;
+ return XmlNsForClrTypeWithNs + typeNamespace;
+ else if (typeNamespace == string.Empty)
+ return EncodeNs (XmlNsForClrTypeWithAssembly + assemblyName);
else
- return XmlNsForClrTypeWithNsAndAssembly + typeNamespace + "/" + assemblyName;
+ return EncodeNs (XmlNsForClrTypeWithNsAndAssembly + typeNamespace + "/" + assemblyName);
}
public static bool DecodeXmlNamespaceForClrTypeNamespace (string inNamespace,
if (inNamespace == null) throw new ArgumentNullException ("inNamespace");
+ inNamespace = DecodeNs (inNamespace);
typeNamespace = null;
assemblyName = null;
typeNamespace = inNamespace.Substring (typePos);
return true;
}
+ else if (inNamespace.StartsWith(XmlNsForClrTypeWithAssembly))
+ {
+ int typePos = XmlNsForClrTypeWithAssembly.Length;
+ assemblyName = inNamespace.Substring (typePos);
+ return true;
+ }
else
return false;
}
- [MonoTODO]
public static void GetInteropFieldTypeAndNameFromXmlAttribute (Type containingType,
- string xmlAttribute,
- string xmlNamespace,
- out Type type,
- out string name) {
- throw new NotImplementedException ();
-
+ string xmlAttribute, string xmlNamespace,
+ out Type type, out string name)
+ {
+ TypeInfo tf = (TypeInfo) _typeInfos [containingType];
+ Hashtable ht = tf != null ? tf.Attributes : null;
+ GetInteropFieldInfo (ht, xmlAttribute, xmlNamespace, out type, out name);
}
- [MonoTODO]
public static void GetInteropFieldTypeAndNameFromXmlElement (Type containingType,
- string xmlElement,
- string xmlNamespace,
- out Type type,
- out string name) {
- throw new NotImplementedException ();
+ string xmlElement, string xmlNamespace,
+ out Type type, out string name)
+ {
+ TypeInfo tf = (TypeInfo) _typeInfos [containingType];
+ Hashtable ht = tf != null ? tf.Elements : null;
+ GetInteropFieldInfo (ht, xmlElement, xmlNamespace, out type, out name);
}
- [MonoTODO]
- public static Type GetInteropTypeFromXmlElement (string xmlElement, string xmlNamespace) {
- throw new NotImplementedException ();
+ static void GetInteropFieldInfo (Hashtable fields,
+ string xmlName, string xmlNamespace,
+ out Type type, out string name)
+ {
+ if (fields != null)
+ {
+ FieldInfo field = (FieldInfo) fields [GetNameKey (xmlName, xmlNamespace)];
+ if (field != null)
+ {
+ type = field.FieldType;
+ name = field.Name;
+ return;
+ }
+ }
+ type = null;
+ name = null;
+ }
+
+ static string GetNameKey (string name, string namspace)
+ {
+ if (namspace == null) return name;
+ else return name + " " + namspace;
+ }
+
+ public static Type GetInteropTypeFromXmlElement (string xmlElement, string xmlNamespace)
+ {
+ lock (_xmlElements.SyncRoot)
+ {
+ return (Type) _xmlElements [xmlElement + " " + xmlNamespace];
+ }
}
- [MonoTODO]
- public static Type GetInteropTypeFromXmlType (string xmlType, string xmlTypeNamespace) {
- throw new NotImplementedException ();
+ public static Type GetInteropTypeFromXmlType (string xmlType, string xmlTypeNamespace)
+ {
+ lock (_xmlTypes.SyncRoot)
+ {
+ return (Type) _xmlTypes [xmlType + " " + xmlTypeNamespace];
+ }
}
private static string GetAssemblyName(MethodBase mb)
public static string GetSoapActionFromMethodBase (MethodBase mb)
{
- string ns = CodeXmlNamespaceForClrTypeNamespace (mb.DeclaringType.Name, GetAssemblyName(mb));
- return ns + "#" + mb.Name;
- }
-
- [MonoTODO]
- public new Type GetType () {
- throw new NotImplementedException ();
+ return InternalGetSoapAction (mb);
}
public static bool GetTypeAndMethodNameFromSoapAction (string soapAction,
out string typeName,
- out string methodName) {
+ out string methodName)
+ {
+ lock (_soapActions.SyncRoot)
+ {
+ MethodBase mb = (MethodBase) _soapActionsMethods [soapAction];
+ if (mb != null)
+ {
+ typeName = mb.DeclaringType.AssemblyQualifiedName;
+ methodName = mb.Name;
+ return true;
+ }
+ }
+
string type;
string assembly;
return true;
}
- [MonoTODO]
- public static bool GetXmlElementForInteropType (Type type,
- out string xmlElement,
- out string xmlNamespace) {
- throw new NotImplementedException ();
-
+ public static bool GetXmlElementForInteropType (Type type, out string xmlElement, out string xmlNamespace)
+ {
+ SoapTypeAttribute att = (SoapTypeAttribute) InternalRemotingServices.GetCachedSoapAttribute (type);
+ if (!att.IsInteropXmlElement)
+ {
+ xmlElement = null;
+ xmlNamespace = null;
+ return false;
+ }
+
+ xmlElement = att.XmlElementName;
+ xmlNamespace = att.XmlNamespace;
+ return true;
}
public static string GetXmlNamespaceForMethodCall (MethodBase mb)
{
- return CodeXmlNamespaceForClrTypeNamespace (mb.DeclaringType.Name, GetAssemblyName(mb));
+ return CodeXmlNamespaceForClrTypeNamespace (mb.DeclaringType.FullName, GetAssemblyName(mb));
}
public static string GetXmlNamespaceForMethodResponse (MethodBase mb)
{
- return CodeXmlNamespaceForClrTypeNamespace (mb.DeclaringType.Name, GetAssemblyName(mb));
+ return CodeXmlNamespaceForClrTypeNamespace (mb.DeclaringType.FullName, GetAssemblyName(mb));
}
- [MonoTODO]
- public static bool GetXmlTypeForInteropType (Type type,
- out string xmlType,
- out string xmlTypeNamespace) {
- throw new NotImplementedException ();
-
+ public static bool GetXmlTypeForInteropType (Type type, out string xmlType, out string xmlTypeNamespace)
+ {
+ SoapTypeAttribute att = (SoapTypeAttribute) InternalRemotingServices.GetCachedSoapAttribute (type);
+
+ if (!att.IsInteropXmlType)
+ {
+ xmlType = null;
+ xmlTypeNamespace = null;
+ return false;
+ }
+
+ xmlType = att.XmlTypeName;
+ xmlTypeNamespace = att.XmlTypeNamespace;
+ return true;
}
public static bool IsClrTypeNamespace (string namespaceString)
if (methodName != mb.Name) return false;
- string methodClassType = mb.DeclaringType.FullName + ", " + mb.DeclaringType.Assembly.GetName().Name;
+ string methodClassType = mb.DeclaringType.AssemblyQualifiedName;
return typeName == methodClassType;
}
- [MonoTODO]
- public static void PreLoad (Assembly assembly) {
- throw new NotImplementedException ();
-
+ public static void PreLoad (Assembly assembly)
+ {
+ foreach (Type t in assembly.GetTypes ())
+ PreLoad (t);
}
- [MonoTODO]
- public static void PreLoad (Type type) {
- throw new NotImplementedException ();
-
+ public static void PreLoad (Type type)
+ {
+ string name, namspace;
+ TypeInfo tf = _typeInfos [type] as TypeInfo;
+ if (tf != null) return;
+
+ if (GetXmlTypeForInteropType (type, out name, out namspace))
+ RegisterInteropXmlType (name, namspace, type);
+
+ if (GetXmlElementForInteropType (type, out name, out namspace))
+ RegisterInteropXmlElement (name, namspace, type);
+
+ lock (_typeInfos.SyncRoot)
+ {
+ tf = new TypeInfo ();
+ FieldInfo[] fields = type.GetFields (BindingFlags.Instance | BindingFlags.Public | BindingFlags.NonPublic);
+
+ foreach (FieldInfo field in fields)
+ {
+ SoapFieldAttribute att = (SoapFieldAttribute) InternalRemotingServices.GetCachedSoapAttribute (field);
+ if (!att.IsInteropXmlElement ()) continue;
+
+ string key = GetNameKey (att.XmlElementName, att.XmlNamespace);
+ if (att.UseAttribute)
+ {
+ if (tf.Attributes == null) tf.Attributes = new Hashtable ();
+ tf.Attributes [key] = field;
+ }
+ else
+ {
+ if (tf.Elements == null) tf.Elements = new Hashtable ();
+ tf.Elements [key] = field;
+ }
+ }
+ _typeInfos [type] = tf;
+ }
}
- [MonoTODO]
- public static void RegisterInteropXmlElement (string xmlElement,
- string xmlNamespace,
- Type type) {
- throw new NotImplementedException ();
-
+ public static void RegisterInteropXmlElement (string xmlElement, string xmlNamespace, Type type)
+ {
+ lock (_xmlElements.SyncRoot)
+ {
+ _xmlElements [xmlElement + " " + xmlNamespace] = type;
+ }
}
- [MonoTODO]
- public static void RegisterInteropXmlType (string xmlType,
- string xmlTypeNamespace,
- Type type) {
- throw new NotImplementedException ();
-
+ public static void RegisterInteropXmlType (string xmlType, string xmlTypeNamespace, Type type)
+ {
+ lock (_xmlTypes.SyncRoot)
+ {
+ _xmlTypes [xmlType + " " + xmlTypeNamespace] = type;
+ }
}
- [MonoTODO]
- public static void RegisterSoapActionForMethodBase (MethodBase mb) {
- throw new NotImplementedException ();
-
+ public static void RegisterSoapActionForMethodBase (MethodBase mb)
+ {
+ InternalGetSoapAction (mb);
+ }
+
+ static string InternalGetSoapAction (MethodBase mb)
+ {
+ lock (_soapActions.SyncRoot)
+ {
+ string action = (string) _soapActions [mb];
+ if (action == null)
+ {
+ SoapMethodAttribute att = (SoapMethodAttribute) InternalRemotingServices.GetCachedSoapAttribute (mb);
+ action = att.SoapAction;
+ _soapActions [mb] = action;
+ _soapActionsMethods [action] = mb;
+ }
+ return action;
+ }
}
- [MonoTODO]
- public static void RegisterSoapActionForMethodBase (MethodBase mb, string soapAction) {
- throw new NotImplementedException ();
+ public static void RegisterSoapActionForMethodBase (MethodBase mb, string soapAction)
+ {
+ lock (_soapActions.SyncRoot)
+ {
+ _soapActions [mb] = soapAction;
+ _soapActionsMethods [soapAction] = mb;
+ }
+ }
+
+ static string EncodeNs (string ns)
+ {
+ // Simple url encoding for namespaces
+
+ ns = ns.Replace (",","%2C");
+ ns = ns.Replace (" ","%20");
+ return ns.Replace ("=","%3D");
+ }
+
+ static string DecodeNs (string ns)
+ {
+ ns = ns.Replace ("%2C",",");
+ ns = ns.Replace ("%20"," ");
+ return ns.Replace ("%3D","=");
}
}
}