SWE/DB/VersionControl.pm

package SWE::DB::VersionControl;
use strict;

sub new ($) {
  my $self = bless {
    added_directories => {},
    added_files => {},
    modified_files => {},
  }, shift;
  return $self;
} # new

sub add_directory ($$) {
  my $self = shift;
  my $directory_name = shift;
  $self->{added_directories}->{$directory_name} = 1;
} # add_directory

sub add_file ($$) {
  my $self = shift;
  my $file_name = shift;
  $self->{added_files}->{$file_name} = 1;
  $self->{modified_files}->{$file_name} = 1;
} # add_file

## TODO: remove_file

sub write_file ($$) {
  my $self = shift;
  my $file_name = shift;
  $self->{modified_files}->{$file_name} = 1;
} # write_file

sub commit_changes ($$) {
  my $self = shift;
  my $msg = shift;

  for (sort {$a cmp $b} keys %{$self->{added_directories}}) {
    _system ('cvs', 'add', $_);
  }

  for (keys %{$self->{added_files}}) {
    _system ('cvs', 'add', '-kb', $_);
  }
  
  my @changed;
  for (keys %{$self->{modified_files}}) {
    push @changed, $_;
  }       
       
  if (@changed) {
    _system ('cvs', 'ci', -m => $msg, @changed)
        or die "$0: commit_changes: $?";
  }
} # commit_changes

sub _system (@) {
  return ((system join (' ', map {quotemeta $_} @_) . " > /dev/null") == 0);
  ## If false, see $? for exit value of the program.
  ## TODO: If false, log the stdout/stderr...
} # _system


1;
1	wakaba	1.1	package SWE::DB::VersionControl;
2			use strict;
3
4			sub new ($) {
5			my $self = bless {
6			added_directories => {},
7			added_files => {},
8			modified_files => {},
9			}, shift;
10			return $self;
11			} # new
12
13			sub add_directory ($$) {
14			my $self = shift;
15			my $directory_name = shift;
16			$self->{added_directories}->{$directory_name} = 1;
17			} # add_directory
18
19			sub add_file ($$) {
20			my $self = shift;
21			my $file_name = shift;
22			$self->{added_files}->{$file_name} = 1;
23			$self->{modified_files}->{$file_name} = 1;
24			} # add_file
25
26	wakaba	1.3	## TODO: remove_file
27
28	wakaba	1.1	sub write_file ($$) {
29			my $self = shift;
30			my $file_name = shift;
31			$self->{modified_files}->{$file_name} = 1;
32			} # write_file
33
34			sub commit_changes ($$) {
35			my $self = shift;
36			my $msg = shift;
37
38			for (sort {$a cmp $b} keys %{$self->{added_directories}}) {
39			_system ('cvs', 'add', $_);
40			}
41
42			for (keys %{$self->{added_files}}) {
43	wakaba	1.2	_system ('cvs', 'add', '-kb', $_);
44	wakaba	1.1	}
45
46			my @changed;
47			for (keys %{$self->{modified_files}}) {
48			push @changed, $_;
49			}
50
51			if (@changed) {
52			_system ('cvs', 'ci', -m => $msg, @changed)
53			or die "$0: commit_changes: $?";
54			}
55			} # commit_changes
56
57			sub _system (@) {
58			return ((system join (' ', map {quotemeta $_} @_) . " > /dev/null") == 0);
59			## If false, see $? for exit value of the program.
60			## TODO: If false, log the stdout/stderr...
61			} # _system
62
63
64			1;