Keywords

Src/AST/Myc.Ast.Debugger.pas

@@ -35,6 +35,7 @@ type
         // The logging overrides for other Visit... methods
         function VisitConstant(const Node: IConstantNode): TDataValue; override;
         function VisitIdentifier(const Node: IIdentifierNode): TDataValue; override;
+        function VisitKeyword(const Node: IKeywordNode): TDataValue; override;
         function VisitBinaryExpression(const Node: IBinaryExpressionNode): TDataValue; override;
         function VisitUnaryExpression(const Node: IUnaryExpressionNode): TDataValue; override;
         function VisitIfExpression(const Node: IIfExpressionNode): TDataValue; override;
@@ -44,6 +45,7 @@ type
         function VisitAssignment(const Node: IAssignmentNode): TDataValue; override;
         function VisitIndexer(const Node: IIndexerNode): TDataValue; override;
         function VisitMemberAccess(const Node: IMemberAccessNode): TDataValue; override;
+        function VisitRecordLiteral(const Node: IRecordLiteralNode): TDataValue; override;
         function VisitCreateSeries(const Node: ICreateSeriesNode): TDataValue; override;
         function VisitAddSeriesItem(const Node: IAddSeriesItemNode): TDataValue; override;
         function VisitSeriesLength(const Node: ISeriesLengthNode): TDataValue; override;
@@ -52,7 +54,8 @@ type
 implementation
 
 uses
-    System.TypInfo;
+    System.TypInfo,
+    Myc.Data.Keyword;
 
 { TDebugEvaluatorVisitor }
 
@@ -156,8 +159,14 @@ end;
 
 function TDebugEvaluatorVisitor.VisitConstant(const Node: IConstantNode): TDataValue;
 begin
-    AppendLine(Format('Constant (%s)', [Node.Value.ToString]));
     Result := inherited VisitConstant(Node);
+    AppendLine(Format('Constant (%s)', [Result.ToString]));
+end;
+
+function TDebugEvaluatorVisitor.VisitKeyword(const Node: IKeywordNode): TDataValue;
+begin
+    Result := inherited VisitKeyword(Node);
+    AppendLine(Format('Keyword (%s)', [Result.ToString]));
 end;
 
 function TDebugEvaluatorVisitor.VisitCreateSeries(const Node: ICreateSeriesNode): TDataValue;
@@ -238,6 +247,18 @@ begin
     AppendLine(Format('} -> %s', [Result.ToString]));
 end;
 
+function TDebugEvaluatorVisitor.VisitRecordLiteral(const Node: IRecordLiteralNode): TDataValue;
+begin
+    AppendLine('RecordLiteral {');
+    Indent;
+    try
+        Result := inherited VisitRecordLiteral(Node);
+    finally
+        Unindent;
+    end;
+    AppendLine(Format('} -> %s', [Result.ToString]));
+end;
+
 function TDebugEvaluatorVisitor.VisitTernaryExpression(const Node: ITernaryExpressionNode): TDataValue;
 begin
     AppendLine('TernaryExpr{');