mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 13:49:17 +02:00
68 lines
2.9 KiB
Scheme
68 lines
2.9 KiB
Scheme
;; filesystem.scm -- additional filesystem utilities
|
|
;; Copyright (c) 2009-2011 Alex Shinn. All rights reserved.
|
|
;; BSD-style license: http://synthcode.com/license.txt
|
|
|
|
;;> The fundamental directory iterator. Applies @var{kons} to
|
|
;;> each filename in directory @var{dir} and the result of the
|
|
;;> previous application, beginning with @var{knil}. With
|
|
;;> @var{kons} as @scheme{cons} and @var{knil} as @scheme{'()},
|
|
;;> equivalent to @scheme{directory-files}.
|
|
|
|
(define (directory-fold dir kons knil)
|
|
(let ((dir (opendir dir)))
|
|
(let lp ((res knil))
|
|
(let ((file (readdir dir)))
|
|
(if file (lp (kons (dirent-name file) res)) res)))))
|
|
|
|
;;> Returns a list of the files in @var{dir} in an unspecified
|
|
;;> order.
|
|
|
|
(define (directory-files dir)
|
|
(directory-fold dir cons '()))
|
|
|
|
;;> Returns the @scheme{status} object for the given @var{file},
|
|
;;> which should be a string indicating the path or a file
|
|
;;> descriptor.
|
|
|
|
(define (file-status file)
|
|
(if (string? file) (stat file) (fstat file)))
|
|
|
|
(define (file-device x) (stat-dev (if (stat? x) x (file-status x))))
|
|
(define (file-inode x) (stat-ino (if (stat? x) x (file-status x))))
|
|
(define (file-mode x) (stat-mode (if (stat? x) x (file-status x))))
|
|
(define (file-num-links x) (stat-nlinks (if (stat? x) x (file-status x))))
|
|
(define (file-owner x) (stat-uid (if (stat? x) x (file-status x))))
|
|
(define (file-group x) (stat-gid (if (stat? x) x (file-status x))))
|
|
(define (file-represented-device x) (stat-rdev (if (stat? x) x (file-status x))))
|
|
(define (file-size x) (stat-size (if (stat? x) x (file-status x))))
|
|
(define (file-block-size x) (stat-blksize (if (stat? x) x (file-status x))))
|
|
(define (file-num-blocks x) (stat-blocks (if (stat? x) x (file-status x))))
|
|
(define (file-access-time x) (stat-atime (if (stat? x) x (file-status x))))
|
|
(define (file-modification-time x) (stat-mtime (if (stat? x) x (file-status x))))
|
|
(define (file-change-time x) (stat-ctime (if (stat? x) x (file-status x))))
|
|
|
|
;;> File status accessors. @var{x} should be a string indicating
|
|
;;> the file to lookup the status for, or an existing status object.
|
|
;;/
|
|
|
|
(define (file-regular? x) (S_ISREG (file-mode x)))
|
|
(define (file-directory? x) (S_ISDIR (file-mode x)))
|
|
(define (file-character? x) (S_ISCHR (file-mode x)))
|
|
(define (file-block? x) (S_ISBLK (file-mode x)))
|
|
(define (file-fifo? x) (S_ISFIFO (file-mode x)))
|
|
(define (file-link? x) (S_ISLNK (file-mode x)))
|
|
(define (file-socket? x) (S_ISSOCK (file-mode x)))
|
|
(define (file-exists? x) (and (file-status x) #t))
|
|
|
|
;;> File type tests. @var{x} should be a string indicating the
|
|
;;> file to lookup the status for, or an existing status object.
|
|
;;> Returns @scheme{#t} if the file exists and the given type
|
|
;;> is satisfied, and @scheme{#f} otherwise.
|
|
;;/
|
|
|
|
;;> Equivalent to duplicating the file descriptor @var{old} to
|
|
;;> @var{new} and closing @var{old}.
|
|
|
|
(define (renumber-file-descriptor old new)
|
|
(and (duplicate-file-descriptor-to old new)
|
|
(close-file-descriptor old)))
|