[Axiom-developer] A perl script to create an index of boot function definitions

[David MENTRE]

Hello,

Here is a small perl script that creates an index of all Boot function
definitions. 

This script can be used in a 'M-x grep' of Emacs.

#!/usr/bin/perl  -w

# This small script that the name of boot functions definition, with
# corresponding source file where it is defined.


# usage: THIS-SCRIPT *.boot.pamphlet

while ($target = shift) {
  open(IN,"<$target") or die "No files $target\n"; # for each file
  $line = 1;
  while (<IN>) { # for each line of $target file
      if ($_ =~ /^([^-\s;]+.*==)/ ) { # match a line that don't have a 
whitespace, 
                                      # a '-' or a ';' as first character and 
that
                                      # contains a '=='
          print "$target:$line: $1\n";
      }
      $line++;
  }
  close(IN);
}

# script end


Yours,
d.
-- 
 address@hidden