Annotation of gforth/filedump.fs, revision 1.1
1.1 ! anton 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]
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>