mason.child: run nmake on Windows

db4
Slava Pestov 2010-01-25 18:02:38 +13:00
parent 841e267f0a
commit ad2ae73b67
2 changed files with 7 additions and 4 deletions

View File

@ -1,7 +1,7 @@
IN: mason.child.tests IN: mason.child.tests
USING: mason.child mason.config tools.test namespaces io kernel sequences ; USING: mason.child mason.config tools.test namespaces io kernel sequences ;
[ { "make" "winnt-x86-32" } ] [ [ { "nmake" "/f" "nmakefile" } ] [
[ [
"winnt" target-os set "winnt" target-os set
"x86.32" target-cpu set "x86.32" target-cpu set

View File

@ -1,14 +1,17 @@
! Copyright (C) 2008, 2009 Eduardo Cavazos, Slava Pestov. ! Copyright (C) 2008, 2010 Eduardo Cavazos, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays calendar combinators.short-circuit fry USING: accessors arrays calendar combinators.short-circuit fry
continuations debugger io.directories io.files io.launcher continuations debugger io.directories io.files io.launcher
io.pathnames io.encodings.ascii kernel make mason.common mason.config io.pathnames io.encodings.ascii kernel make mason.common mason.config
mason.platform mason.report mason.notify namespaces sequences mason.platform mason.report mason.notify namespaces sequences
quotations macros ; quotations macros system combinators ;
IN: mason.child IN: mason.child
: make-cmd ( -- args ) : make-cmd ( -- args )
gnu-make platform 2array ; {
{ [ target-os get "winnt" = ] [ { "nmake" "/f" "nmakefile" } ] }
[ gnu-make platform 2array ]
} cond ;
: make-vm ( -- ) : make-vm ( -- )
"factor" [ "factor" [