extra/mason/platform/platform.factor

   1 ! Copyright (C) 2008 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 ;
   5 IN: mason.platform
   6
   7 : platform ( -- string )
   8     target-os get "-" target-cpu get "." split "-" join 3append ;
   9
  10 : gnu-make ( -- string )
  11     target-os get { "freebsd" "openbsd" "netbsd" } member? "gmake" "make" ? ;
  12
  13 : boot-image-arch ( -- string )
  14     target-os get target-cpu get arch ;
  15
  16 : boot-image-name ( -- string )
  17     "boot." boot-image-arch ".image" 3append ;