[gforth] / gforth / filedump.fs

gforth: gforth/filedump.fs

1 :	pazsan	1.5	#! /usr/local/lib/gforth/0.2.0/kernel.fi
2 :	anton	1.1	\ file hex dump
3 :
4 :			Create buffer $10 allot
5 :
6 :			: dumpline ( addr handle -- flag )
7 :	pazsan	1.3	buffer $10 rot read-file throw
8 :	pazsan	1.2	dup /dump ! $10 <> swap 6 u.r ." : " buffer .line cr ;
9 :	anton	1.1
10 :			: init cr $10 base ! ;
11 :
12 :			: filedump ( addr count -- ) init r/o bin open-file throw >r
13 :			0 BEGIN $10 bounds r@ dumpline UNTIL drop
14 :			r> close-file throw ;
15 :
16 :			script? [IF]
17 :			: alldump argc @ 2 ?DO I arg 2dup type ." :" filedump LOOP ;
18 :			alldump bye
19 :			[THEN]