Changeset 780 in ProjectBuilder for devel/pb/lib

Timestamp:

May 18, 2009, 8:01:58 AM (16 years ago)

Author:

Bruno Cornec

Message:

r3072@localhost: bruno | 2009-05-17 19:39:56 +0200
Adds support for SVK as a DVCS/CMS to project builder

File:

• devel/pb/lib/ProjectBuilder/CMS.pm (modified) (12 diffs)

devel/pb/lib/ProjectBuilder/CMS.pm

@@ -106 +106 @@
     $ENV{'PBREVISION'}=$tmp;
     $ENV{'PBCMSLOGFILE'}="svn.log";
+} elsif ($scheme =~ /^svk/) {
+    $tmp = `(cd "$ENV{'PBDIR'}" ; $vcscmd info . | grep -E '^Revision:' | cut -d: -f2)`;
+    $tmp =~ s/\s+//;
+    chomp($tmp);
+    $ENV{'PBREVISION'}=$tmp;
+    $ENV{'PBCMSLOGFILE'}="svk.log";
 } elsif ($scheme =~ /^cvs/) {
     # Way too slow
@@ -152 +158 @@
         }
         $source = pb_cms_mod_http($source,"svn");
-        pb_system("$vcscmd export $source $tmp","Exporting $source from SVN to $tmp ");
+        pb_system("$vcscmd export $source $tmp","Exporting $source from $scheme to $tmp ");
     } else {
         $uri = pb_cms_mod_http($uri,"svn");
-        pb_system("$vcscmd export $uri $destdir","Exporting $uri from SVN to $destdir ");
+        pb_system("$vcscmd export $uri $destdir","Exporting $uri from $scheme to $destdir ");
+    }
+} elsif ($scheme eq "svk") {
+    if (defined $source) {
+        if (-d $source) {
+            $tmp = $destdir;
+        } else {
+            $tmp = "$destdir/".basename($source);
+        }
+        $source = pb_cms_mod_http($source,"svk");
+        # This doesn't exist !
+        # pb_system("$vcscmd export $path $tmp","Exporting $path from $scheme to $tmp ");
+        pb_log(4,"$uri,$source,$destdir,$scheme, $account, $host, $port, $path,$tmp");
+        pb_system("mkdir -p $tmp ; cd $tmp; tar -cf - -C $source . | tar xf -","Exporting $path from $scheme to $tmp ");
+    } else {
+        die "Unable to export from svk without a source defined";
     }
 } elsif ($scheme eq "dir") {
@@ -283 +304 @@
     close(PIPE);
     chomp($res);
+} elsif ($scheme =~ /^svk/) {
+    open(PIPE,"LANGUAGE=C $vcscmd info $dir |") || return("");
+    my $void2 = "";
+    while (<PIPE>) {
+        ($void,$void2,$res) = split(/ /) if (/^Depot/);
+    }
+    $res =~ s/^\s*//;
+    close(PIPE);
+    chomp($res);
 } elsif ($scheme =~ /^hg/) {
     open(HGRC,".hg/hgrc/") || return("");
@@ -352 +382 @@
     pb_system("$vcscmd copy -m \"Creation of $newurl from $oldurl\" $oldurl $newurl","Copying $oldurl to $newurl ");
 } elsif ($scheme eq "flat") {
-} elsif ($scheme =~ /^cvs/) {
-} else {
-    die "cms $scheme unknown";
+} else {
+    die "cms $scheme unknown for project management";
 }
 }
@@ -376 +405 @@
 if ($scheme =~ /^svn/) {
     $url = pb_cms_mod_http($url,"svn");
+    pb_system("$vcscmd co $url $destination","Checking out $url to $destination ");
+} elsif ($scheme =~ /^svk/) {
+    $url = pb_cms_mod_http($url,"svk");
     pb_system("$vcscmd co $url $destination","Checking out $url to $destination ");
 } elsif ($scheme =~ /^hg/) {
@@ -421 +453 @@
 my $vcscmd = pb_cms_cmd($scheme);
 
-if (($scheme =~ /^svn/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
+if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     pb_system("$vcscmd up $dir","Updating $dir ");
 } elsif ($scheme eq "flat") {
@@ -448 +480 @@
 $msg = "Project $ENV{PBPROJ} creation" if (defined $pbinit);
 
-if (($scheme =~ /^svn/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
+if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     pb_system("cd $dir ; $vcscmd ci -m \"$msg\" .","Checking in $dir ");
 } elsif ($scheme eq "flat") {
@@ -470 +502 @@
 my $vcscmd = pb_cms_cmd($scheme);
 
-if (($scheme =~ /^svn/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
+if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     pb_system("$vcscmd add $f","Adding $f to VCS ");
 } elsif ($scheme eq "flat") {
@@ -492 +524 @@
 my $vcscmd = pb_cms_cmd($scheme);
 
-if (($scheme =~ /^svn/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
+if (($scheme =~ /^svn/) || ($scheme =~ /^svk/) || ($scheme =~ /^hg/) || ($scheme =~ /^git/) || ($scheme =~ /^cvs/)) {
     open(PIPE,"$vcscmd diff $dir |") || die "Unable to get $vcscmd diff from $dir";
     my $l = 0;
@@ -628 +660 @@
         pb_cms_checkout($scheme,$uri,$ENV{$envar});
     }
-} elsif (($scheme !~ /^cvs/) || ($scheme !~ /^svn/) || ($scheme !~ /^hg/) || ($scheme !~ /^git/) ) {
+} elsif (($scheme !~ /^cvs/) || ($scheme !~ /^svn/) || ($scheme =~ /^svk/) || ($scheme !~ /^hg/) || ($scheme !~ /^git/) ) {
     # Do not compare if it's not a real cms
     return;
@@ -749 +781 @@
         }
     }
+} elsif ($scheme =~ /^svk/) {
+    if (! -f "$dest/ChangeLog") {
+        pb_system("$vcscmd log -v $pkgdir > $dest/$ENV{'PBCMSLOGFILE'}","Extracting log info from SVK");
+        }
 } elsif ($scheme =~ /^hg/) {
     if (! -f "$dest/ChangeLog") {
@@ -822 +858 @@
 } elsif ($scheme =~ /svn/) {
     return($cmd."svn")
+} elsif ($scheme =~ /svk/) {
+    return($cmd."svk")
 } elsif ($scheme =~ /cvs/) {
     return($cmd."cvs")