2004-10-29 Atsushi Enomoto <atsushi@ximian.com>

	* XmlSchemaSimpleTypeList.cs : Added 2.0 BaseItemType property (BTW
	  this property name is really ambiguous and should be changed.)

svn path=/trunk/mcs/; revision=35432

mcs/class/System.XML/System.Xml.Schema/ChangeLog

@@ -1,3 +1,8 @@
+2004-10-29  Atsushi Enomoto <atsushi@ximian.com>
+
+	* XmlSchemaSimpleTypeList.cs : Added 2.0 BaseItemType property (BTW
+	  this property name is really ambiguous and should be changed.)
+
 2004-10-28  Atsushi Enomoto <atsushi@ximian.com>
 
 	* XmlSchemaAttributeGroup.cs, XmlSchemaGroup.cs :

mcs/class/System.XML/System.Xml.Schema/XmlSchemaSimpleTypeList.cs

@@ -37,6 +37,7 @@ public class XmlSchemaSimpleTypeList : XmlSchemaSimpleTypeContent
 		private XmlQualifiedName itemTypeName;
 		const string xmlname = "list";
 		private object validatedListItemType;
+		private XmlSchemaSimpleType validatedListItemSchemaType;
 
 		public XmlSchemaSimpleTypeList()
 		{
@@ -62,6 +63,15 @@ public XmlSchemaSimpleType ItemType
 				itemType = value;
 			}
 		}
+
+#if NET_2_0
+		// LAMESPEC: this name is really ambiguous. Actually it just
+		// holds compiled itemType.
+		public XmlSchemaSimpleType BaseItemType {
+			get { return validatedListItemSchemaType; }
+		}
+#endif
+
 		internal object ValidatedListItemType
 		{
 			get { return validatedListItemType; }
@@ -119,6 +129,13 @@ internal override int Validate(ValidationEventHandler h, XmlSchema schema)
 			else if (!schema.IsNamespaceAbsent (itemTypeName.Namespace))
 				error (h, "Referenced base list item schema type " + itemTypeName + " was not found.");
 
+#if NET_2_0
+			XmlSchemaSimpleType st = validatedListItemType as XmlSchemaSimpleType;
+			if (st == null && validatedListItemType != null)
+				st = XmlSchemaType.GetBuiltInSimpleType (((XmlSchemaDatatype) validatedListItemType).TypeCode);
+			validatedListItemSchemaType = st;
+#endif
+
 			ValidationId = schema.ValidationId;
 			return errorCount;
 		}