sf-run-evalid - minor change to make sure that evalid is run at the root of the build drive, which can stop the MD5s from being generated. (evalid requires dirs to be relative and not absolute)
#! perl -w
# Copyright (c) 2009 Symbian Foundation Ltd
# This component and the accompanying materials are made available
# under the terms of the License "Eclipse Public License v1.0"
# which accompanies this distribution, and is available
# at the URL "http://www.eclipse.org/legal/epl-v10.html".
#
# Initial Contributors:
# Symbian Foundation Ltd - initial contribution.
#
# Contributors:
#
# Description:
# Compares two files
use strict;
my $element;
my @union = ();
my @intersection = ();
my @difference = ();
my %count = ();
my $file1 = shift or die "Usage: $0 file1 file2 | optional -I[ntersection]\n";
my $file2 = shift or die "Usage: $0 file1 file2 | optional -I[ntersection]\n";
my $mode = shift;
open FILE1, "<$file1" or die "ERROR: Can't read $file1";
open FILE2, "<$file2" or die "ERROR: Can't read $file2";
my @file1_content = <FILE1>;
my @file2_content = <FILE2>;
close FILE1;
close FILE2;
print "* Comparing $file1 and $file2\n";
foreach $element (@file1_content, @file2_content) { $count{$element}++ }
foreach $element (keys %count) {
push @union, $element;
push @{ $count{$element} > 1 ? \@intersection : \@difference }, $element;
}
if (!defined $mode) {
if (@difference > 0) {
foreach (@difference){
print $_;
}
} else {
print "* Files are identical\n";
}
} elsif ($mode eq "-I") {
if (@intersection > 0) {
foreach (@intersection){
print $_;
}
}
} else {
print "Usage: $0 file1 file2 | optional -I[ntersection]\n";
}