From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

PFEIFFER / makepp-1.50-110621 / t / perl.test 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90

              
###     SPAR <http://www.cpan.org/scripts/>
###     67      644     1067451878      1217599890      Makeppfile
#
# This file tests the perl(_begin) statement, the sub statement,
# the perl function and perl actions.
#
$(phony all): statements function oneline multiline rule-script.out
perl_begin
*{'f_xyz._'} = sub { "xyz" }
perl_end
perl { sub f_foo { return "foo"; } } # A one-line perl statement.
sub f_abc { return "abc"; }     # A one-line sub statement.
statements:
        &echo $(xyz.-) $(abc) $(def-.) $(foo) $(bar) -o $@
sub f_jkl                       # A multi-line sub statement.
{
  return "jkl";
}
perl {                          # A multi-line perl statement.
  sub f_bar { return "bar"; }
}
sub f_ghi {{                    # A double-paren sub statement.
  return 'ghi';
}}
perl                            # A double-paren perl statement.
  {{
    *{"f_def-."} = sub { 'def' };
  }}
perl {
  $Mpp::pid = $$;
  run qw(script.pl statement-script.out b);
}
function:
        &echo $((makeperl scalar reverse( '$(abc):$(xyz.-)' ) )) ${perl f_foo . f_bar} -o $@
        &echo ${perl f_ghi . f_jkl} -o>>$@
oneline:
        makeperl { open my $$f, '>$(output)'; print $$f "single1\n" }
        perl { open my $f, '>>' . f_output; print $f "single2\n" }
multiline:
        makeperl {{
          open my $$f, '>$(output)'; print $$f "multi1\n";
        }}
        perl {{
          open my $f, '>>' . f_output; print $f "multi2\n";
        }}
rule-script.out:
        makeperl {{
          $$Mpp::pid = $$$$;            # How much is that in Euros? :-)
        }}
        &script.pl $(output) d
###     2       755     1067451878      1066077772      script.pl
open my $f, ">>$ARGV[0]" or die "open $ARGV[0]: $!";
print $f "$0: running $ARGV[1] (", $Mpp::pid == $$ ? 'same' : 'different', " pid)\n";
###     D       755     1067451878      1066078592      answers
###     2       644     1067451878      1066078500      answers/function
zyx:cba foobar
ghijkl
###     1       644     1067451878      1190053907      answers/n_files
5 1 0
###     2       644     1067451878      1066078086      answers/multiline
multi1
multi2
###     1       644     1104006511      1209131381      answers/statement-script.out
script.pl: running b (same pid)
###     1       644     1067451878      1209131415      answers/rule-script.out
script.pl: running d (same pid)
###     1       644     1067451878      1066078086      answers/statements
xyz abc def foo bar
###     2       644     1067451878      1066078086      answers/oneline
single1
single2