home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-alpha / enscript-1.4.0-bin.lha / bin / diffpp next >
Encoding:
Text File  |  1996-10-14  |  2.9 KB  |  143 lines
  1. #!/bin/perl
  2. # -*- perl -*-
  3. #
  4. # Pretty-print diff outputs with GNU enscript.
  5. # Copyright (c) 1996 Markku Rossi
  6. #
  7. # Author: Markku Rossi <mtr@iki.fi>
  8. #
  9.  
  10. #
  11. # This file is part of GNU enscript.
  12. # 
  13. # This program is free software; you can redistribute it and/or modify
  14. # it under the terms of the GNU General Public License as published by
  15. # the Free Software Foundation; either version 2, or (at your option)
  16. # any later version.
  17. #
  18. # This program is distributed in the hope that it will be useful,
  19. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  20. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21. # GNU General Public License for more details.
  22. #
  23. # You should have received a copy of the GNU General Public License
  24. # along with this program; see the file COPYING.  If not, write to
  25. # the Free Software Foundation, 59 Temple Place - Suite 330,
  26. # Boston, MA 02111-1307, USA.
  27. #
  28.  
  29. #
  30. # Original idea by Trent Fisher <trent@informix.com>
  31. # Thanks to Tero Kivinen <kivinen@iki.fi> for the first prototype. 
  32. #
  33.  
  34. $file = shift(@ARGV);
  35. $gray = ".95";
  36.  
  37. $program = $0;
  38. $program =~ s/.*\///g;
  39.  
  40. sub usage {
  41.     warn "Usage: $program ORIGINAL_FILE < DIFF\n\n";
  42.     warn "Program reads a diff file from its standard input and annotates
  43. ORIGINAL_FILE to show the changes made to the file.  The easiest way to use 
  44. this program is to use it as an input filter for GNU enscript:
  45.  
  46.   \$ enscript -G2re --filter='rcsdiff %s | diffpp %s' *.c *.h
  47.   \$ enscript -G2re --filter='diff %s~ %s | diffpp %s' *.c *.h
  48.  
  49. ";
  50. }
  51.  
  52. if (!defined($file) || defined($ARGV[0])) {
  53.     &usage;
  54.     exit 1;
  55. }
  56.  
  57. if ($file eq "--help") {
  58.     &usage;
  59.     exit 0;
  60. }
  61.  
  62. if ($file eq "--version") {
  63.     warn "diffpp 1.0\n";
  64.     exit 0;
  65. }
  66.  
  67. open(FP, $file) || die "$program: couldn't open file `$file' for input: $!\n";
  68.  
  69. while (<>) {
  70.     if (/((\d+),)?(\d+)d(\d+)/) {
  71.     # Lines deleted.
  72.     if (defined($1)) {
  73.         $from = $2;
  74.     } else {
  75.         $from = $3;
  76.     }
  77.     &skip_to_line($4 - 1);
  78.     printf("\000ps{gsave -5 4 rmoveto %d {(-) show} repeat grestore}",
  79.            $3 - $from + 1);
  80.     } elsif (/(\d+)a(\d+)(,(\d+))?/) {
  81.     # Lines added.
  82.     if (defined($3)) {
  83.         $to = $4;
  84.     } else {
  85.         $to = $2;
  86.     }
  87.     &skip_to_line($2 - 1);
  88.     printf("\000shade{$gray}");
  89.     &mark_to_line($to, "+");
  90.     printf("\000shade{1.0}");
  91.     } elsif (/(\d+)c(\d+)(,(\d+))?/) {
  92.     # Lines changed.
  93.     if (defined($3)) {
  94.         $to = $4;
  95.     } else {
  96.         $to = $2;
  97.     }
  98.     &skip_to_line($2 - 1);
  99.     printf("\000shade{$gray}");
  100.     &mark_to_line($to, "!");
  101.     printf("\000shade{1.0}");
  102.     } else {
  103.     next;
  104.     }
  105. }
  106.  
  107. # Dump the tail.
  108. while (<FP>) {
  109.     print;
  110. }
  111. close(FP);
  112.  
  113. sub skip_to_line {
  114.     ($line) = @_;
  115.  
  116.     if ($line < 0) {
  117.     return;
  118.     }
  119.  
  120.     while (<FP>) {
  121.     print;
  122.     if ($. >= $line) {
  123.         last;
  124.     }
  125.     }
  126. }
  127.  
  128. sub mark_to_line {
  129.     ($line, $marker) = @_;
  130.  
  131.     if ($line < 0) {
  132.     return;
  133.     }
  134.  
  135.     while (<FP>) {
  136.     print "\000ps{gsave -5 0 rmoveto ($marker) show grestore}";
  137.     print;
  138.     if ($. >= $line) {
  139.         last;
  140.     }
  141.     }
  142. }
  143.