head	1.2;access;symbols	zero-five-zero:1.2	zero-four-seventeen:1.1;locks	neto:1.2; strict;comment	@# @;1.2date	2000.09.17.04.24.30;	author neto;	state Exp;branches;next	1.1;1.1date	98.10.16.23.10.38;	author neto;	state Exp;branches;next	;desc@Generate data@1.2log@Added exit 0@text@#! @@PERL@@# @@configure_input@@use strict;my $mode = 1;sub doit {	$_ = shift;	if ( $mode ) { system $_;}	else { print $_,"\n"};}sub make_hk {print "About to create hkconfig.h\n";	open IN, "<src/lkconfig.h";	open OUT, ">src/hkconfig.h";	while (<IN>) {		if (m/^#undef LENGTH_DOUBLE/) {			print OUT "#define LENGTH_DOUBLE\n";		} elsif (m/^#define LENGTH_INT/) {			print OUT "#undef LENGTH_INT\n";		} else {			print OUT $_;#			print $_;		}	}	close IN;	close OUT;print "Done modifying hkconfig.h\n";	doit "(cd src; mv lkconfig.h lkconfig.h.orig; cp hkconfig.h lkconfig.h; make clean; make lk; mv lk hk;"			."mv lkconfig.h.orig lkconfig.h)";print "Done making hk\n";}doit "make";doit "(cd script; make myall)";doit "(cd src; ../script/lkdoitcmp)";make_hk;exit 0;my $d;my $s;my $n=1000;foreach $d (0..10) {	foreach $s (41..45) {		my $seed=$s*20 + $d;		doit "@@PERL@@ -I script script/tspbgen.pl -d $d -n $n -s $seed >data/ben.$d.$seed.$n.tsp";	}}exit 0;@1.1log@Initial revision@text@d41 1@