#!/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;