1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
package SVK::Command::Describe;
use strict;
use SVK::Version; our $VERSION = $SVK::VERSION;
use base qw( SVK::Command::Diff SVK::Command::Log);
use SVK::XD;
use SVK::Editor::Diff;
sub options {
();
}
sub parse_arg {
my ($self, @arg) = @_;
return if $#arg < 0;
# Allow user to type "svk describe r12345", for easy copy-and-paste
# from "svk log".
$arg[0] =~ s/^r(\d+)$/$1/;
return ($arg[0], $self->arg_depotroot($arg[1]));
}
sub run {
my ($self, $chg, $target) = @_;
my $rev = $self->resolve_revision($target,$chg);
$self->{revspec} = [$rev];
$self->SVK::Command::Log::run ($target);
$self->{revspec} = [$rev-1, $rev];
$self->SVK::Command::Diff::run ($target);
}
1;
__DATA__
=head1 NAME
SVK::Command::Describe - Describe a change
=head1 SYNOPSIS
describe REV [DEPOTPATH | PATH]
=head1 DESCRIPTION
Displays the change in revision number I<REV> in the specified depot.
It always shows the entire change even if you specified a particular target.
(I<REV> can optionally have the prefix C<r>, just like the revisions reported
from C<svk log>.)
=head1 OPTIONS
None
=head1 AUTHORS
Chia-liang Kao E<lt>clkao@clkao.orgE<gt>
=head1 COPYRIGHT
Copyright 2003-2005 by Chia-liang Kao E<lt>clkao@clkao.orgE<gt>.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
See L<http://www.perl.com/perl/misc/Artistic.html>
=cut
|
