steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

mason: run factor.com on windows

db4
Slava Pestov 2009-04-03 16:30:59 -05:00
parent 3e1a2af35f
commit 775ca0a956
2 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/mason/child/child-tests.factor
View File

@ -32,3 +32,11 @@ USING: mason.child mason.config tools.test namespaces ;
boot-cmd boot-cmd
] with-scope ] with-scope
] unit-test ] unit-test
[ { "./factor.com" "-i=boot.x86.32.image" "-no-user-init" } ] [
[
"winnt" target-os set
"x86.32" target-cpu set
boot-cmd
] with-scope
] unit-test

7
extra/mason/child/child.factor
View File

@ -25,8 +25,11 @@ IN: mason.child
builds-factor-image "." copy-file-into builds-factor-image "." copy-file-into
builds-factor-image "factor" copy-file-into ; builds-factor-image "factor" copy-file-into ;
: factor-vm ( -- string )
target-os get "winnt" = "./factor.com" "./factor" ? ;
: boot-cmd ( -- cmd ) : boot-cmd ( -- cmd )
"./factor" factor-vm
"-i=" boot-image-name append "-i=" boot-image-name append
"-no-user-init" "-no-user-init"
3array ; 3array ;
@ -42,7 +45,7 @@ IN: mason.child
try-process try-process
] with-directory ; ] with-directory ;
: test-cmd ( -- cmd ) { "./factor" "-run=mason.test" } ; : test-cmd ( -- cmd ) factor-vm "-run=mason.test" 2array ;
: test ( -- ) : test ( -- )
"factor" [ "factor" [