Annotation of gforth/filedump.fs, revision 1.12
1.5 pazsan 1: #! /usr/local/lib/gforth/0.2.0/kernel.fi
1.1 anton 2: \ file hex dump
3:
1.12 ! anton 4: \ Copyright (C) 1997,2002,2003,2004 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
10: \ as published by the Free Software Foundation; either version 2
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
19: \ along with this program; if not, write to the Free Software
1.7 anton 20: \ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.
1.6 anton 21:
1.8 pazsan 22: Create buf $10 allot
1.1 anton 23:
24: : dumpline ( addr handle -- flag )
1.8 pazsan 25: buf $10 rot read-file throw
26: dup /dump ! $10 <> swap 6 u.r ." : " buf .line cr ;
1.1 anton 27:
28: : init cr $10 base ! ;
29:
30: : filedump ( addr count -- ) init r/o bin open-file throw >r
31: 0 BEGIN $10 bounds r@ dumpline UNTIL drop
32: r> close-file throw ;
33:
34: script? [IF]
1.11 pazsan 35: : alldump argc @ 1 ?DO I arg 2dup type ." :" filedump LOOP ;
1.1 anton 36: alldump bye
37: [THEN]
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>