uint

Vocabulary

bare

Definition

IN: bare

SINGLETON: uint

Methods

USING: bare io kernel math ;

M: uint read-bare
    drop 0 0 [
        read1
        [ 127 bitand rot [ 7 * shift bitor ] keep 1 + swap ]
        [ 128 bitand zero? not ] bi
    ] loop nip ;


USING: bare io kernel math ;

M: uint write-bare
    drop
    [ dup 128 >= ]
    [ [ 127 bitand 128 bitor write1 ] [ -7 shift ] bi ] while
    write1 ;