#!/usr/bin/perl -w
use strict;

my $one = shift;
my $two = shift;

sub convert($$) {
	my $in = shift;
	my $out = shift;
	open(IN, "<$in") || die "cannot open '$in'";

	while (<IN>) {
		s/^[[ 0-9s]*\] //;
		last if (/^\+ make .*all CONFIG_DEBUG_SECTION_MISMATCH/);
	}

	my @lines;
	my $start = 1;
	while (<IN>) {
		s/^[[ 0-9s]*\] //;
		next if ($start && /^\+/);
		$start = 0;
		last if (/^\+/);
		s/2\.6\.[0-9]+(\.[0-9]+)?//g;
		s/3\.[0-9]+(\.[0-9]+)?//g;
		s@/home/abuild/rpmbuild/@@g;
		s@/usr/src/packages/@@g;
		s/^CRC [0-9a-z]+$//g;
		s/^System is [0-9]+ kB$//g;
		s/^Root device is .*//g;
		if (/^(.+)(  (CC|LD|UNROLL) .*)$/) {
			push @lines, "$1\n";
			push @lines, "$2\n";
		} else {
			push @lines, $_;
		}
	}
	close IN;

	open(OUT, ">", $out) || die "cannot open '$out'";
	map { print OUT } sort @lines;
	close OUT;
}

convert($one, "/tmp/one.$$");
convert($two, "/tmp/two.$$");

system "diff -u -w -b -B /tmp/one.$$ /tmp/two.$$";

unlink "/tmp/one.$$";
unlink "/tmp/two.$$";

1;