implement new expression binding

Author: Andrin Meier

Rubberduck.Parsing/Binding/BindingService.cs

@@ -6,15 +6,26 @@ namespace Rubberduck.Parsing.Binding
 {
     public sealed class BindingService
     {
+        private readonly IBindingContext _defaultBindingContext;
         private readonly IBindingContext _typedBindingContext;
         private readonly IBindingContext _procedurePointerBindingContext;
 
-        public BindingService(IBindingContext typedBindingContext, IBindingContext procedurePointerBindingContext)
+        public BindingService(
+            IBindingContext defaultBindingContext,
+            IBindingContext typedBindingContext, 
+            IBindingContext procedurePointerBindingContext)
         {
+            _defaultBindingContext = defaultBindingContext;
             _typedBindingContext = typedBindingContext;
             _procedurePointerBindingContext = procedurePointerBindingContext;
         }
 
+        public IBoundExpression ResolveDefault(Declaration module, Declaration parent, string expression)
+        {
+            var expr = Parse(expression);
+            return _defaultBindingContext.Resolve(module, parent, expr);
+        }
+
         public IBoundExpression ResolveType(Declaration module, Declaration parent, string expression)
         {
             var expr = Parse(expression);

Rubberduck.Parsing/Binding/DefaultBindingContext.cs

@@ -0,0 +1,83 @@
+using Antlr4.Runtime;
+using Rubberduck.Parsing.Symbols;
+
+namespace Rubberduck.Parsing.Binding
+{
+    public sealed class DefaultBindingContext : IBindingContext
+    {
+        private readonly DeclarationFinder _declarationFinder;
+
+        public DefaultBindingContext(DeclarationFinder declarationFinder)
+        {
+            _declarationFinder = declarationFinder;
+        }
+
+        public IBoundExpression Resolve(Declaration module, Declaration parent, ParserRuleContext expression)
+        {
+            dynamic dynamicExpression = expression;
+            IExpressionBinding bindingTree = Visit(module, parent, dynamicExpression);
+            if (bindingTree != null)
+            {
+                return bindingTree.Resolve();
+            }
+            return null;
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.NewExprContext expression)
+        {
+            return Visit(module, parent, expression.newExpression());
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.NewExpressionContext expression)
+        {
+            var typeExpressionBinding = Visit(module, parent, expression.typeExpression());
+            if (typeExpressionBinding == null)
+            {
+                return null;
+            }
+            return new NewTypeBinding(_declarationFinder, module, parent, expression, typeExpressionBinding);
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.TypeExpressionContext expression)
+        {
+            if (expression.builtInType() != null)
+            {
+                return null;
+            }
+            return Visit(module, parent, expression.definedTypeExpression());
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.DefinedTypeExpressionContext expression)
+        {
+            if (expression.simpleNameExpression() != null)
+            {
+                return Visit(module, parent, expression.simpleNameExpression());
+            }
+            return Visit(module, parent, expression.memberAccessExpression());
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.SimpleNameExprContext expression)
+        {
+            return Visit(module, parent, expression.simpleNameExpression());
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.SimpleNameExpressionContext expression)
+        {
+            return new SimpleNameTypeBinding(_declarationFinder, module, parent, expression);
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.MemberAccessExprContext expression)
+        {
+            dynamic lExpression = expression.lExpression();
+            var lExpressionBinding = Visit(module, parent, lExpression);
+            return new MemberAccessTypeBinding(_declarationFinder, module, parent, expression, lExpressionBinding);
+        }
+
+        private IExpressionBinding Visit(Declaration module, Declaration parent, VBAExpressionParser.MemberAccessExpressionContext expression)
+        {
+            dynamic lExpression = expression.lExpression();
+            var lExpressionBinding = Visit(module, parent, lExpression);
+            return new MemberAccessTypeBinding(_declarationFinder, module, parent, expression, lExpressionBinding);
+        }
+    }
+}

Rubberduck.Parsing/Binding/NewExpression.cs

@@ -0,0 +1,27 @@
+using Antlr4.Runtime;
+using Rubberduck.Parsing.Symbols;
+
+namespace Rubberduck.Parsing.Binding
+{
+    public sealed class NewExpression : BoundExpression
+    {
+        private readonly IBoundExpression _typeExpression;
+
+        public NewExpression(
+            Declaration referencedDeclaration,
+            ParserRuleContext context,
+            IBoundExpression typeExpression)
+            : base(referencedDeclaration, ExpressionClassification.Value, context)
+        {
+            _typeExpression = typeExpression;
+        }
+
+        public IBoundExpression TypeExpression
+        {
+            get
+            {
+                return _typeExpression;
+            }
+        }
+    }
+}

Rubberduck.Parsing/Binding/NewTypeBinding.cs

@@ -0,0 +1,39 @@
+using Rubberduck.Parsing.Symbols;
+
+namespace Rubberduck.Parsing.Binding
+{
+    public sealed class NewTypeBinding : IExpressionBinding
+    {
+        private readonly DeclarationFinder _declarationFinder;
+        private readonly Declaration _project;
+        private readonly Declaration _module;
+        private readonly Declaration _parent;
+        private readonly VBAExpressionParser.NewExpressionContext _expression;
+        private readonly IExpressionBinding _typeExpressionBinding;
+
+        public NewTypeBinding(
+            DeclarationFinder declarationFinder,
+            Declaration module,
+            Declaration parent,
+            VBAExpressionParser.NewExpressionContext expression,
+            IExpressionBinding typeExpressionBinding)
+        {
+            _declarationFinder = declarationFinder;
+            _project = module.ParentDeclaration;
+            _module = module;
+            _parent = parent;
+            _expression = expression;
+            _typeExpressionBinding = typeExpressionBinding;
+        }
+
+        public IBoundExpression Resolve()
+        {
+            var typeExpression = _typeExpressionBinding.Resolve();
+            if (typeExpression == null)
+            {
+                return null;
+            }
+            return new NewExpression(typeExpression.ReferencedDeclaration, _expression, typeExpression);
+        }
+    }
+}