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"
|
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
|
$nl
|
||||||
"A word to run this file from an existing Factor session:"
|
"A word to run this file from an existing Factor session:"
|
||||||
{ $subsections run-bootstrap-init }
|
{ $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 )
|
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" ] }
|
{ [ os windows? ] [ "io.files.info.windows" ] }
|
||||||
} cond require
|
} cond require
|
||||||
|
|
||||||
|
|
|
@ -117,3 +117,9 @@ os macosx? [
|
||||||
[ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test
|
[ ] [ "tools.deploy.test.16" shake-and-bake run-temp-image ] unit-test
|
||||||
|
|
||||||
[ ] [ "tools.deploy.test.17" 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
|
"io.thread" startup-hooks get delete-at
|
||||||
] unless
|
] unless
|
||||||
strip-io? [
|
strip-io? [
|
||||||
"io.files" startup-hooks get delete-at
|
|
||||||
"io.backend" startup-hooks get delete-at
|
"io.backend" startup-hooks get delete-at
|
||||||
"io.thread" startup-hooks get delete-at
|
"io.thread" startup-hooks get delete-at
|
||||||
] when
|
] 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.
|
! Copyright (c) 2007, 2008 Aaron Schaefer.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: combinators.smart formatting fry io kernel macros math
|
USING: combinators.smart formatting fry io kernel macros math math.functions
|
||||||
math.functions math.statistics memory sequences tools.time ;
|
math.statistics memory sequences tools.time ;
|
||||||
IN: project-euler.ave-time
|
IN: project-euler.ave-time
|
||||||
|
|
||||||
MACRO: collect-benchmarks ( quot n -- seq )
|
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 -- )
|
: ave-time ( quot n -- )
|
||||||
[
|
[
|
||||||
|
|
Loading…
Reference in New Issue