receive.tcl

Go to the documentation of this file.

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

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

namespace ::term::receive {}

/*  ### ### ### ######### ######### #########*/
/*  API. Read character from specific channel,*/
/*       or default (stdin). Processing of*/
/*       character sequences.*/

ret  ::term::receive::getch (optional chan =stdin) {
    return [read $chan 1]
}

ret  ::term::receive::listen (type cmd , optional chan =stdin) {
    fconfigure $chan -blocking 0
    fileevent  $chan readable \
        [list ::term::receive::Foreach $chan $cmd]
    return
}

ret  ::term::receive::unlisten (optional chan =stdin) {
    fileevent $chan readable {}
    return
}

/*  ### ### ### ######### ######### #########*/
/*  Internals*/

ret  ::term::receive::Foreach (type chan , type cmd) {
    set string [read $chan]
    if {[string length $string]} {
    #puts stderr "F($string)"
    uplevel #0 [linsert $cmd end process $string]
    }
    if {[eof $chan]} {
    close $chan
    uplevel #0 [linsert $cmd end eof]
    }
    return
}

/*  ### ### ### ######### ######### #########*/
/*  Initialization*/

namespace ::term::receive {
    namespace export getch listen
}

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

package provide term::receive 0.1

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