Binding

Src/AST/Myc.Ast.Nodes.pas

@@ -105,6 +105,8 @@ type
     IExecutionScope = interface
         {$region 'private'}
         function GetParent: IExecutionScope;
+        function GetValues(const Address: TResolvedAddress): TAstValue;
+        procedure SetValues(const Address: TResolvedAddress; const Value: TAstValue);
         {$endregion}
         procedure Clear;
 
@@ -115,11 +117,10 @@ type
 
         // --- New index-based access ---
         procedure Define(const Name: string; const Value: TAstValue);
-        function GetValue(const Address: TResolvedAddress): TAstValue;
-        procedure AssignValue(const Address: TResolvedAddress; const Value: TAstValue); overload;
-        procedure SetValueByIndex(Index: Integer; const Value: TAstValue);
 
         function Dump: string;
+
+        property Values[const Address: TResolvedAddress]: TAstValue read GetValues write SetValues; default;
         property Parent: IExecutionScope read GetParent;
     end;