38 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Factor
		
	
	
			
		
		
	
	
			38 lines
		
	
	
		
			1.3 KiB
		
	
	
	
		
			Factor
		
	
	
| USING: help.markup help.syntax kernel ;
 | |
| IN: boxes
 | |
| 
 | |
| HELP: box
 | |
| { $class-description "A data type holding a single value in the " { $snippet "value" } " slot. The " { $snippet "occupied" } " slot indicates if the value is set." } ;
 | |
| 
 | |
| HELP: <box>
 | |
| { $values { "box" box } }
 | |
| { $description "Creates a new empty box." } ;
 | |
| 
 | |
| HELP: >box
 | |
| { $values { "value" object } { "box" box } }
 | |
| { $description "Stores a value into a box." }
 | |
| { $errors "Throws an error if the box is full." } ;
 | |
| 
 | |
| HELP: box>
 | |
| { $values { "box" box } { "value" "the value of the box" } }
 | |
| { $description "Removes a value from a box." }
 | |
| { $errors "Throws an error if the box is empty." } ;
 | |
| 
 | |
| HELP: ?box
 | |
| { $values { "box" box } { "value/f" "the value of the box or " { $link f } } { "?" "a boolean" } }
 | |
| { $description "If the box is full, removes the value from the box and pushes " { $link t } ". If the box is empty pushes " { $snippet "f f" } "." } ;
 | |
| 
 | |
| ARTICLE: "boxes" "Boxes"
 | |
| "A " { $emphasis "box" } " is a container which can either be empty or hold a single value."
 | |
| { $subsection box }
 | |
| "Creating an empty box:"
 | |
| { $subsection <box> }
 | |
| "Storing a value and removing a value from a box:"
 | |
| { $subsection >box }
 | |
| { $subsection box> }
 | |
| "Safely removing a value:"
 | |
| { $subsection ?box }
 | |
| "Testing if a box is full can be done by reading the " { $snippet "occupied" } " slot." ;
 | |
| 
 | |
| ABOUT: "boxes"
 |