mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-21 06:39:17 +02:00
21 lines
681 B
Text
21 lines
681 B
Text
|
|
(c-system-include "sys/types.h")
|
|
(c-system-include "time.h")
|
|
(c-system-include "unistd.h")
|
|
|
|
(define-c input-port (open-input-fd fdopen) (int (value "r")))
|
|
(define-c output-port (open-output-fd fdopen) (int (value "w")))
|
|
|
|
(define-c errno (delete-file unlink) (string))
|
|
(define-c errno (link-file link) (string string))
|
|
(define-c errno (symbolic-link-file symlink) (string string))
|
|
(define-c errno (rename-file rename) (string string))
|
|
|
|
(define-c errno (create-directory mkdir) (string int))
|
|
(define-c errno (delete-directory rmdir) (string))
|
|
|
|
(define-c int (duplicate-fd dup) (int))
|
|
;;(define-c errno pipe ((array int 2)))
|
|
|
|
(define-c time_t (current-seconds time) ((value NULL)))
|
|
|