source: trunk/Backends/Bazaar/UBazaar.pas

unit UBazaar;

{$mode delphi}

interface

uses
  Classes, SysUtils, UBackend, UVCS;

type

  { TBackendBazaar }

  TBackendBazaar = class(TBackend)
    constructor Create;
    function IsWorkingCopy(Directory: string): Boolean; override;
  end;

  { TBazaar }

  TBazaar = class(TWorkingCopy)
  private
  protected
    procedure Execute(Parameters: array of string);
  public
    procedure Checkout; override;
    procedure Update; override;
    procedure CleanUp; override;
    procedure Commit(Message: TStrings); override;
    procedure Move(Source, Dest: string); override;
    procedure Merge; override;
    procedure Add(FileName: string); override;
    procedure Remove(FileName: string); override;
  end;

  { TRepositoryBazaar }

  TRepositoryBazaar = class(TRepository)
  protected
    procedure Execute(Parameters: array of string);
  public
    procedure Init; override;
  end;


implementation

{ TRepositoryBazaar }

procedure TRepositoryBazaar.Execute(Parameters: array of string);
begin
  ExecuteProcess('/usr/bin/bzr', Parameters);
end;

procedure TRepositoryBazaar.Init;
begin
  Execute(['init', Path]);
end;

{ TBazaar }

procedure TBazaar.Execute(Parameters: array of string);
begin
  ExecuteProcess('/usr/bin/bzr', Parameters);
end;

procedure TBazaar.Checkout;
begin
  Execute(['checkout', RepositoryURL, Path]);
end;

procedure TBazaar.Update;
begin
  Execute(['update']);
end;

procedure TBazaar.CleanUp;
begin
  inherited CleanUp;
end;

procedure TBazaar.Commit(Message: TStrings);
begin
  Execute(['commit', '-m "' + Message.Text + '"']);
end;

procedure TBazaar.Move(Source, Dest: string);
begin
  Execute(['move', Source, Dest]);
end;

procedure TBazaar.Merge;
begin
  Execute(['merge']);
end;

procedure TBazaar.Add(FileName: string);
begin
  Execute(['add', FileName]);
end;

procedure TBazaar.Remove(FileName: string);
begin
  Execute(['remove', FileName]);
end;

{ TBackendBazaar }

constructor TBackendBazaar.Create;
begin
  Name := 'Bazaar';
  HomePage := 'http://bazaar.canonical.com/';
  WorkingCopyClass := TBazaar;
end;

function TBackendBazaar.IsWorkingCopy(Directory: string): Boolean;
begin
  Result := DirectoryExists(Directory + DirectorySeparator + '.bzr');
end;

end.