87 lines
2.1 KiB
Scheme
87 lines
2.1 KiB
Scheme
(define-library
|
|
(srfi 170)
|
|
(import (scheme base)
|
|
(scheme char)
|
|
(scheme write)
|
|
(scheme file)
|
|
(scheme process-context)
|
|
(foreign c))
|
|
(export ;posix-error?
|
|
;posix-error-name
|
|
;posix-error-message
|
|
;open-file
|
|
;fd->port
|
|
create-directory
|
|
;create-fifo
|
|
create-hard-link
|
|
create-symlink
|
|
;read-symlink
|
|
rename-file
|
|
delete-directory
|
|
set-file-owner
|
|
;set-file-times
|
|
;truncate-file
|
|
file-info
|
|
file-info?
|
|
;file-info:device
|
|
;file-info:inode
|
|
;file-info:mode
|
|
;file-info:nlinks
|
|
;file-info:uid
|
|
;file-info:gid
|
|
;file-info:rdev
|
|
;file-info:size
|
|
;file-info:blksize
|
|
;file-info:blocks
|
|
;file-info:atime
|
|
;file-info:mtime
|
|
;file-info:ctime
|
|
file-info-directory?
|
|
;file-info-fifo?
|
|
;file-info-symlink?
|
|
;file-info-regular?
|
|
;file-info-socket?
|
|
;file-info-device?
|
|
set-file-mode
|
|
directory-files
|
|
;make-directory-files-generator
|
|
open-directory
|
|
read-directory
|
|
close-directory
|
|
real-path
|
|
;file-space
|
|
temp-file-prefix
|
|
create-temp-file
|
|
call-with-temporary-filename
|
|
;umask
|
|
;set-umask!
|
|
current-directory
|
|
set-current-directory!
|
|
pid
|
|
;nice
|
|
user-uid
|
|
user-gid
|
|
user-effective-uid
|
|
user-effective-gid
|
|
user-supplementary-gids
|
|
user-info
|
|
user-info?
|
|
user-info:name
|
|
user-info:uid
|
|
user-info:gid
|
|
user-info:home-dir
|
|
user-info:shell
|
|
user-info:full-name
|
|
;user-info:parsed-full-name
|
|
group-info
|
|
group-info?
|
|
group-info:name
|
|
group-info:gid
|
|
;posix-time
|
|
;monotonic-time
|
|
set-environment-variable!
|
|
delete-environment-variable!
|
|
;terminal?
|
|
)
|
|
(include "170.scm"))
|