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
70
71
72
73
74
75
76
77
78
79
80
81
82
|
#!/usr/bin/perl -w
###############################################################################
# Name: difflast.pl
# Purpose: Shows the difference between the current local version of the file
# and the last cvs revision
# Version: $Id: difflast.pl 7748 2000-07-15 19:51:35Z cvsuser $
# Author: VZ
# Created: 23.12.99
# Copyright:(c) Vadim Zeitlin 1999
###############################################################################
use strict;
my $CVS = "cvs -z3"; # the cvs command
# the regexp for cvs revision number
my $RE_CVS_REV = "\\d+(?:\\.\\d+)+";
sub dec_rev($)
{
my $rev = $_[0];
# decrement the revision number to get the previos one
$rev =~ s/(\d+)$/$1 - 1/e;
return $rev;
}
sub get_last_rev($)
{
my $file = $_[0];
my $basename = $file;
$basename =~ s@^.*/@@;
# first get the current version: try the Id RCS tag in the file itself
# first, use "cvs status" if this fails
if ( open(INPUT, $file) ) {
while (<INPUT>) {
# notice that we shouldn't have '$' followed by 'Id' or cvs will
# substitute it!
if ( /\$(Id): $basename,v ($RE_CVS_REV)/ ) {
return &dec_rev($2);
}
}
}
open(INPUT, "$CVS -q status $file |") or return 0;
while (<INPUT>) {
if ( /Working revision:\s+($RE_CVS_REV)/ ) {
return &dec_rev($1);
}
}
return 0;
}
sub process_file($)
{
my $file = $_[0];
my $revlast = &get_last_rev($file);
if ( !$revlast ) {
warn "Failed to get the last revision for $file, skipping.\n"
}
elsif ( $revlast =~ '\.0' ) {
warn "No previous revision of the file $file.\n"
}
else {
print `$CVS diff -b -kk -r $revlast $file`;
}
}
# entry point
die "Usage: $0 <filenames...>\n" if ( $#ARGV == -1 );
foreach my $file (@ARGV) { process_file($file); }
exit 0;
|