Changeset 9 in ProjectBuilder

Timestamp:

Jul 30, 2007, 1:22:32 AM (18 years ago)

Author:

Bruno Cornec

Message:

cms2build begins to export

Location:

devel/pb

Files:

• bin/pb.pl (modified) (1 diff)
• etc/pb.pb (modified) (1 diff)
• lib/cms.pm (modified) (1 diff)
• lib/common.pm (modified) (4 diffs)

devel/pb/bin/pb.pl

@@ -8 +8 @@
 # Provided under the GPL v2
 
+# Syntax: pb [-p project] <action> [<params>...]
+
 use strict;
 use Switch;
 use Getopt::Std;
+use Data::Dumper;
+use English;
 
 use lib qw (lib etc);
 use vars qw (%defpkgdir %extpkgdir %version);
-use common qw (set_env);
+use common qw (env_init);
 use pb qw (defpkgdir extpkgdir version pb_init);
 use cms;
 
 my %opts;                   # CLI Options
+my $action;                 # action to realize
+my $test = "FALSE";
+my $option = "";
+my @pkgs;
 
-getopts('p:',\%opts);
+getopts('p:t',\%opts);
 
 # Handles project name if any
 if (defined $opts{'p'}) {
-    $ENV{'PBPROJ'} = set_env($opts{'p'});
+    $ENV{'PBPROJ'} = env_init($opts{'p'});
 } else {
-    $ENV{'PBPROJ'} = set_env();
+    $ENV{'PBPROJ'} = env_init();
+}
+# Handles test option
+if (defined $opts{'t'}) {
+    $test = "TRUE";
+    # Works only for SVN
+    $option = "-r BASE";
 }
 
-print "PBPROJ: $ENV{'PBPROJ'}\n";
+# Get Action
+$action = shift @ARGV;
+die "Syntax: pb [-p project] <action> [<params>...]" if (not defined $action);
 
-cms_init();
+print "Project $ENV{'PBPROJ'}\n";
+#print "Action: $action - ARGV:".Dumper(\@ARGV);
+
+# Act depending on action
+if ($action =~ /^cms2build$/) {
+    print "Action: cms2build\n";
+    # Get packages list
+    if (not defined $ARGV[0]) {
+        @pkgs = keys %defpkgdir;
+    } elsif ($ARGV[0] =~ /^all$/) {
+        @pkgs = keys %defpkgdir;
+        push(@pkgs, keys %extpkgdir);
+    } else {
+        @pkgs = @ARGV;
+    }
+    print "Packages:\n";
+    print Dumper(@pkgs);
+    cms_init();
+
+    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);
+            close(V);
+        } else {
+            $v = $ENV{'PBVER'};
+        }
+
+        my $tag;
+
+        if (-f "$ENV{'PBROOT'}/$p/TAG") {
+            open(T,"$ENV{'PBROOT'}/$p/TAG") || die "Unable to open $ENV{'PBROOT'}/$p/TAG";
+            $tag = <T>;
+            chomp($tag);
+            close(T);
+        } else {
+            $tag = $ENV{'PBTAG'};
+        }
+        print "Management of $p $v-$tag (rev $ENV{'PBREVISION'})\n";
+        die "Unable to get env var PBDESTDIR" if (not defined $ENV{'PBDESTDIR'});
+        # Clean up dest if necessary
+        my $dest = "$ENV{'PBDESTDIR'}/$p-$v";
+        pbrm_rf($dest) if (-d $dest);
+
+        # Export CMS tree for the concerned package to dest
+        # And generate some additional files
+        $OUTPUT_AUTOFLUSH=1;
+        print "$ENV{'PBCMSEXP'} of $p...";
+        # computes in which dir we have to work
+        my $dir = $defpkgdir{$p};
+        $dir = $extpkgdir{$p} if (not defined $dir);
+        system("$ENV{'PBCMSEXP'} $option $ENV{'PBROOT'}/$dir $dest 1>/dev/null");
+        if ($? == -1) {
+            print "failed to execute: $!\n";
+        } elsif ($? & 127) {
+            printf "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without';
+        } else {
+            print " Done under $dest\n";
+        }
+
+        # Creates a REVISION file
+        open(R,"> $dest/REVISION") || die "Unable to create $dest/REVISION";
+        print R "$ENV{'PBREVISION'}\n";
+        close(R);
+
+        # Extract cms log history and store it
+        system("$ENV{'PBCMSLOG'} $option $ENV{'PBROOT'}/$dir > $dest/$ENV{'PBCMSLOGFILE'}");
+        print "$ENV{'PBCMSLOG'} of $p...";
+        if ($? == -1) {
+            print "failed to execute: $!\n";
+        } elsif ($? & 127) {
+            printf "child died with signal %d, %s coredump\n", ($? & 127),  ($? & 128) ? 'with' : 'without';
+        } else {
+            print " OK\n";
+        }
+    }
+} else {
+    print "'$action' is not available\n";
+    print "Available actions are:\n";
+    print "    cms2build\n";
+}

devel/pb/etc/pb.pb

@@ -18 +18 @@
 
 # Hash of additional package/package directory
-extpkgdir "" = ""
+#extpkgdir pkg1 = dir1
 
 # Hash of valid version names

devel/pb/lib/cms.pm

@@ -27 +27 @@
     if ($ret == 0) {
         $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; svnversion .)`;
+        chomp($ENV{'PBREVISION'});
         $ENV{'PBCMSLOG'}="svn log";
+        $ENV{'PBCMSLOGFILE'}="svn.log";
         $ENV{'PBCMSEXP'}="svn export";
     } else {
         # By default if not SVN take CVS
         $ENV{'PBREVISION'}=`(cd "$ENV{'PBROOT'}" ; cvs rannotate  -f . 2>&1 | awk '{print \$1}' | grep -E '^[0-9]' | cut -d. -f2 |sort -nu | tail -1)`;
+        chomp($ENV{'PBREVISION'});
         $ENV{'PBCMSLOG'}="cvs log";
+        $ENV{'PBCMSLOGFILE'}="cvs.log";
         $ENV{'PBCMSEXP'}="cvs export"
     }

devel/pb/lib/common.pm

@@ -7 +7 @@
 require Exporter;
 @ISA = qw(Exporter);
-@EXPORT = qw(set_env);
+@EXPORT = qw(env_init);
 
 use lib qw (lib);
@@ -13 +13 @@
 use strict;
 use File::Basename;
-use ExtUtils::Command;
+use File::Path;
 use File::Temp qw /tempdir/;
 use vars qw (%defpkgdir %extpkgdir %version);
@@ -20 +20 @@
 $ENV{'PBCONF'} = "/etc/pb";
 
-sub set_env {
+sub env_init {
 
 my $proj=shift;
@@ -85 +85 @@
 #
 $ENV{'PBTOPDIR'}="$ENV{'PBROOT'}/../delivery";
-$ENV{'PBDESTDIR'}=$ENV{'PBTOPDIR'}."/".$ENV{'PBVER'}."-".$ENV{'PBTAG'};
-mkpath $ENV{'PBDESTDIR'};
+$ENV{'PBDESTDIR'}="$ENV{'PBTOPDIR'}/$ENV{'PBVER'}-$ENV{'PBTAG'}";
+pbrm_rf($ENV{'PBDESTDIR'}) if (-d "$ENV{'PBDESTDIR'}");
+pbmkdir_p($ENV{'PBDESTDIR'}) || die "Unable to recursively create $ENV{'PBDESTDIR'}";
 
 umask 0022;
 return($proj);
 }
+
+sub pbmkdir_p {
+    my @dir = @_;
+    my $ret = mkpath(@dir, 0, 0755);
+    return($ret);
+}
+
+sub pbrm_rf {
+    my @dir = @_;
+    my $ret = rmtree(@dir, 0, 0);
+    return($ret);
+}
+
 1;