source: trunk/Compiler/Modules/XML/TargetXML.pas

unit TargetXML;

interface

uses
  Classes, SysUtils, Target, Producer, SourceCodePascal;

type

  { TTargetXML }

  TTargetXML = class(TTarget)
    constructor Create; override;
  end;

  { TProducerXML }

  TProducerXML = class(TProducer)
  private
    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: TSourceModule); override;
  end;


implementation

{ TProducerXML }

procedure TProducerXML.GenerateModule(Module: TSourceModule);
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: TSourceModule);
begin
  EmitLn('<?xml version="1.0"?>');
  EmitLn('<unit>');
  //GenerateUses(UsedModules);
  //GenerateCommonBlockImplementation(Body, '');
  EmitLn('</unit');
end;

procedure TProducerXML.GenerateLibrary(Module: TSourceModule);
begin
  EmitLn('<?xml version="1.0"?>');
  EmitLn('<library>');
  //GenerateUses(UsedModules);
  //GenerateCommonBlockImplementation(Body, '');
  EmitLn('</library>');
end;

procedure TProducerXML.GeneratePackage(Module: TSourceModule);
begin
  EmitLn('<?xml version="1.0"?>');
  EmitLn('<package>');
  //GenerateUses(UsedModules);
  //GenerateCommonBlockImplementation(Body, '');
  EmitLn('</package>');
end;

procedure TProducerXML.Produce(Module: TSourceModule);
begin
  GenerateModule(Module);
end;

procedure TProducerXML.AssignToStringList(Target: TStringList);
begin
  Target.Assign(TextSource);
end;

{ TTargetXML }

constructor TTargetXML.Create;
begin
  inherited;
  SysName := 'XML';
  Name := 'XML';
  Producer := TProducerXML.Create;
end;

end.