]> gitweb.factorcode.org Git - factor.git/commitdiff
removing io.files.tmp in favour of io.files.unique
authorAlex Chapman <chapman.alex@gmail.com>
Wed, 12 Mar 2008 03:42:07 +0000 (14:42 +1100)
committerAlex Chapman <chapman.alex@gmail.com>
Wed, 12 Mar 2008 03:42:07 +0000 (14:42 +1100)
extra/io/files/tmp/tmp-tests.factor [deleted file]
extra/io/files/tmp/tmp.factor [deleted file]

diff --git a/extra/io/files/tmp/tmp-tests.factor b/extra/io/files/tmp/tmp-tests.factor
deleted file mode 100644 (file)
index ba2ff70..0000000
+++ /dev/null
@@ -1,5 +0,0 @@
-USING: io.files io.files.tmp kernel strings tools.test ;
-IN: temporary
-
-[ t ] [ tmpdir string? ] unit-test
-[ t f ] [ ".tmp" [ dup exists? swap ] with-tmpfile exists? ] unit-test
diff --git a/extra/io/files/tmp/tmp.factor b/extra/io/files/tmp/tmp.factor
deleted file mode 100644 (file)
index a859cfd..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-USING: continuations io io.files kernel sequences strings.lib ;
-IN: io.files.tmp
-
-: tmpdir ( -- dirname )
-    #! ensure that a tmp dir exists and return its name
-    #! I'm using a sub-directory of factor for crossplatconformity (windows doesn't have /tmp)
-    "tmp" resource-path dup directory? [ dup make-directory ] unless ;
-
-: touch ( filename -- )
-    <file-writer> dispose ;
-
-: tmpfile ( extension -- filename )
-    16 random-alphanumeric-string over append
-    tmpdir swap path+ dup exists? [
-        drop tmpfile
-    ] [
-        nip dup touch
-    ] if ;
-
-: with-tmpfile ( extension quot -- )
-    #! quot should have stack effect ( filename -- )
-    swap tmpfile tuck swap curry swap [ delete-file ] curry [ ] cleanup ;