← Back to branch summary

~abentley/bzrtools/bzrtools.dev

« back to all changes in this revision

Viewing changes to fai/aba/commands/cdiff

  • Committer: Robert Collins
  • Date: 2005-09-13 10:46:27 UTC
  • mto: (147.2.6) (364.1.3 bzrtools)
  • mto: This revision was merged to the branch mainline in revision 324.
  • Revision ID: robertc@robertcollins.net-20050913104627-51f938950a907475
handle inaccessible sibling archives somewhat - note version-0 is still not handled

Show diffs side-by-side

added added

removed removed

Lines of Context:
fai/aba/commands/cdiff
 
1
#!/usr/bin/perl
 
2
## Copyright (C) 2004 Jan Hudec
 
3
##
 
4
## See the file "COPYING" for further information about
 
5
## the copyright and warranty status of this work.
 
6
 
 
7
%color = (
 
8
    black => 30,
 
9
    red => 31,
 
10
    green => 32,
 
11
    yellow => 33,
 
12
    blue => 34,
 
13
    magenta => 35,
 
14
    cyan => 36,
 
15
    white => 37,
 
16
    bk => 30,
 
17
    re => 31,
 
18
    gr => 32,
 
19
    ye => 33,
 
20
    bl => 34,
 
21
    ma => 35,
 
22
    cy => 36,
 
23
    wh => 37
 
24
);
 
25
 
 
26
sub bold {
 
27
    my ($color, $string) = @_;
 
28
    $color = $color{$color} if exists $color{$color};
 
29
    print "\e[${color};1m${string}\e[0m\n";
 
30
}
 
31
 
 
32
sub norm {
 
33
    my ($color, $string) = @_;
 
34
    $color = $color{$color} if exists $color{$color};
 
35
    print "\e[${color}m${string}\e[0m\n";
 
36
}
 
37
 
 
38
sub exe {
 
39
    if($] >= 5.008) { # 5.8 has a sane syntax...
 
40
        open STDIN, '-|', qw(tla changes --diffs), @_ or die "Can't run tla";
 
41
    } else { # 5.6's weird syntax...
 
42
        open(STDIN, '-|') || exec(qw(tla changes --diffs), @_) || die "Can't run tla";
 
43
    }
 
44
    eval {
 
45
        open WP, "|diffstat";
 
46
    } or open WP, ">/dev/null";
 
47
 
 
48
    $| = 1;
 
49
    while(<STDIN>) {
 
50
        $o = $_;
 
51
        chomp $_;
 
52
        /^(\*\s)/               ? bold wh => $_ :
 
53
        /^(?:\+\+\+|---)/       ? norm gr => $_ :
 
54
        /^\+/           ? bold cy => $_ :
 
55
        /^-/            ? bold re => $_ :
 
56
        /^!/            ? bold bl => $_ :
 
57
        /^diff/         ? norm cy => $_ :
 
58
        /(\@\@.*\@\@)(.*)/      ? print "\e[$color{ye};1m$1\e[$color{wh};1m$2\e[0m\n" :
 
59
                              print $_, "\n";
 
60
        print WP $o;
 
61
    }
 
62
 
 
63
    print "---------------------\n";
 
64
    close WP;
 
65
    wait;
 
66
    wait;
 
67
}
 
68
 
 
69
sub desc {
 
70
    printf "%28s : %s\n", 'cdiff', "tla changes --diffs with pretty colors and summary";
 
71
}
 
72
 
 
73
sub help {
 
74
    print "Generate changes report with pretty colored diffs and diffs summary.\n";
 
75
}
 
76
 
 
77
sub ext_help {
 
78
    help;
 
79
    print <<EOS
 
80
It is similar to tla changes --diffs, but colorizes the diff and adds output of
 
81
diffstat (if you have it) to the end.
 
82
Highlighting colours headers green, additions cyan, deletions red and tla
 
83
messages (those with * at the beginning) just bold (everything is bold).
 
84
EOS
 
85
}
 
86
 
 
87
if ($ARGV[0] eq 'desc') {
 
88
    desc;
 
89
} elsif ($ARGV[0] eq 'exec') {
 
90
    if ($ARGV[1] eq '-h' or $ARGV[1] eq '--help') {
 
91
        help;
 
92
    } elsif ($ARGV[1] eq '-H') {
 
93
        ext_help;
 
94
    } else {
 
95
        exe(@ARGV[1 .. $#ARGV]);
 
96
    }
 
97
} else {
 
98
    die "Invalid parameters. This script is designed to be run by aba only."
 
99
}
 
100
 
 
101
# arch-tag: 689f32af-bac3-4621-8697-fd29951bb777