mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 21:59:17 +02:00
29 lines
912 B
Scheme
29 lines
912 B
Scheme
|
|
(define-library (chibi snow utils)
|
|
(export find-in-path find-sexp-in-path
|
|
write-to-string display-to-string
|
|
resource->bytevector uri-normalize uri-directory
|
|
version-split version-compare version>? version>=?
|
|
topological-sort)
|
|
(import (scheme base)
|
|
(scheme file)
|
|
(scheme read)
|
|
(scheme write)
|
|
(scheme process-context)
|
|
(srfi 1)
|
|
(chibi net http)
|
|
(chibi pathname)
|
|
(chibi string)
|
|
(chibi uri))
|
|
(cond-expand
|
|
(chibi (import (chibi io)))
|
|
(chicken
|
|
(begin
|
|
(define (port->bytevector in) (read-bytevector #f in))
|
|
(define (file->bytevector in)
|
|
(call-with-input-file in port->bytevector))
|
|
(define (call-with-output-string proc)
|
|
(let ((out (open-output-string)))
|
|
(proc out)
|
|
(get-output-string out))))))
|
|
(include "utils.scm"))
|