#!/usr/bin/perl -T -t -w -W

# Sort each line of the input, ignoring any line beginning with a #.
# Also format the output so that it is properly aligned, with exceptions
# for values which are too long for their respective field.

print <<HEADER;
#
# Sorted using sort_set.pl in releasetools.
# to add an entry simply add it at the end of the
# file and run
# ../../../../releasetools/sort_set.pl < mi > out
# mv out mi
#
HEADER

while(<STDIN>) {
	# Ignore any line starting with a '#'
	if ($_ =~ m/#.*/) {
		next;
	}

	# Entry with a condition field, one or more whitespace characters
	# separate each column. Example:
	# ./etc/X11	minix-base	xorg
	if ($_ =~ m/(\S+)\s+(\S+)\s+(\S+)/) {
		my ($f, $s, $c) = ($1, $2, $3);
		$k = "$f.$c";
		$files{$k} = $f;
		$sets{$k} = $s;
		$conditions{$k} = $c;
		next;
	}

	# Entry without a condition field. Example:
	# ./bin		minix-base
	if ($_ =~ m/(\S+)\s+(\S+)/) {
		my ($f, $s) = ($1, $2);
		$k = "$f.";
		$files{$k} = $f;
		$sets{$k} = $s;
	}
}

# Sort by file/directory name.
foreach $key (sort keys %sets) {
	$file = $files{$key};
	$set = $sets{$key};

	if (length($file) < 56) {
		printf("%-55s ", $file);
	} else {
		printf("%s ", $file);
	}

	$last = $set;
	if (exists($conditions{$key})) {
		# A condition is present, so make sure it is printed with
		# the required alignment, by adding the necessary padding
		# after the set column. Otherwise do not add trailing
		# spaces.
		$last = $conditions{$key};
		if (length($set) < 16) {
			printf("%-15s ", $set);
		} else {
			printf("%s ", $set);
		}
	}

	printf("%s\n", $last);
}