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

Timestamp:

Jul 17, 2012, 10:54:18 AM (12 years ago)

Author:

chronos

Message:

• Fixed: Procedure/function header and body not paired properly.

File:

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

trunk/Compiler/Target/XML/UTargetXML.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, UTarget;
+  Classes, SysUtils, UTarget, UProducer, USourceCode;
 
 type
@@ -16 +16 @@
   end;
 
+  { TProducerXML }
+
+  TProducerXML = class(TProducer)
+  private
+    procedure GenerateModule(Module: TModule);
+    procedure GenerateUnit(Module: TModule);
+    procedure GenerateLibrary(Module: TModule);
+    procedure GeneratePackage(Module: TModule);
+  public
+    procedure AssignToStringList(Target: TStringList); override;
+    procedure Produce(Module: TModule); override;
+  end;
+
+
 implementation
+
+{ TProducerXML }
+
+procedure TProducerXML.GenerateModule(Module: TModule);
+begin
+  Module.TargetFile := Module.Name + '.xml';
+  if Module is TModuleProgram then
+  with TModuleProgram(Module) do begin
+    EmitLn('<?xml version="1.0"?>');
+    EmitLn('<program>');
+    //GenerateUses(UsedModules);
+    //GenerateCommonBlockImplementation(Body, '');
+    EmitLn('</program>');
+  end;
+  if Module is TModuleUnit then GenerateUnit(Module)
+  else if Module is TModuleLibrary then GenerateLibrary(Module)
+  else if Module is TModulePackage then GeneratePackage(Module);
+end;
+
+procedure TProducerXML.GenerateUnit(Module: TModule);
+begin
+  EmitLn('<?xml version="1.0"?>');
+  EmitLn('<unit>');
+  //GenerateUses(UsedModules);
+  //GenerateCommonBlockImplementation(Body, '');
+  EmitLn('</unit');
+end;
+
+procedure TProducerXML.GenerateLibrary(Module: TModule);
+begin
+  EmitLn('<?xml version="1.0"?>');
+  EmitLn('<library>');
+  //GenerateUses(UsedModules);
+  //GenerateCommonBlockImplementation(Body, '');
+  EmitLn('</library>');
+end;
+
+procedure TProducerXML.GeneratePackage(Module: TModule);
+begin
+  EmitLn('<?xml version="1.0"?>');
+  EmitLn('<package>');
+  //GenerateUses(UsedModules);
+  //GenerateCommonBlockImplementation(Body, '');
+  EmitLn('</package>');
+end;
+
+procedure TProducerXML.Produce(Module: TModule);
+begin
+  GenerateModule(Module);
+end;
+
+procedure TProducerXML.AssignToStringList(Target: TStringList);
+begin
+  Target.Assign(TextSource);
+end;
 
 { TTargetXML }
@@ -25 +94 @@
   SysName := 'XML';
   Name := 'XML';
+  Producer := TProducerXML.Create;
 end;