1# -*- tcl -*- 2# ### ### ### ######### ######### ######### 3## Terminal packages - Generic sender operations 4 5# ### ### ### ######### ######### ######### 6## Requirements 7 8namespace eval ::term::send {} 9 10# ### ### ### ######### ######### ######### 11## API. Write to channel, or default (stdout) 12 13proc ::term::send::wr {str} { 14 wrch stdout $str 15 return 16} 17 18proc ::term::send::wrch {ch str} { 19 puts -nonewline $ch $str 20 flush $ch 21 return 22} 23 24namespace eval ::term::send { 25 namespace export wr wrch 26} 27 28# ### ### ### ######### ######### ######### 29## Ready 30 31package provide term::send 0.1 32 33## 34# ### ### ### ######### ######### ######### 35