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

fix up some old code

db4
Doug Coleman 2008-01-20 09:52:50 -07:00
parent 80fcbf2514
commit 654574181b
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/hexdump/hexdump.factor
View File

@ -1,4 +1,6 @@
USING: arrays io io.streams.string kernel math math.parser namespaces prettyprint sequences splitting strings ; USING: arrays combinators.lib io io.streams.string
kernel math math.parser namespaces prettyprint
sequences splitting strings ;
IN: hexdump IN: hexdump
<PRIVATE <PRIVATE
@ -6,12 +8,16 @@ IN: hexdump
: header. ( len -- ) : header. ( len -- )
"Length: " write dup unparse write ", " write >hex write "h" write nl ; "Length: " write dup unparse write ", " write >hex write "h" write nl ;
: offset. ( lineno -- ) 16 * >hex 8 CHAR: 0 pad-left write "h: " write ; : offset. ( lineno -- )
: h-pad. ( digit -- ) >hex 2 CHAR: 0 pad-left write ; 16 * >hex 8 CHAR: 0 pad-left write "h: " write ;
: h-pad. ( digit -- )
>hex 2 CHAR: 0 pad-left write ;
: line. ( str n -- ) : line. ( str n -- )
offset. offset.
dup [ h-pad. " " write ] each dup [ h-pad. " " write ] each
16 over length - " " <array> concat write 16 over length - 3 * CHAR: \s <string> write
[ dup printable? [ drop CHAR: . ] unless write1 ] each [ dup printable? [ drop CHAR: . ] unless write1 ] each
nl ; nl ;
@ -19,9 +25,8 @@ PRIVATE>
: hexdump ( seq -- str ) : hexdump ( seq -- str )
[ [
dup length header. dup length header.
16 <sliced-groups> dup length [ line. ] 2each 16 <sliced-groups> [ line. ] each-index
] string-out ; ] string-out ;
: hexdump. ( seq -- ) : hexdump. ( seq -- )
hexdump write ; hexdump write ;