X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/9e00f3570db7ec3423c3f6916f33ca42b4ac4753..4e651064c117835e8a9340bc416a6dc1781cc56d:/tools/doxygen/xbt_log_extract_hierarchy.pl

diff --git a/tools/doxygen/xbt_log_extract_hierarchy.pl b/tools/doxygen/xbt_log_extract_hierarchy.pl
index 64d9a25c22..938d9535c1 100755
--- a/tools/doxygen/xbt_log_extract_hierarchy.pl
+++ b/tools/doxygen/xbt_log_extract_hierarchy.pl
@@ -1,10 +1,13 @@
-#! /usr/bin/perl
+#!/usr/bin/perl
 
 use strict;
 use warnings;
 
 my $debug = 0;
 
+print "/* Generated file, do not edit */\n";
+print "/** \\addtogroup XBT_log_cats\n";
+print "        \@{\n";
 
 # Search for calls to macros defining new channels, and prepare the tree representation
 my %ancestor;
@@ -87,7 +90,7 @@ sub parse_file {
         my ($name,$anc,$desc) = cleanup_ctn($1);
 	    
         # build the tree, checking for name conflict
-        die "ERROR: Category name conflict: $name used several times\n"
+        die "ERROR: Category name conflict: $name used several times (in $ancestor{$name} and $anc, last time in $filename)\n"
 	   if defined ($ancestor{$name}) && $ancestor{$name} ne $anc &&
               defined ($desc{$name}) && $desc{$name} ne $desc;
        $ancestor{$name}=$anc;
@@ -111,7 +114,7 @@ sub parse_file {
 }
 # Retrieve all the file names, and add their content to $data
 my $data;
-open FILES, "find -name '*.c'|" || die "Cannot search for the source file names: $!\n";
+open FILES, "find src/ tools/ include/ -name '*.c'|" || die "Cannot search for the source file names: $!\n";
 while (my $file=<FILES>) {
     chomp $file;
     parse_file($file); 	
@@ -150,3 +153,6 @@ sub check_connection {
 }
 check_connection("XBT_LOG_ROOT_CAT");	
 map {warn "Category $_ does not seem to be connected to the root (anc=$ancestor{$_})\n";} grep {!defined $used{$_}} sort keys %ancestor;    
+
+	
+print "@}*/";
\ No newline at end of file