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

tools.hexdump: support stdin hexdump.

paths
John Benediktsson 2018-03-13 13:53:47 -07:00
parent b54da0f22b
commit 70749aa736
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
basis/tools/hexdump/hexdump.factor
View File

@ -1,8 +1,8 @@
! Copyright (C) 2008 Doug Coleman. ! Copyright (C) 2008 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: arrays ascii byte-arrays byte-vectors command-line USING: accessors ascii byte-arrays byte-vectors command-line
grouping io io.encodings.binary io.files io.streams.string grouping io io.encodings io.encodings.binary io.files
kernel math math.parser namespaces sequences splitting strings ; io.streams.string kernel math math.parser namespaces sequences ;
IN: tools.hexdump IN: tools.hexdump
<PRIVATE <PRIVATE
@ -47,6 +47,11 @@ M: byte-vector hexdump. hexdump-bytes ;
binary file-contents hexdump. ; binary file-contents hexdump. ;
: hexdump-main ( -- ) : hexdump-main ( -- )
command-line get [ hexdump-file ] each ; command-line get [
input-stream get dup decoder? [ stream>> ] when
stream-contents* hexdump.
] [
[ hexdump-file ] each
] if-empty ;
MAIN: hexdump-main MAIN: hexdump-main