projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 2008 Lieferdatum in Gutschrift
[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
########################################################
#
# This script creates a 'tags' file in the style of ctags
@@
-18,11
+20,21
@@
use strict;
use warnings FATAL =>'all';
use diagnostics;
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 = gre
p { s{^}{SL\/}gxms } @files;
+
#ma
p { s{^}{SL\/}gxms } @files;
#print Dumper(@files);
#print Dumper(@files);
@@
-39,4
+51,4
@@
my $tagsfile="tags";
$naive_tagger->output( outfile => $tagsfile );
$naive_tagger->output( outfile => $tagsfile );
-1;
\ No newline at end of file
+1;