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

remove extra files

db4
Doug Coleman 2008-03-03 14:44:48 -06:00
parent ae6ad23855
commit 58d6e4c97d
2 changed files with 0 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/io/files/temporary/backend/backend.factor
View File

@ -1,5 +0,0 @@
USING: io.backend ;
IN: io.files.temporary.backend
HOOK: (temporary-file) io-backend ( path -- stream path )
HOOK: temporary-path io-backend ( -- path )

32
extra/io/files/temporary/temporary.factor
View File

@ -1,32 +0,0 @@
USING: kernel math math.bitfields combinators.lib math.parser
random sequences sequences.lib continuations namespaces
io.files io.backend io.nonblocking io arrays
io.files.temporary.backend system combinators vocabs.loader ;
IN: io.files.temporary
: random-letter ( -- ch ) 26 random { CHAR: a CHAR: A } random + ;
: random-ch ( -- ch )
{ t f } random [ 10 random CHAR: 0 + ] [ random-letter ] if ;
: random-name ( n -- string ) [ drop random-ch ] "" map-as ;
: <temporary-file> ( prefix suffix -- path duplex-stream )
temporary-path -rot
[ 10 random-name swap 3append path+ dup (temporary-file) ] 3curry
10 retry ;
: with-temporary-file ( quot -- path )
>r f f <temporary-file> r> with-stream ;
: temporary-directory ( -- path )
[ temporary-path 10 random-name path+ dup make-directory ] 10 retry ;
: with-temporary-directory ( quot -- )
>r temporary-directory r>
[ with-directory ] 2keep drop delete-tree ;
{
{ [ unix? ] [ "io.unix.files.unique" ] }
{ [ windows? ] [ "io.windows.files.unique" ] }
} cond require