Search results for query: *

Hello, I have a list that I want to sort, but I can't get it right. The pckt-array has a timestamp and a value on each line and is sorted by the timestamp. set pcktlst "" foreach {name value} [array get pckt] { lappend pcktlst $name $value } set pcktlst [lsort -integer -index 0 $pcktlst] #now...

Hi, I'm trying to get a boolean value from a procedure, so I can use it for an if-loop: proc program { $ns at $now getbool //ns runs the proc @ a certain time if {$bool == 1} { do something... } else { do something else... } } proc getbool { set bool 0 set req [expr $x - $y] if {$req ==...

Does anybody know how I can pass a value from a variable? for {set i 0} {$i < 3} {incr i} { if {$i != 0} { "BGP {$i}" } } proc BGP {x} { puts $x } my compiler says "BGP {$i}" is an invalid command... what is wrong? thx

I have 10 files which contain many lines with timestamps. Those timestamps are read and put in arrays beforehand in while-loops like: set chan [open "file1.tr"] set lineNumber 0 while {[gets $chan line] >= 0} { scan $line "%f" time1($lineNumber) $ns at $time1($lineNumber) "do something" incr...

Hi, I'm trying to call serveral procedures in a for-loop, but each cycle of the loop calls another procedure (named procedure0, procedure1,...), like this: for {set x 0} {$x < 10} {incr x} { puts "loopcount [expr $x + 1]" $ns at $x "procedureX" } Does someone know how I can do this? thx

Hi, I have some probs with constructing array-variables in a for-loop. My code looks like this: for {set i 1} {$i <= 3} {incr i} { set chan [open "file.tr"] set lineNumber 0 while {[gets $chan line] >= 0} { scan $line "%f" time1b($lineNumber) $ns at $time1($lineNumber) "procedure" incr...

Hi, I'm trying to execute a tcl-file by passing some arguments from another tcl-file. #main.tcl for {set i 1} {$i <= 3} {incr i} { exec {./ns.exe} test.tcl($i) } #test.tcl set ns [new Simulator] ... set name "file" append name $i append name ".tr" set fileId [open $filename "w"] ... How can...

Hi, I'm a newbie in Tcl. I want to return the value of node1 & node2 on screen by a for-loop. But I don't really know how to manage this... set ns [new Simulator] set node1 "ok1" set node2 "ok2" ... for {set i 1} {$i <= 1} {incr i} { set clientnode "node" append clientnode $i puts $clientnode...