3 ($#ARGV >= 1) or die "Usage: index_create.pl <input-tag-file> <output-doc-file
\0>";
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
43 * List of all functions, variables, defines, enums, and typedefs with
44 * links to their documentation.
48 foreach $type qw(define enumeration enumvalue function typedef) {
49 if(defined $database{$type}) {
50 print OUTPUT "<h2>$type</h2> \n <ul>\n";
51 foreach $name (sort keys %{$database{$type}}) {
52 if($type eq "function") {
53 print OUTPUT "\t<LI> $name()</LI>\n";
55 print OUTPUT "\t<LI> #$name</LI>\n";
58 print OUTPUT "\n </ul>\n";