1
0
mirror of https://github.com/samba-team/samba.git synced 2024-12-24 21:34:56 +03:00
samba-mirror/source3/script/expand-includes.pl

31 lines
559 B
Perl
Executable File

#!/usr/bin/perl
# Expand the include lines in a Makefile
# Copyright (C) 2009 Jelmer Vernooij <jelmer@samba.org>
# Published under the GNU GPLv3 or later
my $depth = 0;
sub process($)
{
my ($f) = @_;
$depth++;
die("Recursion in $f?") if ($depth > 100);
open(IN, $f) or die("Unable to open $f: $!");
foreach (<IN>) {
my $l = $_;
if ($l =~ /^include (.*)$/) {
process($1);
} else {
print $l;
}
}
$depth--;
}
my $path = shift;
unless ($path) {
print STDERR "Usage: $0 Makefile.in > Makefile-noincludes.in\n";
exit(1);
}
process($path);