Changeset 11 in ProjectBuilder for devel/pb/bin

Timestamp:

Jul 30, 2007, 2:21:01 AM (17 years ago)

Author:

Bruno Cornec

Message:

Addition of distro management

File:

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

devel/pb/bin/pb.pl

@@ -20 +20 @@
 use common qw (env_init);
 use pb qw (defpkgdir extpkgdir version pb_init);
+use distro qw (distro_init);
 use cms;
 
@@ -126 +127 @@
             print " OK\n";
         }
+        open(D,"$ENV{'PBCONF'}/DISTROS") || die "Unable to find $ENV{'PBCONF'}/DISTROS\n";
+        while (<D>) {
+            my $d = $_;
+            my ($dir,$ver) = split(/_/,$d);
+            chomp($ver);
+            print "Generating build files for $dir ($ver)\n";
+            my ($ddir, $dver, $dfam, $dtype, $dsuf) = distro_init($dir,$ver);
+            #print Dumper($ddir, $dver, $dfam, $dtype, $dsuf);
+        }
+        close(D);
     }
 } else {