[Swift-commit] r7422 - branches/release-0.95/bin
davidk at ci.uchicago.edu
davidk at ci.uchicago.edu
Fri Dec 13 10:17:28 CST 2013
Author: davidk
Date: 2013-12-13 10:17:27 -0600 (Fri, 13 Dec 2013)
New Revision: 7422
Modified:
branches/release-0.95/bin/swiftrun
Log:
Modified: branches/release-0.95/bin/swiftrun
===================================================================
--- branches/release-0.95/bin/swiftrun 2013-12-13 16:16:09 UTC (rev 7421)
+++ branches/release-0.95/bin/swiftrun 2013-12-13 16:17:27 UTC (rev 7422)
@@ -176,7 +176,7 @@
return "<execution provider=\"coaster\" jobmanager=\"" . $jobmanager . "\"/>\n";
}
}
-
+ elsif ( $namespace eq "provider" ) { return "<execution provider=\"" . $property . "\" jobmanager=\"" . $value . "\"/>\n"; }
elsif ( $namespace eq "workdirectory" ) { return "<workdirectory>$value</workdirectory>\n"; }
elsif ( $namespace eq "workdir" ) { return "<workdirectory>$value</workdirectory>\n"; }
elsif ( $namespace eq "taskdir" ) { return "<scratch>$value</scratch>\n"; }
@@ -190,8 +190,8 @@
# Write apps to file in tc.data format
sub write_apps {
my $app_filename = $_[0];
+ my $use_wildcard = 1;
open( APP_FILE, ">$run_directory/$app_filename" ) || &swiftquit("Unable to open $run_directory/$app_filename");
- print APP_FILE "* * * INSTALLED INTEL32::LINUX null\n";
# Find app definitions
while( my( $key, $value ) = each( %properties ) ) {
@@ -200,6 +200,7 @@
# Handle wildcards for site names
if ( $site eq "*" ) {
+ $use_wildcard=0;
foreach my $nsite( @sites ) {
print APP_FILE "$nsite $command $value\n";
}
@@ -207,11 +208,17 @@
# Handle apps for defined sites
elsif ( grep( /^$site$/, @sites ) ) {
+ $use_wildcard=0;
print APP_FILE "$site $command $value\n";
}
}
}
- # Update command line args
+
+ if ($use_wildcard) {
+ print APP_FILE "* * * INSTALLED INTEL32::LINUX null\n";
+ }
+
+ close(APP_FILE);
push( @new_swift_args, "-tc.file $run_directory/$app_filename" );
}
More information about the Swift-commit
mailing list