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

Timestamp:

Dec 13, 2010, 2:06:08 AM (13 years ago)

Author:

Bruno Cornec

Message:

• Adds parallelization support for build file generation

File:

• devel/pb/bin/pb (modified) (3 diffs)

devel/pb/bin/pb

@@ -503 +503 @@
 $opt2 = $opt->{$appname} if (defined $opt);
 pb_check_requirements($req2,$opt2);
+
+#
+# Check if we can launch some actions in // with Parallel::ForkManager
+#
+my $pbparallel = 12;
+eval
+{
+    require Parallel::ForkManager;
+    Parallel::ForkManager->import();
+};
+# Parallel::ForkManager not found so no // actions
+if ($@) {
+    $pbparallel = undef;
+}
 
 pb_log(0,"Project: $ENV{'PBPROJ'}\n");
@@ -780 +794 @@
             }
 
+            # Try to use // processing here
+            my $pm = new Parallel::ForkManager($pbparallel) if (defined $pbparallel);
+
             foreach my $d (keys %virt) {
+                $pm->start and next if (defined $pbparallel);
                 my ($name,$ver,$arch) = split(/-/,$d);
                 pb_log(0,"Bad format for $d") if ((not defined $name) || (not defined $ver) || (not defined $arch)) ;
@@ -864 +882 @@
                     }
                 }
-            }
+                $pm->finish if (defined $pbparallel);
+            }
+            $pm->wait_all_children if (defined $pbparallel);
             my @found;
             my @notfound;