Add --no-build option

zoffixznet · zoffixznet · commit c9781854bd3f · 2018-08-09T08:30:30.000-04:00
diff --git a/README.md b/README.md
@@ -88,6 +88,10 @@ toasting results for each of the toasted module, and each of the given commits.
     perl6 bin/toaster-perl6 2017.03 2017.05 some-branch master 64e898f9baa159e2019
 ```
 
+The binary supports `--no-build` command line flag, which will avoid compiling the compiler. This
+option is handy to use when a previous toasting sessions was interrupted for some reason. You can
+restart the toast using the already-built compiler.
+
 # Viewing
 
 ## Perl Mojolicious
diff --git a/bin/toaster-perl6 b/bin/toaster-perl6
@@ -3,7 +3,7 @@ use lib <lib>;
 use Toaster;
 use WhereList;
 
-sub MAIN (*@commits where all-items(Str, *.so)) {
+sub MAIN (*@commits where all-items(Str, *.so), Bool :$no-build) {
     @commits ||= 'master';
-    Toaster.new.toast-all: $_ for @commits;
+    Toaster.new.toast-all: $_, :$no-build for @commits;
 }
diff --git a/lib/Toaster.pm6 b/lib/Toaster.pm6
@@ -40,15 +40,15 @@ my $batch = floor 1.3 * do with run 'lscpu', :out, :!err {
 } || 8;
 
 
-method toast-all ($commit = 'master') {
+method toast-all ($commit = 'master', Bool :$no-build) {
     my @modules = jget(ECO_API)<dists>.map(*.<name>).sort
         .grep: *.match: BANNED_MODULES.none;
     say "About to toast {+@modules} modules";
     self.toast: @modules, $commit;
 }
-method toast (@modules, $commit = 'master') {
+method toast (@modules, $commit = 'master', Bool :$no-build) {
     temp %*ENV;
-    %*ENV<PATH> = self.build-rakudo: $commit;
+    %*ENV<PATH> = self.build-rakudo: $commit, :$no-build;
     %*ENV<ALL_TESTING  NETWORK_TESTING  ONLINE_TESTING> = 1, 1, 1;
     say "Toasting with path %*ENV<PATH>";
     my $ver = shell(:out, :!err,
@@ -83,23 +83,28 @@ method toast (@modules, $commit = 'master') {
     toast-it toast-it @modules;
 }
 
-method build-rakudo (Str:D $commit = 'master') {
-    say "Starting to build rakudo $commit";
+method build-rakudo (Str:D $commit = 'master', Bool :$no-build) {
+    say $no-build ?? "Trying to use exisitng build for rakudo $commit"
+                  !! "Starting to build rakudo $commit";
     indir RAKUDO_BUILD_DIR, {
         my $com-dir = $commit.subst: :g, /\W/, '_';
-        $ = run &laquo;rm -fr "$com-dir"&raquo;;
-        run &laquo;git clone "{RAKUDO_REPO}" "$com-dir"&raquo;;
+        unless $no-build {
+            $ = run &laquo;rm -fr "$com-dir"&raquo;;
+            run &laquo;git clone "{RAKUDO_REPO}" "$com-dir"&raquo;;
+        }
         indir $*CWD.add($com-dir), {
-            run &laquo;git checkout "$commit"&raquo;;
-            say "Checkout done";
-            run &laquo;perl Configure.pl --gen-moar --gen-nqp --backends=moar&raquo;;
-            run &laquo;make&raquo;;
-            run &laquo;make install&raquo;;
-            run &laquo;git clone "{ZEF_REPO}"&raquo;;
+            unless $no-build {
+                run &laquo;git checkout "$commit"&raquo;;
+                say "Checkout done";
+                run &laquo;perl Configure.pl --gen-moar --gen-nqp --backends=moar&raquo;;
+                run &laquo;make&raquo;;
+                run &laquo;make install&raquo;;
+                run &laquo;git clone "{ZEF_REPO}"&raquo;;
+            }
 
             temp %*ENV;
             %*ENV<PATH> = $*CWD.add('install/bin').absolute ~ ":%*ENV<PATH>";
-            indir $*CWD.add('zef'), { run &laquo;perl6 -Ilib bin/zef install . &raquo; }
+            $no-build || indir $*CWD.add('zef'), { run &laquo;perl6 -Ilib bin/zef install . &raquo; }
             %*ENV<PATH> = $*CWD.add('install/share/perl6/site/bin')
               .absolute ~ ":%*ENV<PATH>";
 

Original file line number	Diff line number	Diff line change
`@@ -3,7 +3,7 @@ use lib <lib>;`
`3`	`3`	`use Toaster;`
`4`	`4`	`use WhereList;`
`5`	`5`
`6`		`-sub MAIN (@commits where all-items(Str, .so)) {`
	`6`	`+sub MAIN (@commits where all-items(Str, .so), Bool :$no-build) {`
`7`	`7`	`@commits \|\|= 'master';`
`8`		`- Toaster.new.toast-all: $_ for @commits;`
	`8`	`+ Toaster.new.toast-all: $_, :$no-build for @commits;`
`9`	`9`	`}`