-#!/usr/bin/perl -w
+#!/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>";
if($type eq "function") {
print OUTPUT "\t<LI> $name()</LI>\n";
} else {
- print OUTPUT "\t<LI> #$name</LI>\n";
+ 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";