Annotation of gforth/filedump.fs, revision 1.5
1.5 ! pazsan 1: #! /usr/local/lib/gforth/0.2.0/kernel.fi
1.1 anton 2: \ file hex dump
3:
4: Create buffer $10 allot
5:
6: : dumpline ( addr handle -- flag )
1.3 pazsan 7: buffer $10 rot read-file throw
1.2 pazsan 8: dup /dump ! $10 <> swap 6 u.r ." : " buffer .line cr ;
1.1 anton 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]
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>