Merge branch 'master' of git://factorcode.org/git/factor

db4
U-SLAVA-DFB8FF805\Slava 2008-12-13 04:50:18 -06:00
commit 25c2d5d0e4
19 changed files with 36 additions and 34 deletions

View File

@ -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 )
{ {

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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
[ [

View File

@ -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 ;

View File

@ -0,0 +1 @@
unportable

View File

@ -1,4 +0,0 @@
! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
IN: io.files.info.windows.nt

View File

@ -0,0 +1 @@
unportable

View File

@ -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." } ;

View File

@ -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

View File

@ -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

View File

@ -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" } ] [

View File

@ -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

View File

@ -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

View File

@ -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."

View File

@ -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

View File

@ -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 )