factor/extra/hexdump/hexdump.factor

! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: arrays io io.streams.string kernel math math.parser
namespaces prettyprint sequences splitting grouping strings
ascii ;
IN: hexdump

<PRIVATE

: header. ( len -- )
    "Length: " write dup unparse write ", " write >hex write "h" write nl ;

: offset. ( lineno -- )
    16 * >hex 8 CHAR: 0 pad-left write "h: " write ;

: h-pad. ( digit -- )
    >hex 2 CHAR: 0 pad-left write ;

: line. ( str n -- )
    offset.
    dup [ h-pad. " " write ] each
    16 over length - 3 * CHAR: \s <string> write
    [ dup printable? [ drop CHAR: . ] unless write1 ] each
    nl ;

PRIVATE>

: hexdump ( sequence -- string )
    [
        dup length header.
        16 <sliced-groups> [ line. ] each-index
    ] with-string-writer ;

: hexdump. ( sequence -- )
    hexdump write ;