progress

AspClassic.VBScript/Runtime/VBScriptDlrScope.cs

@@ -0,0 +1,42 @@
+using System;
+using System.Collections.Generic;
+using System.Text;
+using AspClassic.Scripting.Runtime;
+
+using System.Dynamic;
+#if USE35
+using AspClassic.Scripting.Ast;
+#else
+using System.Linq.Expressions;
+#endif
+
+namespace Dlrsoft.VBScript.Runtime
+{
+    // This class represents Sympl modules or globals scopes.  We derive from
+    // DynamicObject for an easy IDynamicMetaObjectProvider implementation, and
+    // just hold onto the DLR internal scope object.  Languages typically have
+    // their own scope so that 1) it can flow around an a dynamic object and 2)
+    // to dope in any language-specific behaviors, such as case-INsensitivity.
+    //
+    public sealed class VBScriptDlrScope : DynamicObject
+    {
+        private readonly Scope _scope;
+
+        public VBScriptDlrScope(Scope scope)
+        {
+            _scope = scope;
+        }
+
+        public override bool TryGetMember(GetMemberBinder binder, out object result)
+        {
+            return _scope.TryGetVariable(SymbolTable.StringToCaseInsensitiveId(binder.Name),
+                                     out result);
+        }
+
+        public override bool TrySetMember(SetMemberBinder binder, object value)
+        {
+            _scope.SetVariable(SymbolTable.StringToId(binder.Name), value);
+            return true;
+        }
+    }
+}