1 ! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel system accessors namespaces splitting sequences
4 mason.config bootstrap.image assocs ;
7 : (platform) ( os cpu -- string )
8 { { CHAR: . CHAR: - } } substitute "-" glue ;
10 : platform ( -- string )
11 target-os get name>> target-cpu get name>> (platform)
12 target-variant get [ "-" glue ] when* ;
14 : gnu-make ( -- string )
17 : boot-image-arch ( -- string )
18 target-os get target-cpu get arch ;
20 : boot-image-name ( -- string )
21 boot-image-arch "boot." ".image" surround ;