]> git.xonotic.org Git - voretournament/voretournament.git/blob - misc/tools/dependencies.pl
Switch to a new system of defining HUD element positions. This will currently break...
[voretournament/voretournament.git] / misc / tools / dependencies.pl
1 #!/usr/bin/perl
2
3 use strict;
4 use warnings;
5
6 my %files = ();
7 my %shaders = ();
8
9 sub ReadShaders()
10 {
11         for my $sf(<scripts/*.shader>)
12         {
13                 my $curshader = undef;
14                 my @tex = ();
15                 my $level = 0;
16                 open my $fh, "<", $sf
17                         or die "<$sf: $!";
18                 while(<$fh>)
19                 {
20                         s/\r//gs;
21                         chomp;
22
23                         s/\/\/.*//s;
24                         s/^\s+//;
25                         s/\s+$//;
26                         next if /^$/;
27
28                         my @line = map { s/"//g; $_; } split /\s+/, $_;
29
30                         if($line[0] eq '{')
31                         {
32                                 ++$level;
33                         }
34                         elsif($line[0] eq '}')
35                         {
36                                 --$level;
37                                 if($level <= 0)
38                                 {
39                                         $level = 0;
40                                         if(defined $curshader)
41                                         {
42                                                 $shaders{lc $curshader} = { shaderfile => $sf, textures => [ @tex ] };
43                                         }
44                                         $curshader = undef;
45                                 }
46                         }
47                         elsif($level == 0)
48                         {
49                                 $curshader = $line[0];
50                                 @tex = ();
51                         }
52                         elsif($level == 1 and lc $line[0] eq 'qer_editorimage')
53                         {
54                                 push @tex, $line[1];
55                         }
56                         elsif($level == 1 and lc $line[0] eq 'qer_lightimage')
57                         {
58                                 push @tex, $line[1];
59                         }
60                         elsif($level == 1 and lc $line[0] eq 'skyparms')
61                         {
62                                 for(qw/rt lf ft bk up dn/)
63                                 {
64                                         push @tex, "$line[1]_$_";
65                                         push @tex, "$line[3]_$_";
66                                 }
67                         }
68                         elsif($level == 2 and lc $line[0] eq 'map')
69                         {
70                                 push @tex, $line[1];
71                         }
72                         elsif($level == 2 and lc $line[0] eq 'animmap')
73                         {
74                                 for(2..(@line - 1))
75                                 {
76                                         push @tex, $line[$_];
77                                 }
78                         }
79                 }
80         }
81 }
82
83 sub AddFile($)
84 {
85         my ($file) = @_;
86         return 0
87                 unless -e $file;
88         ++$files{$file};
89         return 1;
90 }
91
92 sub AddSound($)
93 {
94         my ($tex) = @_;
95         $tex =~ s/\.ogg$|\.wav$//i;
96         AddFile "$tex.ogg" or
97         AddFile "$tex.wav" or
98         AddFile "sound/$tex.ogg" or
99         AddFile "sound/$tex.wav";
100 }
101
102 sub AddTexture($)
103 {
104         my ($tex) = @_;
105         $tex =~ s/\.jpg$|\.tga$|\.png$//i;
106         AddFile "$tex.jpg" or
107         AddFile "$tex.tga" or
108         AddFile "$tex.png"
109                 or return 0;
110         for('_shirt', '_pants', '_glow', '_norm', '_bump', '_gloss')
111         {
112                 AddFile "$tex$_.jpg" or
113                 AddFile "$tex$_.tga" or
114                 AddFile "$tex$_.png";
115         }
116         return 1;
117 }
118
119 sub AddShader($)
120 {
121         my ($shader) = @_;
122         $shader =~ s/\.jpg$|\.tga$|\.png$//i;
123         my $si = $shaders{lc $shader};
124         if(not defined $si)
125         {
126                 AddTexture $shader
127                         or warn "Unknown shader used: $shader";
128         }
129         else
130         {
131                 AddFile $si->{shaderfile};
132                 AddTexture $_
133                         for @{$si->{textures}};
134         }
135 }
136
137 sub AddMapDependencies($)
138 {
139         my ($data) = @_;
140         for(/^"noise.*" "(.*)"/gm)
141         {
142                 AddSound $1;
143         }
144         for(/^"sound.*" "(.*)"/gm)
145         {
146                 AddSound $1;
147         }
148         for(/^"music" "(.*)"/gm)
149         {
150                 AddSound $1;
151         }
152         for(/^"model" "(.*)"/gm)
153         {
154                 # TODO make this AddModel
155                 # TODO and find the shaders the model uses
156                 AddFile $1;
157         }
158         for(/^"lodmodel.*" "(.*)"/gm)
159         {
160                 AddFile $1;
161         }
162 }
163
164 sub AddMapinfoDependencies($)
165 {
166         my ($data) = @_;
167         for($data =~ /^cdtrack (.*)$/gm)
168         {
169                 AddSound "sound/cdtracks/$1";
170         }
171 }
172
173 sub AddCfgDependencies($)
174 {
175         my ($data) = @_;
176         for($data =~ /^cd loop "?(.*?)"?$/gm)
177         {
178                 AddSound "sound/cdtracks/$1";
179         }
180 }
181
182 sub AddShaderDependencies($)
183 {
184         my ($data) = @_;
185
186         my $n = length($data) / 72;
187         for(0..($n-1))
188         {
189                 my $s = substr $data, $_ * 72, 64;
190                 $s =~ s/\0.*$//s;
191                 AddShader $s;
192         }
193 }
194
195 sub AddFaceDependencies($$)
196 {
197         my ($base, $data) = @_;
198
199         my $n = length($data) / 104;
200         for(0..($n-1))
201         {
202                 my $l = unpack "V", substr $data, $_ * 104 + 28, 4;
203                 AddTexture sprintf "maps/%s/lm_%04d", $base, $l;
204                 AddTexture sprintf "maps/%s/lm_%04d", $base, $l | 1; # deluxe
205         }
206 }
207
208
209 ReadShaders();
210
211 for(<maps/*.ent>)
212 {
213         AddFile $_;
214
215         my $data = do {
216                 undef local $/;
217                 open my $fh, "<", $_
218                         or die "<$_: $!";
219                 <$fh>;
220         };
221         AddMapDependencies $data;
222 }
223
224 for(<maps/*.bsp>)
225 {
226         AddFile $_;
227
228         m!^maps/(.*)\.bsp! or die "perl is stupid";
229         my $b = $1;
230         AddFile "maps/$b.mapinfo";
231         AddFile "maps/$b.jpg";
232         AddFile "maps/$b.cfg";
233         AddFile "maps/$b.waypoints";
234         AddFile "maps/$b.rtlights";
235         AddTexture "gfx/$b\_radar.tga";
236         AddTexture "gfx/$b\_mini.tga";
237
238         my $data = do {
239                 undef local $/;
240                 open my $fh, "<", "maps/$b.mapinfo"
241                         or warn "<maps/$b.mapinfo: $!";
242                 <$fh>;
243         };
244         AddMapinfoDependencies $data;
245
246         $data = do {
247                 undef local $/;
248                 open my $fh, "<", "maps/$b.cfg"
249                         or warn "<maps/$b.cfg: $!";
250                 <$fh>;
251         };
252         AddCfgDependencies $data;
253
254         $data = do {
255                 undef local $/;
256                 open my $fh, "-|", 'bsptool.pl', $_, '-xentities'
257                         or die "<$_: $!";
258                 <$fh>;
259         };
260         AddMapDependencies $data;
261
262         $data = do {
263                 undef local $/;
264                 open my $fh, "-|", 'bsptool.pl', $_, '-xfaces'
265                         or die "<$_: $!";
266                 <$fh>;
267         };
268         AddFaceDependencies $b, $data;
269
270         $data = do {
271                 undef local $/;
272                 open my $fh, "-|", 'bsptool.pl', $_, '-xtextures'
273                         or die "<$_: $!";
274                 <$fh>;
275         };
276         AddShaderDependencies $data;
277 }
278
279 sub RecurseDir($);
280 sub RecurseDir($)
281 {
282         my ($dir) = @_;
283         if(-d $dir)
284         {
285                 for(<$dir/*>)
286                 {
287                         RecurseDir $_;
288                 }
289         }
290         else
291         {
292                 warn "Unused file: $dir"
293                         unless $files{$dir};
294         }
295 }
296
297 for(<*>)
298 {
299         RecurseDir $_;
300 }
301
302 print "$_\0"
303         for sort keys %files;