factor/extra/mason/platform/platform.factor

! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel system accessors namespaces splitting sequences
mason.config bootstrap.image assocs ;
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" ;

: boot-image-arch ( -- string )
    target-os get target-cpu get arch ;

: boot-image-name ( -- string )
    boot-image-arch "boot." ".image" surround ;
Some mason improvements: - Rename config variables to be more intuitive, split up upload-to-factorcode? into several variables - Add target-variant variable. This allows running multiple masons on the same architecture but with different parameters, for example bootstrapping with SSE disabled, or simply for testing on a different OS release. - Added a boot-flags variable for use with the above 2011-09-09 22:13:06 -04:00			`! Copyright (C) 2008, 2011 Eduardo Cavazos, Slava Pestov.`
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
mason.updates was calling download-my-image, which uses the current CPU/OS instead of target-cpu and target-os. So doing 32-bit builds from a 64-bit Factor instance didn't work... oops 2008-11-05 06:14:35 -05:00			`USING: kernel system accessors namespaces splitting sequences`
Update mason.platform for webapps.mason 2009-05-13 20:47:00 -04:00			`mason.config bootstrap.image assocs ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`IN: mason.platform`

Update mason.platform for webapps.mason 2009-05-13 20:47:00 -04:00			`: (platform) ( os cpu -- string )`
"H{ } substitute" is faster than "{ } substitute". 2012-07-13 22:06:38 -04:00			`H{ { CHAR: . CHAR: - } } substitute "-" glue ;`
Update mason.platform for webapps.mason 2009-05-13 20:47:00 -04:00
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`: platform ( -- string )`
Some mason improvements: - Rename config variables to be more intuitive, split up upload-to-factorcode? into several variables - Add target-variant variable. This allows running multiple masons on the same architecture but with different parameters, for example bootstrapping with SSE disabled, or simply for testing on a different OS release. - Added a boot-flags variable for use with the above 2011-09-09 22:13:06 -04:00			`target-os get name>> target-cpu get name>> (platform)`
			`target-variant get [ "-" glue ] when* ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00
			`: gnu-make ( -- string )`
remove BSD,solaris,etc. misc platform support code 2011-11-02 20:13:31 -04:00			`"make" ;`
Mason: another type of builder 2008-09-16 00:20:33 -04:00
mason.updates was calling download-my-image, which uses the current CPU/OS instead of target-cpu and target-os. So doing 32-bit builds from a 64-bit Factor instance didn't work... oops 2008-11-05 06:14:35 -05:00			`: boot-image-arch ( -- string )`
Updating code for boot image renaming 2008-11-07 22:09:42 -05:00			`target-os get target-cpu get arch ;`
mason.updates was calling download-my-image, which uses the current CPU/OS instead of target-cpu and target-os. So doing 32-bit builds from a 64-bit Factor instance didn't work... oops 2008-11-05 06:14:35 -05:00
Mason: another type of builder 2008-09-16 00:20:33 -04:00			`: boot-image-name ( -- string )`
use surround/glue instead of 3append 2009-11-12 04:01:09 -05:00			`boot-image-arch "boot." ".image" surround ;`