mkcwebch.pl,v

Lin-Kernighan heuristic for the TSP and minimum weight perfect matching

head	1.1;
access;
symbols
	zero-five-zero:1.1
	zero-four-seventeen:1.1
	zero-four-ten:1.1
	zero-four-nine:1.1
	zero-four-eight:1.1
	zero-four-five:1.1
	zero-four-zero:1.1;
locks
	neto:1.1; strict;
comment	@# @;


1.1
date	97.11.15.23.43.43;	author neto;	state Exp;
branches;
next	;


desc
@Make CWEB change file.
This is *almost* perfect.
@


1.1
log
@Initial revision
@
text
@#! /usr/bin/perl
# mkcwebch.pl
# Make a CWEB change file.  
# The original file is the first argument name.
# The new file is the first argument name.
# Output the change file to standard output.

if ( $#ARGV != 1 ) { &usage; die "Need two file arguments\n"; }

open(DIFF,"diff $ARGV[0] $ARGV[1] |");

# 0 before orig;
# 1 in orig;
# 2 between orig and new
# 3 in new;
# 4 after new;
$state = 0; 

LINE: while($line=<DIFF>) {
	if ( $line=~ m/^< (.*)/ ) {
		if ( $state != 1 ) {
			if ( $state == 2 ) { print "\@@y\n\@@z\n"; }
			if ( $state == 3 || $state == 4 ) { print "\@@z\n"; }
			print "\@@x\n";
		}
		print "$1\n";
		$state=1; next LINE;
	} elsif ( $line=~ m/^> (.*)/ ) {
		if ( $state != 3 ) {
			if ( $state == 0 ) { print "\@@x\n"; }
			if ( $state == 4 ) { print "\@@z\n\@@x\n"; }
			print "\@@y\n";
		}
		print "$1\n";
		$state=3; next LINE;
	} else { 
		if ( $state==1 ) {$state=2;}
		elsif ( $state==3 ) {$state=4;}
	}
}
if ( $state==3 ) {print "\@@z\n";}
@