X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~ian/git?p=subdirmk.git;a=blobdiff_plain;f=generate;h=c17d5f7d70e3ae848b84a6df77498108a4b6e1f0;hp=32c6fbf61a7ba1ffcd48f9b79402f6951ddfd6e5;hb=e637ec96e688439ca41a25fb09e11a958180ba75;hpb=411c2cad33613d6790cb819e8bd91a7f58a3998f diff --git a/generate b/generate index 32c6fbf..c17d5f7 100755 --- a/generate +++ b/generate @@ -32,8 +32,8 @@ our @subdirs = @ARGV; s{/+$}{} foreach @subdirs; -our $root = [ '.', [ ] ]; -# each node is [ 'relative subdir name', \@children ] +our $root = [ '.', [ ], 1 ]; +# each node is [ 'relative subdir name', \@children, $mentioned ] sub build_tree () { foreach my $subdir (@subdirs) { @@ -47,6 +47,7 @@ sub build_tree () { } $node = $c; } + $node->[2] = 1; } } @@ -59,6 +60,7 @@ our $writing_output; our $buffering_output; our %output_files; our %input_files; +our @output_makefiles; sub close_any_output_file() { return unless defined $writing_output; @@ -232,6 +234,7 @@ sub process_subtree ($$) { my $dir_name = join '/', @$path ? @$path : '.'; my $var_prefix = join '', map { "${_}_" } @$path ? @$path : qw(TOP); + push @output_makefiles, "${dir_prefix}Subdir.mk"; write_makefile($dir_prefix, scalar @$path); my %targets = (all => []); @@ -244,8 +247,18 @@ sub process_subtree ($$) { } start_output_file("${dir_prefix}Subdir.mk.tmp"); - filter_subdir_mk($dir_prefix, $dir_suffix, $dir_name, - $var_prefix, \%targets); + if ($node->[2]) { + filter_subdir_mk($dir_prefix, $dir_suffix, $dir_name, + $var_prefix, \%targets); + } else { + my $sdmk = "${dir_prefix}Subdir.sd.mk"; + if (stat $sdmk) { + die "$sdmk unexpectedly exists (${dir_prefix} not mentioned)"; + } elsif ($!==ENOENT) { + } else { + die "stat $sdmk: $!"; + } + } o "\n"; @@ -258,6 +271,11 @@ sub process_subtree ($$) { } print O "\n"; } + if (@targets) { + print O ".PHONY:"; + print O " ${dir_prefix}${_}" foreach @targets; + print O "\n"; + } return @targets; } @@ -270,14 +288,13 @@ sub process_tree() { } o "SUBDIRMK_MAKEFILES :=\n"; o "MAKEFILE_TEMPLATES :=\n"; - o "SUBDIRMK_MAKEFILES += Subdir.mk\n"; - foreach my $subdir (@subdirs) { - o "SUBDIRMK_MAKEFILES += $subdir/Subdir.mk\n"; + foreach my $mf (@output_makefiles) { + o "SUBDIRMK_MAKEFILES += $mf\n"; } foreach my $input (sort keys %input_files) { o "MAKEFILE_TEMPLATES += $input\n"; } - o "include \$(SUBDIRMK_MAKEFILES)"; + o "include \$(SUBDIRMK_MAKEFILES)\n"; } build_tree();