28 lines
1.1 KiB
Factor
28 lines
1.1 KiB
Factor
|
USING: io help.markup help.syntax quotations ;
|
||
|
|
IN: io.streams.null
|
||
|
|
|
||
|
|
HELP: null-reader
|
||
|
|
{ $class-description "Singleton class of null reader streams." } ;
|
||
|
|
|
||
|
|
HELP: null-writer
|
||
|
|
{ $class-description "Singleton class of null writer streams." } ;
|
||
|
|
|
||
|
|
HELP: with-null-reader
|
||
|
|
{ $values { "quot" quotation } }
|
||
|
|
{ $description "Calls the quotation with " { $link input-stream } " rebound to a " { $link null-reader } " which always produces EOF." } ;
|
||
|
|
|
||
|
|
HELP: with-null-writer
|
||
|
|
{ $values { "quot" quotation } }
|
||
|
|
{ $description "Calls the quotation with " { $link output-stream } " rebound to a " { $link null-writer } " which ignores all output." } ;
|
||
|
|
|
||
|
|
ARTICLE: "io.streams.null" "Null streams"
|
||
|
|
"The " { $vocab-link "io.streams.null" } " vocabulary implements a pair of streams which are useful for testing. The null reader always yields EOF and the null writer ignores all output. Conceptually, they are similar to " { $snippet "/dev/null" } " on a Unix system."
|
||
|
|
$nl
|
||
|
|
"Null readers:"
|
||
|
|
{ $subsection null-reader }
|
||
|
|
{ $subsection with-null-writer }
|
||
|
|
"Null writers:"
|
||
|
|
{ $subsection null-writer }
|
||
|
|
{ $subsection with-null-reader } ;
|
||
|
|
|
||
|
|
ABOUT: "io.streams.null"
|