mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-23 20:15:05 +02:00
77 lines
2.1 KiB
Scheme
77 lines
2.1 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
|
|
)
|
|
(inline
|
|
fx-width
|
|
fx-greatest
|
|
fx-least
|
|
fixnum?
|
|
fx+
|
|
)
|
|
(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); ")
|
|
(define-c fx+
|
|
"(void *data, int argc, closure _, object k, object i, object j)"
|
|
" Cyc_check_fixnum(data, i);
|
|
Cyc_check_fixnum(data, j);
|
|
object result = obj_int2obj(obj_obj2int(i) + obj_obj2int(j));
|
|
return_closcall1(data, k, result); ")
|
|
))
|
|
|