[gforth] / gforth / filedump.fs

gforth: gforth/filedump.fs

1 :	anton	1.1	#! /usr/stud/paysan/bin/forth
2 :			\ file hex dump
3 :
4 :			Create buffer $10 allot
5 :
6 :			: dumpline ( addr handle -- flag )
7 :			buffer $10 2dup 0 fill rot read-file throw
8 :			$10 <> swap 6 u.r ." : " buffer .line cr ;
9 :
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]