[Tcl-bugs] [ tcl-Bugs-219408 ] fileevent on stdin not working

[<no...@so...>]

Bugs item #219408, was opened at 2000-10-25 22:12
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=219408&group_id=10894

Category: 26. Channel Types
Group: = 8.3.2
Status: Open
Resolution: None
Priority: 5
Submitted By: Nobody/Anonymous (nobody)
Assigned to: Andreas Kupries (andreas_kupries)
Summary: fileevent on stdin not working

Initial Comment:
OriginalBugID: 6334 Bug
Version: 8.3.2
SubmitDate: '2000-10-02'
LastModified: '2000-10-25'
Severity: SER
Status: UnAssn
Submitter: techsupp
OS: AIX
Machine: 2 x 64 bit CPUs with 200.00 MHz each (Arch: Power PC/630,Power P
FixedDate: '2000-10-25'
ClosedDate: '2000-10-25'


Name:
Michael Bowen

Extensions:
None, well wish 8.3.2 if that counts...

CustomShell:
None

ReproducibleScript:
#!/usr/bin/wish
# Just execute this script,  then enter some text and hit enter..
proc handleIn {} {
  set f [gets stdin]
  puts "got \$f\";
  if {[string compare $f "Q"]==0} {
    exit;
  }
}

fileevent stdin readable handleIn;
fconfigure stdin -blocking 0 -buffering line;

puts [info tclversion]

ObservedBehavior:
The  handleIn proc is never called..  It works with earlier version of tcl, and also works with 8.3.2 under linux, but not on aix 4.3.2.

DesiredBehavior:
I would expect the handleIn proc to be called, and the text you enetered to be repeated.  When you enter a "Q"
the script should terminate.





----------------------------------------------------------------------

>Comment By: Andreas Kupries (andreas_kupries)
Date: 2001-08-24 11:33

Message:
Logged In: YES 
user_id=75003

Does 8.4a3 still have this problem ?
Note: I have not AIX system available to test.


----------------------------------------------------------------------

You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=219408&group_id=10894