Changeset 230 for branches/xpascal/Generators/GeneratorXml.pas

Timestamp:

Jun 26, 2023, 12:08:45 PM (17 months ago)

Author:

chronos

Message:

• Added: Var function parameters support.
• Added: Read and ReadLn procedures support.
• Added: Interpreter now prints into console form.

File:

• branches/xpascal/Generators/GeneratorXml.pas (modified) (5 diffs)

branches/xpascal/Generators/GeneratorXml.pas

@@ -11 +11 @@
   TGeneratorXml = class(TGenerator)
   private
-    procedure GenerateNodes(SourceNodes: TSourceNodes);
+    procedure GenerateNodes(SourceNodes: TSourceNodeList<TSourceNode>);
     procedure GenerateNode(SourceNode: TSourceNode);
   public
@@ -21 +21 @@
 implementation
 
+resourcestring
+  SUnsupportedNodeType = 'Unsupported node type';
+
 { TGeneratorXml }
 
-procedure TGeneratorXml.GenerateNodes(SourceNodes: TSourceNodes);
+procedure TGeneratorXml.GenerateNodes(SourceNodes: TSourceNodeList<TSourceNode>);
 var
   I: Integer;
@@ -30 +33 @@
     if SourceNodes[I] is TSourceNode then begin
       GenerateNode(TSourceNode(SourceNodes[I]));
-    end else raise Exception.Create('Unsupported node type');
+    end else raise Exception.Create(SUnsupportedNodeType);
   end;
 end;
@@ -42 +45 @@
   if SourceNode = nil then begin
   end else
-  if SourceNode is TSourceNodes then begin
-    GenerateNodes(TSourceNodes(SourceNode))
+  if SourceNode is TSourceNodeList<TSourceNode> then begin
+    GenerateNodes(TSourceNodeList<TSourceNode>(SourceNode))
   end else
   if SourceNode is TSourceNode then begin
@@ -63 +66 @@
     AddTextLine('</' + SourceNode.ClassName + '>');
   end else
-    raise Exception.Create('Unsupported node type');
+    raise Exception.Create(SUnsupportedNodeType);
 end;