diff --git a/utils/NewNightlyTest.pl b/utils/NewNightlyTest.pl index 41792d6da4b..b29b6e735e0 100755 --- a/utils/NewNightlyTest.pl +++ b/utils/NewNightlyTest.pl @@ -50,8 +50,6 @@ use Socket; # -disable-bindings Disable building LLVM bindings. # -cvstag Check out a specific CVS tag to build LLVM (useful for # testing release branches) -# -usecvs Check code out from the (old) CVS Repository instead of from -# the standard Subversion repository. # -with-clang Checkout Clang source into tools/clang. # -compileflags Next argument specifies extra options passed to make when # building LLVM. @@ -148,7 +146,6 @@ $CONFIG_PATH=""; $CONFIGUREARGS=""; $nickname=""; $NOTEST=0; -$USESVN=1; $MAKECMD="make"; $SUBMITSERVER = "llvm.org"; $SUBMITSCRIPT = "/nightlytest/NightlyTestAccept.php"; @@ -211,7 +208,6 @@ while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { else { $GCCPATH=""; } if (/^-cvstag/) { $CVSCOOPT .= " -r $ARGV[0]"; shift; next; } else { $CVSCOOPT="";} - if (/^-usecvs/) { $USESVN = 0; } if (/^-target/) { $CONFIGUREARGS .= " --target=$ARGV[0]"; shift; next; } if (/^-cflags/) { $MAKEOPTS = "$MAKEOPTS C.Flags=\'$ARGV[0]\'"; @@ -302,11 +298,7 @@ if (! -d $WebDir) { if ($VERBOSE) { print "INITIALIZED\n"; - if ($USESVN) { - print "SVN URL = $SVNURL\n"; - } else { - print "CVS Root = $CVSRootDir\n"; - } + print "SVN URL = $SVNURL\n"; print "COLog = $COLog\n"; print "BuildDir = $BuildDir\n"; print "WebDir = $WebDir\n"; @@ -614,25 +606,15 @@ if (!$NOCHECKOUT) { ############################################################## if (!$NOCHECKOUT) { ChangeDir( $BuildDir, "checkout directory" ); - if ($USESVN) { - my $SVNCMD = "$NICE svn co --non-interactive $SVNURL"; - my $SVNCMD2 = "$NICE svn co --non-interactive $TestSVNURL"; - RunLoggedCommand("( time -p $SVNCMD/llvm/trunk llvm; cd llvm/projects ; " . - "$SVNCMD2/test-suite/trunk llvm-test )", $COLog, - "CHECKOUT LLVM"); - if ($WITHCLANG) { - my $SVNCMD = "$NICE svn co --non-interactive $SVNURL/cfe/trunk"; - RunLoggedCommand("( time -p cd llvm/tools ; $SVNCMD clang )", $COLog, - "CHECKOUT CLANG"); - } - } else { - my $CVSOPT = ""; - $CVSOPT = "-z3" # Use compression if going over ssh. - if $CVSRootDir =~ /^:ext:/; - my $CVSCMD = "$NICE cvs $CVSOPT -d $CVSRootDir co -P $CVSCOOPT"; - RunLoggedCommand("( time -p $CVSCMD llvm; cd llvm/projects ; " . - "$CVSCMD llvm-test )", $COLog, - "CHECKOUT LLVM-TEST"); + my $SVNCMD = "$NICE svn co --non-interactive $SVNURL"; + my $SVNCMD2 = "$NICE svn co --non-interactive $TestSVNURL"; + RunLoggedCommand("( time -p $SVNCMD/llvm/trunk llvm; cd llvm/projects ; " . + "$SVNCMD2/test-suite/trunk llvm-test )", $COLog, + "CHECKOUT LLVM"); + if ($WITHCLANG) { + my $SVNCMD = "$NICE svn co --non-interactive $SVNURL/cfe/trunk"; + RunLoggedCommand("( time -p cd llvm/tools ; $SVNCMD clang )", $COLog, + "CHECKOUT CLANG"); } } ChangeDir( $LLVMSrcDir , "llvm source directory") ; @@ -651,13 +633,8 @@ my $CheckoutTime_CPU = $CVSCheckoutTime_User + $CVSCheckoutTime_Sys; my $NumFilesInCVS = 0; my $NumDirsInCVS = 0; -if ($USESVN) { - $NumFilesInCVS = `egrep '^A' $COLog | wc -l` + 0; - $NumDirsInCVS = `sed -e 's#/[^/]*\$##' $COLog | sort | uniq | wc -l` + 0; -} else { - $NumFilesInCVS = `egrep '^U' $COLog | wc -l` + 0; - $NumDirsInCVS = `egrep '^cvs (checkout|server|update):' $COLog | wc -l` + 0; -} +$NumFilesInCVS = `egrep '^A' $COLog | wc -l` + 0; +$NumDirsInCVS = `sed -e 's#/[^/]*\$##' $COLog | sort | uniq | wc -l` + 0; ############################################################## # @@ -690,89 +667,49 @@ my (%AddedFiles, %ModifiedFiles, %RemovedFiles, %UsersCommitted, %UsersUpdated); if (!$NOCVSSTATS) { if ($VERBOSE) { print "CHANGE HISTORY ANALYSIS STAGE\n"; } - if ($USESVN) { - @SVNHistory = split /(\d{4})-(\d{2})-(\d{2})T(\d{2}):(\d{2}):(\d{2})/){ - $Year = $1; $Month = $2; $Day = $3; $Hour = $4; $Min = $5; $Sec = $6; + $Year = $1; $Month = $2; $Day = $3; $Hour = $4; $Min = $5; $Sec = $6; } my $Then = ConvertToSeconds($Sec, $Min, $Hour, $Day, $Month, $Year); # Get the current date and compute when "yesterday" is. my ($NSec, $NMin, $NHour, $NDay, $NMon, $NYear) = gmtime(); my $Now = ConvertToSeconds( $NSec, $NMin, $NHour, $NDay, $NMon, $NYear); if (($Now - 24*60*60) > $Then) { - next; + next; } if ($Lines[1] =~ / revision="([0-9]*)">/) { - $Revision = $1; + $Revision = $1; } if ($Lines[2] =~ /([^<]*)<\/author>/) { - $Author = $1; + $Author = $1; } $UsersCommitted{$Author} = 1; $Date = $Year . "-" . $Month . "-" . $Day; $Time = $Hour . ":" . $Min . ":" . $Sec; print "Rev: $Revision, Author: $Author, Date: $Date, Time: $Time\n"; for ($i = 6; $i < $#Lines; $i += 2 ) { - if ($Lines[$i] =~ /^ action="(.)">([^<]*)([^<]*)