mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-21 22:59:16 +02:00
Merge pull request #665 from katterjohn/chown
(chibi filesystem): add chown
This commit is contained in:
commit
6fabc92b3d
2 changed files with 7 additions and 1 deletions
|
@ -33,7 +33,7 @@
|
|||
open/append open/non-block
|
||||
file-lock file-truncate
|
||||
file-is-readable? file-is-writable? file-is-executable?
|
||||
chmod is-a-tty?)
|
||||
chmod chown is-a-tty?)
|
||||
(cond-expand
|
||||
(chibi
|
||||
(export lock/shared lock/exclusive lock/non-blocking lock/unlock)
|
||||
|
|
|
@ -267,6 +267,12 @@
|
|||
|
||||
(define-c int chmod (string int))
|
||||
|
||||
;;> Sets the file owner and group as in chown.
|
||||
|
||||
(cond-expand
|
||||
((not windows)
|
||||
(define-c int chown (string uid_t gid_t))))
|
||||
|
||||
;;> Returns \scheme{#t} if the given port of file descriptor
|
||||
;;> if backed by a TTY object, and \scheme{#f} otherwise.
|
||||
|
||||
|
|
Loading…
Add table
Reference in a new issue