24 lines
698 B
Scheme
24 lines
698 B
Scheme
;;; Fd-ports
|
|
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
|
|
|
|
(import-os-error-syscall %set-cloexec (fd val) "set_cloexec")
|
|
|
|
;;; Some of fcntl()
|
|
;;;;;;;;;;;;;;;;;;;
|
|
|
|
(import-os-error-syscall %fcntl-read (fd command) "fcntl_read")
|
|
(import-os-error-syscall %fcntl-write (fd command val) "fcntl_write")
|
|
|
|
(import-os-error-syscall %close-fdes (fd) "scsh_close")
|
|
|
|
(import-os-error-syscall %dup (fd) "scsh_dup")
|
|
|
|
(import-os-error-syscall %dup2 (fd-from fd-to) "scsh_dup2")
|
|
|
|
(import-os-error-syscall %fd-seek (fd offset whence) "scsh_lseek")
|
|
|
|
(import-os-error-syscall %char-ready-fdes? (fd) "char_ready_fdes")
|
|
|
|
(import-os-error-syscall %open (path flags mode) "scsh_open")
|
|
|