Add unit test for AggregateException.GetBaseException that works on .net but is broke...
[mono.git] / mcs / class / System.Runtime.Serialization / System.Runtime.Serialization / XmlFormatterDeserializer.cs
1 //
2 // XmlFormatterDeserializer.cs
3 //
4 // Author:
5 //      Atsushi Enomoto <atsushi@ximian.com>
6 //
7 // Copyright (C) 2005 Novell, Inc.  http://www.novell.com
8 //
9 // Permission is hereby granted, free of charge, to any person obtaining
10 // a copy of this software and associated documentation files (the
11 // "Software"), to deal in the Software without restriction, including
12 // without limitation the rights to use, copy, modify, merge, publish,
13 // distribute, sublicense, and/or sell copies of the Software, and to
14 // permit persons to whom the Software is furnished to do so, subject to
15 // the following conditions:
16 // 
17 // The above copyright notice and this permission notice shall be
18 // included in all copies or substantial portions of the Software.
19 // 
20 // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
21 // EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
22 // MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
23 // NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
24 // LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
25 // OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
26 // WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
27 //
28 #if NET_2_0
29 using System;
30 using System.Collections.Generic;
31 using System.IO;
32 using System.Linq;
33 using System.Reflection;
34 using System.Runtime.Serialization.Formatters.Binary;
35 using System.Xml;
36 using System.Xml.Schema;
37
38 using QName = System.Xml.XmlQualifiedName;
39
40 namespace System.Runtime.Serialization
41 {
42         internal class XmlFormatterDeserializer
43         {
44                 KnownTypeCollection types;
45                 IDataContractSurrogate surrogate;
46                 DataContractResolver resolver, default_resolver; // new in 4.0.
47                 // 3.5 SP1 supports deserialization by reference (id->obj).
48                 // Though unlike XmlSerializer, it does not support forward-
49                 // reference resolution i.e. a referenced object must appear
50                 // before any references to it.
51                 Dictionary<string,object> references = new Dictionary<string,object> ();
52                 Dictionary<QName,Type> resolved_qnames = new Dictionary<QName,Type> ();
53
54                 public static object Deserialize (XmlReader reader, Type declaredType,
55                         KnownTypeCollection knownTypes, IDataContractSurrogate surrogate, DataContractResolver resolver, DataContractResolver defaultResolver,
56                         string name, string ns, bool verifyObjectName)
57                 {
58                         reader.MoveToContent ();
59                         if (verifyObjectName)
60                                 if (reader.NodeType != XmlNodeType.Element ||
61                                     reader.LocalName != name ||
62                                     reader.NamespaceURI != ns)
63                                         throw new SerializationException (String.Format ("Expected element '{0}' in namespace '{1}', but found {2} node '{3}' in namespace '{4}'", name, ns, reader.NodeType, reader.LocalName, reader.NamespaceURI));
64 //                              Verify (knownTypes, declaredType, name, ns, reader);
65                         return new XmlFormatterDeserializer (knownTypes, surrogate, resolver, defaultResolver).Deserialize (declaredType, reader);
66                 }
67
68                 // Verify the top element name and namespace.
69                 private static void Verify (KnownTypeCollection knownTypes, Type type, string name, string Namespace, XmlReader reader)
70                 {
71                         QName graph_qname = new QName (reader.LocalName, reader.NamespaceURI);
72                         if (graph_qname.Name == name && graph_qname.Namespace == Namespace)
73                                 return;
74
75                         // <BClass .. i:type="EClass" >..</BClass>
76                         // Expecting type EClass : allowed
77                         // See test Serialize1b, and Serialize1c (for
78                         // negative cases)
79
80                         // Run through inheritance heirarchy .. 
81                         for (Type baseType = type; baseType != null; baseType = baseType.BaseType)
82                                 if (knownTypes.GetQName (baseType) == graph_qname)
83                                         return;
84
85                         QName typeQName = knownTypes.GetQName (type);
86                         throw new SerializationException (String.Format (
87                                 "Expecting element '{0}' from namespace '{1}'. Encountered 'Element' with name '{2}', namespace '{3}'",
88                                 typeQName.Name, typeQName.Namespace, graph_qname.Name, graph_qname.Namespace));
89                 }
90
91                 private XmlFormatterDeserializer (
92                         KnownTypeCollection knownTypes,
93                         IDataContractSurrogate surrogate,
94                         DataContractResolver resolver,
95                         DataContractResolver defaultResolver)
96                 {
97                         this.types = knownTypes;
98                         this.surrogate = surrogate;
99                         this.resolver = resolver;
100                         this.default_resolver = defaultResolver;
101                 }
102
103                 public Dictionary<string,object> References {
104                         get { return references; }
105                 }
106
107                 XmlDocument document;
108                 
109                 XmlDocument XmlDocument {
110                         get { return (document = document ?? new XmlDocument ()); }
111                 }
112
113                 // This method handles z:Ref, xsi:nil and primitive types, and then delegates to DeserializeByMap() for anything else.
114
115                 public object Deserialize (Type type, XmlReader reader)
116                 {
117                         if (type == typeof (XmlElement))
118                                 return XmlDocument.ReadNode (reader);
119                         else if (type == typeof (XmlNode [])) {
120                                 reader.ReadStartElement ();
121                                 var l = new List<XmlNode> ();
122                                 for(; !reader.EOF && reader.NodeType != XmlNodeType.EndElement; reader.MoveToContent ())
123                                         l.Add (XmlDocument.ReadNode (reader));
124                                 reader.ReadEndElement ();
125                                 return l.ToArray ();
126                         }
127                         QName graph_qname = null;
128                         
129                         if (type.IsGenericType && type.GetGenericTypeDefinition () == typeof (Nullable<>)) {
130                                 Type internal_type = type.GetGenericArguments () [0];
131                                 
132                                 if (types.FindUserMap(internal_type) != null) {
133                                         graph_qname = types.GetQName (internal_type);
134                                 }
135                         }
136                         
137                         if (graph_qname == null)
138                                 graph_qname = types.GetQName (type);
139                                 
140                         string itype = reader.GetAttribute ("type", XmlSchema.InstanceNamespace);
141                         if (itype != null) {
142                                 string [] parts = itype.Split (':');
143                                 if (parts.Length > 1)
144                                         graph_qname = new QName (parts [1], reader.LookupNamespace (reader.NameTable.Get (parts [0])));
145                                 else
146                                         graph_qname = new QName (itype, reader.LookupNamespace (String.Empty));
147                         }
148
149                         string label = reader.GetAttribute ("Ref", KnownTypeCollection.MSSimpleNamespace);
150                         if (label != null) {
151                                 object o;
152                                 if (!references.TryGetValue (label, out o))
153                                         throw new SerializationException (String.Format ("Deserialized object with reference Id '{0}' was not found", label));
154                                 reader.Skip ();
155                                 return o;
156                         }
157
158                         bool isNil = reader.GetAttribute ("nil", XmlSchema.InstanceNamespace) == "true";
159
160                         if (isNil) {
161                                 reader.Skip ();
162                                 if (!type.IsValueType || type == typeof (void))
163                                         return null;
164                                 else if (type.IsGenericType && type.GetGenericTypeDefinition () == typeof (Nullable<>))
165                                         return null;
166                                 else 
167                                         throw new SerializationException (String.Format ("Value type {0} cannot be null.", type));
168                         }
169
170                         if (resolver != null) {
171                                 Type t;
172                                 if (resolved_qnames.TryGetValue (graph_qname, out t))
173                                         type = t;
174                                 else { // i.e. resolve name only once.
175                                         type = resolver.ResolveName (graph_qname.Name, graph_qname.Namespace, type, default_resolver) ?? type;
176                                         resolved_qnames.Add (graph_qname, type);
177                                         types.Add (type);
178                                 }
179                         }
180
181                         if (KnownTypeCollection.GetPrimitiveTypeFromName (graph_qname) != null) {
182                                 string id = reader.GetAttribute ("Id", KnownTypeCollection.MSSimpleNamespace);
183
184                                 object ret = DeserializePrimitive (type, reader, graph_qname);
185
186                                 if (id != null) {
187                                         if (references.ContainsKey (id))
188                                                 throw new InvalidOperationException (String.Format ("Object with Id '{0}' already exists as '{1}'", id, references [id]));
189                                         references.Add (id, ret);
190                                 }
191                                 return ret;
192                         }
193
194                         return DeserializeByMap (graph_qname, type, reader);
195                 }
196
197                 object DeserializePrimitive (Type type, XmlReader reader, QName qname)
198                 {
199                         bool isDateTimeOffset = false;
200                         // Handle DateTimeOffset type and DateTimeOffset?.
201                         if (type == typeof (DateTimeOffset))
202                                 isDateTimeOffset = true;
203                         else if(type.IsGenericType && type.GetGenericTypeDefinition () == typeof (Nullable<>)) 
204                                 isDateTimeOffset = type.GetGenericArguments () [0] == typeof (DateTimeOffset);  
205                         // It is the only exceptional type that does not serialize to string but serializes into complex element.
206                         if (isDateTimeOffset) {
207                                 if (reader.IsEmptyElement) {
208                                         reader.Read ();
209                                         return default (DateTimeOffset);
210                                 }
211                                 reader.ReadStartElement ();
212                                 reader.MoveToContent ();
213                                 var date = reader.ReadElementContentAsDateTime ("DateTime", KnownTypeCollection.DefaultClrNamespaceSystem);
214                                 var off = TimeSpan.FromMinutes (reader.ReadElementContentAsInt ("OffsetMinutes", KnownTypeCollection.DefaultClrNamespaceSystem));
215                                 reader.MoveToContent ();
216                                 reader.ReadEndElement ();
217                                 return new DateTimeOffset (DateTime.SpecifyKind (date.ToUniversalTime () + off, DateTimeKind.Unspecified), off);
218                         }
219
220                         string value;
221                         if (reader.IsEmptyElement) {
222                                 reader.Read (); // advance
223                                 if (type.IsValueType)
224                                         return Activator.CreateInstance (type);
225                                 else
226                                         // FIXME: Workaround for creating empty objects of the correct type.
227                                         value = String.Empty;
228                         }
229                         else
230                                 value = reader.ReadElementContentAsString ();
231                         return KnownTypeCollection.PredefinedTypeStringToObject (value, qname.Name, reader);
232                 }
233
234                 object DeserializeByMap (QName name, Type type, XmlReader reader)
235                 {
236                         SerializationMap map = null;
237                         // List<T> and T[] have the same QName, use type to find map work better.
238                         if(name.Name.StartsWith ("ArrayOf", StringComparison.Ordinal) || resolved_qnames.ContainsKey (name))
239                                 map = types.FindUserMap (type);
240                         else
241                                 map = types.FindUserMap (name); // use type when the name is "resolved" one. Otherwise use name (there are cases that type cannot be resolved by type).
242                         if (map == null && (name.Name.StartsWith ("ArrayOf", StringComparison.Ordinal) ||
243                             name.Namespace == KnownTypeCollection.MSArraysNamespace ||
244                             name.Namespace.StartsWith (KnownTypeCollection.DefaultClrNamespaceBase, StringComparison.Ordinal))) {
245                                 var it = GetTypeFromNamePair (name.Name, name.Namespace);
246                                 types.Add (it);
247                                 map = types.FindUserMap (name);
248                         }
249                         if (map == null)
250                                 throw new SerializationException (String.Format ("Unknown type {0} is used for DataContract with reference of name {1}. Any derived types of a data contract or a data member should be added to KnownTypes.", type, name));
251
252                         return map.DeserializeObject (reader, this);
253                 }
254
255                 Type GetTypeFromNamePair (string name, string ns)
256                 {
257                         Type p = KnownTypeCollection.GetPrimitiveTypeFromName (new QName (name, ns));
258                         if (p != null)
259                                 return p;
260                         bool makeArray = false;
261                         if (name.StartsWith ("ArrayOf", StringComparison.Ordinal)) {
262                                 name = name.Substring (7); // strip "ArrayOf"
263                                 if (ns == KnownTypeCollection.MSArraysNamespace)
264                                         return GetTypeFromNamePair (name, String.Empty).MakeArrayType ();
265                                 makeArray = true;
266                         }
267
268                         string dnsb = KnownTypeCollection.DefaultClrNamespaceBase;
269                         string clrns = ns.StartsWith (dnsb, StringComparison.Ordinal) ?  ns.Substring (dnsb.Length) : ns;
270
271                         foreach (var ass in AppDomain.CurrentDomain.GetAssemblies ()) {
272                                 Type [] types;
273
274                                 types = ass.GetTypes ();
275                                 if (types == null)
276                                         continue;
277
278                                 foreach (var t in types) {
279                                         // there can be null entries or exception throw to access the attribute - 
280                                         // at least when some referenced assemblies could not be loaded (affects moonlight)
281                                         if (t == null)
282                                                 continue;
283
284                                         try {
285                                                 var dca = t.GetCustomAttribute<DataContractAttribute> (true);
286                                                 if (dca != null && dca.Name == name && dca.Namespace == ns)
287                                                         return makeArray ? t.MakeArrayType () : t;
288                                         }
289                                         catch (TypeLoadException tle) {
290                                                 Console.Error.WriteLine (tle);
291                                                 continue;
292                                         }
293                                         catch (FileNotFoundException fnfe) {
294                                                 Console.Error.WriteLine (fnfe);
295                                                 continue;
296                                         }
297
298                                         if (clrns != null && t.Name == name && t.Namespace == clrns)
299                                                 return makeArray ? t.MakeArrayType () : t;
300                                 }
301                         }
302                         throw new XmlException (String.Format ("Type not found; name: {0}, namespace: {1}", name, ns));
303                 }
304         }
305 }
306 #endif