#! /usr/local/bin/perl
#
# check-subclones.pl
# Reports inconsistency errors in subclones file.
#
# Usage: check-subclones.pl subclones
#
# 04-Apr-1995 Created -- SD
#
#######################################################################
# This software has been created by Genome Research Limited (GRL).    # 
# GRL hereby grants permission to use, copy, modify and distribute    # 
# this software and its documentation for non-commercial purposes     # 
# without fee at the user's own risk on the basis set out below.      #
# GRL neither undertakes nor accepts any duty whether contractual or  # 
# otherwise in connection with the software, its use or the use of    # 
# any derivative, and makes no representations or warranties, express #
# or implied, concerning the software, its suitability, fitness for   #
# a particular purpose or non-infringement.                           #
# In no event shall the authors of the software or GRL be responsible # 
# or liable for any loss or damage whatsoever arising in any way      # 
# directly or indirectly out of the use of this software or its       # 
# derivatives, even if advised of the possibility of such damage.     #
# Our software can be freely distributed under the conditions set out # 
# above, and must contain this copyright notice.                      #
#######################################################################

$last_plate = "unknown";
@err = ();

while (<>) {
    chomp;
    if (/^\s*$/) {
	$errs++;
	push(@err,"WARNING: There are blank lines. Please remove.");
    }
    ($plate) = $_ =~ /^(\S+)/;
    if ($plate eq $last_plate) {
	$errs++;
	push(@err,"Information for plate $plate appears twice");
	push(@err, "	$last");
	push(@err, "	$_");
    }
    $last = $_;
    $last_plate = $plate;
}

if (@err) {
    warn "WARNING: Problems have been found in the subclones file.\n";
    warn "\n";
   
    warn join("\n",@err),"\n";

    warn "\n$errs errors found.\n";
    warn "Please correct them and rebuild using gmake.\n";
}
