Add aio support for buffering

And fconfigure for Tcl compatibility

Signed-off-by: Steve Bennett <steveb@workware.net.au>

1 files changed, 16 insertions, 0 deletions

diff --git a/tclcompat.tcl b/tclcompat.tcl
index 8559edc..d7266e1 100644
--- a/tclcompat.tcl
+++ b/tclcompat.tcl
@@ -35,6 +35,22 @@ if {[info commands stdout] ne ""} {
 		}
 		tailcall $chan read {*}${-nonewline}
 	}
+
+	proc fconfigure {f args} {
+		foreach {n v} $args {
+			switch -glob -- $n {
+				-bl* {
+					$f ndelay $v
+				}
+				-bu* {
+					$f buffering $v
+				}
+				default {
+					return -code error "fconfigure: unknown option $n"
+				}
+			}
+		}
+	}
 }
 
 # case var ?in? pattern action ?pattern action ...?