Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-19 05:39:17 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding bitwise ops

Browse source
This commit is contained in:
Justin Ethier 2017-08-08 13:05:17 +00:00
parent c46f3991d3
commit 5b5e88a61a
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
srfi/143.sld
View file

@ -21,10 +21,11 @@
fxabs fxabs
fxsquare fxsquare
fxsqrt fxsqrt
; TODO:
; fx+/carry fx-/carry fx*/carry ; fx+/carry fx-/carry fx*/carry
; fxnot fxand fxior fxxor fxarithmetic-shift
; fxarithmetic-shift-left fxarithmetic-shift-right fxnot fxand fxior fxxor
; fxarithmetic-shift fxarithmetic-shift-left fxarithmetic-shift-right
; fxbit-count fxlength fxif fxbit-set? fxcopy-bit ; fxbit-count fxlength fxif fxbit-set? fxcopy-bit
; fxfirst-set-bit fxbit-field ; fxfirst-set-bit fxbit-field
; fxbit-field-rotate fxbit-field-reverse ; fxbit-field-rotate fxbit-field-reverse
@ -40,6 +41,7 @@
fxneg fxquotient fxremainder fxneg fxquotient fxremainder
fxsquare fxsquare
fxabs fxabs
fxnot fxand fxior fxxor
) )
(begin (begin
(define (fx-width) 31) (define (fx-width) 31)
@ -108,5 +110,13 @@
(define (fxneg i) (fx- 0 i)) (define (fxneg i) (fx- 0 i))
(define (fxabs i) (define (fxabs i)
(if (fxnegative? i) (fxneg i) i)) (if (fxnegative? i) (fxneg i) i))
(define-c fxnot
"(void* data, int argc, closure _, object k, object i)"
" Cyc_check_fixnum(data, i);
object result = obj_int2obj(~(int)(obj_obj2int(i)));
return_closcall1(data, k, result); ")
(bin-num-op fxand "&")
(bin-num-op fxior "|")
(bin-num-op fxxor "^")
)) ))