mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
63 lines
1.7 KiB
Scheme
63 lines
1.7 KiB
Scheme
;;;; Cyclone Scheme
|
|
;;;; https://github.com/justinethier/cyclone
|
|
;;;;
|
|
;;;; Copyright (c) 2014-2016, Justin Ethier
|
|
;;;; All rights reserved.
|
|
;;;;
|
|
;;;; This module is (currently) a stub of SRFI 143.
|
|
;;;; Note the SRFI is still in DRAFT status.
|
|
;;;;
|
|
(define-library (srfi 143)
|
|
(import (scheme base))
|
|
(export
|
|
fx-width
|
|
fx-greatest
|
|
fx-least
|
|
fixnum?
|
|
fxzero? fxpositive? fxnegative? fxodd? fxeven?
|
|
fx= fx< fx> fx<= fx>=
|
|
fxmax fxmin
|
|
fx+ fx- fx*
|
|
fxabs fxsquare fxsqrt fxexpt
|
|
fx+/carry
|
|
fx-/carry
|
|
fx*+/carry
|
|
fxfloor/ fxfloor-quotient fxfloor-remainder
|
|
fxceiling/ fxceiling-quotient fxceiling-remainder
|
|
fxtruncate/ fxtruncate-quotient fxtruncate-remainder
|
|
fxround/ fxround-quotient fxround-remainder
|
|
fxeuclidean/ fxeuclidean-quotient fxeuclidean-remainder
|
|
fxbalanced/ fxbalanced-quotient fxbalanced-remainder
|
|
fxnot
|
|
fxand fxior fxxor fxeqv
|
|
fxnand fxnor
|
|
fxandc1 fxandc2 fxorc1 fxorc2
|
|
farithmetic-shift fxbit-count fxinteger-length
|
|
|
|
fxif
|
|
fxbit-set? fxcopy-bit fxbit-swap
|
|
fxany-bit-set? fxevery-bit-set?
|
|
fxfirst-set-bit
|
|
|
|
fxbit-field fxbit-field-any? fxbit-field-every?
|
|
fxbit-field-clear fxbit-field-set
|
|
fxbit-field-replace fbit-field-replace-same
|
|
fxbit-field-rotate fxbit-field-reverse
|
|
fxbit-field-append
|
|
|
|
fixnum->list list->fixnum
|
|
fixnum->vector vector->fixnum
|
|
fxbits
|
|
fxfold fxfor-each fxunfold
|
|
fxlogical-shift
|
|
)
|
|
(begin
|
|
(define (fx-width) 31)
|
|
(define (fx-greatest) 1073741823)
|
|
(define (fx-least) -1073741824)
|
|
(define-c fixnum?
|
|
"(void *data, int argc, closure _, object k, object obj)"
|
|
" return_closcall1(data, k,
|
|
obj_is_int(obj) ? boolean_t : boolean_f); ")
|
|
))
|
|
|