From b63dd2d3f2765ae5a882f3de4722fac981cbad3f Mon Sep 17 00:00:00 2001 From: Michal Vaner Date: Wed, 10 Sep 2008 21:05:01 +0200 Subject: [PATCH] Doc. system: definitions are sorted According to the symbol name. --- build/doc-defs | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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/[^\/]+\/?//; -- 2.39.5