From 1764f8671be5c72be57ae6f9853858f54abdd868 Mon Sep 17 00:00:00 2001 From: Daniel Ehrenberg Date: Tue, 4 Mar 2008 17:44:08 -0600 Subject: [PATCH] Deleting duplication in files --- core/io/files/files.factor | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/core/io/files/files.factor b/core/io/files/files.factor index 16d1c64eab..785de80f36 100755 --- a/core/io/files/files.factor +++ b/core/io/files/files.factor @@ -6,10 +6,6 @@ system combinators splitting sbufs continuations io.encodings io.encodings.binary ; IN: io.files -HOOK: cd io-backend ( path -- ) - -HOOK: cwd io-backend ( -- path ) - HOOK: (file-reader) io-backend ( path -- stream ) HOOK: (file-writer) io-backend ( path -- stream ) @@ -25,14 +21,8 @@ HOOK: (file-appender) io-backend ( path -- stream ) : ( path encoding -- stream ) swap (file-appender) swap ; -HOOK: delete-file io-backend ( path -- ) - HOOK: rename-file io-backend ( from to -- ) -HOOK: make-directory io-backend ( path -- ) - -HOOK: delete-directory io-backend ( path -- ) - ! Pathnames : path-separator? ( ch -- ? ) windows? "/\\" "/" ? member? ; @@ -215,14 +205,6 @@ DEFER: copy-tree-to : resource-exists? ( path -- ? ) ?resource-path exists? ; -: temp-directory ( -- path ) - "temp" resource-path - dup exists? not - [ dup make-directory ] - when ; - -: temp-file ( name -- path ) temp-directory swap path+ ; - ! Pathname presentations TUPLE: pathname string ;