You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
176 lines
4.1 KiB
176 lines
4.1 KiB
#! /usr/bin/env perl
|
|
|
|
# colorcvs
|
|
#
|
|
# based on colorgcc
|
|
#
|
|
# Requires the ANSIColor module from CPAN.
|
|
#
|
|
# Usage:
|
|
#
|
|
# In a directory that occurs in your PATH _before_ the directory
|
|
# where cvs lives, create a softlink to colorcvs:
|
|
#
|
|
# cvs -> colorcvs
|
|
#
|
|
# That's it. When "cvs" is invoked, colorcvs is run instead.
|
|
#
|
|
# The default settings can be overridden with ~/.colorcvsrc.
|
|
# See the colorcvsrc-sample for more information.
|
|
#
|
|
# Note:
|
|
#
|
|
# colorcvs will only emit color codes if:
|
|
#
|
|
# (1) tts STDOUT is a tty.
|
|
# (2) the value of $TERM is not listed in the "nocolor" option.
|
|
# (3) the cvs command is not a commit or import (as the text editor
|
|
# opened by cvs will often be hampered by colorcvs).
|
|
#
|
|
# If colorcvs colorizes the output, cvs's STDERR will be
|
|
# combined with STDOUT. Otherwise, colorcvs just passes the output from
|
|
# cvs through without modification.
|
|
#
|
|
# Copyright 2002 Neil Stevens <neil@qualityassistant.com>
|
|
#
|
|
# Copyright 1999 Jamie Moyers <jmoyers@geeks.com>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; version 2 of the License as published
|
|
# by the Free Software Foundation.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program; if not, write to the Free Software
|
|
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
|
|
|
|
use Term::ANSIColor;
|
|
use IPC::Open3;
|
|
|
|
sub initDefaults
|
|
{
|
|
$cvsPath = "/usr/bin/cvs";
|
|
|
|
$nocolor{"dumb"} = "true";
|
|
|
|
$colors{"P"} = color("reset");
|
|
$colors{"U"} = color("reset");
|
|
$colors{"C"} = color("bold red");
|
|
$colors{"M"} = color("bold yellow");
|
|
$colors{"A"} = color("cyan");
|
|
$colors{"R"} = color("cyan");
|
|
$colors{"?"} = color("bold");
|
|
$colors{"server"} = color("bold green");
|
|
$colors{"warning"} = color("bold cyan");
|
|
}
|
|
|
|
sub loadPreferences
|
|
{
|
|
# Usage: loadPreferences("filename");
|
|
|
|
my($filename) = @_;
|
|
|
|
open(PREFS, "<$filename") || return;
|
|
|
|
while(<PREFS>)
|
|
{
|
|
next if (m/^\#.*/); # It's a comment.
|
|
next if (!m/(.*):\s*(.*)/); # It's not of the form "foo: bar".
|
|
|
|
$option = $1;
|
|
$value = $2;
|
|
|
|
if ($option =~ /cvs/)
|
|
{
|
|
$cvsPath = $value;
|
|
}
|
|
elsif ($option eq "nocolor")
|
|
{
|
|
# The nocolor option lists terminal types, separated by
|
|
# spaces, not to do color on.
|
|
foreach $termtype (split(/\s+/, $value))
|
|
{
|
|
$nocolor{$termtype} = "true";
|
|
}
|
|
}
|
|
else
|
|
{
|
|
$colors{$option} = color($value);
|
|
}
|
|
}
|
|
close(PREFS);
|
|
}
|
|
|
|
#
|
|
# Main program
|
|
#
|
|
|
|
# Set up default values for colors and cvs path.
|
|
initDefaults();
|
|
|
|
# Read the configuration file, if there is one.
|
|
$configFile = $ENV{"HOME"} . "/.colorcvsrc";
|
|
if (-f $configFile)
|
|
{
|
|
loadPreferences($configFile);
|
|
}
|
|
|
|
# Get the terminal type.
|
|
$terminal = $ENV{"TERM"} || "dumb";
|
|
|
|
$commit = 0;
|
|
foreach (@ARGV)
|
|
{
|
|
if(/^ci$/ || /^commit$/ || /^import$/)
|
|
{
|
|
$commit = 1;
|
|
}
|
|
}
|
|
|
|
# If it's in the list of terminal types not to color, or if
|
|
# we're writing to something that's not a tty, don't do color.
|
|
if (! -t STDOUT || $commit == 1 || $nocolor{$terminal})
|
|
{
|
|
exec $cvsPath, @ARGV
|
|
or die("Couldn't exec");
|
|
}
|
|
|
|
# Keep the pid of the cvs process so we can get its return
|
|
# code and use that as our return code.
|
|
$cvs_pid = open3('<&STDIN', \*CVSOUT, \*CVSOUT, $cvsPath, @ARGV);
|
|
$cvsName = $cvsPath;
|
|
$cvsName =~ s,.*/(.*)$,\1,;
|
|
|
|
# Colorize the output from the cvs program.
|
|
while(<CVSOUT>)
|
|
{
|
|
chomp;
|
|
if (m/^(.) .+/) # S filename
|
|
{
|
|
print($colors{$1}, $_, color("reset"));
|
|
}
|
|
elsif (m/warning:/) # warning
|
|
{
|
|
print($colors{"warning"}, $_, color("reset"));
|
|
}
|
|
elsif (m/^$cvsName[^:]*: / || m/^cvs server: /) # server message
|
|
{
|
|
print($colors{"server"}, $_, color("reset"));
|
|
}
|
|
else # Anything else
|
|
{
|
|
# Print normally.
|
|
print(color("reset"), $_);
|
|
}
|
|
print "\n";
|
|
}
|
|
|
|
# Get the return code of the cvs program and exit with that.
|
|
waitpid($cvs_pid, 0);
|
|
exit ($? >> 8);
|