scsh-0.6/scheme/alt/bitwise.scm

45 lines
1.1 KiB
Scheme

; Copyright (c) 1993-1999 by Richard Kelsey and Jonathan Rees. See file COPYING.
; Bitwise operators written in vanilla Scheme.
; Written for clarity and simplicity, not for speed.
; No need to use these in Scheme 48 since Scheme 48's virtual machine
; provides fast machine-level implementations.
(define (bitwise-not i)
(- -1 i))
(define (bitwise-and x y)
(cond ((= x 0) 0)
((= x -1) y)
(else
(+ (* (bitwise-and (arithmetic-shift x -1)
(arithmetic-shift y -1))
2)
(* (modulo x 2) (modulo y 2))))))
(define (bitwise-ior x y)
(bitwise-not (bitwise-and (bitwise-not x)
(bitwise-not y))))
(define (bitwise-xor x y)
(bitwise-and (bitwise-not (bitwise-and x y))
(bitwise-ior x y)))
(define (bitwise-eqv x y)
(bitwise-not (bitwise-xor x y)))
(define (arithmetic-shift n m)
(floor (* n (expt 2 m))))
(define (count-bits x) ; Count 1's in the positive 2's comp rep
(let ((x (if (< x 0) (bitwise-not x) x)))
(do ((x x (arithmetic-shift x 1))
(result 0 (+ result (modulo x 2))))
((= x 0) result))))
;(define (integer-length integer) ...) ;?