fixed http://community.sharpdevelop.net/forums/t/12252.aspx

src/AddIns/BackendBindings/VBNetBinding/Project/Src/Parser/Parser.cs

@@ -2,7 +2,10 @@
 // This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
 
 using System;
+using System.Collections.Generic;
 using System.IO;
+using System.Linq;
+
 using ICSharpCode.SharpDevelop;
 using ICSharpCode.SharpDevelop.Dom;
 using ICSharpCode.SharpDevelop.Dom.NRefactoryResolver;
@@ -17,18 +20,12 @@ namespace ICSharpCode.VBNetBinding
 		string[] lexerTags;
 		
 		public string[] LexerTags {
-			get {
+			get { return lexerTags; }
-				return lexerTags;
+			set { lexerTags = value; }
-			}
-			set {
-				lexerTags = value;
-			}
 		}
 		
 		public LanguageProperties Language {
-			get {
+			get { return LanguageProperties.VBNet; }
-				return LanguageProperties.VBNet;
-			}
 		}
 		
 		public IExpressionFinder CreateExpressionFinder(string fileName)
@@ -48,42 +45,36 @@ namespace ICSharpCode.VBNetBinding
 		
 		static void RetrieveRegions(ICompilationUnit cu, ICSharpCode.NRefactory.Parser.SpecialTracker tracker)
 		{
-			for (int i = 0; i < tracker.CurrentSpecials.Count; ++i)
+			Stack<ICSharpCode.NRefactory.PreprocessingDirective> regionStartDirectives = new Stack<ICSharpCode.NRefactory.PreprocessingDirective>();
-			{
+			
-				ICSharpCode.NRefactory.PreprocessingDirective directive = tracker.CurrentSpecials[i] as ICSharpCode.NRefactory.PreprocessingDirective;
+			foreach (ICSharpCode.NRefactory.PreprocessingDirective directive in tracker.CurrentSpecials.OfType<ICSharpCode.NRefactory.PreprocessingDirective>()) {
-				if (directive != null)
+				if (directive.Cmd.Equals("#region", StringComparison.OrdinalIgnoreCase))
-				{
+					regionStartDirectives.Push(directive);
-					if (directive.Cmd.Equals("#region", StringComparison.OrdinalIgnoreCase))
+				if (directive.Cmd.Equals("#end", StringComparison.OrdinalIgnoreCase)
-					{
+				    // using StartsWith allows comments at end of line
-						int deep = 1;
+				    // fixes http://community.sharpdevelop.net/forums/t/12252.aspx
-						for (int j = i + 1; j < tracker.CurrentSpecials.Count; ++j)
+				    && directive.Arg.StartsWith("region", StringComparison.OrdinalIgnoreCase)
-						{
+				    && regionStartDirectives.Any()) {
-							ICSharpCode.NRefactory.PreprocessingDirective nextDirective = tracker.CurrentSpecials[j] as ICSharpCode.NRefactory.PreprocessingDirective;
+					ICSharpCode.NRefactory.PreprocessingDirective start = regionStartDirectives.Pop();
-							if (nextDirective != null)
+					cu.FoldingRegions.Add(new FoldingRegion(TrimComment(start.Arg).Trim('"'), DomRegion.FromLocation(start.StartPosition, directive.EndPosition)));
-							{
-								switch (nextDirective.Cmd.ToUpperInvariant())
-								{
-									case "#REGION":
-										++deep;
-										break;
-									case "#END":
-										if (nextDirective.Arg.Equals("region", StringComparison.OrdinalIgnoreCase)) {
-											--deep;
-											if (deep == 0) {
-												cu.FoldingRegions.Add(new FoldingRegion(directive.Arg.Trim('"'), DomRegion.FromLocation(directive.StartPosition, nextDirective.EndPosition)));
-												goto end;
-											}
-										}
-										break;
-								}
-							}
-						}
-						end: ;
-					}
 				}
 			}
 		}
 		
+		static string TrimComment(string argument)
+		{
+			bool inStr = false;
+			
+			for (int i = 0; i < argument.Length; i++) {
+				if (argument[i] == '"')
+					inStr = !inStr;
+				if (argument[i] == '\'' && !inStr)
+					return argument.Substring(0, i).Trim();
+			}
+			
+			return argument;
+		}
+		
 		public ICompilationUnit Parse(IProjectContent projectContent, string fileName, ICSharpCode.SharpDevelop.ITextBuffer fileContent)
 		{
 			using (ICSharpCode.NRefactory.IParser p = ICSharpCode.NRefactory.ParserFactory.CreateParser(ICSharpCode.NRefactory.SupportedLanguage.VBNet, fileContent.CreateReader())) {