#!/usr/bin/perl -w
#
+# subdirmk - &-filter (makefile generation program)
+# Copyright 2019 Ian Jackson
+# SPDX-License-Identifier: LGPL-2.0-or-later
+#
# $(srcdir)/subdirmk/generate [--srcdir=SRCDIR] [--] SUBDIR...
#
# generates in each subdirectory from in each subdirectory
# Subdir.mk.tmp Subdir.sd.mk
-# Makefile
+# Makefile and included files
# and in toplevel and in toplevel
# main.mk.tmp Perdir.sd.mk
our $writing_output;
our $buffering_output;
our %output_files;
+our %input_files;
sub close_any_output_file() {
return unless defined $writing_output;
my $cd = $depth ? join('/', ('..',) x $depth) : '.';
o <<END;
default: all
- \@: \$@
-%: FORCE-ALWAYS-RUN
- \$(MAKE) -C $cd -f main.mk ${dir_prefix}\$@
-Makefile FORCE-ALWAYS-RUN:
- \@: \$@
+\$(filter-out all,\$(MAKECMDGOALS)) all: run-main.mk
+ \@:
+subdirmk_targets:=\$(or \$(MAKECMDGOALS),all)
+Makefile run-main.mk:
+ \$(MAKE) -C $cd -f main.mk \$(addprefix ${dir_prefix},\$(subdirmk_targets))
.SUFFIXES:
+.PHONY: run-main.mk
END
}
$var_prefix, $targets,
$f, $esclitr, $enoent_ok) = @_;
- my $caps_re = qr{[A-Z][0-9_A-Z]*(?=\W)};
- my $lc_re = qr{[a-z][-+,0-9_a-z]*(?=\W)};
+ my $caps_re = qr{[A-Z]};
+ my $lc_re = qr{[a-z]};
my $esc;
my $set_esc = sub {
die "open $f: $!\n" unless $!==ENOENT && $enoent_ok;
return;
}
- o "MAKEFILE_TEMPLATES += $f\n";
+ $input_files{$f}++;
+
+ my %pfxmap = (
+ '' => $dir_prefix,
+ '^' => "\$(top_srcdir)${dir_suffix}/",
+ '~' => "\$(top_srcdir)/",
+ );
while (<$input>) {
if (s#^\s*$esc\:##) {
for (;;) {
unless (s{^(.*?)(\\)?(?=$esc)}{}) { o $_; last; }
o $1;
- if ($2) { o $$esclitr; next; }
+ if ($2) { s#^$esc##; o $$esclitr; next; }
s{^$esc}{} or die "$_ ?";
if (s{^$esc}{}) { o "$$esclitr$$esclitr" }
elsif (s{^TARGETS(?:_([0-9a-zA-Z_]+))?(?=\W)}{}) {
$targets->{$t} //= [ ];
}
elsif (m{^(?=$caps_re)}) { o $var_prefix }
- elsif (m{^(?=$lc_re)}) { o $dir_prefix }
+ elsif (s{^([~^]?)(?=$lc_re)}{}) { o $pfxmap{$1} }
elsif (s{^_}{}) { o $var_prefix }
- elsif (s{^/}{}) { o $dir_prefix }
elsif (s{^=_}{}) { o $var_prefix }
+ elsif (s{^([~^]?)/}{}) { o $pfxmap{$1} }
elsif (s{^=/}{}) { o $dir_name }
- elsif (s{^\^}{}) { o "\$(top_srcdir)${dir_suffix}" }
- elsif (s{^\}}{}) { o "\$(abs_top_srcdir)${dir_suffix}" }
- elsif (s{^(?:[ \t]+([~^]))?(?=[ \t])}{}) {
- my $prefix =
- !$1 ? $dir_prefix :
- $1 eq '~' ? '$(abs_top_srcdir)'.$dir_suffix :
- $1 eq '~' ? '$(abs_top_srcdir)'.$dir_suffix :
- die;
+ elsif (s{^([~^]?)(?=[ \t])}{}) {
+ my $prefix = $pfxmap{$1} // die;
my $after='';
if (m{([ \t])$esc}) { ($_,$after) = ($`, $1.$'); }
s{(?<=[ \t])(?=\S)(?!\\\s*$)}{$prefix}g;
o $_;
$_ = $after;
+ } elsif (s{^\#}{}) {
+ $_ = '';
} elsif (s{^![ \t]+}{}) {
o $_;
$_ = '';
my $subf = "$srcdir/$2";
process_input_mk($dir_prefix, $dir_suffix, $dir_name,
$var_prefix, $targets,
- $subf, $esclitr, $subf);
+ $subf, $esclitr, $1);
o "\n";
} else {
die "unknown directive $_ ";
}
print O "\n";
}
-
+
return @targets;
}
foreach my $v (qw(top_srcdir abs_top_srcdir)) {
o "$v=\@$v@\n";
}
- o "MAKEFILES += Subdir.mk\n";
+ o "SUBDIRMK_MAKEFILES :=\n";
+ o "MAKEFILE_TEMPLATES :=\n";
+ o "SUBDIRMK_MAKEFILES += Subdir.mk\n";
foreach my $subdir (@subdirs) {
- o "MAKEFILES += $subdir/Subdir.mk\n";
+ o "SUBDIRMK_MAKEFILES += $subdir/Subdir.mk\n";
+ }
+ foreach my $input (sort keys %input_files) {
+ o "MAKEFILE_TEMPLATES += $input\n";
}
- o "include \$(MAKEFILES)";
+ o "include \$(SUBDIRMK_MAKEFILES)";
}
build_tree();