archives/freedoom
2
0
Fork 0
mirror of https://github.com/freedoom/freedoom.git synced 2025-09-01 22:25:46 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

For "full" IWADs, include all patches, instead of only patches found in TEXTURE1.

Browse source
This commit is contained in:
Simon Howard 2008-03-01 20:29:22 +00:00
parent 8b40c8fde3
commit f043aadecf
2 changed files with 41 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

8
Makefile
View file

@ -40,8 +40,14 @@ textures/freedm/texture1.txt: textures/combined.txt
textures/shareware/texture1.txt: textures/combined.txt textures/shareware/texture1.txt: textures/combined.txt
$(CPP) -DSHAREWARE < $< > $@ $(CPP) -DSHAREWARE < $< > $@
textures/%/pnames.txt: textures/%/texture1.txt textures/shareware/pnames.txt: textures/shareware/texture1.txt
./extract-pnames.pl < $< > $@ ./extract-pnames.pl < $< > $@
textures/doom/pnames.txt: textures/doom/texture1.txt
./extract-pnames.pl -a > $@
textures/doom2/pnames.txt: textures/doom2/texture1.txt
./extract-pnames.pl -a > $@
textures/freedm/pnames.txt: textures/freedm/texture1.txt
./extract-pnames.pl -a > $@
# update wadinfo.txt # update wadinfo.txt

42
extract-pnames.pl
View file

@ -3,15 +3,41 @@
use strict; use strict;
my %patches; my %patches;
while (<>) { # Parse a TEXTURE1 file and generate a list of patches
if (/^\*/) {
my ($name) = /^\*\s+(\w+)/; sub parse_texture_file {
$name = uc $name;
$patches{$name} = 1; while (<>) {
} if (/^\*/) {
my ($name) = /^\*\s+(\w+)/;
$name = uc $name;
$patches{$name} = 1;
}
}
print "; autogenerated patch list\n\n";
foreach (sort keys %patches) { print "$_\n"; }
} }
print "; autogenerated patch list\n\n"; # Generate a full list of textures from the files in the
# patches/ directory
foreach (sort keys %patches) { print "$_\n"; } sub list_all_textures {
print "; autogenerated patch list\n\n";
foreach my $file (glob("patches/*.gif")) {
if ($file =~ /\/(.*)\.gif/) {
print "$1\n";
}
}
}
if (scalar @ARGV == 0) {
parse_texture_file();
} elsif ($ARGV[0] == "-a") {
list_all_textures();
} else {
print "Usage: extract-pnames.pl [-a]\n";
}