Merge commit '7c621da28f07e449ad90c387344f07a453927569' as 'tcllib'

1 files changed, 60 insertions, 0 deletions

diff --git a/tcllib/modules/term/receive.tcl b/tcllib/modules/term/receive.tcl
new file mode 100644
index 0000000..393549c
--- /dev/null
+++ b/tcllib/modules/term/receive.tcl
@@ -0,0 +1,60 @@
+# -*- tcl -*-
+# ### ### ### ######### ######### #########
+## Terminal packages - Generic receiver operations
+
+# ### ### ### ######### ######### #########
+## Requirements
+
+namespace eval ::term::receive {}
+
+# ### ### ### ######### ######### #########
+## API. Read character from specific channel,
+##      or default (stdin). Processing of
+##      character sequences.
+
+proc ::term::receive::getch {{chan stdin}} {
+    return [read $chan 1]
+}
+
+proc ::term::receive::listen {cmd {chan stdin}} {
+    fconfigure $chan -blocking 0
+    fileevent  $chan readable \
+	    [list ::term::receive::Foreach $chan $cmd]
+    return
+}
+
+proc ::term::receive::unlisten {{chan stdin}} {
+    fileevent $chan readable {}
+    return
+}
+
+# ### ### ### ######### ######### #########
+## Internals
+
+proc ::term::receive::Foreach {chan 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 eval ::term::receive {
+    namespace export getch listen
+}
+
+# ### ### ### ######### ######### #########
+## Ready
+
+package provide term::receive 0.1
+
+##
+# ### ### ### ######### ######### #########