Viewing file: diffpp (4.52 KB) -rwxr-xr-x Select action/file-type: (+) | (+) | (+) | Code (+) | Session (+) | (+) | SDB (+) | (+) | (+) | (+) | (+) | (+) |
#!/usr/bin/perl
# -*- perl -*-
#
# Pretty-print diff outputs with GNU enscript.
# Copyright (c) 1996-1998 Markku Rossi
#
# Author: Markku Rossi
#
#
# This file is part of GNU enscript.
#
# 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; either version 2, or (at your option)
# any later version.
#
# 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; see the file COPYING. If not, write to
# the Free Software Foundation, 59 Temple Place - Suite 330,
# Boston, MA 02111-1307, USA.
#
#
# Original idea by Trent Fisher
# Thanks to:
# - Tero Kivinen for the first prototype
# - Tait Cyrus for fixes and cleanups
#
$file = shift(@ARGV);
$add_gray = ".80";
$del_gray = ".60";
$program = $0;
$program =~ s/.*\///g;
sub usage {
warn "Usage: $program ORIGINAL_FILE < DIFF\n\n";
warn "Program reads a diff file from its standard input and annotates
ORIGINAL_FILE to show the changes made to the file. The easiest way to use
this program is to use it as an input filter for GNU enscript:
\$ enscript -G2re --filter='rcsdiff %s bool(false)
|