egghelp/eggheads community

fileevent ??

2003-08-26T18:11:56-04:00

ah ok tnx

Statistics: Posted by Ofloo — Tue Aug 26, 2003 6:11 pm

fileevent ??

2003-08-24T15:41:46-04:00

That's where you put your own code.

Statistics: Posted by stdragon — Sun Aug 24, 2003 3:41 pm

fileevent ??

2003-08-24T12:03:07-04:00

# 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 .. ?

Statistics: Posted by Ofloo — Sun Aug 24, 2003 12:03 pm

fileevent ??

2003-08-24T11:59:43-04:00

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

Statistics: Posted by Ofloo — Sun Aug 24, 2003 11:59 am

fileevent ??

2003-08-22T09:47:08-04:00

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:

set fp [open |blah.exe r+]fconfigure $fp -blocking 0fileevent $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 :)

Statistics: Posted by stdragon — Fri Aug 22, 2003 9:47 am

fileevent ??

2003-08-21T07:49:08-04:00

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:

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]  }}

Statistics: Posted by ppslim — Thu Aug 21, 2003 7:49 am

fileevent ??

2003-08-21T07:43:45-04:00

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

Statistics: Posted by rolandguy — Thu Aug 21, 2003 7:43 am

fileevent ??

2003-08-20T20:47:20-04:00

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 ?

Statistics: Posted by Ofloo — Wed Aug 20, 2003 8:47 pm