* Project/AspNetAppProject.cs, Project/VerifyCodeBehindBuildStep.cs,

  Parser/MemberListVisitor.cs, Parser/LocatedParserException.cs,
  Parser/Internal/ParseException.cs: Rework error handling to include
  location info for document parse errors.
* Project/WebTypeManager.cs, Parser/WebFormReferenceManager.cs,
  Parser/DocumentReferenceManager.cs: Rework type lookups for
  registered controls. Now handles custom controls and user controls,
  whether registered in aspx file or web.config.
* AspNetAddIn.mdp, Makefile.am: Updated.
* Parser/Document.cs: Collect parse errors instead of dying in
  constructor.

svn path=/trunk/monodevelop/; revision=87619

3 files changed, 283 insertions, 42 deletions

diff --git a/Extras/AspNetAddIn/Project/AspNetAppProject.cs b/Extras/AspNetAddIn/Project/AspNetAppProject.cs
index 2596a2ca76..035099f2ee 100644
--- a/Extras/AspNetAddIn/Project/AspNetAppProject.cs
+++ b/Extras/AspNetAddIn/Project/AspNetAppProject.cs
@@ -70,6 +70,8 @@ namespace AspNetAddIn
 		//used true while the project is being loaded
 		bool loading = false;
 		
+		AspNetAddIn.WebTypeManager webTypeManager;
+		
 		#region properties
 		
 		public override string ProjectType {
@@ -95,6 +97,10 @@ namespace AspNetAddIn
 			get { return webDeployTargets; }
 		}
 		
+		public AspNetAddIn.WebTypeManager WebTypeManager {
+			get { return webTypeManager; }
+		}
+		
 		#endregion
 		
 		#region constructors
@@ -124,6 +130,8 @@ namespace AspNetAddIn
 				AspNetAppProjectConfiguration conf = (AspNetAppProjectConfiguration) args.Configuration;
 				conf.SourceDirectory = BaseDirectory;
 			};
+			
+			webTypeManager = new WebTypeManager (this);
 		}
 		
 		public override void Deserialize (ITypeSerializer handler, DataCollection data)
diff --git a/Extras/AspNetAddIn/Project/VerifyCodeBehindBuildStep.cs b/Extras/AspNetAddIn/Project/VerifyCodeBehindBuildStep.cs
index 7c4a4f6d06..0e9be8e644 100644
--- a/Extras/AspNetAddIn/Project/VerifyCodeBehindBuildStep.cs
+++ b/Extras/AspNetAddIn/Project/VerifyCodeBehindBuildStep.cs
@@ -69,54 +69,48 @@ namespace AspNetAddIn
 						partToAddTo = cls;
 				}
 				
-				Document doc = null; 
-				try {
-					doc = aspProject.GetDocument (file);
-				} catch (Exception e) {
-					CodeBehindWarning cbw = new CodeBehindWarning (
-						GettextCatalog.GetString ("Parser failed with error {1}. CodeBehind members for this file will not be added.", e.ToString ()),
-					    file.FilePath
-					);
-					monitor.Log.WriteLine (cbw.ToString ());
-					errors.Add (cbw);
-				}
+				//parse the ASP document 
+				Document doc = aspProject.GetDocument (file);
 				
-				try {
-					if (doc != null) {
-						foreach (System.CodeDom.CodeMemberField member in doc.MemberList.List.Values) {
+				if (!doc.IsValid) {
+					//handle parse errors
+					foreach (Exception e in doc.ParseErrors) {
+						CodeBehindWarning cbw;
+						ErrorInFileException eife = e as ErrorInFileException;
+						if (eife != null)
+							cbw = new CodeBehindWarning (eife);
+						else
+							cbw = new CodeBehindWarning (
+								GettextCatalog.GetString ("Parser failed with error {1}. CodeBehind members for this file will not be added.", e.ToString ()),
+					  		  file.FilePath
+							);
+						monitor.Log.WriteLine (cbw.ToString ());
+						errors.Add (cbw);
+					}
+				} else {
+					//collect the members to be added
+					try {
+						foreach (System.CodeDom.CodeMemberField member in doc.MemberList.Members.Values) {
 							try {
 								MonoDevelop.Projects.Parser.IMember existingMember = BindingService.GetCompatibleMemberInClass (cls, member);
 								if (existingMember == null) {
 									classesForMembers.Add (partToAddTo);
 									membersToAdd.Add (member);
 								}
-							} catch (MemberExistsException ex) {
-								CodeBehindWarning cbw = new CodeBehindWarning (
-									ex.ToString (),
-									ex.FileName,
-									ex.Line,
-									ex.Column
-								);
+							} catch (ErrorInFileException ex) {
+								CodeBehindWarning cbw = new CodeBehindWarning (ex);
 								monitor.Log.WriteLine (cbw.ToString ());
 								errors.Add (cbw);
 							}
 						}
+					} catch (Exception e) {
+						CodeBehindWarning cbw = new CodeBehindWarning (
+							GettextCatalog.GetString ("CodeBehind member generation failed with error {0}. Further CodeBehind members for this file will not be added.", e.ToString ()),
+						    file.FilePath
+						);
+						monitor.Log.WriteLine (cbw.ToString ());
+						errors.Add (cbw);
 					}
-				} catch (ErrorInFileException e) {
-					CodeBehindWarning cbw = null;
-					if (e.FileName == null)
-						cbw = new CodeBehindWarning (e.ToString (), file.FilePath);
-					else
-						cbw = new CodeBehindWarning (e.ToString (), e.FileName, e.Line, e.Column);
-					monitor.Log.WriteLine (cbw.ToString ());
-					errors.Add (cbw);
-				} catch (Exception e) {
-					CodeBehindWarning cbw = new CodeBehindWarning (
-						GettextCatalog.GetString ("CodeBehind member generation failed with error {0}. Further CodeBehind members for this file will not be added.", e.ToString ()),
-					    file.FilePath
-					);
-					monitor.Log.WriteLine (cbw.ToString ());
-					errors.Add (cbw);
 				}
 			}
 			
@@ -127,12 +121,7 @@ namespace AspNetAddIn
 					try {
 						BindingService.GetCodeGenerator ().AddMember (classesForMembers[i], membersToAdd[i]);
 					} catch (MemberExistsException m) {
-						CodeBehindWarning cbw = new CodeBehindWarning (
-							m.ToString (),
-						    m.FileName,
-							m.Line,
-							m.Column
-						);
+						CodeBehindWarning cbw = new CodeBehindWarning (m);
 						monitor.Log.WriteLine (cbw.ToString ());
 						errors.Add (cbw);
 					}
@@ -191,6 +180,11 @@ namespace AspNetAddIn
 				this.col = col;
 			}
 			
+			public CodeBehindWarning (ErrorInFileException ex)
+				: this (ex.ToString (), ex.FileName, ex.Line, ex.Column)
+			{
+			}
+			
 			public string FileName {
 				get { return fileName; }
 			}
diff --git a/Extras/AspNetAddIn/Project/WebTypeManager.cs b/Extras/AspNetAddIn/Project/WebTypeManager.cs
new file mode 100644
index 0000000000..5504947e72
--- /dev/null
+++ b/Extras/AspNetAddIn/Project/WebTypeManager.cs
@@ -0,0 +1,239 @@
+//
+// WebTypeManager.cs: Handles ASP.NET type lookups for web projects.
+//
+// Authors:
+//   Michael Hutchinson <mhutchinson@novell.com>
+//
+// Copyright (C) 2007 Novell, Inc (http://www.novell.com)
+//
+//
+// This source code is licenced under The MIT License:
+//
+// 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.Generic;
+using System.Xml;
+using System.IO;
+using System.Configuration;
+using System.Web.Configuration;
+
+using MonoDevelop.Projects.Text;
+using MonoDevelop.Ide.Gui;
+using MonoDevelop.Projects.Parser;
+
+namespace AspNetAddIn
+{
+	
+	
+	public class WebTypeManager
+	{
+		AspNetAppProject project;
+		
+		internal WebTypeManager (AspNetAppProject project)
+		{
+			this.project = project;
+		}
+		
+		public string GetGloballyRegisteredTypeName (string webDirectory, string tagPrefix, string tagName)
+		{
+			//read the web.config files at each level
+			//look up a level if a result not found until we hit the project root
+			DirectoryInfo dir = new DirectoryInfo (webDirectory);
+			string projectRootParent = new DirectoryInfo (project.BaseDirectory).Parent.FullName;
+			while (dir != null && dir.FullName != projectRootParent) {
+				string configPath =  Path.Combine (dir.FullName, "web.config");
+				if (File.Exists (configPath)) {
+					string fullName = GetFullTypeNameFromConfig (configPath, tagPrefix, tagName);
+					if (fullName != null)
+						return fullName;
+				}
+				dir = dir.Parent;
+			}
+			
+			//check in machine.config
+			Configuration config = ConfigurationManager.OpenMachineConfiguration ();
+			PagesSection pages = (PagesSection) config.GetSection ("system.web/pages");
+			
+			foreach (TagPrefixInfo tpxInfo in pages.Controls) {
+				if (tpxInfo.TagPrefix != tagPrefix)
+					continue;
+				string fullName = AssemblyTypeLookup (tagName, tpxInfo.Namespace, tpxInfo.Assembly);
+				if (fullName != null)
+					return fullName;
+				//user controls don't make sense in machine.config; ignore them
+			}
+			return null;
+		}
+		
+		string GetFullTypeNameFromConfig (string configFile, string tagPrefix, string tagName)
+		{
+			XmlTextReader reader = null;
+			try {
+				//load the document from the text editor if it's open, else from the file
+				IEditableTextFile textFile = MonoDevelop.DesignerSupport.OpenDocumentFileProvider.Instance.GetEditableTextFile (configFile);
+				if (textFile != null)
+					reader = new XmlTextReader (textFile.Text, XmlNodeType.Document, null);
+				else
+					reader = new XmlTextReader (configFile);
+				reader.WhitespaceHandling = WhitespaceHandling.None;
+				
+				reader.MoveToContent();
+				if (reader.Name == "configuration"
+				    && reader.ReadToDescendant ("system.web") && reader.NodeType == XmlNodeType.Element
+				    && reader.ReadToDescendant ("pages") && reader.NodeType == XmlNodeType.Element
+					&& reader.ReadToDescendant ("controls") && reader.NodeType == XmlNodeType.Element
+				    && reader.ReadToDescendant ("add") && reader.NodeType == XmlNodeType.Element) {
+					do {
+						//check the tag prefix matches
+						if (reader.MoveToAttribute ("tagPrefix") && reader.Value == tagPrefix) {
+							//look up tags in assemblies
+							if (reader.MoveToAttribute ("namespace")) {
+								string _namespace = reader.Value;
+								string _assembly = reader.MoveToAttribute ("assembly")? reader.Value : null;
+								string fullName = AssemblyTypeLookup (tagName, _namespace, _assembly);
+								if (fullName != null)
+									return fullName;
+							}
+							
+							//look up tag in user controls
+							if (reader.MoveToAttribute ("tagName") && reader.Value == tagName
+							    && reader.MoveToAttribute ("src") && !string.IsNullOrEmpty (reader.Value)) {
+								string src = reader.Value;
+								string fullName = GetControlTypeName (src, Path.GetDirectoryName (configFile));
+								if (fullName != null) {
+									return fullName;
+								}
+							}
+						}
+					} while (reader.ReadToNextSibling ("add"));
+				}
+			} catch (XmlException) {
+			} finally {
+				if (reader!= null)
+					reader.Close ();
+			}
+			return null;
+		}
+		
+		public string HtmlControlLookup (string tagName)
+		{
+			return HtmlControlLookup (tagName, null);
+		}
+		
+		public string HtmlControlLookup (string tagName, string typeAttribute)
+		{
+			string htmc = "System.Web.UI.HtmlControls.";
+			switch (tagName.ToLower ()) {
+			case "a":
+				return htmc + "HtmlAnchor";
+			case "button":
+				return htmc + "HtmlButton";
+			case "form":
+				return htmc + "HtmlForm";
+			case "head":
+				return htmc + "HtmlHead";
+			case "img":
+				return htmc + "HtmlImage";
+			case "input":
+				string val = lookupHtmlInput (typeAttribute);
+				return val != null? htmc + val : null;
+			case "link":
+				return htmc + "HtmlLink";
+			case "meta":
+				return htmc + "HtmlMeta";
+			case "select":
+				return htmc + "HtmlSelect";
+			case "table":
+				return htmc + "HtmlTable";
+			case "th":
+			case "td":
+				return htmc + "HtmlTableCell";
+			case "tr":
+				return htmc + "HtmlTableRow";
+			case "textarea":
+				return htmc + "HtmlTextArea";
+			case "title":
+				return htmc + "HtmlTitle";
+			default:
+				return htmc + "HtmlGenericControl";
+			}
+			return null;
+		}
+		
+		string lookupHtmlInput (string type)
+		{
+			switch (type != null? type.ToLower () : null)
+			{
+			case "button":
+			case "reset":
+			case "submit":
+				return "HtmlInputButton";
+			case "checkbox":
+				return "HtmlInputCheckBox";
+			case "file":
+				return "HtmlInputFile";
+			case "hidden":
+				return "HtmlInputHidden";
+			case "image":
+				return "HtmlInputImage";
+			case "password":
+				return "HtmlInputText";
+			case "radio":
+				return "HtmlInputRadioButton";
+			case "text":
+				return "HtmlInputText";
+			default:
+				return "HtmlInputControl";
+			}
+		}
+		
+		public string SystemWebControlLookup (string tagName)
+		{
+			System.Reflection.Assembly assem = typeof(System.Web.UI.WebControls.WebControl).Assembly;
+			System.Type type = assem.GetType ("System.Web.UI.WebControls." + tagName, false, true);
+			return (type != null)? type.FullName : null;
+		}
+		
+		public string AssemblyTypeLookup (string tagName, string namespac, string assem)
+		{
+			IClass cls = null;
+			IParserContext ctx = null;
+			if (!string.IsNullOrEmpty (namespac)) {
+				if (!string.IsNullOrEmpty (assem))
+					ctx = IdeApp.ProjectOperations.ParserDatabase.GetAssemblyParserContext (assem);
+				else
+					ctx = IdeApp.ProjectOperations.ParserDatabase.GetProjectParserContext (project);
+				ctx.UpdateDatabase ();
+				cls = ctx.GetClass (namespac + "." + tagName, true, false);
+			}
+			return cls != null? cls.FullyQualifiedName : null;
+		}
+		
+		public string GetControlTypeName (string fileName, string relativeToPath)
+		{
+			//FIXME: actually look up the type
+			//or maybe it's not necessary, as the compilers can't handle the types because
+			//they're only generated when the UserControl is hit.
+			return "System.Web.UI.UserControl";
+		}
+	}
+}