fileevent ??

[Ofloo]

hmm ive read about file event its a binding that starts when a specific channel gets readable or writeable .. , but what about when a channel closes , i got a script that open exe "r+" after a few minutes when it ends (channel closes) i would like to trigger a trigger to perfom a script .. how would i do this .. ?? ive been looking true the manual and euhm can't find sutch thing . ? any one who can help me out ?

[rolandguy]

if file readable and the data is NULL (""), that's the end of the events for that channel and the handler is removed.

basicly, if {$arg==""} {do_endscript}

roland

[ppslim]

Use a utimer than cycles every few seconds.

It should check to see if the channel has gone "EOF" (using the "eof" command).

This will only trigger once the buffer is empty and you have tried to read the empty buffer.

If it is EOF, then you can call you own script, in other words, you are making your own small binding system.

Code: Select all

proc bind_eof {fp cmd} {
  if {[catch [list eof $fp]]} { error "Channel $fp non existant" }
  utimer 2 [list eof_check $fp $cmd]
}

proc eof_check {fp cmd} {
  if {[eof $fp]} {
    eval $cmd
  } else {
    if {[catch [list eof $fp]]} { error "Channel $fp no longer in existance" }
    utimer 2 [list eof_check $fp $cmd]
  }
}

[stdragon]

If you want to set up a fileevent, use readable as roland suggests. But I'd caution that the if data = "" thing isn't necessarily true. If you're using gets, for instance, it will return "" if there is an incomplete line, or simply a blank line. A less fallible way to check for the channel closing is just to use the [eof] command like ppslim does in his code. To combine the two, it's something like this:

Code: Select all

set fp [open |blah.exe r+]
fconfigure $fp -blocking 0
fileevent $fp readable [list on_readable $fp]
proc on_readable {fp} {
  set len [gets $fp line]
  if {$len > 0} {
    # got a line, do whatever you want with it
  } elseif {[eof $fp]} {
    close $fp
    # program terminated
  }
  return 0
}

Not tested, of course :)

[Ofloo]

tnx for the scripts and i will test em sorry for the answer delay .. :/ was not home hehe for few days hehe so but ill test em for sur tnx in advance this surtanly will give me new ideas

[Ofloo]

# got a line, do whatever you want with it

# program terminated

what you exactly mean by this ? just curious i mean is there where i put the info or is it just some info you added to make the code understandable .. ?

[stdragon]

That's where you put your own code.

[Ofloo]

ah ok tnx