Changeset 1704 in ProjectBuilder for devel/pb/bin/pb

Timestamp:

Mar 7, 2013, 9:51:51 PM (11 years ago)

Author:

Bruno Cornec

Message:

• launchvm now is able to launch multiple VMs (but still one VE/RM at a time)

File:

• devel/pb/bin/pb (modified) (1 diff)

devel/pb/bin/pb

@@ -837 +837 @@
     pb_build2v("vm","build");
 } elsif ($action =~ /^launchvm$/) {
-    pb_launchv("vm",$ENV{'PBV'},0);
+    my $pm;
+    my $all_ok = 1;
+    if (defined $pbparallel) {
+        $pm = new Parallel::ForkManager($pbparallel);
+    
+        # Set which port the VM/RM will use to communicate
+        $pm->run_on_start(\&pb_set_port);
+        $pm->run_on_finish(sub { my ($pid, $code, $id, $signal, $dump) = @_;
+                            $all_ok = 0 unless (($code == 0) && ($signal == 0) && ($dump == 0)); 
+                        });
+    }
+
+    my $counter = 0;
+    foreach my $v (split(/,/,$ENV{'PBV'})) {
+        $counter++;
+        # Modulo pbparallel
+        $counter = 1 if ((defined $pbparallel) && ($counter > $pbparallel));
+        $pm->start($counter) and next if (defined $pbparallel);
+
+        pb_launchv("vm",$v,0);
+    }
+    $pm->wait_all_children if (defined $pbparallel);
+    die "Aborting, one or more of the children failed." if ((not $all_ok) && ($Global::pb_stop_on_error));
 } elsif ($action =~ /^launchve$/) {
     pb_launchv("ve",$ENV{'PBV'},0);