Merge branch 'master' of git://factorcode.org/git/factor
commit
25c2d5d0e4
|
@ -1,7 +1,8 @@
|
||||||
IN: concurrency.distributed.tests
|
IN: concurrency.distributed.tests
|
||||||
USING: tools.test concurrency.distributed kernel io.files
|
USING: tools.test concurrency.distributed kernel io.files
|
||||||
arrays io.sockets system combinators threads math sequences
|
io.files.temp io.directories arrays io.sockets system
|
||||||
concurrency.messaging continuations accessors prettyprint ;
|
combinators threads math sequences concurrency.messaging
|
||||||
|
continuations accessors prettyprint ;
|
||||||
|
|
||||||
: test-node ( -- addrspec )
|
: test-node ( -- addrspec )
|
||||||
{
|
{
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
IN: db.pools.tests
|
IN: db.pools.tests
|
||||||
USING: db.pools tools.test continuations io.files namespaces
|
USING: db.pools tools.test continuations io.files io.files.temp
|
||||||
accessors kernel math destructors ;
|
io.directories namespaces accessors kernel math destructors ;
|
||||||
|
|
||||||
\ <db-pool> must-infer
|
\ <db-pool> must-infer
|
||||||
|
|
||||||
|
|
|
@ -1,5 +1,5 @@
|
||||||
USING: io io.files io.launcher kernel namespaces
|
USING: io io.files io.files.temp io.directories io.launcher
|
||||||
prettyprint tools.test db.sqlite db sequences
|
kernel namespaces prettyprint tools.test db.sqlite db sequences
|
||||||
continuations db.types db.tuples unicode.case ;
|
continuations db.types db.tuples unicode.case ;
|
||||||
IN: db.sqlite.tests
|
IN: db.sqlite.tests
|
||||||
|
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: io.files kernel tools.test db db.tuples classes
|
USING: io.files io.files.temp kernel tools.test db db.tuples classes
|
||||||
db.types continuations namespaces math math.ranges
|
db.types continuations namespaces math math.ranges
|
||||||
prettyprint calendar sequences db.sqlite math.intervals
|
prettyprint calendar sequences db.sqlite math.intervals
|
||||||
db.postgresql accessors random math.bitwise system
|
db.postgresql accessors random math.bitwise system
|
||||||
|
|
|
@ -5,7 +5,7 @@ furnace.auth.login
|
||||||
furnace.auth.providers
|
furnace.auth.providers
|
||||||
furnace.auth.providers.db tools.test
|
furnace.auth.providers.db tools.test
|
||||||
namespaces db db.sqlite db.tuples continuations
|
namespaces db db.sqlite db.tuples continuations
|
||||||
io.files accessors kernel ;
|
io.files io.files.temp io.directories accessors kernel ;
|
||||||
|
|
||||||
<action> "test" <login-realm> realm set
|
<action> "test" <login-realm> realm set
|
||||||
|
|
||||||
|
|
|
@ -2,9 +2,9 @@ IN: furnace.sessions.tests
|
||||||
USING: tools.test http furnace.sessions furnace.actions
|
USING: tools.test http furnace.sessions furnace.actions
|
||||||
http.server http.server.responses math namespaces make kernel
|
http.server http.server.responses math namespaces make kernel
|
||||||
accessors io.sockets io.servers.connection prettyprint
|
accessors io.sockets io.servers.connection prettyprint
|
||||||
io.streams.string io.files splitting destructors sequences db
|
io.streams.string io.files io.files.temp io.directories
|
||||||
db.tuples db.sqlite continuations urls math.parser furnace
|
splitting destructors sequences db db.tuples db.sqlite
|
||||||
furnace.utilities ;
|
continuations urls math.parser furnace furnace.utilities ;
|
||||||
|
|
||||||
: with-session
|
: with-session
|
||||||
[
|
[
|
||||||
|
|
|
@ -179,7 +179,7 @@ Set-Cookie: oo="bar; a=b"; comment="your mom"; httponly=yes
|
||||||
! Live-fire exercise
|
! Live-fire exercise
|
||||||
USING: http.server http.server.static furnace.sessions furnace.alloy
|
USING: http.server http.server.static furnace.sessions furnace.alloy
|
||||||
furnace.actions furnace.auth furnace.auth.login furnace.db http.client
|
furnace.actions furnace.auth furnace.auth.login furnace.db http.client
|
||||||
io.servers.connection io.files io io.encodings.ascii
|
io.servers.connection io.files io.files.temp io.directories io io.encodings.ascii
|
||||||
accessors namespaces threads
|
accessors namespaces threads
|
||||||
http.server.responses http.server.redirection furnace.redirection
|
http.server.responses http.server.redirection furnace.redirection
|
||||||
http.server.dispatchers db.tuples ;
|
http.server.dispatchers db.tuples ;
|
||||||
|
|
|
@ -0,0 +1 @@
|
||||||
|
unportable
|
|
@ -1,4 +0,0 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
|
||||||
IN: io.files.info.windows.nt
|
|
||||||
|
|
|
@ -0,0 +1 @@
|
||||||
|
unportable
|
|
@ -2,13 +2,13 @@ USING: help.markup help.syntax ;
|
||||||
IN: io.files.types
|
IN: io.files.types
|
||||||
|
|
||||||
HELP: +regular-file+
|
HELP: +regular-file+
|
||||||
{ $description "A regular file. This type exists on all platforms. See " { $link "file-streams" } " for words operating on files." } ;
|
{ $description "A regular file. This type exists on all platforms. See " { $link "io.files" } " for words operating on files." } ;
|
||||||
|
|
||||||
HELP: +directory+
|
HELP: +directory+
|
||||||
{ $description "A directory. This type exists on all platforms. See " { $link "directories" } " for words operating on directories." } ;
|
{ $description "A directory. This type exists on all platforms. See " { $link "io.directories" } " for words operating on directories." } ;
|
||||||
|
|
||||||
HELP: +symbolic-link+
|
HELP: +symbolic-link+
|
||||||
{ $description "A symbolic link file. This type is currently implemented on Unix platforms only. See " { $link "symbolic-links" } " for words operating on symbolic links." } ;
|
{ $description "A symbolic link file. This type is currently implemented on Unix platforms only. See " { $link "io.files.links" } " for words operating on symbolic links." } ;
|
||||||
|
|
||||||
HELP: +character-device+
|
HELP: +character-device+
|
||||||
{ $description "A Unix character device file. This type exists on Unix platforms only." } ;
|
{ $description "A Unix character device file. This type exists on Unix platforms only." } ;
|
||||||
|
|
|
@ -1,7 +1,8 @@
|
||||||
IN: io.monitors.linux.tests
|
IN: io.monitors.linux.tests
|
||||||
USING: io.monitors tools.test io.files system sequences
|
USING: io.monitors tools.test io.files io.files.temp
|
||||||
continuations namespaces concurrency.count-downs kernel io
|
io.directories system sequences continuations namespaces
|
||||||
threads calendar prettyprint destructors io.timeouts ;
|
concurrency.count-downs kernel io threads calendar prettyprint
|
||||||
|
destructors io.timeouts ;
|
||||||
|
|
||||||
! On Linux, a notification on the directory itself would report an invalid
|
! On Linux, a notification on the directory itself would report an invalid
|
||||||
! path name
|
! path name
|
||||||
|
|
|
@ -1,6 +1,7 @@
|
||||||
USING: accessors math kernel namespaces continuations
|
USING: accessors math kernel namespaces continuations
|
||||||
io.files io.monitors io.monitors.recursive io.backend
|
io.files io.monitors io.monitors.recursive io.backend
|
||||||
concurrency.mailboxes tools.test destructors ;
|
concurrency.mailboxes tools.test destructors io.files.info
|
||||||
|
io.pathnames io.files.temp io.directories.hierarchy ;
|
||||||
IN: io.monitors.recursive.tests
|
IN: io.monitors.recursive.tests
|
||||||
|
|
||||||
\ pump-thread must-infer
|
\ pump-thread must-infer
|
||||||
|
|
|
@ -1,7 +1,8 @@
|
||||||
USING: accessors checksums checksums.md5 io io.encodings.ascii
|
USING: accessors checksums checksums.md5 io io.encodings.ascii
|
||||||
io.encodings.binary io.files io.streams.byte-array
|
io.encodings.binary io.files io.files.temp io.files.info
|
||||||
io.streams.string kernel make mime.multipart
|
io.streams.byte-array io.streams.string kernel make
|
||||||
mime.multipart.private multiline sequences strings tools.test ;
|
mime.multipart mime.multipart.private multiline sequences
|
||||||
|
strings tools.test ;
|
||||||
IN: mime.multipart.tests
|
IN: mime.multipart.tests
|
||||||
|
|
||||||
[ { "a" } ] [
|
[ { "a" } ] [
|
||||||
|
|
|
@ -3,7 +3,7 @@ USING: tools.test system io.files io.files.temp kernel
|
||||||
tools.deploy.config tools.deploy.config.editor
|
tools.deploy.config tools.deploy.config.editor
|
||||||
tools.deploy.backend math sequences io.launcher arrays
|
tools.deploy.backend math sequences io.launcher arrays
|
||||||
namespaces continuations layouts accessors io.encodings.ascii
|
namespaces continuations layouts accessors io.encodings.ascii
|
||||||
urls math.parser ;
|
urls math.parser io.directories ;
|
||||||
|
|
||||||
: shake-and-bake ( vocab -- )
|
: shake-and-bake ( vocab -- )
|
||||||
[ "test.image" temp-file delete-file ] ignore-errors
|
[ "test.image" temp-file delete-file ] ignore-errors
|
||||||
|
|
|
@ -6,20 +6,20 @@ HELP: path-separator?
|
||||||
{ $description "Tests if the code point is a platform-specific path separator." }
|
{ $description "Tests if the code point is a platform-specific path separator." }
|
||||||
{ $examples
|
{ $examples
|
||||||
"On Unix:"
|
"On Unix:"
|
||||||
{ $example "USING: io.files prettyprint ;" "CHAR: / path-separator? ." "t" }
|
{ $example "USING: io.pathnames prettyprint ;" "CHAR: / path-separator? ." "t" }
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
HELP: parent-directory
|
HELP: parent-directory
|
||||||
{ $values { "path" "a pathname string" } { "parent" "a pathname string" } }
|
{ $values { "path" "a pathname string" } { "parent" "a pathname string" } }
|
||||||
{ $description "Strips the last component off a pathname." }
|
{ $description "Strips the last component off a pathname." }
|
||||||
{ $examples { $example "USING: io io.files ;" "\"/etc/passwd\" parent-directory print" "/etc/" } } ;
|
{ $examples { $example "USING: io io.pathnames ;" "\"/etc/passwd\" parent-directory print" "/etc/" } } ;
|
||||||
|
|
||||||
HELP: file-name
|
HELP: file-name
|
||||||
{ $values { "path" "a pathname string" } { "string" string } }
|
{ $values { "path" "a pathname string" } { "string" string } }
|
||||||
{ $description "Outputs the last component of a pathname string." }
|
{ $description "Outputs the last component of a pathname string." }
|
||||||
{ $examples
|
{ $examples
|
||||||
{ $example "USING: io.files prettyprint ;" "\"/usr/bin/gcc\" file-name ." "\"gcc\"" }
|
{ $example "USING: io.pathnames prettyprint ;" "\"/usr/bin/gcc\" file-name ." "\"gcc\"" }
|
||||||
{ $example "USING: io.files prettyprint ;" "\"/usr/libexec/awk/\" file-name ." "\"awk\"" }
|
{ $example "USING: io.pathnames prettyprint ;" "\"/usr/libexec/awk/\" file-name ." "\"awk\"" }
|
||||||
} ;
|
} ;
|
||||||
|
|
||||||
HELP: append-path
|
HELP: append-path
|
||||||
|
|
|
@ -144,7 +144,7 @@ ARTICLE: "syntax-byte-arrays" "Byte array syntax"
|
||||||
|
|
||||||
ARTICLE: "syntax-pathnames" "Pathname syntax"
|
ARTICLE: "syntax-pathnames" "Pathname syntax"
|
||||||
{ $subsection POSTPONE: P" }
|
{ $subsection POSTPONE: P" }
|
||||||
"Pathnames are documented in " { $link "pathnames" } "." ;
|
"Pathnames are documented in " { $link "io.pathnames" } "." ;
|
||||||
|
|
||||||
ARTICLE: "syntax-literals" "Literals"
|
ARTICLE: "syntax-literals" "Literals"
|
||||||
"Many different types of objects can be constructed at parse time via literal syntax. Numbers are a special case since support for reading them is built-in to the parser. All other literals are constructed via parsing words."
|
"Many different types of objects can be constructed at parse time via literal syntax. Numbers are a special case since support for reading them is built-in to the parser. All other literals are constructed via parsing words."
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
IN: mason.common.tests
|
IN: mason.common.tests
|
||||||
USING: prettyprint mason.common mason.config
|
USING: prettyprint mason.common mason.config
|
||||||
namespaces calendar tools.test io.files io.encodings.utf8 ;
|
namespaces calendar tools.test io.files io.files.temp io.encodings.utf8 ;
|
||||||
|
|
||||||
[ "00:01:01" ] [ 61000 milli-seconds>time ] unit-test
|
[ "00:01:01" ] [ 61000 milli-seconds>time ] unit-test
|
||||||
|
|
||||||
|
|
|
@ -1,7 +1,7 @@
|
||||||
! Copyright (C) 2008 Doug Coleman.
|
! Copyright (C) 2008 Doug Coleman.
|
||||||
! See http://factorcode.org/license.txt for BSD license.
|
! See http://factorcode.org/license.txt for BSD license.
|
||||||
USING: unix alien alien.c-types kernel math sequences strings
|
USING: unix alien alien.c-types kernel math sequences strings
|
||||||
io.unix.backend splitting ;
|
io.backend.unix splitting ;
|
||||||
IN: system-info.linux
|
IN: system-info.linux
|
||||||
|
|
||||||
: (uname) ( buf -- int )
|
: (uname) ( buf -- int )
|
||||||
|
|
Loading…
Reference in New Issue