Changeset 16 in ProjectBuilder for devel/pb

Timestamp:

Jul 30, 2007, 6:07:31 PM (17 years ago)

Author:

Bruno Cornec

Message:

Works for build files generation wtih filter and variable expansion. Happy ;-)

File:

• devel/pb/bin/pb.pl (modified) (8 diffs)

devel/pb/bin/pb.pl

@@ -15 +15 @@
 use Data::Dumper;
 use English;
+use AppConfig qw(:argcount :expand);
+use File::Basename;
 use Time::localtime qw(localtime);
 use POSIX qw(strftime);
@@ -30 +32 @@
 my $option = "";
 my @pkgs;
+my $pbtag;                  # Global TAG variable
+my $pbver;                  # Global VERSION variable
+my $pbrev;                  # GLOBAL REVISION variable
+my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
+my $pbdate = strftime("%Y-%m-%d", @date);
 
 getopts('p:t',\%opts);
@@ -71 +78 @@
     foreach my $p (@pkgs) {
 
-        my $v;
-
         if (-f "$ENV{'PBROOT'}/$p/VERSION") {
             open(V,"$ENV{'PBROOT'}/$p/VERSION") || die "Unable to open $ENV{'PBROOT'}/$p/VERSION";
-            $v = <V>;
-            chomp($v);
+            $pbver = <V>;
+            chomp($pbver);
             close(V);
         } else {
-            $v = $ENV{'PBVER'};
-        }
-
-        my $tag;
+            $pbver = $ENV{'PBVER'};
+        }
 
         if (-f "$ENV{'PBROOT'}/$p/TAG") {
             open(T,"$ENV{'PBROOT'}/$p/TAG") || die "Unable to open $ENV{'PBROOT'}/$p/TAG";
-            $tag = <T>;
-            chomp($tag);
+            $pbtag = <T>;
+            chomp($pbtag);
             close(T);
         } else {
-            $tag = $ENV{'PBTAG'};
-        }
-        print "Management of $p $v-$tag (rev $ENV{'PBREVISION'})\n";
+            $pbtag = $ENV{'PBTAG'};
+        }
+        $pbrev = $ENV{'PBREVISION'};
+        print "Management of $p $pbver-$pbtag (rev $pbrev)\n";
         die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
-        # Clean up dest if necessary
-        my $dest = "$ENV{'PBDESTDIR'}/$p-$v";
+        # Clean up dest if necessary. The export will recreate it
+        my $dest = "$ENV{'PBDESTDIR'}/$p-$pbver";
         pbrm_rf($dest) if (-d $dest);
 
@@ -116 +120 @@
         # Creates a REVISION file
         open(R,"> $dest/REVISION") || die "Unable to create $dest/REVISION";
-        print R "$ENV{'PBREVISION'}\n";
+        print R "$pbrev\n";
         close(R);
 
@@ -129 +133 @@
             print " OK\n";
         }
-        my @date=(localtime->sec(), localtime->min(), localtime->hour(), localtime->mday(), localtime->mon(), localtime->year(), localtime->wday(), localtime->yday(), localtime->isdst());
-        my $pbdate = strftime("%Y-%m-%d", @date);
-
         open(D,"$ENV{'PBCONF'}/DISTROS") || die "Unable to find $ENV{'PBCONF'}/DISTROS\n";
         while (<D>) {
@@ -140 +141 @@
             my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
             #print Dumper($ddir, $dver, $dfam, $dtype, $dsuf);
-            #print "Filtering DDD => $pbdate, TTT => $tag, RRR => $tag$dsuf, VVV => $v\n";
-
-            # Filter build files from the most precise up to the less
+            #print "Filtering DDD => $pbdate, TTT => $pbtag, RRR => $pbtag$dsuf, VVV => $pbver\n";
+
+            # Filter build files from the less precise up to the most with overloading
             # Filter all files found, keeping the name, and generating in dest
-            my @bfiles;
+
+            # Find all build files first relatively to PBROOT
+            my %bfiles;
             #print "dir: $ENV{'PBCONF'}/$p\n";
-            if (-d "$ENV{'PBCONF'}/$p/$ddir-$dver") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$p/$ddir-$dver" || die "Unable to open dir $ENV{'PBCONF'}/$p/$ddir-$dver: $!");
-                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$ddir-$dver/$_" } readdir(BDIR);
+            if (-d "$ENV{'PBCONF'}/$p/$dtype") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$dtype" || die "Unable to open dir $ENV{'PBCONF'}/$p/$dtype: $!");
+                foreach my $f (readdir(BDIR)) {
+                    next if ($f =~ /^\./);
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$p/$dtype/$f";
+                    $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
+                }
+                closedir(BDIR);
+            } elsif (-d "$ENV{'PBCONF'}/$p/$dfam") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$dfam" || die "Unable to open dir $ENV{'PBCONF'}/$p/$dfam: $!");
+                foreach my $f (readdir(BDIR)) {
+                    next if ($f =~ /^\./);
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$p/$dfam/$f";
+                    $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
+                }
                 closedir(BDIR);
             } elsif (-d "$ENV{'PBCONF'}/$p/$ddir") {
                 opendir(BDIR,"$ENV{'PBCONF'}/$p/$ddir" || die "Unable to open dir $ENV{'PBCONF'}/$p/$ddir: $!");
-                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$ddir/$_" } readdir(BDIR);
-                closedir(BDIR);
-            } elsif (-d "$ENV{'PBCONF'}/$p/$dfam") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$p/$dfam" || die "Unable to open dir $ENV{'PBCONF'}/$p/$dfam: $!");
-                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$dfam/$_" } readdir(BDIR);
-                closedir(BDIR);
-            } elsif (-d "$ENV{'PBCONF'}/$p/$dtype") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$p/$dtype" || die "Unable to open dir $ENV{'PBCONF'}/$p/$dtype: $!");
-                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$dtype/$_" } readdir(BDIR);
+                foreach my $f (readdir(BDIR)) {
+                    next if ($f =~ /^\./);
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$p/$ddir/$f";
+                    $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
+                }
+                closedir(BDIR);
+            } elsif (-d "$ENV{'PBCONF'}/$p/$ddir-$dver") {
+                opendir(BDIR,"$ENV{'PBCONF'}/$p/$ddir-$dver" || die "Unable to open dir $ENV{'PBCONF'}/$p/$ddir-$dver: $!");
+                foreach my $f (readdir(BDIR)) {
+                    next if ($f =~ /^\./);
+                    $bfiles{$f} = "$ENV{'PBCONF'}/$p/$ddir-$dver/$f";
+                    $bfiles{$f} =~ s~$ENV{'PBROOT'}~~;
+                }
                 closedir(BDIR);
             } else {
@@ -166 +185 @@
                 next;
             }
+            print "bfiles: ".Dumper(\%bfiles)."\n";
 
             # Get all filters to apply
             # They're cumulative from less specific to most specific
             # suffix is .pbf
+            my @ffiles;
+            my ($ffile0, $ffile1, $ffile2, $ffile3);
             if (-d "$ENV{'PBCONF'}/$p/pbfilter") {
-                opendir(BDIR,"$ENV{'PBCONF'}/$p/pbfilter" || die "Unable to open dir $ENV{'PBCONF'}/$p/pbfilter: $!");
-                foreach my $f (readdir(BDIR)) {
-                    if (-f "$ENV{'PBCONF'}/$p/pbfilter/$dtype.pbf") {
-
-                @bfiles = grep { ! /^\./ && -f "$ENV{'PBCONF'}/$p/$dtype/$_" } readdir(BDIR);
-                closedir(BDIR);
+                $ffile0 = "$ENV{'PBCONF'}/$p/pbfilter/$dtype.pbf" if (-f "$ENV{'PBCONF'}/$p/pbfilter/$dtype.pbf");
+                $ffile1 = "$ENV{'PBCONF'}/$p/pbfilter/$dfam.pbf" if (-f "$ENV{'PBCONF'}/$p/pbfilter/$dfam.pbf");
+                $ffile2 = "$ENV{'PBCONF'}/$p/pbfilter/$ddir.pbf" if (-f "$ENV{'PBCONF'}/$p/pbfilter/$ddir.pbf");
+                $ffile3 = "$ENV{'PBCONF'}/$p/pbfilter/$ddir-$dver.pbf" if (-f "$ENV{'PBCONF'}/$p/pbfilter/$ddir-$dver.pbf");
+                push @ffiles,$ffile0 if (defined $ffile0);
+                push @ffiles,$ffile1 if (defined $ffile1);
+                push @ffiles,$ffile2 if (defined $ffile2);
+                push @ffiles,$ffile3 if (defined $ffile3);
             }
-
+            my $config = AppConfig->new({
+                            # Auto Create variables mentioned in Conf file
+                            CREATE => 1,
+                            DEBUG => 0,
+                            GLOBAL => {
+                                # Each conf item is a hash
+                                ARGCOUNT => AppConfig::ARGCOUNT_HASH
+                            }
+                        });
+            print "ffiles: ".Dumper(\@ffiles)."\n";
+            if (@ffiles) {
+                $config->file(@ffiles);
+                my $ptr = $config->get("filter");
+                print "f:".Dumper($ptr)."\n";
+
+                # Apply now all the filters on all the files concerned
+                # All files are relative to PBROOT
+                # destination dir depends on the type of file
+                if (defined $ptr) {
+                    foreach my $f (values %bfiles) {
+                        filter_file($f,$ptr,"$dest/pbconf/$ddir-$dver/".basename($f));
+                    }
+                    foreach my $f (@filteredfiles) {
+                        filter_file($f,$ptr,"$dest/$f");
+                    }
+                }
+            }
         }
         close(D);
-
     }
 } else {
@@ -188 +237 @@
     print "    cms2build\n";
 }
+
+sub filter_file {
+
+my $f=shift;
+my $ptr=shift;
+my %filter=%$ptr;
+my $destfile=shift;
+
+print "From $f to $destfile\n";
+pbmkdir_p(dirname($destfile)) if (! -d dirname($destfile));
+open(DEST,"> $destfile") || die "Unable to create $destfile";
+open(FILE,"$ENV{'PBROOT'}/$f") || die "Unable to open $f: $!";
+while (<FILE>) {
+    my $line = $_;
+    foreach my $s (keys %filter) {
+        # Process single variables
+        #print "debug: $filter{$s}\n";
+        my $tmp = $filter{$s};
+        next if (not defined $tmp);
+        # Expand variables if any single one found
+        if ($tmp =~ /\$/) {
+            eval { $tmp =~ s/(\$\w+)/$1/eeg };
+        }
+        $line =~ s|$s|$tmp|;
+    }
+    print DEST $line;
+    }
+close(FILE);
+close(DEST);
+}