Changeset 68 for trunk/Compiler/Target/XML/UTargetXML.pas

Timestamp:

Jul 30, 2012, 3:52:56 PM (12 years ago)

Author:

chronos

Message:

• Added: Addon modules support.
• Modified: Restored usage of URegistry unit.

File:

• trunk/Compiler/Target/XML/UTargetXML.pas (modified) (6 diffs)

trunk/Compiler/Target/XML/UTargetXML.pas

@@ -20 +20 @@
   TProducerXML = class(TProducer)
   private
-    procedure GenerateModule(Module: TModule);
-    procedure GenerateUnit(Module: TModule);
-    procedure GenerateLibrary(Module: TModule);
-    procedure GeneratePackage(Module: TModule);
+    procedure GenerateModule(Module: TSourceModule);
+    procedure GenerateUnit(Module: TSourceModule);
+    procedure GenerateLibrary(Module: TSourceModule);
+    procedure GeneratePackage(Module: TSourceModule);
   public
     procedure AssignToStringList(Target: TStringList); override;
-    procedure Produce(Module: TModule); override;
+    procedure Produce(Module: TSourceModule); override;
   end;
 
@@ -34 +34 @@
 { TProducerXML }
 
-procedure TProducerXML.GenerateModule(Module: TModule);
+procedure TProducerXML.GenerateModule(Module: TSourceModule);
 begin
   Module.TargetFile := Module.Name + '.xml';
@@ -50 +50 @@
 end;
 
-procedure TProducerXML.GenerateUnit(Module: TModule);
+procedure TProducerXML.GenerateUnit(Module: TSourceModule);
 begin
   EmitLn('<?xml version="1.0"?>');
@@ -59 +59 @@
 end;
 
-procedure TProducerXML.GenerateLibrary(Module: TModule);
+procedure TProducerXML.GenerateLibrary(Module: TSourceModule);
 begin
   EmitLn('<?xml version="1.0"?>');
@@ -68 +68 @@
 end;
 
-procedure TProducerXML.GeneratePackage(Module: TModule);
+procedure TProducerXML.GeneratePackage(Module: TSourceModule);
 begin
   EmitLn('<?xml version="1.0"?>');
@@ -77 +77 @@
 end;
 
-procedure TProducerXML.Produce(Module: TModule);
+procedure TProducerXML.Produce(Module: TSourceModule);
 begin
   GenerateModule(Module);