mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
8b5eb68238
They can be close()d explicitly with close-file-descriptor, and will close() on gc, but only explicitly closing the last port on them will close the fileno. Notably needed for network sockets where we open separate input and output ports on the same socket.
15 lines
726 B
Scheme
15 lines
726 B
Scheme
|
|
(define-library (chibi config)
|
|
(export make-conf conf? conf-load conf-load-in-path conf-load-cascaded
|
|
conf-verify conf-extend conf-append conf-set conf-unfold-key
|
|
conf-get conf-get-list conf-get-cdr conf-get-multi
|
|
conf-specialize read-from-file conf-source conf-head conf-parent
|
|
assoc-get)
|
|
(import (scheme base) (scheme read) (scheme write) (scheme file)
|
|
(scheme time) (srfi 1))
|
|
;; This is only used for config verification, it's acceptable to
|
|
;; substitute file existence for the stronger directory check.
|
|
(cond-expand
|
|
(chibi (import (only (chibi filesystem) file-directory?)))
|
|
(else (begin (define file-directory? file-exists?))))
|
|
(include "config.scm"))
|