base.ss
#lang scheme/base
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; FILE.plt - file, path, and atomic file operation utilities 
;;
;;
;; Bonzai Lab, LLC.  All rights reserved.
;;
;; Licensed under LGPL.
;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; base.ss - reexporting basic operations with unix-like names.
;; yc 9/21/2009 - first version
;; let's have a few more simplifications
(require (rename-in scheme/base 
                    (file-or-directory-modify-seconds mtime)
                    (file-or-directory-permissions acl)
                    (rename-file-or-directory rename)
                    (make-file-or-directory-link symlink) 
                    (make-directory mkdir)
                    (directory-list ls)
                    (delete-directory rmdir)
                    (open-input-file fopen/read)  
                    (open-output-file fopen/write)
                    )
         (rename-in scheme/file 
                    (make-directory* mkdir*)
                    (copy-directory/files cp)
                    (delete-directory/files rm-rf)
                    )
         scheme/file
         )

;; if we have a full way of constructing the shortcut we'll make use of it...
;; a higher version would have been interesting... hmm...
(provide mtime
         acl
         rename
         symlink
         mkdir 
         ls
         rmdir 
         mkdir*
         cp
         rm-rf 
         fopen/read 
         fopen/write
         )

(provide (all-from-out scheme/file))