65 lines
2.1 KiB
Scheme
65 lines
2.1 KiB
Scheme
(import-os-error-syscall %set-cloexec (fd val) "set_cloexec")
|
|
|
|
(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")
|
|
|
|
(import-os-error-syscall %pipe-fdes () "scheme_pipe")
|
|
|
|
(import-os-error-syscall %truncate-file (path length) "scsh_truncate")
|
|
|
|
(import-os-error-syscall %truncate-fdes (path length) "scsh_ftruncate")
|
|
|
|
(import-os-error-syscall %create-symlink (old-name new-name) "scsh_symlink")
|
|
|
|
(import-os-error-syscall %read-symlink (path) "scsh_readlink")
|
|
|
|
(import-os-error-syscall %rename-file (old-name new-name) "scsh_rename")
|
|
|
|
(import-os-error-syscall %delete-directory (path) "scsh_rmdir")
|
|
|
|
(import-os-error-syscall %%create-directory (path mode) "scsh_mkdir")
|
|
|
|
(import-os-error-syscall %create-hard-link (original-name new-name)
|
|
"scsh_link")
|
|
|
|
(import-os-error-syscall %create-fifo (path mode) "scsh_mkfifo")
|
|
|
|
(import-os-error-syscall %set-file-mode (path mode) "scsh_chmod")
|
|
|
|
(import-os-error-syscall %set-fdes-mode (path mode) "scsh_fchmod")
|
|
|
|
(import-os-error-syscall %set-file-uid&gid (path uid gid) "scsh_chown")
|
|
|
|
(import-os-error-syscall %set-fdes-uid&gid (fd uid gid) "scsh_fchown")
|
|
|
|
(import-os-error-syscall %utime (path ac m) "scm_utime")
|
|
|
|
(import-os-error-syscall %utime-now (path) "scm_utime_now")
|
|
|
|
(import-os-error-syscall %stat-file (path data chase?) "scheme_stat")
|
|
|
|
(import-os-error-syscall %stat-fdes (fd data) "scheme_fstat")
|
|
|
|
(import-os-error-syscall %delete-file (path) "scsh_unlink")
|
|
|
|
(import-os-error-syscall %sync-file (fd) "scsh_fsync")
|
|
|
|
;;; Amazingly bogus syscall -- doesn't *actually* sync the filesys.
|
|
(import-os-error-syscall %sync-file-system () "scsh_sync")
|
|
|
|
(import-os-error-syscall %open-dir (dir-name) "directory_files")
|
|
|
|
|