123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293 |
- (library (rnrs arithmetic bitwise (6))
- (export bitwise-not
-
- bitwise-and
- bitwise-ior
- bitwise-xor
-
- bitwise-if
- bitwise-bit-count
- bitwise-length
- bitwise-first-bit-set
- bitwise-bit-set?
- bitwise-copy-bit
- bitwise-bit-field
- bitwise-copy-bit-field
- bitwise-arithmetic-shift
- bitwise-arithmetic-shift-left
- bitwise-arithmetic-shift-right
- bitwise-rotate-bit-field
- bitwise-reverse-bit-field)
- (import (rnrs base (6))
- (rnrs control (6))
- (rename (only (srfi srfi-60) bitwise-if
- integer-length
- first-set-bit
- copy-bit
- bit-field
- copy-bit-field
- rotate-bit-field
- reverse-bit-field)
- (integer-length bitwise-length)
- (first-set-bit bitwise-first-bit-set)
- (bit-field bitwise-bit-field)
- (reverse-bit-field bitwise-reverse-bit-field))
- (rename (only (guile) lognot
- logand
- logior
- logxor
- logcount
- logbit?
- modulo
- ash)
- (lognot bitwise-not)
- (logand bitwise-and)
- (logior bitwise-ior)
- (logxor bitwise-xor)
- (ash bitwise-arithmetic-shift)))
- (define (bitwise-bit-count ei)
- (if (negative? ei)
- (bitwise-not (logcount ei))
- (logcount ei)))
- (define (bitwise-bit-set? ei1 ei2) (logbit? ei2 ei1))
- (define (bitwise-copy-bit ei1 ei2 ei3)
-
-
-
-
- (copy-bit ei2 ei1 (logbit? 0 ei3)))
- (define (bitwise-copy-bit-field ei1 ei2 ei3 ei4)
- (copy-bit-field ei1 ei4 ei2 ei3))
- (define (bitwise-rotate-bit-field ei1 ei2 ei3 ei4)
- (rotate-bit-field ei1 ei4 ei2 ei3))
- (define bitwise-arithmetic-shift-left bitwise-arithmetic-shift)
- (define (bitwise-arithmetic-shift-right ei1 ei2)
- (bitwise-arithmetic-shift ei1 (- ei2))))
|