From: Michal Vaner <vorner@ucw.cz>
Date: Wed, 10 Sep 2008 19:05:01 +0000 (+0200)
Subject: Doc. system: definitions are sorted
X-Git-Tag: holmes-import~317
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=b63dd2d3f2765ae5a882f3de4722fac981cbad3f;p=libucw.git

Doc. system: definitions are sorted

According to the symbol name.
---

diff --git a/build/doc-defs b/build/doc-defs
index 01cdb8d9..38988187 100755
--- a/build/doc-defs
+++ b/build/doc-defs
@@ -16,9 +16,15 @@ close HEAD;
 my $dir = $out;
 $dir =~ s/\/[^\/]+$//;
 
+my @dump;
+
 while( defined( my $line = <> ) ) {
 	chomp $line;
-	my( $file, $num, $type, $name, $text ) = split /,/, $line, 5;
+	push @dump, [ split /,/, $line, 5 ];
+}
+
+foreach( sort { $a->[3] cmp $b->[3]; } @dump ) {
+	my( $file, $num, $type, $name, $text ) = @{$_};
 	my $dircp = $dir;
 	while( shift @{[ $dircp =~ /([^\/]+)/, "//" ]} eq shift @{[ $file =~ /([^\/]+)/, "///" ]} ) {
 		$dircp =~ s/[^\/]+\/?//;