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

Convert wadinfo-builder script to Python.

Browse source
This commit is contained in:
Simon Howard 2008-12-24 18:43:56 +00:00
parent ecb5d573d7
commit 0b332510ac
3 changed files with 193 additions and 126 deletions
Download patch file Download diff file Expand all files Collapse all files

10
Makefile
View file

@ -80,15 +80,15 @@ textures/freedm/pnames.txt: textures/freedm/texture1.txt
# update wadinfo.txt
wadinfo.txt: buildcfg.txt force textures/doom2/pnames.txt
$(CPP) -P -DDOOM2 < $< | ./wadinfo-builder.pl > $@
$(CPP) -P -DDOOM2 < $< | ./wadinfo-builder.py > $@
wadinfo_sw.txt: buildcfg.txt force textures/shareware/pnames.txt
$(CPP) -P -DSHAREWARE < $< | ./wadinfo-builder.pl -dummy > $@
$(CPP) -P -DSHAREWARE < $< | ./wadinfo-builder.py -dummy > $@
wadinfo_iwad.txt: buildcfg.txt force textures/doom2/pnames.txt
$(CPP) -P -DDOOM2 < $< | ./wadinfo-builder.pl -dummy > $@
$(CPP) -P -DDOOM2 < $< | ./wadinfo-builder.py -dummy > $@
wadinfo_ult.txt: buildcfg.txt force textures/doom/pnames.txt
$(CPP) -P -DDOOM1 -DULTDOOM < $< | ./wadinfo-builder.pl -dummy > $@
$(CPP) -P -DDOOM1 -DULTDOOM < $< | ./wadinfo-builder.py -dummy > $@
wadinfo_freedm.txt : buildcfg.txt force textures/freedm/pnames.txt
$(CPP) -P -DFREEDM < $< | ./wadinfo-builder.pl -dummy > $@
$(CPP) -P -DFREEDM < $< | ./wadinfo-builder.py -dummy > $@
%.wad.gz: %.wad
gzip < $< > $@

121
wadinfo-builder.pl
View file

@ -1,121 +0,0 @@
#!/usr/bin/env perl
#
# Wadinfo builder, rewritten in perl :)
#
# Copyright (c) 2006 Simon Howard. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are
# met:
#
# * Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# * Neither the name of Simon Howard nor the names of its contributors
# may be used to endorse or promote products derived from this
# software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
# OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
use strict;
my $dummy = 0;
sub findfile {
my ($section, $name) = @_;
my $filename = "$section/" . lc($name) . ".*";
my @list = glob($filename);
return undef if scalar @list <= 0;
return $list[0];
}
for (my $i=0; $i<scalar @ARGV; ++$i) {
$_ = $ARGV[$i];
if ($_ eq '-dummy') {
$dummy = 1;
}
}
print "; This file is automatically generated, do not edit it directly!\n\n";
my $section = "";
while (<STDIN>) {
chomp;
# remove comments
s/[\#\;].*$//;
# check for empty lines and comments
# sections
if(/\[.*\]/) {
# extract section name
$section = $_;
$section =~ s/.*\[//;
$section =~ s/\].*//;
# catch [texture1] and [texture2] which are in
# textures/
$section = "textures"
if $section eq "texture1" ||
$section eq "texture2";
} elsif (/^\s*(\S+)[^\=]*(\s*\=\s*(\S+))?/) {
my ($resname, $override) = ($1, $3);
$resname = lc($resname);
# allow "=foo" to override the filename used
my $filename;
if ($override) {
$filename = findfile($section, $override);
} else {
$filename = findfile($section, $resname);
}
if (!$filename) {
if ($dummy) {
# this hasnt been submitted yet - use a dummy lump
# instead
if ($resname =~ /^DEMO/i) {
$_ = "$resname = fakedemo";
} else {
$_ = "$resname = dummy";
}
} else {
# disabled entries are commented out
$_ = ";$_";
}
}
}
print $_ . "\n";
}

188
wadinfo-builder.py Executable file
View file

@ -0,0 +1,188 @@
#!/usr/bin/env python
#
# Wadinfo builder, rewritten in Python :)
#
# Copyright (c) 2006 Simon Howard. All rights reserved.
#
# Redistribution and use in source and binary forms, with or without
# modification, are permitted provided that the following conditions are
# met:
#
# * Redistributions of source code must retain the above copyright
# notice, this list of conditions and the following disclaimer.
# * Redistributions in binary form must reproduce the above copyright
# notice, this list of conditions and the following disclaimer in the
# documentation and/or other materials provided with the distribution.
# * Neither the name of Simon Howard nor the names of its contributors
# may be used to endorse or promote products derived from this
# software without specific prior written permission.
#
# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS
# IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
# TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A
# PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER
# OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
# EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
# PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR
# PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF
# LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
# NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
import glob
import os
import sys
import re
dummy = False
# Given a file name, get the resource name for it:
def resource_for_filename(filename):
if "." in filename:
return filename[0:filename.index(".")]
else:
return filename
# Build look-up table, mapping section and resource name to filename.
def build_lookup_table():
result = {}
for filename in glob.glob("*/*"):
section = os.path.dirname(filename)
basename = os.path.basename(filename)
resource = resource_for_filename(basename)
result[(section, resource)] = filename
return result
# Given a file base name, eg. "HEADE5", find the file to be used for
# that resource. If the file cannot be found, None is returned.
def find_file(section, name):
key = (section, name)
if key in file_lut:
return file_lut[key]
else:
return None
# Warning header displayed at the top of an output file.
def print_warning_header():
print "; This file is automatically generated."
print "; Do not edit it directly!"
print
# Remove comments beginning with "#" or ";"
def remove_comments(text):
if "#" in text:
return text[0:text.index("#")]
elif ";" in text:
return text[0:text.index(";")]
else:
return text
# Get the name of a dummy lump to use as a stand-in for the
# given resource.
def get_dummy_name(resource):
if resource.lower().startswith("demo"):
return "fakedemo"
else:
return "dummy"
# Parse an assignment statement.
def parse_assignment(section, line, match):
resource = match.group(1).lower()
override = match.group(3)
# allow "= filename.ext" to override the filename used
if override is not None:
filename = find_file(section, override)
else:
filename = find_file(section, resource)
# File not found?
if filename is None:
# This resource hasn't been submitted yet, so either
# comment the line out, or use a dummy resource,
# depending on configuration.
if dummy:
dummy_name = get_dummy_name(resource)
result = "%s = %s" % (resource, dummy_name)
else:
result = "; " + line
else:
# Resource found.
result = line
return result
# Parse data from the given input stream.
def parse_stream(stream):
section_re = re.compile(r'\[(.*)\]')
assignment_re = re.compile(r'\s*(\S+)[^\=]*(\s*\=\s*(\S+))?')
print_warning_header()
section = None
# Parse each line of the input file, possibly changing things as we go.
for line in stream:
# Strip newline
line = line[0:len(line) - 1]
# Remove comments
line = remove_comments(line)
# start of new section?
match = section_re.search(line)
if match:
section = match.group(1)
if section == "texture1" or section == "texture2":
section = "textures"
# Possibly comment out assignments.
match = assignment_re.match(line)
if match:
line = parse_assignment(section, line, match)
print line
# Parse command line options:
for arg in sys.argv:
if arg == "-dummy":
dummy = True
# Build look-up table for files:
file_lut = build_lookup_table()
# Parse the input stream:
parse_stream(sys.stdin)