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

Adding a chmod binding.

Browse source
This commit is contained in:
Alex Shinn 2015-04-21 12:22:47 +09:00
parent 6a3179ec42
commit 5f97353ff5
2 changed files with 5 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
lib/chibi/filesystem.sld
View file

@ -33,8 +33,7 @@
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?
lock/shared lock/exclusive lock/non-blocking lock/unlock lock/shared lock/exclusive lock/non-blocking lock/unlock
is-a-tty?) chmod is-a-tty?)
(import (chibi) (chibi string)) (import (chibi) (chibi string))
(include-shared "filesystem") (include-shared "filesystem")
(include "filesystem.scm")) (include "filesystem.scm"))

4
lib/chibi/filesystem.stub
View file

@ -212,6 +212,10 @@
;;> Locking operations. ;;> Locking operations.
;;/ ;;/
;;> Sets the file permissions as in chmod.
(define-c int chmod (string int))
;;> 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.