Posted to tcl by saedelaere at Sat May 16 09:07:37 GMT 2009view raw

  1. proc command_socket {} {
  2. if {[file exists "$::where_is_home/tmp/comSocket.tmp"] == 0} {
  3. set comsocket [open "$::where_is_home/tmp/comSocket.tmp" w]
  4. close $comsocket
  5. }
  6. set ::data(comsocket) [open "$::where_is_home/tmp/comSocket.tmp" r]
  7. fconfigure $::data(comsocket) -blocking 0 -buffering line
  8. fileevent $::data(comsocket) readable [list command_getData]
  9. }
  10.  
  11. proc command_getData {} {
  12. if {[info exists ::data(comsocket)]} {
  13. gets $::data(comsocket) line
  14. if {[eof $::data(comsocket)]} {
  15. puts "eof comsocket"
  16. close $::data(comsocket)
  17. }
  18. puts "comsocket $line"
  19. } else {
  20. puts "Command socket seems to broken"
  21. }
  22. }