LaTeX-Fehler beim Drucken von Symbolen behoben.

[kivitendo-erp.git] / scripts / create_tags_file.pl

diff --git a/scripts/create_tags_file.pl b/scripts/create_tags_file.pl
index 712493b..d7cef8e 100644 (file)
--- a/scripts/create_tags_file.pl
+++ b/scripts/create_tags_file.pl
@@ -1,3 +1,5 @@
+#!/usr/bin/perl
+#
 ########################################################
 #
 # This script creates a 'tags' file in the style of ctags
@@ -18,11 +20,21 @@ use strict;
 use warnings FATAL =>'all';
 use diagnostics;
 
-my $dir = IO::Dir->new("SL/");
+use Getopt::Long;
+
+my $parse_SL         = 1;
+my $parse_binmozilla = 0;
+GetOptions("sl!"         => \$parse_SL,
+           "pm!"         => \$parse_SL,
+           "binmozilla!" => \$parse_binmozilla,
+           "pl!"         => \$parse_binmozilla,
+           );
 
-my @files = grep {/\.pm$/} $dir->read();
+my @files = ();
+push @files, grep { /\.pm$/ && s{^}{SL/}gxms         } IO::Dir->new("SL/")->read()          if $parse_SL;
+push @files, grep { /\.pl$/ && s{^}{bin/mozilla/}gxms} IO::Dir->new("bin/mozilla/")->read() if $parse_binmozilla;
 
-@files = grep { s{^}{SL\/}gxms } @files;
+#map { s{^}{SL\/}gxms } @files;
 
 #print Dumper(@files);
 
@@ -39,4 +51,4 @@ my $tagsfile="tags";
 $naive_tagger->output( outfile => $tagsfile );
 
 
-1;
\ No newline at end of file
+1;