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

move towards using system CPP

Browse source 
buildcfg.txt: rework OR relationship to be CPP-compliant
	remove tools/simplecpp
	Makefile: CPP=/usr/bin/cpp
stop redundant rebuilds
	remove all from PHONY in lumps/cph/misc-lumps/Makefile
clean up build output
	add a newline to lumps/cph/misc-lumps/colormap.pl
add a clean target, to:
	./Makefile
	./lumps/Makefile
	./lumps/cph/misc-lumps/Makefile
This commit is contained in:
Jon Dowland 2006-06-12 20:36:32 +00:00
parent 8822fbc02c
commit 5e2593f7df
6 changed files with 15 additions and 155 deletions
Download patch file Download diff file Expand all files Collapse all files

147
tools/simplecpp
View file

@ -1,147 +0,0 @@
#!/usr/bin/env perl
#
# simple cpp-style preprocessor
#
# By Simon Howard
#
# Understands:
#
# #define NAME
#
# Set an option
# You can use -D on the command line too
#
# #undef NAME
#
# Unset an option if it is set
#
# #if .. #endif / #ifdef .. #endif
#
# Specify a list of options set, eg #ifdef DOOM2 || ULTDOOM || SHAREWARE
# The block is only displayed if one of the options is set
#
# #ifn .. #endif / #ifndef .. #endif
#
# Similarly specify a list of options
# The block is displayed if none of the options are set
#
# #include "filename"
#
# include the contents of a file
use strict;
my @readstack;
my %defines;
sub parse_cmdline {
foreach (@ARGV) {
if (/^-D/) {
my ($define) = /^-D(.*)$/;
$defines{$define} = 1;
}
}
}
# add contents of stdin to read stack
sub read_stdin {
my @lines = <STDIN>;
chomp @lines;
@readstack = (@readstack, reverse(@lines));
}
# add contents of a file to stack
sub read_file {
my ($filename) = @_;
open(FILE, $filename) or die "cant open $filename: $!";
my @lines = <FILE>;
close(FILE);
chomp @lines;
@readstack = (@readstack, reverse(@lines));
}
# recursive block reading function
# if 'ignore' argument is 1, contents are ignored
sub readblock {
my ($ignore) = @_;
while (scalar @readstack > 0) {
$_ = pop @readstack;
next if (/^\s*$/);
if (/^\#include\s+\".*\"\s*$/ ) {
if (!$ignore) {
my ($filename) = /^\#include\s+\"(.*)\"\s*/;
read_file $filename;
}
} elsif (/^\#define\s/ ) {
if (!$ignore) {
my ($name) = /^\#define\s*(\w+)/;
$defines{$name} = 1;
}
} elsif (/^\#undef\s/ ) {
if (!$ignore) {
my ($name) = /^\#undef\s*(\w+)/;
$defines{$name} = undef;
}
} elsif (/^\#(if|ifdef|ifn|ifndef)\s/) {
my ($type, $defines) = /^\#(\w+)\s+(.*)/;
$defines =~ s/\s*$//;
my @definelist = split(/\s*\|\|\s*/, $defines);
my $ev;
if ($type =~ /^(if|ifdef)$/) {
$ev = 0;
foreach (@definelist) {
$ev = 1 if $defines{$_};
}
} elsif ($type =~ /^(ifn|ifndef)$/) {
$ev = 1;
foreach (@definelist) {
$ev = 0 if $defines{$_};
}
} else { die "what type?"; }
my $result = readblock($ignore || !$ev);
die if $result == -1;
if ($result == 1) {
# block ended on an else
# call again for the second block
my $result = readblock($ignore || $ev);
die if $result != 0;
}
} elsif (/^\#endif/) {
return 0;
} elsif (/^\#else/) {
return 1;
} elsif (/^\#/) {
die "invalid # command";
} else {
print "$_\n" if !$ignore;
}
}
return -1;
}
parse_cmdline;
read_stdin;
die if (readblock(0) != -1);