Empty the Input Stream

What is an official way of clearing the input stream?

Host defines:
\ /INPUT resets the input stream.
: /INPUT(G) ( -- ) PHANDLE TtyBreak DROP ;

How about:
TARGET
: /INPUT ( -- ) 0 #TIB ! 0 >IN ! ;

That seems to agree with another of our words:
\ -INPUT returns true if the input stream is exhausted.
: -INPUT ( -- flag ) #TIB @ >IN @ > NOT ;
----------------------------------------------------------------------
swiftx_at_forth.com The SwiftX programming discussion email list
To unsubscribe, send subject "unsubscribe" to swiftx-request_at_forth.com
For list command help, send subject "help" to swiftx-request_at_forth.com
Message archives are located at http://www.forth.com/archive/swiftx
----------------------------------------------------------------------
This list is a forum for SwiftX users. For product support and bug
reports, please send email to support_at_forth.com
----------------------------------------------------------------------
Received on Thu Mar 13 2003 - 12:39:58 PST