Lines Matching refs:nr
170 set nr [lindex $reslist 2]
173 if {$nr == "fail"} {
185 set ec_remote(nr_name,$nr) $eclipse_name
186 set ec_remote(channel_nr,$socketchannel) $nr
196 set nr [lindex $reslist 1]
197 close_queue_tcl_side $nr
265 if [catch "set nr [ec_streamname_to_streamnum $eclipse_name]"] {
268 ec_resume [list queue_close $nr] {(I)}
269 close_queue_tcl_side $nr
274 proc close_queue_tcl_side {nr} {
277 if [info exists ec_remote(nr_name,$nr)] {
278 set name $ec_remote(nr_name,$nr)
279 unset ec_remote(nr_name,$nr)
391 proc ec_streamnum_to_channel {nr} {
394 if [info exists ec_remote(nr_name,$nr)] {
395 return $ec_remote(name_channel,$ec_remote(nr_name,$nr))
397 error "No such ECLiPSe stream (ec_streamnum_to_channel $nr)"
433 proc ec_flush {nr {len {}}} {
437 set channel [ec_streamnum_to_channel $nr]
440 ec_resume [list rem_flushio $nr $len] {(II)}
442 ec_resume [list rem_flushio $nr] {(I)}
460 set nr [ec_streamname_to_streamnum $eclipse_name]
461 fileevent $channel readable "eval ec_async_io $nr $command "