3 ($#ARGV >= 1) or die "Usage: index_create.pl <input-tag-file> <output-doc-file>";
14 if($line=~/compound kind=/) {
16 $type =~ s/^[^\"]*\"//;
18 $line=<FILE>;chomp $line;
20 if($line=~/member kind=/) {
22 $type =~ s/^[^\"]*\"//;
24 $line=<FILE>;chomp $line;
28 $name =~ s/.*<name>//;
29 $name =~ s/<\/name>.*//;
30 $database{$type}{$name} = 1;
38 open OUTPUT,"> $output";
40 /** \\defgroup API_index Index of the API
41 * \\ingroup SimGrid_API
42 * \\brief The alphabetical list of all functions, macros and types
45 * List of all functions, variables, defines, enums, and typedefs with
46 * links to the files they belong to.
50 foreach $type qw(define enumeration enumvalue function typedef) {
51 if(defined $database{$type}) {
52 print OUTPUT "<h2>$type</h2> \n <ul>\n";
53 foreach $name (sort keys %{$database{$type}}) {
54 if($type eq "function") {
55 print OUTPUT "\t<LI> $name()</LI>\n";
57 print OUTPUT "\t<LI> #$name</LI>\n";
60 print OUTPUT "\n </ul>\n";