-#! /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;
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;
}
# 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);
}
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