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