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

io: Add with-ensure-directory and ?file-info.

modern-harvey2
Doug Coleman 2017-08-03 18:42:32 -05:00
parent bfd830f6b4
commit b92a3e109d
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/io/directories/directories.factor
View File

@ -33,6 +33,9 @@ DEFER: make-parent-directories
: make-parent-directories ( filename -- filename ) : make-parent-directories ( filename -- filename )
dup parent-directory make-directories ; dup parent-directory make-directories ;
: with-ensure-directory ( path quot -- )
[ absolute-path dup make-directories current-directory ] dip with-variable ; inline
! Listing directories ! Listing directories
TUPLE: directory-entry name type ; TUPLE: directory-entry name type ;

5
basis/io/files/info/info.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Doug Coleman, Eduardo Cavazos. ! Copyright (C) 2008 Doug Coleman, Eduardo Cavazos.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors kernel system sequences combinators USING: accessors kernel system sequences combinators
vocabs vocabs.loader io.files.types math ; vocabs vocabs.loader io.files io.files.types math ;
IN: io.files.info IN: io.files.info
! File info ! File info
@ -10,6 +10,9 @@ accessed ;
HOOK: file-info os ( path -- info ) HOOK: file-info os ( path -- info )
: ?file-info ( path -- info/f )
dup exists? [ file-info ] [ drop f ] if ; inline
HOOK: link-info os ( path -- info ) HOOK: link-info os ( path -- info )
: directory? ( file-info -- ? ) type>> +directory+ = ; : directory? ( file-info -- ? ) type>> +directory+ = ;