1 | #! /usr/bin/perl -w
|
---|
2 | # short tool to find out all used icons and allows deleting unused icons
|
---|
3 | # when building release files
|
---|
4 |
|
---|
5 | my @default = (
|
---|
6 | "styles/standard/*.xml",
|
---|
7 | "styles/standard/*.mapcss",
|
---|
8 | "data/*.xml",
|
---|
9 | "src/org/openstreetmap/josm/*.java",
|
---|
10 | "src/org/openstreetmap/josm/*/*.java",
|
---|
11 | "src/org/openstreetmap/josm/*/*/*.java",
|
---|
12 | "src/org/openstreetmap/josm/*/*/*/*.java",
|
---|
13 | "src/org/openstreetmap/josm/*/*/*/*/*.java",
|
---|
14 | "src/org/openstreetmap/josm/*/*/*/*/*/*.java"
|
---|
15 | );
|
---|
16 |
|
---|
17 | my %icons;
|
---|
18 |
|
---|
19 | my $o = $/;
|
---|
20 |
|
---|
21 | for my $arg (@ARGV ? @ARGV : @default)
|
---|
22 | {
|
---|
23 | for my $file (glob($arg))
|
---|
24 | {
|
---|
25 | open(FILE,"<",$file) or die "Could not open $file\n";
|
---|
26 | #print "Read file $file\n";
|
---|
27 | $/ = $file =~ /\.java$/ ? ";" : $o;
|
---|
28 | my $extends = "";
|
---|
29 | while(my $l = <FILE>)
|
---|
30 | {
|
---|
31 | next if $l =~ /NO-ICON/;
|
---|
32 | if($l =~ /icon\s*[:=]\s*["']([^"'+]+?)["']/)
|
---|
33 | {
|
---|
34 | ++$icons{$1};
|
---|
35 | }
|
---|
36 |
|
---|
37 | if(($l =~ /(?:icon-image|repeat-image|fill-image)\s*:\s*(\"?(.*?)\"?)\s*;/) && ($1 ne "none"))
|
---|
38 | {
|
---|
39 | my $img = $2;
|
---|
40 | ++$icons{$img};
|
---|
41 | }
|
---|
42 | if($l =~ /ImageProvider(?:\.get)?\(\"([^\"]*?)\"(?:, ImageProvider.ImageSizes.[A-Z]+)?\)/)
|
---|
43 | {
|
---|
44 | my $i = $1;
|
---|
45 | ++$icons{$i};
|
---|
46 | }
|
---|
47 | while($l =~ /\/\*\s*ICON\s*\*\/\s*\"(.*?)\"/g)
|
---|
48 | {
|
---|
49 | my $i = $1;
|
---|
50 | ++$icons{$i};
|
---|
51 | }
|
---|
52 | while($l =~ /\/\*\s*ICON\((.*?)\)\s*\*\/\s*\"(.*?)\"/g)
|
---|
53 | {
|
---|
54 | my $i = "$1$2";
|
---|
55 | ++$icons{$i};
|
---|
56 | }
|
---|
57 | if($l =~ /new\s+ImageLabel\(\"(.*?)\"/)
|
---|
58 | {
|
---|
59 | my $i = "statusline/$1";
|
---|
60 | ++$icons{$i};
|
---|
61 | }
|
---|
62 | if($l =~ /createPreferenceTab\(\"(.*?)\"/)
|
---|
63 | {
|
---|
64 | my $i = "preferences/$1";
|
---|
65 | ++$icons{$i};
|
---|
66 | }
|
---|
67 | if($l =~ /setIcon\(\"(.*?)\"/)
|
---|
68 | {
|
---|
69 | my $i = "statusline/$1";
|
---|
70 | ++$icons{$i};
|
---|
71 | }
|
---|
72 | if($l =~ /ImageProvider\.get(?:IfAvailable)?\(\"(.*?)\",\s*\"(.*?)\"\s*\)/)
|
---|
73 | {
|
---|
74 | my $i = "$1/$2";
|
---|
75 | ++$icons{$i};
|
---|
76 | }
|
---|
77 | if($l =~ /new ImageProvider\(\"(.*?)\",\s*\"(.*?)\"\s*\)/)
|
---|
78 | {
|
---|
79 | my $i = "$1/$2";
|
---|
80 | ++$icons{$i};
|
---|
81 | }
|
---|
82 | if($l =~ /ImageProvider\.overlay\(.*?,\s*\"(.*?)\",/)
|
---|
83 | {
|
---|
84 | my $i = $1;
|
---|
85 | ++$icons{$i};
|
---|
86 | }
|
---|
87 | if($l =~ /getCursor\(\"(.*?)\",\s*\"(.*?)\"/)
|
---|
88 | {
|
---|
89 | my $i = "cursor/modifier/$2";
|
---|
90 | ++$icons{$i};
|
---|
91 | $i = "cursor/$1";
|
---|
92 | ++$icons{$i};
|
---|
93 | }
|
---|
94 | if($l =~ /ImageProvider\.getCursor\(\"(.*?)\",\s*null\)/)
|
---|
95 | {
|
---|
96 | my $i = "cursor/$1";
|
---|
97 | ++$icons{$i};
|
---|
98 | }
|
---|
99 | if($l =~ /SideButton*\(\s*(?:mark)?tr\s*\(\s*\".*?\"\s*\)\s*,\s*\"(.*?)\"/)
|
---|
100 | {
|
---|
101 | my $i = "dialogs/$1";
|
---|
102 | ++$icons{$i};
|
---|
103 | }
|
---|
104 | if($l =~ /super\(\s*tr\(\".*?\"\),\s*\"(.*?)\"/s)
|
---|
105 | {
|
---|
106 | my $i = "$extends$1";
|
---|
107 | ++$icons{$i};
|
---|
108 | }
|
---|
109 | if($l =~ /super\(\s*trc\(\".*?\",\s*\".*?\"\),\s*\"(.*?)\"/s)
|
---|
110 | {
|
---|
111 | my $i = "$extends$1";
|
---|
112 | ++$icons{$i};
|
---|
113 | }
|
---|
114 | if($l =~ /audiotracericon\",\s*\"(.*?)\"/s)
|
---|
115 | {
|
---|
116 | my $i = "markers/$1";
|
---|
117 | ++$icons{$i};
|
---|
118 | }
|
---|
119 | if($l =~ /\"(.*?)\",\s*parentLayer/s)
|
---|
120 | {
|
---|
121 | my $i = "markers/$1";
|
---|
122 | ++$icons{$i};
|
---|
123 | }
|
---|
124 | if($l =~ /setButtonIcons.*\{(.*)\}/)
|
---|
125 | {
|
---|
126 | my $t = $1;
|
---|
127 | while($t =~ /\"(.*?)\"/g)
|
---|
128 | {
|
---|
129 | my $i = $1;
|
---|
130 | ++$icons{$i};
|
---|
131 | }
|
---|
132 | }
|
---|
133 | if($l =~ /extends MapMode/)
|
---|
134 | {
|
---|
135 | $extends = "mapmode/";
|
---|
136 | }
|
---|
137 | elsif($l =~ /extends ToggleDialog/)
|
---|
138 | {
|
---|
139 | $extends = "dialogs/";
|
---|
140 | }
|
---|
141 | elsif($l =~ /extends JosmAction/)
|
---|
142 | {
|
---|
143 | $extends = "";
|
---|
144 | }
|
---|
145 | }
|
---|
146 | close FILE;
|
---|
147 | }
|
---|
148 | }
|
---|
149 |
|
---|
150 | my %haveicons;
|
---|
151 |
|
---|
152 | for($i = 1; my @ifiles = (glob("images".("/*" x $i).".png"), glob("images".("/*" x $i).".svg")); ++$i)
|
---|
153 | {
|
---|
154 | for my $ifile (sort @ifiles)
|
---|
155 | {
|
---|
156 | $ifile =~ s/^images\///;
|
---|
157 | # svg comes after png due to the glob, so only check for svg's
|
---|
158 | if($ifile =~ /^(.*)\.svg$/)
|
---|
159 | {
|
---|
160 | if($haveicons{"$1.png"})
|
---|
161 | {
|
---|
162 | print STDERR "File $1 exists twice as .svg and .png.\n";
|
---|
163 | }
|
---|
164 | # check for unwanted svg effects
|
---|
165 | if(open FILE, "<","images/$ifile")
|
---|
166 | {
|
---|
167 | undef $/;
|
---|
168 | my $f = <FILE>;
|
---|
169 | close FILE;
|
---|
170 | while($f =~ /style\s*=\s*["']([^"']+)["']/g)
|
---|
171 | {
|
---|
172 | for my $x (split(/\s*;\s*/, $1))
|
---|
173 | {
|
---|
174 | print STDERR "Style starts with minus for $ifile: $x\n" if $x =~ /^-/;
|
---|
175 | }
|
---|
176 | }
|
---|
177 | if($f =~ /viewBox\s*=\s*["']([^"']+)["']/)
|
---|
178 | {
|
---|
179 | my $x = $1;
|
---|
180 | print STDERR "ViewBox has float values for $ifile: $x\n" if $x =~ /\./;
|
---|
181 | }
|
---|
182 | }
|
---|
183 | else
|
---|
184 | {
|
---|
185 | print STDERR "Could not open file $ifile: $1";
|
---|
186 | }
|
---|
187 | }
|
---|
188 | $haveicons{$ifile} = 1;
|
---|
189 | }
|
---|
190 | }
|
---|
191 |
|
---|
192 | for my $img (sort keys %icons)
|
---|
193 | {
|
---|
194 | if($img =~ /\.(png|svg)/)
|
---|
195 | {
|
---|
196 | print STDERR "File $img does not exist!\n" if(!-f "images/$img");
|
---|
197 | delete $haveicons{$img};
|
---|
198 | }
|
---|
199 | else
|
---|
200 | {
|
---|
201 | print STDERR "File $img(.svg|.png) does not exist!\n" if(!-f "images/$img.png" && !-f "images/$img.svg");
|
---|
202 | delete $haveicons{"$img.svg"};
|
---|
203 | delete $haveicons{"$img.png"};
|
---|
204 | }
|
---|
205 | }
|
---|
206 |
|
---|
207 | for my $img (sort keys %haveicons)
|
---|
208 | {
|
---|
209 | print "$img\n";
|
---|
210 | }
|
---|