X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;f=build%2Fdoc-defs;h=712968c319b4068c857bc4abd35ee95a2ade4b19;hb=b5b7b2641b00a18b53c48a1335846133f1d53168;hp=01cdb8d983065e720ab8339b894e7b92221271cd;hpb=f915505b0e1d50bc852406ce445364968b726bf5;p=libucw.git

diff --git a/build/doc-defs b/build/doc-defs
index 01cdb8d9..712968c3 100755
--- a/build/doc-defs
+++ b/build/doc-defs
@@ -16,9 +16,23 @@ 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 ];
+}
+
+my %groups = (
+	'enum' => 1,
+	'struct' => 1,
+	'function' => 2,
+	'variable' => 3,
+	'define' => 4
+);
+
+foreach( sort { ( $groups{$a->[2]} <=> $groups{$b->[2]} ) or ( $a->[3] cmp $b->[3] ); } @dump ) {
+	my( $file, $num, $type, $name, $text ) = @{$_};
 	my $dircp = $dir;
 	while( shift @{[ $dircp =~ /([^\/]+)/, "//" ]} eq shift @{[ $file =~ /([^\/]+)/, "///" ]} ) {
 		$dircp =~ s/[^\/]+\/?//;