ossp-pkg/cvsfusion/00BRAINSTORM 1.1 -> 1.2
--- 00BRAINSTORM 2004/04/22 06:56:28 1.1
+++ 00BRAINSTORM 2004/04/24 18:11:57 1.2
@@ -47,3 +47,26 @@
}
}
+# apply a translation function onto all RCS revisions
+sub revapply ($$) {
+ my ($self, $sub) = @_;
+ foreach my $num (keys(%{$self->{'rcs'}->{'rev'}})) {
+ $self->{'rcs'}->{'rev'}->{$num} =
+ &$sub($self->{'rcs'}->{'rev'}->{$num});
+ }
+ return;
+}
+
+# get and/or set paths to external tools
+sub tool ($;$) {
+ my ($self, $tool, $path) = @_;
+ my $old = $self->{'tool'}->{$tool};
+ if (not defined($old)) {
+ croak "tool \"$tool\" not known";
+ }
+ if (defined($path)) {
+ $self->{'tool'}->{$tool} = $path;
+ }
+ return $old;
+}
+
|
|
