mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-19 05:39:18 +02:00
40 lines
1.1 KiB
Scheme
40 lines
1.1 KiB
Scheme
|
|
;;> Additional bytevector utilities.
|
|
|
|
(define-library (chibi bytevector)
|
|
(export
|
|
bytevector-u16-ref-le bytevector-u16-ref-be
|
|
bytevector-u32-ref-le bytevector-u32-ref-be
|
|
bytevector-pad-left
|
|
integer->bytevector bytevector->integer
|
|
integer->hex-string hex-string->integer
|
|
bytevector->hex-string hex-string->bytevector
|
|
bytevector-ieee-single-ref
|
|
bytevector-ieee-single-native-ref
|
|
bytevector-ieee-single-set!
|
|
bytevector-ieee-single-native-set!
|
|
bytevector-ieee-double-ref
|
|
bytevector-ieee-double-native-ref
|
|
bytevector-ieee-double-set!
|
|
bytevector-ieee-double-native-set!
|
|
)
|
|
(import (scheme base) (scheme inexact))
|
|
(cond-expand
|
|
(big-endian
|
|
(begin
|
|
(define-syntax native-endianness
|
|
(syntax-rules () ((_) 'big)))))
|
|
(else
|
|
(begin
|
|
(define-syntax native-endianness
|
|
(syntax-rules () ((_) 'little))))))
|
|
(cond-expand
|
|
((library (srfi 151)) (import (srfi 151)))
|
|
((library (srfi 33)) (import (srfi 33)))
|
|
(else (import (srfi 60))))
|
|
(include "bytevector.scm")
|
|
(cond-expand
|
|
;;(chibi
|
|
;; (include-shared "ieee-754-native"))
|
|
(else
|
|
(include "ieee-754.scm"))))
|