nibble-array

Vocabulary

nibble-arrays

Definition

USING: byte-arrays sequences.private ;

IN: nibble-arrays

TUPLE: nibble-array
    { length array-capacity read-only initial: 0 }
    { underlying byte-array read-only initial: B{ } } ;

Methods

USING: nibble-arrays prettyprint.custom ;

M: nibble-array >pprint-sequence ;


USING: alien nibble-arrays nibble-arrays.private sequences ;

M: nibble-array byte-length length nibbles>bytes ;


USING: accessors kernel nibble-arrays ;

M: nibble-array clone
    [ length>> ] [ underlying>> clone ] bi nibble-array boa ;


USING: kernel nibble-arrays sequences ;

M: nibble-array equal?
    over nibble-array? [ sequence= ] [ 2drop f ] if ;


USING: accessors nibble-arrays sequences ;

M: nibble-array length length>> ;


USING: kernel nibble-arrays sequences ;

M: nibble-array like
    drop dup nibble-array? [ >nibble-array ] unless ;


USING: kernel nibble-arrays sequences ;

M: nibble-array new-sequence drop <nibble-array> ;


USING: nibble-arrays nibble-arrays.private sequences.private ;

M: nibble-array nth-unsafe nibble@ nth-unsafe get-nibble ;


USING: nibble-arrays prettyprint.custom ;

M: nibble-array pprint* pprint-object ;


USING: kernel nibble-arrays prettyprint.custom ;

M: nibble-array pprint-delims drop \ N{ \ } ;


USING: accessors byte-arrays kernel nibble-arrays
nibble-arrays.private sequences.private ;

M: nibble-array resize
    [ drop ]
    [ [ nibbles>bytes ] [ underlying>> ] bi* resize-byte-array ]
    2bi nibble-array boa ;


USING: kernel nibble-arrays nibble-arrays.private
sequences.private ;

M: nibble-array set-nth-unsafe
    nibble@ [ nth-unsafe set-nibble ] 2keep set-nth-unsafe ;