32 lines
		
	
	
		
			1.1 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			32 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:"
 | |
| { $subsections
 | |
|     null-reader
 | |
|     with-null-writer
 | |
| }
 | |
| "Null writers:"
 | |
| { $subsections
 | |
|     null-writer
 | |
|     with-null-reader
 | |
| } ;
 | |
| 
 | |
| ABOUT: "io.streams.null" |