X-Git-Url: http://info.iut-bm.univ-fcomte.fr/pub/gitweb/simgrid.git/blobdiff_plain/5a9c845da2c148a5e6319c698b0e539ee3351164..a01a7e62056a8ca98b42a0c5c91d0eb84c28c2ef:/tools/doxygen/index_create.pl

diff --git a/tools/doxygen/index_create.pl b/tools/doxygen/index_create.pl
deleted file mode 100755
index 987f2a1504..0000000000
--- a/tools/doxygen/index_create.pl
+++ /dev/null
@@ -1,81 +0,0 @@
-#!/usr/bin/env perl
-
-# Copyright (c) 2005, 2012-2014. 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 warnings;
-
-($#ARGV >= 1) or die "Usage: index_create.pl <input-tag-file> <output-doc-file>";
-
-my($type) = "";
-my($name) = "";
-my(%database);
-
-$input  = $ARGV[0];
-$output = $ARGV[1];
-open FILE,$input;
-while($line=<FILE>) {
-    chomp $line;
-    if($line=~/compound kind=/) {
-	$type = $line;
-	$type =~ s/^[^\"]*\"//;
-	$type =~ s/\".*$//;
-	$line=<FILE>;chomp $line;
-    }
-    if($line=~/member kind=/) {
-	$type = $line;
-	$type =~ s/^[^\"]*\"//;
-	$type =~ s/\".*$//;
-	$line=<FILE>;chomp $line;
-    }
-    if($line=~/<name>/) {
-	$name = $line;
-	$name =~ s/.*<name>//;
-	$name =~ s/<\/name>.*//;
-	$database{$type}{$name} = 1;
-	$type = "";
-	$name = "";
-	next;
-    }
-}
-close FILE;
-
-open OUTPUT,"> $output";
-print OUTPUT <<EOF;
-This file was generated by tools/doxygen/index_create.pl. DO NOT EDIT.
-
-/** \\defgroup API_index Full Index
- * \\brief The alphabetical list of all functions, macros and types
- *  defined by SimGrid
- *
- * List of all functions, variables, defines, enums, and typedefs with
- * links to the files they belong to.
- *
- * \\htmlonly Although completely useless, the complete list of structures defined can be found <a href="annotated.html">here</a> \\endhtmlonly
-
-EOF
-
-foreach $type (qw(define enumeration enumvalue function typedef)) {
-    if(defined $database{$type}) {
-	print OUTPUT "<h2>$type</h2> \n  <ul>\n";
-	foreach $name (sort keys %{$database{$type}}) {
-	    if($type eq "function") {
-		print OUTPUT "\t<LI> $name()</LI>\n";
-	    } else {
-          if($type eq "enumeration") {
-		    print OUTPUT "\t<LI> ".$name."::EType</LI>\n";
-          }
-          else {
-		    print OUTPUT "\t<LI> #$name</LI>\n";
-          }
-	    }
-	}
-	print OUTPUT "\n  </ul>\n";
-    }
-}
-print OUTPUT "*/";
-close OUTPUT;
-