Posted to tcl by kostix at Tue May 06 23:57:47 GMT 2008view raw

  1. package require ceptcl
  2.  
  3. catch { file delete /tmp/dbus_test }
  4. set s [cep -domain local -server foo /tmp/dbus_test]
  5. proc foo {chan args} {
  6. fconfigure $chan -buffering none
  7. puts -nonewline $chan [string repeat x 65536]
  8. puts -nonewline $chan [string repeat x 65536]
  9. puts -nonewline $chan [string repeat x 65536]
  10. }
  11. vwait forever
  12.