#!/usr/bin/perl -w
# Copyright (c) 2000, 2001 Udo Erdelhoff. All rights reserved.
# Written for the FreeBSD German Documentation Project
#
# Redistribution and use in source and compiled forms, with or without
# modification, are permitted provided that the following conditions
# are met:
#
#  1. Redistributions of source code must retain the above
#     copyright notice, this list of conditions and the following
#     disclaimer as the first lines of this file unmodified.
#
#  2. Redistributions in compiled form must reproduce the above
#     copyright notice, this list of conditions and the following
#     disclaimer in the documentation and/or other materials provided
#     with the distribution.
#
# THIS SOFTWARE IS PROVIDED BY UDO ERDELHOFF "AS IS" AND ANY EXPRESS OR
# IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
# DISCLAIMED. IN NO EVENT SHALL UDO ERDELHOFF BE LIABLE FOR ANY DIRECT,
# INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR
# SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
# STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
# IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
# POSSIBILITY OF SUCH DAMAGE.
#
# $Id: sortmanent,v 1.6 2002/11/24 17:08:19 ue Exp $;

# Let's KISS
my (%temp, $entity, $page, $vol, $foo, $lastvol);

while (<>) {
	chomp;

# This should be doable with a single RE
	if (/ vendor=\'/) {
		($entity, $page, $vol) = m%^<!ENTITY (.*?) \"<citerefentry vendor=\'.*?\'/<refentrytitle/(.*?)/<manvolnum/([0-9nl])//\">$%;     # "
	} else {
		($entity, $page, $vol) = m%^<!ENTITY (.*?) \"<citerefentry/<refentrytitle/(.*?)/<manvolnum/([0-9nl])//\">$%;    # "
	}
	unless (defined $entity && defined $page && defined $vol) {
		print "$_\n";
		next;
	}
	($page, $vol) = $entity =~ /^man\.(.*?)\.([0-9nl])$/;
	$foo = "$vol $page";
	$temp{$foo} = $_;
}

undef $lastvol;
foreach $foo (sort keys %temp) {
	($vol, $page) = split / /, $foo;
	if (defined $lastvol and $vol ne $lastvol) {
		print "\n";
	}
	print "$temp{$foo}\n";
	$lastvol = $vol;
}