Codestin Search App

This repository was archived by the owner on Oct 4, 2020. It is now read-only.

44 lines (40 loc) · 849 Bytes

--- fixcvsdiff-ori.in Fri Apr 19 21:32:12 2002

+++ fixcvsdiff.in Fri Apr 19 21:36:57 2002

@@ -10,6 +10,8 @@

# -b keeps a .bak backup file

+# -a converts pathes to diff'ed files using RCS file path

# Based on code by Amir Karger <[email protected]>

# Modified by John Levon <[email protected]>

@@ -20,10 +22,10 @@

# your option) any later version.

use Getopt::Std;

-our ($opt_b,$opt_p);

+our ($opt_b,$opt_p,$opt_a);

$add = 0;

-getopts('pb');

+getopts('pba');

if (defined($opt_b)) {

$^I = '.bak';

@@ -36,6 +38,9 @@

if (/^Index: (.*)/) {

$Filename = $1;

}

+ if (/^RCS\ file: (.*)$Filename,v$/) {

+ $p = $1;

+ }

if (!defined($Filename)) {

print;

@@ -72,5 +77,9 @@

$add = 0;

}

+ if($opt_a) {

+ s#^\-\-\- $Filename#--- $p$Filename#;

+ s#^\+\+\+ $Filename#+++ $p$Filename#;

+ }

print;

}

FilesExpand file tree