build_kit

#!/usr/local/bin/perl

# $Header$

# Copyright (C) Richard P. Curnow  1998-2001
# LICENCE

# Script used to 'groom' the distribution for release after doing the 'cvs export'.
# (Although not really needed in the distribution, this is bundled for
# completeness and for 'disaster-recovery' purposes.)

# This is set here rather than computed as runtime so that it is
# version-controlled.  Otherwise, there is no way to guarantee being able to
# recreate an old version if the year has incremented since the kit was last
# built

$year = 2001;

@files = qx|find . -type f -print|;
open(COPY, "<LICINS");
@copy=<COPY>;
close(COPY);
for $f (@files) {
    chomp $f;
    $done = 0;
    print "doing $f\n";
    rename "$f","$f.tmp";
    open (IN, "<$f.tmp");
    open (OUT, ">$f");
    while (<IN>) {
	if (!$done && m,\/\* COPYRIGHT \*\/,) {
        # When the copyright string is not locally in the source file.  This is the default
        # for most of the parts Richard wrote.
	    print OUT "/**********************************************************************\n";
        print OUT " * Copyright (C) Richard P. Curnow  1998-$year\n";
	    for (@copy) {
            print OUT " * ".$_;
	    }
	    print OUT " *********************************************************************/\n";
        $done = 1;
	} elsif (!$done && m,\# COPYRIGHT,) {
	    print OUT "#\n";
        print OUT "# Copyright (C) Richard P. Curnow  1998-$year\n";
	    for (@copy) {
            print OUT "# ".$_;
	    }
	    print OUT "#\n";
        $done = 1;
	} elsif (!$done && m,\/\* LICEN[CS]E \*\/,) {
        # For the case where the copyright strings are in the file itself.  This may be
        # the case with multiple contributors.
        print OUT "/*\n";
	    for (@copy) {
            print OUT " * ".$_;
	    }
        print OUT "*/\n";
        $done = 1;
	} elsif (!$done && m,\# LICEN[CS]E,) {
        # For the case where the copyright strings are in the file itself.  This may be
        # the case with multiple contributors.
	    for (@copy) {
            print OUT "# ".$_;
	    }
        $done = 1;
	} else {
	    print OUT;
	}
    }
    close(IN);
    close(OUT);
    unlink "$f.tmp";
}

# Remove files that are not relevant in the .tar.gz distribution
# (they can be obtained via CVS for people who want them.)
unlink "build_kit";
unlink "make_release.pl";
unlink "LICINS";
system "rm -rf tests";

# Ensure configure can run out of the box in the expected way!
chmod 0755, "configure";