Posted to tcl by cgm at Wed Aug 19 10:57:16 GMT 2026view raw

  1. constructor {job_ commandline} {
  2. set job $job_
  3. pipe errout errin
  4. #pipe in_out in_in
  5. pipe out_out out_in
  6. fconfigure $errout -blocking false
  7. fileevent $errout readable [mymethod read_err]
  8.  
  9. dput "RUNNING '$commandline'"
  10. set in_in [open "| >@ $out_in 2>@ $errin $commandline" w]
  11. set pids [pid $in_in]
  12. dput "PIDS '$pids'"
  13.  
  14. foreach pid $pids { set pid_handlers($pid) $self }
  15.  
  16. fconfigure $out_out -blocking false
  17. fileevent $out_out readable [mymethod read_out]
  18. close $errin
  19. close $out_in
  20. #close $in_out
  21.  
  22. set comstat running
  23. }
  24.  

Add a comment

Please note that this site uses the meta tags nofollow,noindex for all pages that contain comments.
Items are closed for new comments after 1 week