source: branches/xpascal/Generator.pas

unit Generator;

interface

uses
  Classes, SysUtils, strutils, Source;

type

  { TGenerator }

  TGenerator = class
  private
    FIndent: Integer;
    procedure SetIndent(AValue: Integer);
  public
    Name: string;
    FileExt: string;
    Output: string;
    Prog: TProgram;
    procedure AddText(Text: string);
    procedure AddTextLine(Text: string = '');
    procedure Generate; virtual;
    constructor Create; virtual;
    destructor Destroy; override;
    property Indent: Integer read FIndent write SetIndent;
  end;

  TGeneratorClass = class of TGenerator;


implementation

procedure TGenerator.SetIndent(AValue: Integer);
var
  ToRemove: string;
  RemoveIndex: Integer;
begin
  if FIndent = AValue then Exit;
  if AValue > FIndent then begin
    Output := Output + DupeString('  ', AValue - FIndent);
  end else
  if AValue < FIndent then begin
    RemoveIndex := Length(Output) - (FIndent - AValue) * 2;
    ToRemove := Copy(Output, RemoveIndex + 1, MaxInt);
    if ToRemove = DupeString('  ', FIndent - AValue) then
      Output := Copy(Output, 1, RemoveIndex);
  end;
  FIndent := AValue;
end;

procedure TGenerator.AddText(Text: string);
begin
  Output := Output + Text;
end;

procedure TGenerator.AddTextLine(Text: string);
begin
  AddText(Text + LineEnding + DupeString('  ', Indent));
end;

procedure TGenerator.Generate;
begin
end;

constructor TGenerator.Create;
begin
end;

destructor TGenerator.Destroy;
begin
  inherited;
end;

end.