0ct0pu5/wesnoth
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Deleting, as it depends on the no-longer supported autotools build system

Browse source 
and apparently hasn't been used in eons.  It would be trivial to add this
capability to the scons build if we ever need it.
This commit is contained in:
Eric S. Raymond 2008-10-03 16:32:26 +00:00
parent 55336ea1e5
commit 6b62c0334d
1 changed files with 0 additions and 88 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

88
utils/extractsources
View file

@ -1,88 +0,0 @@
#!/usr/bin/perl
# extractsources: pull out lists of _SOURCES from Makefile.am into files
# Copyright (C) 2005 by ott
# Part of the Battle for Wesnoth Project http://wesnoth.org/
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License.
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY.
#
# See the COPYING file for more details.
# This script takes as input a Makefile.am containing _SOURCES variable
# assignments. It extracts the lists of files in each such assignment
# and creates a file for each list.
# Conditional semantics of the Makefile.am are not dealt with, so the last
# occurrence of each _SOURCES variable will be used, whether inside a
# conditional or not.
use strict;
use File::Basename;
my $DEBUG = 0;
my $filename;
sub process_arg {
my $path = shift;
my $out = shift;
my $arg = shift;
my $outfile = $path . $out;
$DEBUG and print STDERR "argument :$arg:\n";
$DEBUG and print STDERR "opening $outfile for writing\n";
if (! open(OUTFILE, ">$outfile")) {
warn "Can't open $outfile for writing, skipping";
return;
}
$arg =~ s/\\\n/\n/g;
$arg =~ s/\s+/\n/g;
$arg =~ s/\n+/\n/g;
$arg =~ s/^\n+//s;
$DEBUG and print STDERR "argument now :$arg:\n";
print OUTFILE $arg;
close OUTFILE;
}
Argument:
while ($filename = shift) {
$DEBUG and print STDERR "opening $filename for reading\n";
if (! open(CURRENT, $filename)) {
warn("cannot open file $filename, skipping");
next Argument;
}
my ($base,$path,$type) = fileparse($filename, qr{\.am});
if ($type ne '.am') {
warn "Can only process files ending with .am, skipping $filename";
next Argument;
}
my $out;
my $state = 0;
my $arg = '';
while (<CURRENT>) {
if ($state == 0) {
if ( /^(\w+)_SOURCES\s*=\s*(.*)/s ) {
$out = "$1_sources";
$arg = $2;
# chomp $arg;
if ( $arg =~ /\\$/ ) {
$state = 1;
} else {
process_arg( $path, $out, $arg );
}
} # else keep looking
} elsif ($state == 1) { # looking for more lines
$arg .= $_;
if ( ! /\\$/ ) { # got the whole SOURCES line, substitute
process_arg( $path, $out, $arg );
$arg = '';
$out = '';
$state = 0;
}
} else {
die 'Internal error, quitting';
}
}
process_arg( $path, $out, $arg ) if $arg;
}