All new accounts created on Gitlab now require administrator approval. If you invite any collaborators, please let Flux staff know so they can approve the accounts.

Commit c43de311 authored by Christopher Alfeld's avatar Christopher Alfeld

Changed to have ptop file as second arg

parent a9223933
......@@ -19,19 +19,21 @@ if {[file dirname [info script]] == "."} {
} else {
set updir [file dirname [file dirname [info script]]]
}
set testbed "[file dirname [info script]]/testbed.ptop"
set assign "$updir/assign_hw/assign"
set maxrun 5
set delaythresh .25
if {[llength $argv] != 1} {
puts stderr "Syntax: assign <ir>"
if {[llength $argv] != 2} {
puts stderr "Syntax: assign <ir> <ptop>"
exit 1
}
set testbed [lindex $argv 1]
set irfile [lindex $argv 0]
# Generate top file.
set fp [open $argv "r"]
set fp [open $irfile "r"]
proc readto {fp s} {
while {[gets $fp line] >= 0} {
......@@ -113,10 +115,10 @@ close $topfp
# run assign on the topfile and $testbed
puts "Running assign ($assign -b -t $testbed $tmpfile)"
puts " Log in [file dirname $argv]/assign.log"
puts " Log in [file dirname $irfile]/assign.log"
set run 0
while {$run < $maxrun} {
set assignfp [open "|$assign -b -t $testbed $tmpfile | tee -a [file dirname $argv]/assign.log" r]
set assignfp [open "|$assign -b -t $testbed $tmpfile | tee -a [file dirname $irfile]/assign.log" r]
set problem 0
set score -1
set seed 0
......@@ -162,7 +164,7 @@ if {$run > $maxrun} {
close $assignfp
# append virtual section to ir
set fp [open $argv a]
set fp [open $irfile a]
puts "Adding virtual section"
# XXX: we don't do links or lans yet
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment