steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hexdump -- blah. instead of .blah

erg 2006-08-10 04:27:54 +00:00
parent 776df12c04
commit eb3008bfaa
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
contrib/hexdump/hexdump.factor
View File

@ -1,13 +1,13 @@
USING: io kernel math namespaces prettyprint sequences strings ;
IN: hexdump-internals
: .header ( len -- )
: 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
: 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 - [ " " write ] times
[ dup printable? [ drop CHAR: . ] unless ch>string write ] each
terpri ;
@ -16,11 +16,11 @@ IN: hexdump
: hexdump ( str -- str )
#! Write hexdump to a string
[
dup length .header
16 group dup length [ .line ] 2each
dup length header.
16 group dup length [ line. ] 2each
] string-out ;
: .hexdump ( str -- )
: hexdump. ( str -- )
#! Print hexdump
hexdump write ;