Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-19 05:39:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

(chibi filesystem): add chown

Browse source
This commit is contained in:
Kris Katterjohn 2020-07-08 15:12:14 -04:00
parent e31e5ffbf3
commit 8ae99cff92
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lib/chibi/filesystem.sld
View file

@ -33,7 +33,7 @@
open/append open/non-block open/append open/non-block
file-lock file-truncate file-lock file-truncate
file-is-readable? file-is-writable? file-is-executable? file-is-readable? file-is-writable? file-is-executable?
chmod is-a-tty?) chmod chown is-a-tty?)
(cond-expand (cond-expand
(chibi (chibi
(export lock/shared lock/exclusive lock/non-blocking lock/unlock) (export lock/shared lock/exclusive lock/non-blocking lock/unlock)

4
lib/chibi/filesystem.stub
View file

@ -267,6 +267,10 @@
(define-c int chmod (string int)) (define-c int chmod (string int))
;;> Sets the file owner and group as in chown.
(define-c int chown (string uid_t gid_t))
;;> Returns \scheme{#t} if the given port of file descriptor ;;> Returns \scheme{#t} if the given port of file descriptor
;;> if backed by a TTY object, and \scheme{#f} otherwise. ;;> if backed by a TTY object, and \scheme{#f} otherwise.