Commit b3157659 authored by Christopher Alfeld's avatar Christopher Alfeld
Browse files

Changed all to take

<pid> <eid> <file>
parent 7a43cdde
......@@ -39,13 +39,15 @@ set resetvlans "$scriptdir/resetvlans.tcl"
source $libir
namespace import TB_LIBIR::ir
if {$argc != 2} {
puts stderr "Syntax: $argv0 <id> <ir-file>"
if {$argc != 3} {
puts stderr "Syntax: $argv0 <pid> <eid> <ir-file>"
exit 1
}
set irFile [lindex $argv 1]
set id [lindex $argv 0]
set irFile [lindex $argv 2]
set pid [lindex $argv 0]
set eid [lindex $argv 1]
set id "$pid-$eid"
set t [split $irFile .]
set prefix [join [lrange $t 0 [expr [llength $t] - 2]] .]
set irFile "$prefix.ir"
......
......@@ -59,14 +59,16 @@ set libir "$scriptdir/ir/libir.tcl"
source $libir
namespace import TB_LIBIR::ir
if {$argc != 2} {
puts stderr "Syntax: $argv0 <id> <ns-file>"
if {$argc != 3} {
puts stderr "Syntax: $argv0 <pid> <eid> <ns-file>"
exit 1
}
set nsFile [lindex $argv 1]
set nsFile [lindex $argv 2]
set t [split $nsFile .]
set id [lindex $argv 0]
set pid [lindex $argv 0]
set eid [lindex $argv 1]
set id "$pid-$eid"
set prefix [join [lrange $t 0 [expr [llength $t] - 2]] .]
set irFile "$prefix.ir"
set logFile "$prefix.log"
......
......@@ -48,11 +48,12 @@ source $libir
namespace import TB_LIBIR::ir
if {$argc != 1} {
puts stderr "Syntax: $argv0 <ir-file>"
puts stderr "Syntax: $argv0 <pid> <eid> <ir-file>"
exit 1
}
set irFile [lindex $argv 0]
# ignore pid and eid for the moment.
set irFile [lindex $argv 2]
set t [split $irFile .]
set prefix [join [lrange $t 0 [expr [llength $t] - 2]] .]
set logFile "$prefix.log"
......
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