6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2025-08-12 17:25:49 +00:00
Code Issues Projects Releases Wiki Activity

Add nosubmit option to control what is sent back to the results server.

Browse Source 
Patch by Joachim Durchholz. Thanks!


git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@48139 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Tanya Lattner
2008-03-10 07:28:08 +00:00
parent eb37ecc882
commit c161188703
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
utils/NewNightlyTest.pl
View File

@@ -74,6 +74,7 @@ use Socket;
# this option is not specified it defaults to # this option is not specified it defaults to
# /nightlytest/NightlyTestAccept.php. This is basically # /nightlytest/NightlyTestAccept.php. This is basically
# everything after the www.yourserver.org. # everything after the www.yourserver.org.
# -nosubmit Do not report the test results back to a submit server.
# #
# CVSROOT is the CVS repository from which the tree will be checked out, # CVSROOT is the CVS repository from which the tree will be checked out,
# specified either in the full :method:user@host:/dir syntax, or # specified either in the full :method:user@host:/dir syntax, or
@@ -126,6 +127,7 @@ $NORUNNINGTESTS=0;
$MAKECMD="make"; $MAKECMD="make";
$SUBMITSERVER = "llvm.org"; $SUBMITSERVER = "llvm.org";
$SUBMITSCRIPT = "/nightlytest/NightlyTestAccept.php"; $SUBMITSCRIPT = "/nightlytest/NightlyTestAccept.php";
$SUBMIT = 1;
while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) { while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) {
shift; shift;
@@ -164,6 +166,7 @@ while (scalar(@ARGV) and ($_ = $ARGV[0], /^[-+]/)) {
shift; next; } shift; next; }
if (/^-submit-server/) { $SUBMITSERVER = "$ARGV[0]"; shift; next; } if (/^-submit-server/) { $SUBMITSERVER = "$ARGV[0]"; shift; next; }
if (/^-submit-script/) { $SUBMITSCRIPT = "$ARGV[0]"; shift; next; } if (/^-submit-script/) { $SUBMITSCRIPT = "$ARGV[0]"; shift; next; }
if (/^-nosubmit$/) { $SUBMIT = 0; next; }
if (/^-nickname$/) { $nickname = "$ARGV[0]"; shift; next; } if (/^-nickname$/) { $nickname = "$ARGV[0]"; shift; next; }
if (/^-gccpath/) { $CONFIGUREARGS .= if (/^-gccpath/) { $CONFIGUREARGS .=
" CC=$ARGV[0]/gcc CXX=$ARGV[0]/g++"; " CC=$ARGV[0]/gcc CXX=$ARGV[0]/g++";
@@ -1135,16 +1138,14 @@ my %hash_of_data = (
'target_triple' => $targetTriple 'target_triple' => $targetTriple
); );
$TESTING = 0; if ($SUBMIT) {
my $response = SendData $SUBMITSERVER,$SUBMITSCRIPT,\%hash_of_data;
if ($TESTING) { if( $VERBOSE) { print "============================\n$response"; }
} else {
print "============================\n"; print "============================\n";
foreach $x(keys %hash_of_data){ foreach $x(keys %hash_of_data){
print "$x => $hash_of_data{$x}\n"; print "$x => $hash_of_data{$x}\n";
} }
} else {
my $response = SendData $SUBMITSERVER,$SUBMITSCRIPT,\%hash_of_data;
if( $VERBOSE) { print "============================\n$response"; }
} }
############################################################## ##############################################################