Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-06 20:56:38 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

get/set-file-descriptor-flags/status[!] now accept port arguments

Browse source
This commit is contained in:
Alex Shinn 2012-12-31 00:27:03 +09:00
parent 3bcaed82d4
commit a8eb496962
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
lib/chibi/filesystem.stub
View file

@ -151,17 +151,17 @@
(define-c errno (make-fifo "mkfifo") (string (default #o644 int))) (define-c errno (make-fifo "mkfifo") (string (default #o644 int)))
(define-c int (get-file-descriptor-flags "fcntl") (define-c int (get-file-descriptor-flags "fcntl")
(fileno (value F_GETFD int))) (port-or-fileno (value F_GETFD int)))
(define-c errno (set-file-descriptor-flags! "fcntl") (define-c errno (set-file-descriptor-flags! "fcntl")
(fileno (value F_SETFD int) long)) (port-or-fileno (value F_SETFD int) long))
;;> Get and set the flags for the given file descriptor. ;;> Get and set the flags for the given file descriptor.
;;/ ;;/
(define-c int (get-file-descriptor-status "fcntl") (define-c int (get-file-descriptor-status "fcntl")
(fileno (value F_GETFL int))) (port-or-fileno (value F_GETFL int)))
(define-c errno (set-file-descriptor-status! "fcntl") (define-c errno (set-file-descriptor-status! "fcntl")
(fileno (value F_SETFL int) long)) (port-or-fileno (value F_SETFL int) long))
;;> Get and set the status for the given file descriptor. ;;> Get and set the status for the given file descriptor.
;;/ ;;/