22 lines
611 B
Factor
22 lines
611 B
Factor
! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors assocs bootstrap.image kernel mason.config
|
|
namespaces sequences ;
|
|
IN: mason.platform
|
|
|
|
: (platform) ( os cpu -- string )
|
|
H{ { CHAR: . CHAR: - } } substitute "-" glue ;
|
|
|
|
: platform ( -- string )
|
|
target-os get name>> target-cpu get name>> (platform)
|
|
target-variant get [ "-" glue ] when* ;
|
|
|
|
: gnu-make ( -- string )
|
|
"make" ;
|
|
|
|
: target-arch ( -- arch )
|
|
target-os get target-cpu get arch ;
|
|
|
|
: target-boot-image-name ( -- string )
|
|
target-arch boot-image-name ;
|