mirror of
https://git.savannah.gnu.org/git/make.git
synced 2025-01-01 01:33:51 +00:00
11095a90f1
I decided this feature was too impacting to make the permanent default behavior. This set of changes makes the default behavior of make the old behavior (no second expansion). If you want second expansion, you must define the .SECONDEXPANSION: special target before the first target that needs it. This set of changes ONLY fixes explicit and static pattern rules to work like this. Implicit rules still have second expansion enabled all the time: I'll work on that next. Note that there is still a backward-incompatibility: now to get the old SysV behavior using $$@ etc. in the prerequisites list you need to set .SECONDEXPANSION: as well.
97 lines
2.4 KiB
Perl
97 lines
2.4 KiB
Perl
# -*-perl-*-
|
|
|
|
$description = "Test automatic variable setting.";
|
|
|
|
$details = "";
|
|
|
|
use Cwd;
|
|
|
|
$dir = cwd;
|
|
$dir =~ s,.*/([^/]+)$,../$1,;
|
|
|
|
open(MAKEFILE, "> $makefile");
|
|
print MAKEFILE "dir = $dir\n";
|
|
print MAKEFILE <<'EOF';
|
|
.SUFFIXES:
|
|
.SUFFIXES: .x .y .z
|
|
$(dir)/foo.x : baz.z $(dir)/bar.y baz.z
|
|
@echo '$$@ = $@, $$(@D) = $(@D), $$(@F) = $(@F)'
|
|
@echo '$$* = $*, $$(*D) = $(*D), $$(*F) = $(*F)'
|
|
@echo '$$< = $<, $$(<D) = $(<D), $$(<F) = $(<F)'
|
|
@echo '$$^ = $^, $$(^D) = $(^D), $$(^F) = $(^F)'
|
|
@echo '$$+ = $+, $$(+D) = $(+D), $$(+F) = $(+F)'
|
|
@echo '$$? = $?, $$(?D) = $(?D), $$(?F) = $(?F)'
|
|
touch $@
|
|
|
|
$(dir)/bar.y baz.z : ; touch $@
|
|
EOF
|
|
close(MAKEFILE);
|
|
|
|
# TEST #0 -- simple test
|
|
# -------
|
|
|
|
# Touch these into the past
|
|
&utouch(-10, qw(foo.x baz.z));
|
|
|
|
&run_make_with_options($makefile, "", &get_logfile);
|
|
$answer = "touch $dir/bar.y
|
|
\$\@ = $dir/foo.x, \$(\@D) = $dir, \$(\@F) = foo.x
|
|
\$* = $dir/foo, \$(*D) = $dir, \$(*F) = foo
|
|
\$< = baz.z, \$(<D) = ., \$(<F) = baz.z
|
|
\$^ = baz.z $dir/bar.y, \$(^D) = . $dir, \$(^F) = baz.z bar.y
|
|
\$+ = baz.z $dir/bar.y baz.z, \$(+D) = . $dir ., \$(+F) = baz.z bar.y baz.z
|
|
\$? = $dir/bar.y, \$(?D) = $dir, \$(?F) = bar.y
|
|
touch $dir/foo.x\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
unlink(qw(foo.x bar.y baz.z));
|
|
|
|
# TEST #1 -- test the SysV emulation of $$@ etc.
|
|
# -------
|
|
|
|
$makefile2 = &get_tmpfile;
|
|
|
|
open(MAKEFILE, "> $makefile2");
|
|
print MAKEFILE "dir = $dir\n";
|
|
print MAKEFILE <<'EOF';
|
|
.SECONDEXPANSION:
|
|
.SUFFIXES:
|
|
.DEFAULT: ; @echo '$@'
|
|
|
|
$(dir)/foo $(dir)/bar: $@.x $$@.x $$$@.x $$$$@.x $$(@D).x $$(@F).x
|
|
|
|
$(dir)/x.z $(dir)/y.z: $(dir)/%.z : $@.% $$@.% $$$@.% $$$$@.% $$(@D).% $$(@F).%
|
|
|
|
$(dir)/biz: $$(@).x $${@}.x $${@D}.x $${@F}.x
|
|
EOF
|
|
|
|
close(MAKEFILE);
|
|
|
|
&run_make_with_options($makefile2, "$dir/foo $dir/bar", &get_logfile);
|
|
$answer = ".x\n$dir/foo.x\nx\n\$@.x\n$dir.x\nfoo.x\n$dir/bar.x\nbar.x\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
&run_make_with_options($makefile2, "$dir/x.z $dir/y.z", &get_logfile);
|
|
$answer = ".x\n$dir/x.z.x\nx\n\$@.x\n$dir.x\nx.z.x\n.y\n$dir/y.z.y\n\y\n\$@.y\n$dir.y\ny.z.y\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
&run_make_with_options($makefile2, "$dir/biz", &get_logfile);
|
|
$answer = "$dir/biz.x\n$dir.x\nbiz.x\n";
|
|
&compare_output($answer, &get_logfile(1));
|
|
|
|
# TEST #2 -- test for Savannah bug #12320.
|
|
#
|
|
run_make_test('
|
|
.SUFFIXES: .b .src
|
|
|
|
mbr.b: mbr.src
|
|
@echo $*
|
|
|
|
mbr.src: ; @:
|
|
|
|
',
|
|
'',
|
|
'mbr
|
|
');
|
|
|
|
1;
|