Annotation of gforth/filedump.fs, revision 1.14
1.5 pazsan 1: #! /usr/local/lib/gforth/0.2.0/kernel.fi
1.1 anton 2: \ file hex dump
3:
1.14 ! anton 4: \ Copyright (C) 1997,2002,2003,2004,2007 Free Software Foundation, Inc.
1.6 anton 5:
6: \ This file is part of Gforth.
7:
8: \ Gforth is free software; you can redistribute it and/or
9: \ modify it under the terms of the GNU General Public License
1.13 anton 10: \ as published by the Free Software Foundation, either version 3
1.6 anton 11: \ of the License, or (at your option) any later version.
12:
13: \ This program is distributed in the hope that it will be useful,
14: \ but WITHOUT ANY WARRANTY; without even the implied warranty of
15: \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16: \ GNU General Public License for more details.
17:
18: \ You should have received a copy of the GNU General Public License
1.13 anton 19: \ along with this program. If not, see http://www.gnu.org/licenses/.
1.6 anton 20:
1.8 pazsan 21: Create buf $10 allot
1.1 anton 22:
23: : dumpline ( addr handle -- flag )
1.8 pazsan 24: buf $10 rot read-file throw
25: dup /dump ! $10 <> swap 6 u.r ." : " buf .line cr ;
1.1 anton 26:
27: : init cr $10 base ! ;
28:
29: : filedump ( addr count -- ) init r/o bin open-file throw >r
30: 0 BEGIN $10 bounds r@ dumpline UNTIL drop
31: r> close-file throw ;
32:
33: script? [IF]
1.11 pazsan 34: : alldump argc @ 1 ?DO I arg 2dup type ." :" filedump LOOP ;
1.1 anton 35: alldump bye
36: [THEN]
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>