Merge branch 'fix'
[git/git.git] / contrib / colordiff / colordiff.perl
1 #!/usr/bin/perl -w
2 #
3 # $Id: colordiff.pl,v 1.4.2.10 2004/01/04 15:02:59 daveewart Exp $
4
5 ########################################################################
6 # #
7 # ColorDiff - a wrapper/replacment for 'diff' producing #
8 # colourful output #
9 # #
10 # Copyright (C)2002-2004 Dave Ewart (davee@sungate.co.uk) #
11 # #
12 ########################################################################
13 # #
14 # This program is free software; you can redistribute it and/or modify #
15 # it under the terms of the GNU General Public License as published by #
16 # the Free Software Foundation; either version 2 of the License, or #
17 # (at your option) any later version. #
18 # #
19 # This program is distributed in the hope that it will be useful, #
20 # but WITHOUT ANY WARRANTY; without even the implied warranty of #
21 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the #
22 # GNU General Public License for more details. #
23 # #
24 # You should have received a copy of the GNU General Public License #
25 # along with this program; if not, write to the Free Software #
26 # Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. #
27 # #
28 ########################################################################
29
30 use strict;
31 use Getopt::Long qw(:config pass_through);
32 use IPC::Open2;
33
34 my $app_name = 'colordiff';
35 my $version = '1.0.4';
36 my $author = 'Dave Ewart';
37 my $author_email = 'davee@sungate.co.uk';
38 my $app_www = 'http://colordiff.sourceforge.net/';
39 my $copyright = '(C)2002-2004';
40 my $show_banner = 1;
41
42 # ANSI sequences for colours
43 my %colour;
44 $colour{white} = "\033[1;37m";
45 $colour{yellow} = "\033[1;33m";
46 $colour{green} = "\033[1;32m";
47 $colour{blue} = "\033[1;34m";
48 $colour{cyan} = "\033[1;36m";
49 $colour{red} = "\033[1;31m";
50 $colour{magenta} = "\033[1;35m";
51 $colour{black} = "\033[1;30m";
52 $colour{darkwhite} = "\033[0;37m";
53 $colour{darkyellow} = "\033[0;33m";
54 $colour{darkgreen} = "\033[0;32m";
55 $colour{darkblue} = "\033[0;34m";
56 $colour{darkcyan} = "\033[0;36m";
57 $colour{darkred} = "\033[0;31m";
58 $colour{darkmagenta} = "\033[0;35m";
59 $colour{darkblack} = "\033[0;30m";
60 $colour{OFF} = "\033[0;0m";
61
62 # Default colours if /etc/colordiffrc or ~/.colordiffrc do not exist
63 my $plain_text = $colour{OFF};
64 my $file_old = $colour{red};
65 my $file_new = $colour{blue};
66 my $diff_stuff = $colour{magenta};
67
68 # Locations for personal and system-wide colour configurations
69 my $HOME = $ENV{HOME};
70 my $etcdir = '/etc';
71
72 my ($setting, $value);
73 my @config_files = ("$etcdir/colordiffrc", "$HOME/.colordiffrc");
74 my $config_file;
75
76 foreach $config_file (@config_files) {
77 if (open(COLORDIFFRC, "<$config_file")) {
78 while (<COLORDIFFRC>) {
79 chop;
80 next if (/^#/ || /^$/);
81 s/\s+//g;
82 ($setting, $value) = split ('=');
83 if ($setting eq 'banner') {
84 if ($value eq 'no') {
85 $show_banner = 0;
86 }
87 next;
88 }
89 if (!defined $colour{$value}) {
90 print "Invalid colour specification ($value) in $config_file\n";
91 next;
92 }
93 if ($setting eq 'plain') {
94 $plain_text = $colour{$value};
95 }
96 elsif ($setting eq 'oldtext') {
97 $file_old = $colour{$value};
98 }
99 elsif ($setting eq 'newtext') {
100 $file_new = $colour{$value};
101 }
102 elsif ($setting eq 'diffstuff') {
103 $diff_stuff = $colour{$value};
104 }
105 else {
106 print "Unknown option in $etcdir/colordiffrc: $setting\n";
107 }
108 }
109 close COLORDIFFRC;
110 }
111 }
112
113 # colordiff specfic options here. Need to pre-declare if using variables
114 GetOptions(
115 "no-banner" => sub { $show_banner = 0 },
116 "plain-text=s" => \&set_color,
117 "file-old=s" => \&set_color,
118 "file-new=s" => \&set_color,
119 "diff-stuff=s" => \&set_color
120 );
121
122 if ($show_banner == 1) {
123 print STDERR "$app_name $version ($app_www)\n";
124 print STDERR "$copyright $author, $author_email\n\n";
125 }
126
127 if (defined $ARGV[0]) {
128 # More reliable way of pulling in arguments
129 open2(\*INPUTSTREAM, undef, "git", "diff", @ARGV);
130 }
131 else {
132 *INPUTSTREAM = \*STDIN;
133 }
134
135 my $record;
136 my $nrecs = 0;
137 my $inside_file_old = 1;
138 my $nparents = undef;
139
140 while (<INPUTSTREAM>) {
141 $nrecs++;
142 if (/^(\@\@+) -[-+0-9, ]+ \1/) {
143 print "$diff_stuff";
144 $nparents = length($1) - 1;
145 }
146 elsif (/^diff -/ || /^index / ||
147 /^old mode / || /^new mode / ||
148 /^deleted file mode / || /^new file mode / ||
149 /^similarity index / || /^dissimilarity index / ||
150 /^copy from / || /^copy to / ||
151 /^rename from / || /^rename to /) {
152 $nparents = undef;
153 print "$diff_stuff";
154 }
155 elsif (defined $nparents) {
156 if ($nparents == 1) {
157 if (/^\+/) {
158 print $file_new;
159 }
160 elsif (/^-/) {
161 print $file_old;
162 }
163 else {
164 print $plain_text;
165 }
166 }
167 elsif (/^ {$nparents}/) {
168 print "$plain_text";
169 }
170 elsif (/^[+ ]{$nparents}/) {
171 print "$file_new";
172 }
173 elsif (/^[- ]{$nparents}/) {
174 print "$file_old";
175 }
176 else {
177 print $plain_text;
178 }
179 }
180 elsif (/^--- / || /^\+\+\+ /) {
181 print $diff_stuff;
182 }
183 else {
184 print "$plain_text";
185 }
186 s/$/$colour{OFF}/;
187 print "$_";
188 }
189 close INPUTSTREAM;
190
191 sub set_color {
192 my ($type, $color) = @_;
193
194 $type =~ s/-/_/;
195 eval "\$$type = \$colour{$color}";
196 }