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