Changeset 10

Timestamp:

May 19, 2015, 10:32:51 PM (9 years ago)

Author:

chronos

Message:

• Added: CVS backend skeleton.

Location:

trunk

Files:

• . (modified) (1 prop)
• Backends/Bazaar/UBazaar.pas (modified) (2 diffs)
• Backends/CVS (added)
• Backends/CVS/UCVS.pas (added)
• Backends/Subversion/USubversion.pas (modified) (2 diffs)
• Forms/UFormBrowse.lfm (modified) (2 diffs)
• Forms/UFormBrowse.pas (modified) (6 diffs)
• Packages/Common (modified) (1 prop)
• Packages/TemplateGenerics (modified) (1 prop)
• UCore.pas (modified) (2 diffs)
• Units/UBackend.pas (added)
• Units/UVCS.pas (modified) (2 diffs)
• VCSCommander.lpi (modified) (4 diffs)

trunk

@@ -2 +2 @@
 VCSCommander
 VCSCommander.lps
+Config.xml
+heaptrclog.trc

@@ -2 +2 @@
 VCSCommander
 VCSCommander.lps
+Config.xml
+heaptrclog.trc

trunk/Backends/Bazaar/UBazaar.pas

@@ -29 +29 @@
     procedure Move(Source, Dest: string); override;
     procedure Merge; override;
+    procedure Add(FileName: string); override;
   end;
 
@@ -70 +71 @@
 end;
 
+procedure TBazaar.Add(FileName: string);
+begin
+  Execute(['add', FileName]);
+end;
+
 { TBackendBazaar }
 

trunk/Backends/Subversion/USubversion.pas

@@ -30 +30 @@
     procedure Move(Source, Dest: string); override;
     procedure Merge; override;
+    procedure Add(FileName: string); override;
   end;
 
@@ -85 +86 @@
 end;
 
+procedure TSubversion.Add(FileName: string);
+begin
+  Execute(['add', FileName]);
+end;
+
 end.
 

trunk/Forms/UFormBrowse.lfm

@@ -91 +91 @@
     object AAdd: TAction
       Caption = 'Add'
+      OnExecute = AAddExecute
     end
     object ADelete: TAction
@@ -98 +99 @@
     object ARename: TAction
       Caption = 'Rename'
+      OnExecute = ARenameExecute
     end
     object AUpdate: TAction

trunk/Forms/UFormBrowse.pas

@@ -31 +31 @@
     Splitter1: TSplitter;
     TreeView1: TTreeView;
+    procedure AAddExecute(Sender: TObject);
     procedure ADeleteExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
+    procedure ARenameExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -42 +44 @@
     Directory: string;
     procedure ReloadList;
+    procedure UpdateInterface;
   end;
 
@@ -48 +51 @@
 
 implementation
+
+uses
+  UCore;
 
 {$R *.lfm}
@@ -70 +76 @@
 end;
 
+procedure TFormBrowse.AAddExecute(Sender: TObject);
+begin
+  Core.Project.WorkingCopy.Add(Directory + DirectorySeparator + ListView1.Selected.Caption);
+end;
+
 procedure TFormBrowse.AOpenExecute(Sender: TObject);
 begin
@@ -83 +94 @@
     end;
   end;
+end;
+
+procedure TFormBrowse.ARenameExecute(Sender: TObject);
+var
+  NewName: string;
+begin
+  if InputQuery('Rename', 'Enter new name', NewName) then
+    Core.Project.WorkingCopy.Move(Directory + DirectorySeparator + ListView1.Selected.Caption, NewName);
 end;
 
@@ -120 +139 @@
 end;
 
+procedure TFormBrowse.UpdateInterface;
+begin
+  AAdd.Enabled := Assigned(ListView1.Selected);
+  ADelete.Enabled := Assigned(ListView1.Selected);
+  ARename.Enabled := Assigned(ListView1.Selected);
+  AProperties.Enabled := Assigned(ListView1.Selected);
+end;
+
 end.
 

trunk/UCore.pas

@@ -69 +69 @@
 uses
   UFormMain, UFormBrowse, UFormSettings, UFormCommit, UFormCheckout,
-  USubversion, UBazaar;
+  USubversion, UBazaar, UCVS;
 
 { TCore }
@@ -110 +110 @@
   RegisterBackend(TBackendSubversion.Create);
   RegisterBackend(TBackendBazaar.Create);
+  RegisterBackend(TBackendCVS.Create);
 end;
 

trunk/Units/UVCS.pas

@@ -28 +28 @@
     procedure Merge; virtual;
     procedure Refresh; virtual;
+    procedure Add(FileName: string); virtual;
     property RepositoryURL: string read FRepositoryURL write SetRepositoryURL;
     property Path: string read FPath write SetPath;
@@ -103 +104 @@
 end;
 
+procedure TWorkingCopy.Add(FileName: string);
+begin
+
+end;
+
 end.
 

trunk/VCSCommander.lpi

@@ -27 +27 @@
           <SearchPaths>
             <IncludeFiles Value="$(ProjOutDir)"/>
+            <OtherUnitFiles Value="Backends/CVS"/>
             <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
           </SearchPaths>
@@ -83 +84 @@
       </Item4>
     </RequiredPackages>
-    <Units Count="14">
+    <Units Count="15">
       <Unit0>
         <Filename Value="VCSCommander.lpr"/>
@@ -164 +165 @@
         <IsPartOfProject Value="True"/>
       </Unit13>
+      <Unit14>
+        <Filename Value="Backends/CVS/UCVS.pas"/>
+        <IsPartOfProject Value="True"/>
+      </Unit14>
     </Units>
   </ProjectOptions>
@@ -173 +178 @@
     <SearchPaths>
       <IncludeFiles Value="$(ProjOutDir)"/>
-      <OtherUnitFiles Value="Forms;Units;Backends/Bazaar;Backends/Subversion"/>
+      <OtherUnitFiles Value="Forms;Units;Backends/Bazaar;Backends/Subversion;Backends/CVS"/>
       <UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)"/>
     </SearchPaths>

@@ -2 +2 @@
 VCSCommander
 VCSCommander.lps
+Config.xml
+heaptrclog.trc