mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
0eb0834bbc
$ tools/snow-chibi implementations
WARNING: Implementation gauche is an unsupported version,
0.9.10_pre1, but at least 0.9.4 is required.
cyclone
sagittarius
The easy solution is also accept "_" as version separator and consider
"pre1" the forth component. This makes the warning go away, and I don't
think it'll affect version comparison on other schemes.
30 lines
939 B
Scheme
30 lines
939 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 char-set)
|
|
(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"))
|