factor/extra/mason/platform/platform.factor

18 lines
570 B
Factor
Raw Normal View History

2008-09-16 00:20:33 -04:00
! Copyright (C) 2008 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
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" ? ;
: boot-image-arch ( -- string )
2008-11-07 22:09:42 -05:00
target-os get target-cpu get arch ;
2008-09-16 00:20:33 -04:00
: boot-image-name ( -- string )
"boot." boot-image-arch ".image" 3append ;