implemented AnonymousObjectCreationExpression

ICSharpCode.NRefactory.VB/Ast/Expressions/AnonymousObjectCreationExpression.cs

@@ -0,0 +1,41 @@
+// Copyright (c) AlphaSierraPapa for the SharpDevelop Team (for details please see \doc\copyright.txt)
+// This code is distributed under the GNU LGPL (for details please see \doc\license.txt)
+
+using System;
+using System.Collections.Generic;
+
+namespace ICSharpCode.NRefactory.VB.Ast
+{
+	public class AnonymousObjectCreationExpression : Expression
+	{
+		public AstNodeCollection<Expression> Initializer {
+			get { return GetChildrenByRole(Roles.Expression); }
+		}
+		
+		public AnonymousObjectCreationExpression ()
+		{
+		}
+		
+		public AnonymousObjectCreationExpression (IEnumerable<Expression> initializer)
+		{
+			foreach (var ini in initializer) {
+				AddChild (ini, Roles.Expression);
+			}
+		}
+		
+		public AnonymousObjectCreationExpression (params Expression[] initializer) : this ((IEnumerable<Expression>)initializer)
+		{
+		}
+		
+		public override S AcceptVisitor<T, S> (IAstVisitor<T, S> visitor, T data)
+		{
+			return visitor.VisitAnonymousObjectCreationExpression(this, data);
+		}
+		
+		protected internal override bool DoMatch(AstNode other, PatternMatching.Match match)
+		{
+			var o = other as AnonymousObjectCreationExpression;
+			return o != null && this.Initializer.DoMatch(o.Initializer, match);
+		}
+	}
+}

ICSharpCode.NRefactory.VB/IAstVisitor.cs

@@ -113,5 +113,7 @@ namespace ICSharpCode.NRefactory.VB {
 		S VisitQueryExpression(QueryExpression queryExpression, T data);
 		
 		S VisitEmptyExpression(EmptyExpression emptyExpression, T data);
+		
+		S VisitAnonymousObjectCreationExpression(AnonymousObjectCreationExpression anonymousObjectCreationExpression, T data);
 	}
 }

ICSharpCode.NRefactory.VB/ICSharpCode.NRefactory.VB.csproj

@@ -48,6 +48,7 @@
     <Compile Include="Ast\AstNodeCollection.cs" />
     <Compile Include="Ast\Comment.cs" />
     <Compile Include="Ast\Enums.cs" />
+    <Compile Include="Ast\Expressions\AnonymousObjectCreationExpression.cs" />
     <Compile Include="Ast\Expressions\ArrayCreateExpression.cs" />
     <Compile Include="Ast\Expressions\ArrayInitializerExpression.cs" />
     <Compile Include="Ast\Expressions\AssignmentExpression.cs" />

ICSharpCode.NRefactory.VB/OutputVisitor/OutputVisitor.cs

@@ -2411,5 +2411,21 @@ namespace ICSharpCode.NRefactory.VB
 			
 			return EndNode(emptyExpression);
 		}
+		
+		public object VisitAnonymousObjectCreationExpression(AnonymousObjectCreationExpression anonymousObjectCreationExpression, object data)
+		{
+			StartNode(anonymousObjectCreationExpression);
+			
+			WriteKeyword("New");
+			WriteKeyword("With");
+			
+			WriteToken("{", AnonymousObjectCreationExpression.Roles.LBrace);
+			Space();
+			WriteCommaSeparatedList(anonymousObjectCreationExpression.Initializer);
+			Space();
+			WriteToken("}", AnonymousObjectCreationExpression.Roles.RBrace);
+			
+			return EndNode(anonymousObjectCreationExpression);
+		}
 	}
 }

ICSharpCode.NRefactory.VB/Visitors/CSharpToVBConverterVisitor.cs

@@ -429,7 +429,11 @@ namespace ICSharpCode.NRefactory.VB.Visitors
 		
 		public AstNode VisitAnonymousTypeCreateExpression(CSharp.AnonymousTypeCreateExpression anonymousTypeCreateExpression, object data)
 		{
-			throw new NotImplementedException();
+			var expr = new AnonymousObjectCreationExpression();
+			
+			ConvertNodes(anonymousTypeCreateExpression.Initializer, expr.Initializer);
+			
+			return EndNode(anonymousTypeCreateExpression, expr);
 		}
 		
 		public AstNode VisitParenthesizedExpression(CSharp.ParenthesizedExpression parenthesizedExpression, object data)