Changeset 15 in ProjectBuilder for devel/pb

Timestamp:

Jul 30, 2007, 2:47:27 PM (17 years ago)

Author:

Bruno Cornec

Message:

Begin to deal with filters

Location:

devel/pb

Files:

• AUTHORS (added)
• COPYING (added)
• ChangeLog (added)
• INSTALL (added)
• README (added)
• bin/pb.pl (modified) (2 diffs)
• etc (deleted)
• lib/pb.pm (modified) (3 diffs)

devel/pb/bin/pb.pl

@@ -19 +19 @@
 
 use lib qw (lib etc);
-use vars qw (%defpkgdir %extpkgdir %version);
+use vars qw (%defpkgdir %extpkgdir %version @filteredfiles);
 use common qw (env_init);
-use pb qw (defpkgdir extpkgdir version pb_init);
+use pb qw (defpkgdir extpkgdir version filteredfiles pb_init);
 use distro qw (distro_init);
 use cms;
@@ -167 +167 @@
             }
 
+            # Get all filters to apply
+            # They're cumulative from less specific to most specific
+            # suffix is .pbf
+            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);
+            }
+
         }
         close(D);

devel/pb/lib/pb.pm

@@ -11 +11 @@
 @ISA = qw(Exporter);
 # global vars are here
-@EXPORT_OK = qw(%defpkgdir %extpkgdir %version &pb_init);
+@EXPORT_OK = qw(%defpkgdir %extpkgdir %version @filteredfiles &pb_init);
 use vars @EXPORT_OK;
 use AppConfig qw(ARGCOUNT_ONE ARGCOUNT_HASH ARGCOUNT_LIST EXPAND_ALL);
@@ -30 +30 @@
 $config->define("extpkgdir" => { ARGCOUNT => ARGCOUNT_HASH });
 $config->define("version" => { ARGCOUNT => ARGCOUNT_HASH });
+$config->define("filteredfiles" => { ARGCOUNT => ARGCOUNT_LIST });
 
 $config->file($conffile);
@@ -53 +54 @@
 %version = %$ptr;
 
+# List of files to filter
+$ptr = $config->get("filteredfiles");
+@filteredfiles = @$ptr;
+
 }
 1;