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 ;
|