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

zealot: tweak to make it work on windows. 

mason uses build.cmd to build factor, but that's super slow for some
reason. using nmake gives you normal speeds!
modern-harvey2
Doug Coleman 2017-09-15 17:25:16 -05:00
parent 7ff2b9c345
commit c24680b93d
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
extra/zealot/factor/factor.factor
View File

@ -2,7 +2,7 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays bootstrap.image cli.git combinators formatting fry USING: arrays bootstrap.image cli.git combinators formatting fry
http.client io.directories io.launcher kernel math.parser http.client io.directories io.launcher kernel math.parser
sequences system-info zealot ; sequences system system-info zealot ;
IN: zealot.factor IN: zealot.factor
: download-boot-checksums ( path branch -- ) : download-boot-checksums ( path branch -- )
@ -14,9 +14,13 @@ IN: zealot.factor
: download-my-boot-image ( path branch -- ) : download-my-boot-image ( path branch -- )
my-boot-image-name download-boot-image ; my-boot-image-name download-boot-image ;
: compile-factor ( path -- process ) HOOK: compile-factor os ( path -- process )
M: unix compile-factor ( path -- process )
[ { "make" "-j" } cpus number>string suffix run-process ] with-directory ; [ { "make" "-j" } cpus number>string suffix run-process ] with-directory ;
M: windows compile-factor ( path -- process )
[ { "nmake" "/f" "NMakefile" "x86-64" } run-process ] with-directory ;
: bootstrap-factor ( path -- ) : bootstrap-factor ( path -- )
[ "./factor" "-i=" my-boot-image-name append 2array try-output-process ] with-directory ; [ "./factor" "-i=" my-boot-image-name append 2array try-output-process ] with-directory ;
@ -25,7 +29,7 @@ IN: zealot.factor
: factor-load-all ( path -- ) : factor-load-all ( path -- )
[ [
"./factor" "-e=\"USE: vocabs.hierarchy load-all USE: memory save\"" 2array "./factor" "-e=\"USE: vocabs.hierarchy load-all USE: memory \"factor.image.load-all\" save-image\"" 2array
run-process drop run-process drop
] with-directory ; ] with-directory ;

2
extra/zealot/zealot.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2017 Doug Coleman. ! Copyright (C) 2017 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: cli.git fry io.directories io.pathnames kernel sequences USING: cli.git fry io.directories io.pathnames kernel sequences
web-services.github zealot.utils uuid ; web-services.github uuid ;
IN: zealot IN: zealot
: default-zealot-directory ( chunk -- path ) [ home ".zealot" ] dip 3append-path ; : default-zealot-directory ( chunk -- path ) [ home ".zealot" ] dip 3append-path ;