3 ########################################################
5 # This script creates a 'tags' file in the style of ctags
6 # out of the SL/ modules.
7 # Tags file is usable in some editors (vim, joe, emacs, ...).
8 # See your editors documentation for more information.
10 # (c) Udo Spallek, Aachen
11 # Licenced under GNU/GPL.
13 ########################################################
20 use warnings FATAL =>'all';
26 my $parse_binmozilla = 0;
27 GetOptions("sl!" => \$parse_SL,
29 "binmozilla!" => \$parse_binmozilla,
30 "pl!" => \$parse_binmozilla,
34 push @files, grep { /\.pm$/ && s{^}{SL/}gxms } IO::Dir->new("SL/")->read() if $parse_SL;
35 push @files, grep { /\.pl$/ && s{^}{bin/mozilla/}gxms} IO::Dir->new("bin/mozilla/")->read() if $parse_binmozilla;
37 #map { s{^}{SL\/}gxms } @files;
39 #print Dumper(@files);
42 my $naive_tagger = Perl::Tags::Naive->new( max_level=>1 );
43 $naive_tagger->process(
50 # of course, it may not even output, for example, if there's nothing new to process
51 $naive_tagger->output( outfile => $tagsfile );