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

basis/io/directories/directories.factor

@@ -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 ;
 

basis/io/files/info/info.factor

@@ -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+ = ;