Changeset 1130 for devel/pb/bin/pb

Timestamp:

12/22/10 04:01:42 (2 years ago)

Author:

bruno

Message:

• First attempt to fix both #74 and #10 by adding support for additional files under a pbsrc dir, that can be manipulated at build time.

File:

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

devel/pb/bin/pb

@@ -756 +756 @@
         my %build;
         my %patches;
+        my %sources;
         # We want to at least build for the underlying distro
         # except if a target was given, in which case we only build for it
@@ -793 +794 @@
         $pb{'repo'} = $ENV{'PBREPO'};
         $pb{'patches'} = \%patches;
+        $pb{'sources'} = \%sources;
         pb_log(2,"DEBUG: pb: ".Dumper(%pb)."\n");
     
@@ -852 +854 @@
                 my $ptr = pb_get_filters($pbpkg, $pb{'dtype'}, $dfam, $ddir, $dver);
     
-                # Prepare local patches for this distro - They are always applied first - May be a problem one day
-                foreach my $p (sort(<$ENV{'PBROOTDIR'}/$pbpkg/pbpatch/*>)) {
-                    $patches{"$ddir-$dver-$arch"} .= "," if ((defined $patches{"$ddir-$dver-$arch"}) and ($p =~ /\.all$/));
-                    $patches{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.all$/);
-                    $patches{"$ddir-$dver-$arch"} .= "," if ((defined $patches{"$ddir-$dver-$arch"}) and ($p =~ /\.$pb{'dtype'}$/));
-                    $patches{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$pb{'dtype'}$/);
-                    $patches{"$ddir-$dver-$arch"} .= "," if ((defined $patches{"$ddir-$dver-$arch"}) and ($p =~ /\.$dfam$/));
-                    $patches{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$dfam$/);
-                    $patches{"$ddir-$dver-$arch"} .= "," if ((defined $patches{"$ddir-$dver-$arch"}) and ($p =~ /\.$ddir$/));
-                    $patches{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$ddir$/);
-                    $patches{"$ddir-$dver-$arch"} .= "," if ((defined $patches{"$ddir-$dver-$arch"}) and ($p =~ /\.$ddir-$dver$/));
-                    $patches{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$ddir-$dver$/);
-                    $patches{"$ddir-$dver-$arch"} .= "," if ((defined $patches{"$ddir-$dver-$arch"}) and ($p =~ /\.$ddir-$dver-$arch$/));
-                    $patches{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$ddir-$dver-$arch$/);
-                }
-    
-                # Prepare also remote patches to be included - Applied after the local ones
-                foreach my $p ("all","$pb{'dtype'}","$dfam","$ddir","$ddir-$dver","$ddir-$dver-$arch") {
-                    my $f = "$ENV{'PBROOTDIR'}/$pbpkg/pbextpatch.$p";
-                    next if (not -f $f);
-                    if (not open(PATCH,$f)) {
-                        pb_display("Unable to open existing external patch file content $f\n");
-                        next;
-                    }
-                    while (<PATCH>) {
-                        chomp();
-                        $patches{"$ddir-$dver-$arch"} .= "," if (defined $patches{"$ddir-$dver-$arch"});
-                        $patches{"$ddir-$dver-$arch"} .= "$_";
-                    }
-                    close(PATCH);
-                }
-                pb_log(2,"DEBUG: pb->patches: ".Dumper($pb{'patches'})."\n");
-    
                 # Apply now all the filters on all the files concerned
                 # destination dir depends on the type of file
@@ -894 +863 @@
                     }
                 }
+                pb_list_sfiles("$ENV{'PBROOTDIR'}/$pbpkg/pbpatch", \%patches, $pb{'dtype'}, $dfam, $ddir, $dver, $arch, "$ENV{'PBROOTDIR'}/$pbpkg/pbextpatch");
+                pb_list_sfiles("$ENV{'PBROOTDIR'}/$pbpkg/pbsrc", \%sources, $pb{'dtype'}, $dfam, $ddir, $dver, $arch, "$ENV{'PBROOTDIR'}/$pbpkg/pbextsrc");
+
                 $pm->finish if (defined $pbparallel);
             }
@@ -906 +878 @@
             pb_log(0,"No Build files found for ".join(',',sort(@notfound))."\n") if (@notfound);
             pb_log(2,"DEBUG: patches: ".Dumper(%patches)."\n");
+            pb_log(2,"DEBUG: sources: ".Dumper(%sources)."\n");
         }
 
@@ -927 +900 @@
         if (not defined $web) {
             my %tmp;
-            my $warnflag = 0;
+            my $warnptcflag = 0;
+            my $warnsrcflag = 0;
             # Filter potential patches (local + remote)
             pb_log(0,"Delivering and compressing patches ");
@@ -935 +909 @@
                     my $pp = basename($pf);
                     if ($param eq "SandBox") {
-                        $warnflag = 1;
+                        $warnptcflag = 1;
                     }
                     pb_cms_export($pf,undef,"$dest/pbconf/$v/pbpatch");
@@ -943 +917 @@
                 }
             }
+            pb_log(0,"Delivering additional sources ");
+            foreach my $v (keys %sources) {
+                pb_mkdir_p("$dest/pbconf/$v/pbsrc");
+                foreach my $pf (split(/,/,$sources{$v})) {
+                    my $pp = basename($pf);
+                    if ($param eq "SandBox") {
+                        $warnsrcflag = 1;
+                    }
+                    pb_cms_export($pf,undef,"$dest/pbconf/$v/pbsrc");
+                    pb_filter_file_inplace($ptr,"$dest/pbconf/$v/pbsrc/$pp",\%pb);
+                    $tmp{$pf} = "";
+                }
+            }
             foreach my $v (keys %tmp) {
                 pb_log(0,"$v ");
             }
             pb_log(0,"\n");
-            pb_log(0,"WARNING: Patches are always taken from repository not local export\n") if ($warnflag == 1);
+            pb_log(0,"WARNING: Patches are always taken from repository not local export\n") if ($warnptcflag == 1);
+            pb_log(0,"WARNING: Sources are always taken from repository not local export\n") if ($warnsrcflag == 1);
         } else {
             # Instead call News generation
@@ -3250 +3238 @@
 }
 
-
+sub pb_list_sfiles {
+
+my $sdir = shift;
+my $sources = shift;
+my $dtype = shift;
+my $dfam = shift;
+my $ddir = shift;
+my $dver = shift;
+my $arch = shift;
+my $extdir = shift;
+
+# Prepare local sources for this distro - They are always applied first - May be a problem one day
+# This function works for both patches and additional sources
+foreach my $p (sort(<$sdir/*>)) {
+    $sources->{"$ddir-$dver-$arch"} .= "," if ((defined $sources->{"$ddir-$dver-$arch"}) and ($p =~ /\.all$/));
+    $sources->{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.all$/);
+    $sources->{"$ddir-$dver-$arch"} .= "," if ((defined $sources->{"$ddir-$dver-$arch"}) and ($p =~ /\.$dtype$/));
+    $sources->{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$dtype$/);
+    $sources->{"$ddir-$dver-$arch"} .= "," if ((defined $sources->{"$ddir-$dver-$arch"}) and ($p =~ /\.$dfam$/));
+    $sources->{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$dfam$/);
+    $sources->{"$ddir-$dver-$arch"} .= "," if ((defined $sources->{"$ddir-$dver-$arch"}) and ($p =~ /\.$ddir$/));
+    $sources->{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$ddir$/);
+    $sources->{"$ddir-$dver-$arch"} .= "," if ((defined $sources->{"$ddir-$dver-$arch"}) and ($p =~ /\.$ddir-$dver$/));
+    $sources->{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$ddir-$dver$/);
+    $sources->{"$ddir-$dver-$arch"} .= "," if ((defined $sources->{"$ddir-$dver-$arch"}) and ($p =~ /\.$ddir-$dver-$arch$/));
+    $sources->{"$ddir-$dver-$arch"} .= "file://$p" if ($p =~ /\.$ddir-$dver-$arch$/);
+}
+
+# Prepare also remote sources to be included - Applied after the local ones
+foreach my $p ("all","$dtype","$dfam","$ddir","$ddir-$dver","$ddir-$dver-$arch") {
+    my $f = "$extdir.".".$p";
+    next if (not -f $f);
+    if (not open(PATCH,$f)) {
+        pb_display("Unable to open existing external source file content $f\n");
+        next;
+    }
+    while (<PATCH>) {
+        chomp();
+        $sources->{"$ddir-$dver-$arch"} .= "," if (defined $sources->{"$ddir-$dver-$arch"});
+        $sources->{"$ddir-$dver-$arch"} .= "$_";
+    }
+    close(PATCH);
+}
+pb_log(2,"DEBUG: sources: ".Dumper($sources)."\n");
+}
+    
 # 
 # Return the list of packages we are working on in a non CMS action