tools/doxygen/index_create.pl

   1 #!/usr/bin/perl -w
   2
   3 ($#ARGV >= 1) or die "Usage: index_create.pl <input-tag-file> <output-doc-file>";
   4
   5 my($type) = "";
   6 my($name) = "";
   7 my(%database);
   8
   9 $input  = $ARGV[0];
  10 $output = $ARGV[1];
  11 open FILE,$input;
  12 while($line=<FILE>) {
  13     chomp $line;
  14     if($line=~/compound kind=/) {
  15         $type = $line;
  16         $type =~ s/^[^\"]*\"//;
  17         $type =~ s/\".*$//;
  18         $line=<FILE>;chomp $line;
  19     }
  20     if($line=~/member kind=/) {
  21         $type = $line;
  22         $type =~ s/^[^\"]*\"//;
  23         $type =~ s/\".*$//;
  24         $line=<FILE>;chomp $line;
  25     }
  26     if($line=~/<name>/) {
  27         $name = $line;
  28         $name =~ s/.*<name>//;
  29         $name =~ s/<\/name>.*//;
  30         $database{$type}{$name} = 1;
  31         $type = "";
  32         $name = "";
  33         next;
  34     }
  35 }
  36 close FILE;
  37
  38 open OUTPUT,"> $output";
  39 print OUTPUT <<EOF;
  40 This file was generated by tools/doxygen/index_create.pl. DO NOT EDIT.
  41
  42 /** \\defgroup API_index Full Index
  43  * \\brief The alphabetical list of all functions, macros and types
  44  *  defined by SimGrid
  45  *
  46  * List of all functions, variables, defines, enums, and typedefs with
  47  * links to the files they belong to.
  48  *
  49  * \\htmlonly Although completely useless, the complete list of structures defined can be found <a href="annotated.html">here</a> \\endhtmlonly
  50
  51
  52 EOF
  53
  54 foreach $type (qw(define enumeration enumvalue function typedef)) {
  55     if(defined $database{$type}) {
  56         print OUTPUT "<h2>$type</h2> \n  <ul>\n";
  57         foreach $name (sort keys %{$database{$type}}) {
  58             if($type eq "function") {
  59                 print OUTPUT "\t<LI> $name()</LI>\n";
  60             } else {
  61                 print OUTPUT "\t<LI> #$name</LI>\n";
  62             }
  63         }
  64         print OUTPUT "\n  </ul>\n";
  65     }
  66 }
  67 print OUTPUT "*/";
  68 close OUTPUT;
  69