io: Add with-ensure-directory and ?file-info.
parent
bfd830f6b4
commit
b92a3e109d
|
@ -33,6 +33,9 @@ DEFER: make-parent-directories
|
|||
: make-parent-directories ( filename -- filename )
|
||||
dup parent-directory make-directories ;
|
||||
|
||||
: with-ensure-directory ( path quot -- )
|
||||
[ absolute-path dup make-directories current-directory ] dip with-variable ; inline
|
||||
|
||||
! Listing directories
|
||||
TUPLE: directory-entry name type ;
|
||||
|
||||
|
|
|
@ -1,7 +1,7 @@
|
|||
! Copyright (C) 2008 Doug Coleman, Eduardo Cavazos.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
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
|
||||
|
||||
! File info
|
||||
|
@ -10,6 +10,9 @@ accessed ;
|
|||
|
||||
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 )
|
||||
|
||||
: directory? ( file-info -- ? ) type>> +directory+ = ;
|
||||
|
|
Loading…
Reference in New Issue