Changeset 39174 in project


Ignore:
Timestamp:
11/08/20 18:04:27 (3 weeks ago)
Author:
Kon Lovett
Message:

multi-import is r7 undef, alignment

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/5/bitwise-utils/trunk/bitwise-utils.scm

    r38928 r39174  
    4040  integer->list list->integer)
    4141
    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))
    5048
    5149;;
     
    5351;FIXME bitwise-split more like string-chop then string-split
    5452
    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))
    7674
    7775;observes sign - does sign extend
Note: See TracChangeset for help on using the changeset viewer.