28 lines
752 B
Factor
28 lines
752 B
Factor
|
USING: arrays io kernel math namespaces prettyprint sequences
|
||
|
|
strings ;
|
||
|
IN: hexdump-internals
|
||
|
|
|
||
|
|
: header. ( len -- )
|
||
|
|
"Length: " write dup unparse write ", " write >hex write "h" write terpri ;
|
||
|
|
|
||
|
|
: 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. [ [ h-pad. " " write ] each ] keep
|
||
|
|
16 over length - " " <array> concat write
|
||
|
|
[ dup printable? [ drop CHAR: . ] unless 1string write ] each
|
||
|
|
terpri ;
|
||
|
|
|
||
|
|
IN: hexdump
|
||
|
|
: hexdump ( str -- str )
|
||
|
|
#! Write hexdump to a string
|
||
|
|
[
|
||
|
|
dup length header.
|
||
|
|
16 group dup length [ line. ] 2each
|
||
|
|
] string-out ;
|
||
|
|
|
||
|
|
: hexdump. ( str -- )
|
||
|
|
#! Print hexdump
|
||
|
|
hexdump write ;
|
||
|
|
|