Changeset 39174 in project
- Timestamp:
- 11/08/20 18:04:27 (4 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
release/5/bitwise-utils/trunk/bitwise-utils.scm
r38928 r39174 40 40 integer->list list->integer) 41 41 42 43 (import scheme) 44 (import (only (chicken base) declare sub1 add1 fixnum? foldl cut)) 45 (import (chicken type)) 46 (import (chicken foreign)) 47 (import (only (chicken bitwise) 48 integer-length arithmetic-shift bit->boolean 49 bitwise-not bitwise-and bitwise-ior)) 42 (import scheme 43 (only (chicken base) declare sub1 add1 fixnum? foldl cut) 44 (chicken type) 45 (chicken foreign) 46 (only (chicken bitwise) integer-length arithmetic-shift bit->boolean 47 bitwise-not bitwise-and bitwise-ior)) 50 48 51 49 ;; … … 53 51 ;FIXME bitwise-split more like string-chop then string-split 54 52 55 (: arithmetic-shift-left (integer fixnum --> integer))56 (: arithmetic-shift-right (integer fixnum --> integer))57 (: logical-shift-left (integer fixnum --> integer))58 (: logical-shift-right (integer fixnum --> integer))59 (: bitwise-mask (fixnum #!optional boolean --> integer))60 (: bitwise-join (integer #!rest integer --> integer))61 (: bitwise-split (integer fixnum --> (list-of integer)))62 (: bitwise-count (integer --> fixnum))63 (: bitwise-merge (integer integer integer --> integer))64 (: bitwise-nth? (integer fixnum --> boolean))65 (: bitwise-any? (integer integer --> boolean))66 (: bitwise-first-set (integer --> fixnum))67 (: bitwise-reverse (integer fixnum --> integer))68 (: bitwise-rotate (integer fixnum fixnum --> integer))69 (: bitwise-set-nth (integer fixnum boolean --> integer))70 (: bitwise-field (integer fixnum fixnum --> integer))71 (: bitwise-field-copy (integer integer fixnum fixnum --> integer))72 (: bitwise-field-reverse (integer fixnum fixnum --> integer))73 (: bitwise-field-rotate (integer fixnum fixnum fixnum --> integer))74 (: integer->list (integer #!optional (or boolean fixnum) --> (list-of fixnum)))75 (: list->integer (list --> integer))53 (: arithmetic-shift-left (integer fixnum --> integer)) 54 (: arithmetic-shift-right (integer fixnum --> integer)) 55 (: logical-shift-left (integer fixnum --> integer)) 56 (: logical-shift-right (integer fixnum --> integer)) 57 (: bitwise-mask (fixnum #!optional boolean --> integer)) 58 (: bitwise-join (integer #!rest integer --> integer)) 59 (: bitwise-split (integer fixnum --> (list-of integer))) 60 (: bitwise-count (integer --> fixnum)) 61 (: bitwise-merge (integer integer integer --> integer)) 62 (: bitwise-nth? (integer fixnum --> boolean)) 63 (: bitwise-any? (integer integer --> boolean)) 64 (: bitwise-first-set (integer --> fixnum)) 65 (: bitwise-reverse (integer fixnum --> integer)) 66 (: bitwise-rotate (integer fixnum fixnum --> integer)) 67 (: bitwise-set-nth (integer fixnum boolean --> integer)) 68 (: bitwise-field (integer fixnum fixnum --> integer)) 69 (: bitwise-field-copy (integer integer fixnum fixnum --> integer)) 70 (: bitwise-field-reverse (integer fixnum fixnum --> integer)) 71 (: bitwise-field-rotate (integer fixnum fixnum fixnum --> integer)) 72 (: integer->list (integer #!optional (or boolean fixnum) --> (list-of fixnum))) 73 (: list->integer (list --> integer)) 76 74 77 75 ;observes sign - does sign extend
Note: See TracChangeset
for help on using the changeset viewer.