send.tcl

Go to the documentation of this file.

/*  -*- tcl -*-*/
/*  ### ### ### ######### ######### #########*/
/*  Terminal packages - Generic sender operations*/

/*  ### ### ### ######### ######### #########*/
/*  Requirements*/

namespace ::term::send {}

/*  ### ### ### ######### ######### #########*/
/*  API. Write to channel, or default (stdout)*/

ret  ::term::send::wr (type str) {
    wrch stdout $str
    return
}

ret  ::term::send::wrch (type ch , type str) {
    puts -nonewline $ch $str
    flush           $ch
    return
}

namespace ::term::send {
    namespace export wr wrch
}

/*  ### ### ### ######### ######### #########*/
/*  Ready*/

package provide term::send 0.1

/** 
 * ### ### ### ######### ######### #########