1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
#!/usr/bin/env perl
# -*- perl -*-
# Licensed to the Apache Software Foundation (ASF) under one
# or more contributor license agreements. See the NOTICE file
# distributed with this work for additional information
# regarding copyright ownership. The ASF licenses this file
# to you under the Apache License, Version 2.0 (the
# "License"); you may not use this file except in compliance
# with the License. You may obtain a copy of the License at
#
# http://www.apache.org/licenses/LICENSE-2.0
#
# Unless required by applicable law or agreed to in writing,
# software distributed under the License is distributed on an
# "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
# KIND, either express or implied. See the License for the
# specific language governing permissions and limitations
# under the License.
require 5.005;
use File::Find;
my @files = ();
my $quiet = 0;
if ($#ARGV < 0) {
die "usage: $0 [-q] file | directory ...\n";
}
if ($ARGV[0] eq "-q") {
$quiet = 1;
shift @ARGV;
}
foreach my $name (@ARGV) {
if (-f $name) {
push @files, $name;
} elsif (-d $name) {
find(sub {
if (-f && m,\.java$, || -f && m,\bBundle.properties$,) {
push @files, $File::Find::name;
}
},
$name);
}
}
#
# read Bundle.properties
#
@props = ();
foreach $f (@files) {
next if $f !~ m,\bBundle.properties$,i;
print STDERR "*** $f\n" unless $quiet;
open FH, "< $f" or die;
{
local $/ = undef;
$all = <FH>;
}
close FH;
@lines = split /\r\n|\n|\r/, $all;
for ($lineno = 0; $lineno <= $#lines; $lineno++) {
$_ = $lines[$lineno];
next if /^\s*#/;
next if /^\s*$/;
if (m,^([^=]+)=(.*)$,) {
$k = $1;
$k =~ s,\\ , ,g;
push @props, { key => $k,
file => $f,
lineno => $lineno + 1,
line => $_,
used => 0
};
}
while (m,\\$, && $lineno <= $#lines) {
$lineno++;
$_ = $lines[$lineno];
}
}
}
#
# go through *.java
#
foreach $f (@files) {
next if $f =~ m,\bBundle.properties$,i;
print STDERR "*** $f\n" unless $quiet;
open FH, "< $f" or die;
{
local $/ = undef;
$all = <FH>;
}
close FH;
foreach $p (@props) {
next if $p->{used} > 0;
$pat = $p->{key};
$pat = quotemeta $pat;
$p->{used}++ if $all =~ m,\"$pat\",;
}
}
foreach $p (@props) {
next if $p->{line} =~ m!/!; # probably a filename localization, not in Java code
next if $p->{line} =~ m!^OpenIDE-Module-!; # manifest localization, not in Java code
print "$p->{file}:$p->{lineno}: $p->{line}\n" if $p->{used} == 0;
}
|
