| 
									
										
										
										
											2010-04-19 18:53:59 -04:00
										 |  |  | ! Copyright (C) 2010 Erik Charlebois. | 
					
						
							|  |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2010-04-22 00:33:04 -04:00
										 |  |  | USING: alien.c-types alien.syntax help.markup help.syntax words ;
 | 
					
						
							| 
									
										
										
										
											2010-04-19 18:53:59 -04:00
										 |  |  | IN: alien.enums | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: define-enum | 
					
						
							|  |  |  | { $values | 
					
						
							|  |  |  |     { "word" word } { "base-type" c-type } { "members" "sequence of word and value pairs" } | 
					
						
							|  |  |  | } | 
					
						
							| 
									
										
										
										
											2010-04-22 00:33:04 -04:00
										 |  |  | { $description "Defines an enum. This is the run-time equivalent of " { $link POSTPONE: ENUM: } "." } ;
 | 
					
						
							| 
									
										
										
										
											2010-04-19 18:53:59 -04:00
										 |  |  | 
 | 
					
						
							|  |  |  | HELP: enum>number | 
					
						
							|  |  |  | { $values | 
					
						
							|  |  |  |     { "enum" "an enum word" } | 
					
						
							|  |  |  |     { "number" "the corresponding number value" } | 
					
						
							|  |  |  | } | 
					
						
							|  |  |  | { $description "Converts an enum to a number." } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | HELP: number>enum | 
					
						
							|  |  |  | { $values | 
					
						
							|  |  |  |     { "number" "an enum number" } { "enum-c-type" "an enum type" } | 
					
						
							|  |  |  |     { "enum" "the corresponding enum word" } | 
					
						
							|  |  |  | } | 
					
						
							|  |  |  | { $description "Convert a number to an enum." } ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-04-22 00:33:04 -04:00
										 |  |  | { POSTPONE: ENUM: define-enum enum>number number>enum } related-words | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2010-04-19 18:53:59 -04:00
										 |  |  | ABOUT: "alien.enums" |