Changeset 7 in ProjectBuilder for devel/pb

Timestamp:

Jul 29, 2007, 1:55:14 AM (17 years ago)

Author:

Bruno Cornec

Message:

Begin to compile and execute

Location:

devel/pb

Files:

• etc/pb.pb (added)
• lib/common.pm (modified) (1 diff)
• lib/pb.pm (modified) (4 diffs)

devel/pb/lib/common.pm

@@ -40 +40 @@
 
 # Set temp directory
-if (undef $ENV{'TMPDIR'}) {
+if (not defined $ENV{'TMPDIR'}) {
     $ENV{'TMPDIR'}="/tmp";
 }

devel/pb/lib/pb.pm

@@ -13 +13 @@
 @EXPORT_OK = qw(%defpkgdir %extpkgdir @version &pb_init);
 use vars @EXPORT_OK;
-use AppConfig;
+use AppConfig qw(ARGCOUNT_ONE ARGCOUNT_HASH ARGCOUNT_LIST EXPAND_ALL);
 
 sub pb_init {
 
 my $conffile = shift;
+my $ptr;
 
 my $config = AppConfig->new({
@@ -23 +24 @@
                             CREATE => 1,
                             DEBUG => 0,
-                            GLOBAL => {
-                            # Each conf item has one single parameter
-                            ARGCOUNT => AppConfig::ARGCOUNT_ONE
-                            }
                         });
+$config->define("pbroot" => { ARGCOUNT => ARGCOUNT_ONE, EXPAND => EXPAND_ALL });
+$config->define("cvsroot" => { ARGCOUNT => ARGCOUNT_ONE });
+$config->define("defpkgdir" => { ARGCOUNT => ARGCOUNT_HASH });
+$config->define("extpkgdir" => { ARGCOUNT => ARGCOUNT_HASH });
+$config->define("version" => { ARGCOUNT => ARGCOUNT_LIST });
+
 $config->file($conffile);
 
@@ -33 +36 @@
 # needs at least 2 levels of dir as in the upper 
 # other dirs will be created and used
-$ENV{'PBROOT'} = $config->get("pbproj");
+$ENV{'PBROOT'} = $config->get("pbroot") || die "Unable to find pbroot in $conffile";
 
 # If CVS, gives the way to login
@@ -39 +42 @@
 
 # List of pkg to build by default
-%defpkgdir = $config->get("defpkgdir");
+$ptr = $config->get("defpkgdir") || die "Unable to find defpkgdir in $conffile";
+%defpkgdir = %$ptr;
 
 # List of additional pkg to build when all is called
-%extpkgdir = $config->get("extpkgdir");
+$ptr = $config->get("extpkgdir");
+%extpkgdir = %$ptr;
 
 # Valid version names
-@version = $config->get("version");
+$ptr = $config->get("version");
+@version = @$ptr;
 
 }