X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/c98caf892fd5afe6ea51520fefd8e698cb625cf0..97638e67686e0e77ae56572ab433b1f9a45406a0:/docs/bin/extract_logs_hierarchy.pl

diff --git a/docs/bin/extract_logs_hierarchy.pl b/docs/bin/extract_logs_hierarchy.pl
new file mode 100755
index 0000000000..a6f3dfe8b4
--- /dev/null
+++ b/docs/bin/extract_logs_hierarchy.pl
@@ -0,0 +1,120 @@
+#!/usr/bin/env perl
+
+# Copyright (c) 2008-2021. The SimGrid Team.
+# All rights reserved.
+
+# This program is free software; you can redistribute it and/or modify it
+# under the terms of the license (GNU LGPL) which comes with this package.
+
+use strict;
+use warnings;
+
+my $debug = 0;
+
+print ".. Generated file, do not edit \n\n";
+print ".. _logging_categories:\n\n";
+print "Existing categories\n";
+print "===================\n\n";
+
+# Search for calls to macros defining new channels, and prepare the tree representation
+my %ancestor;
+my %desc;
+# $ancestor{"toto"} is the ancestor of the toto channel as declared by XBT_LOG_NEW_SUBCATEGORY and
+# XBT_LOG_NEW_DEFAULT_SUBCATEGORY ie, when the channel toto is initialized (does not work under windows)
+
+# $desc{"toto"} is its description
+
+sub cleanup_ctn {
+    my $ctn = shift;        # cleanup the content of a macro call
+    $ctn =~ s/^\s*(.*)\s*$/$1/gs;
+    my @elms;
+    print STDERR "ctn=$ctn\n" if $debug > 1;
+    if ($ctn =~ m/^(\w+)\s*,\s*(\w+)\s*,\s*"?([^"]*)"?$/s) {
+	# Perfect, we got 0->name; 1->anc; 2->desc
+	$elms[0] = $1;
+	$elms[1] = $2;
+	$elms[2] = $3;
+    } elsif ($ctn =~ m/^(\w+)\s*,\s*"?([^"]*)"?$/s) {
+	# Mmm. got no ancestor. Add the default one.
+	$elms[0] = $1;
+	$elms[1] = "XBT_LOG_ROOT_CAT";
+	$elms[2] = $2;
+    } else {
+	die "Unparsable content: $ctn\n";
+    }
+    $elms[2] =~ s/\\\\/\\/gs;
+    return @elms;
+}
+
+sub parse_file {
+    my $filename = shift;
+
+    my $data = "";
+
+    print STDERR "Parse $filename\n" if $debug;
+    open IN, "$filename" || die "Cannot read $filename: $!\n";
+    while (<IN>) {
+	$data .= $_;
+    }
+    close IN;
+
+    # Purge $data from C and C++ comments
+    $data =~ s|/\*.*?\*/||sg;
+    $data =~ s|//.*$||mg;
+
+    while ($data =~ s/^.*?XBT_LOG_NEW(_DEFAULT)?_(SUB)?CATEGORY\(//s) {
+	$data =~ s/([^"]*"[^"]*")\)//s || die "unparsable macro: $data";
+
+        my ($name,$anc,$desc) = cleanup_ctn($1);
+
+        # build the tree, checking for name conflict
+        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;
+       $desc{$name}=$desc;
+
+       print STDERR " $name -> $anc\n" if $debug;
+   }
+}
+# Retrieve all the file names
+my $path = $ARGV[0] // "..";
+open FILES, "find $path/src/ $path/tools/ $path/include/ -name '*.c' -o -name '*.cpp' |" || die "Cannot search for the source file names: $!\n";
+while (my $file=<FILES>) {
+    chomp $file;
+    parse_file($file); 	
+}
+parse_file("$path/include/xbt/sysdep.h");
+close FILES;
+
+# Display the tree, looking for disconnected elems
+my %used;
+
+sub display_subtree {
+    my $name=shift;
+    my $indent=shift;
+    
+    $used{$name} = 1;
+    unless ($name eq "XBT_LOG_ROOT_CAT") { # do not display the root
+	print "$indent - $name: ".($desc{$name}|| "(undocumented)")."\n";
+    }
+
+    my $state = 0; # 0: before the sublist; 1, within; 2: after
+    foreach my $cat (grep {$ancestor{$_} eq $name} sort keys %ancestor) {
+	if ($state == 0) {
+	    $state = 1;
+	    print "\n";
+	}
+	display_subtree($cat, $name eq "XBT_LOG_ROOT_CAT" ? $indent: "$indent  ");
+    }
+    if ($state != 0) {
+	print "\n";
+    }
+}
+
+display_subtree("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 "\n";