| 
									
										
										
										
											2008-09-16 00:20:33 -04:00
										 |  |  | ! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov. | 
					
						
							|  |  |  | ! See http://factorcode.org/license.txt for BSD license. | 
					
						
							| 
									
										
										
										
											2008-11-05 06:14:35 -05:00
										 |  |  | USING: kernel system accessors namespaces splitting sequences | 
					
						
							| 
									
										
										
										
											2008-11-07 22:09:42 -05:00
										 |  |  | mason.config bootstrap.image ;
 | 
					
						
							| 
									
										
										
										
											2008-09-16 00:20:33 -04:00
										 |  |  | IN: mason.platform | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | : platform ( -- string )
 | 
					
						
							|  |  |  |     target-os get "-" target-cpu get "." split "-" join 3append ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							|  |  |  | : gnu-make ( -- string )
 | 
					
						
							|  |  |  |     target-os get { "freebsd" "openbsd" "netbsd" } member? "gmake" "make" ? ;
 | 
					
						
							|  |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-11-05 06:14:35 -05:00
										 |  |  | : boot-image-arch ( -- string )
 | 
					
						
							| 
									
										
										
										
											2008-11-07 22:09:42 -05:00
										 |  |  |     target-os get target-cpu get arch ;
 | 
					
						
							| 
									
										
										
										
											2008-11-05 06:14:35 -05:00
										 |  |  | 
 | 
					
						
							| 
									
										
										
										
											2008-09-16 00:20:33 -04:00
										 |  |  | : boot-image-name ( -- string )
 | 
					
						
							| 
									
										
										
										
											2008-11-05 06:14:35 -05:00
										 |  |  |     "boot." boot-image-arch ".image" 3append ;
 |