hexdump-bytes ( from to bytes -- )

Vocabulary

tools.hexdump.private

Inputs

from	an object
to	an object
bytes	an object

Outputs

None

Definition

USING: io kernel math math.parser sequences ;

IN: tools.hexdump.private

:: hexdump-bytes ( from to bytes -- )
    reset-line# to from - :> len len 16 /mod
    [ [ 16 * dup 16 + bytes write-hex-line ] each-integer ]
    [ [ len swap - len bytes write-hex-line ] unless-zero ] bi*
    len >hex 8 48 pad-head print ;