Initial import of bootstrapig for buildbot.

2010-04-04 16:07:37 -07:00
parent b706108ed6
commit 824d9953d9
7 changed files with 466 additions and 68 deletions
--- a/support/buildbot/helpers.pm
+++ b/support/buildbot/helpers.pm
@@ -0,0 +1,145 @@
+#!/usr/bin/perl
+
+use strict;
+use Cwd;
+
+package Build;
+
+our $SVN = "/usr/bin/svn";
+our $SVN_USER = 'dvander';
+our $SVN_ARGS = '';
+
+sub HgRevNum
+{
+	my ($path) = (@_);
+	my ($cd, $text, $rev);
+
+	$cd = Cwd::cwd();
+	chdir($path);
+	$text = `hg identify -n`;
+	chdir($cd);
+
+	chomp $text;
+	if ($text =~ /^(\d+)/)
+	{
+		return $1;
+	}
+
+	return 0;
+}
+
+sub SvnRevNum
+{
+	my ($str)=(@_);
+			
+	my $data = Command('svnversion -c ' . $str);
+	if ($data =~ /(\d+):(\d+)/)
+	{
+		return $2;
+	} elsif ($data =~ /(\d+)/) {
+		return $1;
+	} else {
+		return 0;
+	}
+}
+
+sub ProductVersion
+{
+	my ($file) = (@_);
+	my ($version);
+	open(FILE, $file) or die "Could not open $file: $!\n";
+	$version = <FILE>;
+	close(FILE);
+	chomp $version;
+	return $version;
+}
+
+sub Delete
+{
+	my ($str)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		Command("del /S /F /Q \"$str\"");
+		Command("rmdir /S /Q \"$str\"");
+	} else {
+		Command("rm -rf $str");
+	}
+	return !(-e $str);
+}
+
+sub Copy
+{
+	my ($src,$dest)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		Command("copy \"$src\" \"$dest\" /y");
+	} else {
+		Command("cp \"$src\" \"$dest\"");
+	}
+	return (-e $dest);
+}
+
+sub Move
+{
+	my ($src,$dest)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		Command("move \"$src\" \"$dest\"");
+	} else {
+		Command("mv \"$src\" \"$dest\"");
+	}
+	return (-e $dest);
+}
+
+sub Command
+{
+	my($cmd)=(@_);
+	print "$cmd\n";
+	return `$cmd`;
+}
+
+sub PathFormat
+{
+	my ($str)=(@_);
+	if ($^O =~ /MSWin/)
+	{
+		$str =~ s#/#\\#g;
+	} else {
+		$str =~ s#\\#/#g;
+	}
+	return $str;
+}
+
+sub SVN_Remove
+{
+	my ($file)=(@_);
+	my ($path, $name);
+	if ($^O =~ /MSWin/)
+	{
+		($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
+	} else {
+		($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
+	}
+	my $dir = Cwd::cwd();
+	chdir($path);
+	Command($SVN . ' ' . $SVN_ARGS . ' delete ' . $name);
+	chdir($dir);
+}
+
+sub SVN_Add
+{
+	my ($file)=(@_);
+	my ($path, $name);
+	if ($^O =~ /MSWin/)
+	{
+		($path, $name) = ($file =~ /(.+)\/([^\/]+)$/);
+	} else {
+		($path, $name) = ($file =~ /(.+)\\([^\\]+)$/);
+	}
+	my $dir = Cwd::cwd();
+	chdir($path);
+	Command($SVN . ' ' . $SVN_ARGS . ' add ' . $name);
+	chdir($dir);
+}
+
+return 1;