/
Build.pm
36 lines (29 loc) · 1009 Bytes
/
Build.pm
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
#! /usr/bin/env perl6
#Note `zef build .` will run this script
use v6.c;
class Build {
need LibraryMake;
# adapted from deprecated Native::Resources
#| Sets up a C<Makefile> and runs C<make>. C<$folder> should be
#| C<"$folder/resources/lib"> and C<$libname> should be the name of the library
#| without any prefixes or extensions.
sub make(Str $folder, Str $destfolder, :$outname) {
my %vars = LibraryMake::get-vars($destfolder);
mkdir($destfolder);
LibraryMake::process-makefile($folder, %vars);
shell(%vars<MAKE>);
}
method build($workdir) {
for <lib resources/bin resources/lib> -> $dir-to-make {
mkdir $dir-to-make;
}
for <resources/lib libjust-for-tests resources/bin P6-Fcntl> -> $dir, $obj {
make($workdir, $dir, :outname($obj));
}
True;
}
}
# Build.pm can also be run standalone
sub MAIN(Str $working-directory = '.' ) {
Build.new.build($working-directory);
}