]> mj.ucw.cz Git - libucw.git/commitdiff
Doc. system: definitions are sorted
authorMichal Vaner <vorner@ucw.cz>
Wed, 10 Sep 2008 19:05:01 +0000 (21:05 +0200)
committerMichal Vaner <vorner@ucw.cz>
Wed, 10 Sep 2008 19:05:01 +0000 (21:05 +0200)
According to the symbol name.

build/doc-defs

index 01cdb8d983065e720ab8339b894e7b92221271cd..38988187dc749977ef902753d3ec6353b848d161 100755 (executable)
@@ -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/[^\/]+\/?//;