From owner-p4-projects@FreeBSD.ORG  Wed Feb  2 14:07:18 2005
Return-Path: <owner-p4-projects@FreeBSD.ORG>
Delivered-To: p4-projects@freebsd.org
Received: by hub.freebsd.org (Postfix, from userid 32767)
	id B880316A4D0; Wed,  2 Feb 2005 14:07:17 +0000 (GMT)
Delivered-To: perforce@freebsd.org
Received: from mx1.FreeBSD.org (mx1.freebsd.org [216.136.204.125])
	by hub.freebsd.org (Postfix) with ESMTP id 9289516A4CE
	for <perforce@freebsd.org>; Wed,  2 Feb 2005 14:07:17 +0000 (GMT)
Received: from repoman.freebsd.org (repoman.freebsd.org [216.136.204.115])
	by mx1.FreeBSD.org (Postfix) with ESMTP id 7C0A043D39
	for <perforce@freebsd.org>; Wed,  2 Feb 2005 14:07:17 +0000 (GMT)
	(envelope-from des@freebsd.org)
Received: from repoman.freebsd.org (localhost [127.0.0.1])
	by repoman.freebsd.org (8.13.1/8.13.1) with ESMTP id j12E7H66045263
	for <perforce@freebsd.org>; Wed, 2 Feb 2005 14:07:17 GMT
	(envelope-from des@freebsd.org)
Received: (from perforce@localhost)
	by repoman.freebsd.org (8.13.1/8.13.1/Submit) id j12E7HW8045260
	for perforce@freebsd.org; Wed, 2 Feb 2005 14:07:17 GMT
	(envelope-from des@freebsd.org)
Date: Wed, 2 Feb 2005 14:07:17 GMT
Message-Id: <200502021407.j12E7HW8045260@repoman.freebsd.org>
X-Authentication-Warning: repoman.freebsd.org: perforce set sender to
	des@freebsd.org using -f
From: Dag-Erling Smorgrav <des@FreeBSD.org>
To: Perforce Change Reviews <perforce@freebsd.org>
Subject: PERFORCE change 70148 for review
X-BeenThere: p4-projects@freebsd.org
X-Mailman-Version: 2.1.1
Precedence: list
List-Id: p4 projects tree changes <p4-projects.freebsd.org>
List-Unsubscribe: <http://lists.freebsd.org/mailman/listinfo/p4-projects>,
	<mailto:p4-projects-request@freebsd.org?subject=unsubscribe>
List-Archive: <http://lists.freebsd.org/pipermail/p4-projects>
List-Post: <mailto:p4-projects@freebsd.org>
List-Help: <mailto:p4-projects-request@freebsd.org?subject=help>
List-Subscribe: <http://lists.freebsd.org/mailman/listinfo/p4-projects>,
	<mailto:p4-projects-request@freebsd.org?subject=subscribe>
X-List-Received-Date: Wed, 02 Feb 2005 14:07:18 -0000

http://perforce.freebsd.org/chv.cgi?CH=70148

Change 70148 by des@des.at.des.thinksec.com on 2005/02/02 14:07:11

	Sort cross-references in dictionary order.
	
	Requested by:	ru@

Affected files ...

.. //depot/projects/openpam/misc/gendoc.pl#30 edit

Differences ...

==== //depot/projects/openpam/misc/gendoc.pl#30 (text+ko) ====

@@ -32,7 +32,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $P4: //depot/projects/openpam/misc/gendoc.pl#29 $
+# $P4: //depot/projects/openpam/misc/gendoc.pl#30 $
 #
 
 use strict;
@@ -341,13 +341,21 @@
     $func->{'errors'} = [ sort(keys(%errors)) ];
 }
 
+sub dictionary_order($$) {
+    my ($a, $b) = @_;
+
+    $a =~ s/[^[:alpha:]]//g;
+    $b =~ s/[^[:alpha:]]//g;
+    $a cmp $b;
+}
+
 sub genxref($) {
     my $xref = shift;		# References
 
     my $mdoc = '';
     my @refs = ();
     foreach my $sect (sort(keys(%{$xref}))) {
-	foreach my $page (sort(keys(%{$xref->{$sect}}))) {
+	foreach my $page (sort(dictionary_order keys(%{$xref->{$sect}}))) {
 	    push(@refs, "$page $sect");
 	}
     }