ActionChain

[WladiD]

Welche Script-Engine steckt hinter PascalScript genau?

[CCRDude]

@Wladi: RemObjects.

Oh ja. Ribbons... ActionChain war/ist nebenbei mein Ribbons-Ausprobier-Projekt Habe ich behoben.

@Polymorphin: Git und Cvs stehen neben Svn auf der Liste, ja

Zur Veranschaulichung, so einen Block muss ich in etwa für jede Svn/Git/Cvs-Aktion schreiben:

Delphi-Quellcode:

{ TChainActionBazaarBranch }

function TChainActionBazaarBranch.CommandLineParameters: string;
begin
   Result := 'branch';
end;

class function TChainActionBazaarBranch.DisplayName: string;
begin
   Result := 'Branch Bazaar repository';
end;

class function TChainActionBazaarBranch.GetDescriptionCommandLineParameter: string;
begin
   Result := 'help branch';
end;

procedure TChainActionBazaarBranch.SpecifyParameters;
begin
   inherited;
   AddBooleanParameter('UseExistingDir', 'Use an existing directory', '--use-existing-dir');
   AddBooleanParameter('Stacked', 'Create a stacked branch', '--stack');
   AddBooleanParameter('StandAlone', 'Do not use a shared repository, even if available', '--standalone');
   AddStringParameter('FilesFrom', 'Get file contents from this tree', '--files-from=%s');
   AddBooleanParameter('Switch', 'Switch the checkout in the current directory to the new branch', '--switch');
   AddBooleanParameter('Hardlink', 'Hard-link working tree files where possible', '--hardlink');
   AddBooleanParameter('Bind', 'Bind new branch to from location', '--bind');
   AddBooleanParameter('NoTree', 'Create a branch without a working tree', '--no-tree');
   AddStringParameter('Revision', 'Revision', '--revision="%s"');
   with AddStringParameter('FromLocation', 'From location', '%s') do begin
      AddChooseDirectoryEditPopup;
   end;
   with AddStringParameter('ToLocation', 'To location', '%s') do begin
      AddChooseDirectoryEditPopup;
   end;
end;

[WladiD]

Danke für dei Antwort. Ist auf jeden Fall ein geiles Tool.

[Ralf Kaiser]

Wie greift man denn auf definierte Variablen zu?

Wenn z.B. eine Variable "TEST" mit dem Inhalt "123" existiert, kann man diesen Inhalt z.B. mit "ShowMessage (simple)" ausgeben (nur als Beispiel)?

Ich habe schon verschiedene Möglichkeiten, z.B "$(TEST)", ohne Erfolg ausprobiert.

Wie ist die Syntax mit der man auf Variablen zugreift?

Danke schon mal,
Ralf

[CCRDude]

So, Entschuldigung, hatte eine ungeplante Gartenwoche...

Das Dollarzeichen geht schon in die richtige Richtung: Mit spitzen Klammern und dem Dollar drin geht das: "Hallo <$TEST>".

Für die Skript-Funktion geht zudem:

Delphi-Quellcode:

function GetVar(AVarName: String): Variant;
function GetRawVar(AVarName: String): Variant;
procedure SetVar(AVarName: String; AData: Variant);
function GetParameter(AVarName: String): Variant;
function GetRawParameter(AVarName: String): Variant;
procedure SetParameter(AVarName: String; AData: Variant);

Also zum Beispiel eine Scripted action (CustomScript) mit folgendem OnExecute:

Delphi-Quellcode:

begin
   ShowMessage('Hallo ' + GetVar('Name'));
end.

Werde ein Demo in den Installer packen.

Subversion hab ich grob auch schon umgesetzt, fehlen noch ein paar Parameterfelder.