Merge branch 'master' of git://factorcode.org/git/factor
commit
1b5ba15707
|
@ -91,7 +91,7 @@ ARTICLE: "standard-cli-args" "Command line switches for general usage"
|
|||
} ;
|
||||
|
||||
ARTICLE: "factor-boot-rc" "Bootstrap initialization file"
|
||||
"The botstrap initialization file is named " { $snippet "factor-boot-rc" } " on Windows and " { $snippet ".factor-boot-rc" } " on Unix. This file can contain " { $link require } " calls for vocabularies you use frequently, and other such long-running tasks that you do not want to perform every time Factor starts."
|
||||
"The bootstrap initialization file is named " { $snippet "factor-boot-rc" } " on Windows and " { $snippet ".factor-boot-rc" } " on Unix. This file can contain " { $link require } " calls for vocabularies you use frequently, and other such long-running tasks that you do not want to perform every time Factor starts."
|
||||
$nl
|
||||
"A word to run this file from an existing Factor session:"
|
||||
{ $subsections run-bootstrap-init }
|
||||
|
|
|
@ -26,7 +26,7 @@ available-space free-space used-space total-space ;
|
|||
HOOK: file-system-info os ( path -- file-system-info )
|
||||
|
||||
{
|
||||
{ [ os unix? ] [ "io.files.info" ] }
|
||||
{ [ os unix? ] [ "io.files.info.unix" ] }
|
||||
{ [ os windows? ] [ "io.files.info.windows" ] }
|
||||
} cond require
|
||||
|
||||
|
|
|
@ -117,3 +117,9 @@ os macosx? [
|
|||
[ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test
|
||||
|
||||
[ ] [ "tools.deploy.test.17" shake-and-bake run-temp-image ] unit-test
|
||||
|
||||
[ t ] [
|
||||
"tools.deploy.test.18" shake-and-bake
|
||||
deploy-test-command ascii [ readln ] with-process-reader
|
||||
"test.image" temp-file =
|
||||
] unit-test
|
||||
|
|
|
@ -43,7 +43,6 @@ IN: tools.deploy.shaker
|
|||
"io.thread" startup-hooks get delete-at
|
||||
] unless
|
||||
strip-io? [
|
||||
"io.files" startup-hooks get delete-at
|
||||
"io.backend" startup-hooks get delete-at
|
||||
"io.thread" startup-hooks get delete-at
|
||||
] when
|
||||
|
|
|
@ -0,0 +1,8 @@
|
|||
! Copyright (C) 2010 Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors io.streams.c math.parser system ;
|
||||
IN: tools.deploy.test.18
|
||||
|
||||
: main ( -- ) image show ;
|
||||
|
||||
MAIN: main
|
|
@ -0,0 +1 @@
|
|||
Slava Pestov
|
|
@ -0,0 +1,14 @@
|
|||
USING: tools.deploy.config ;
|
||||
H{
|
||||
{ deploy-name "tools.deploy.test.18" }
|
||||
{ deploy-ui? f }
|
||||
{ deploy-c-types? f }
|
||||
{ deploy-unicode? f }
|
||||
{ "stop-after-last-window?" t }
|
||||
{ deploy-io 1 }
|
||||
{ deploy-reflection 1 }
|
||||
{ deploy-word-props? f }
|
||||
{ deploy-math? f }
|
||||
{ deploy-threads? f }
|
||||
{ deploy-word-defs? f }
|
||||
}
|
|
@ -1,11 +1,11 @@
|
|||
! Copyright (c) 2007, 2008 Aaron Schaefer.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: combinators.smart formatting fry io kernel macros math
|
||||
math.functions math.statistics memory sequences tools.time ;
|
||||
USING: combinators.smart formatting fry io kernel macros math math.functions
|
||||
math.statistics memory sequences tools.time ;
|
||||
IN: project-euler.ave-time
|
||||
|
||||
MACRO: collect-benchmarks ( quot n -- seq )
|
||||
swap '[ _ [ [ [ _ nullary ] preserving ] gc benchmark 1000 / ] replicate ] ;
|
||||
swap '[ _ [ [ [ _ nullary ] preserving ] gc benchmark 6 10^ / ] replicate ] ;
|
||||
|
||||
: ave-time ( quot n -- )
|
||||
[
|
||||
|
|
Loading…
Reference in New Issue