Posted to tcl by mjanssen at Fri May 04 10:16:09 GMT 2007view raw

  1. # Set up the 'chan' ensemble (TIP #208).
  2. namespace eval chan {
  3. # TIP #219. Added methods: create, postevent.
  4. # TIP 287. Added method: pending.
  5. namespace ensemble create -command ::chan -map {
  6. blocked ::tcl::chan::blocked
  7. close ::tcl::chan::close
  8. configure ::tcl::chan::configure
  9. copy ::tcl::chan::copy
  10. create ::tcl::chan::rCreate
  11. eof ::tcl::chan::eof
  12. event ::tcl::chan::event
  13. flush ::tcl::chan::flush
  14. gets ::tcl::chan::gets
  15. mode {::tcl::chan::mode}
  16. names {::file channels}
  17. pending ::tcl::chan::Pending
  18. postevent ::tcl::chan::rPostevent
  19. puts ::tcl::chan::puts
  20. read ::tcl::chan::read
  21. seek ::tcl::chan::seek
  22. tell ::tcl::chan::tell
  23. truncate ::tcl::chan::Truncate
  24. }
  25. }