extra/mason/platform/platform.factor

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