Evergreen/staff_client/chrome/content/evergreen/util/make_wiki_table.pl

   1 #!/usr/bin/perl
   2
   3 print "^ file ^ functions ^\n";
   4 while ($f = pop @ARGV) {
   5         print("|" . $f . "|");
   6         open FILE, $f;
   7         while ($line = <FILE>) {
   8                 if ($line =~ /^function\s+(\w+)\s*(\(.*\))/) {
   9                         print $1 . $2 . '\\' . '\\' . ' ';
  10                 }
  11         }
  12         print "|\n";
  13         close FILE;
  14 }