gforth/wf.fs - diff

Return to wf.fs CVS log

Up to [gforth] / gforth

Diff for /gforth/wf.fs between versions 1.17 and 1.19

version 1.17, 2003/01/20 19:17:59	version 1.19, 2003/03/09 12:54:33
Line 1	Line 1
\ wiki forth	\ wiki forth

	\ Copyright (C) 2003 Free Software Foundation, Inc.

	\ This file is part of Gforth.

	\ Gforth is free software; you can redistribute it and/or
	\ modify it under the terms of the GNU General Public License
	\ as published by the Free Software Foundation; either version 2
	\ of the License, or (at your option) any later version.

	\ This program is distributed in the hope that it will be useful,
	\ but WITHOUT ANY WARRANTY; without even the implied warranty of
	\ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	\ GNU General Public License for more details.

	\ You should have received a copy of the GNU General Public License
	\ along with this program; if not, write to the Free Software
	\ Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111, USA.

require string.fs	require string.fs

: -scan ( addr u char -- addr' u' )	: -scan ( addr u char -- addr' u' )
Line 197 Defer parse-line	Line 215 Defer parse-line

s" Gforth" environment? [IF] s" 0.5.0" str= [IF]	s" Gforth" environment? [IF] s" 0.5.0" str= [IF]
: parse-string ( c-addr u -- ) \ core,block	: parse-string ( c-addr u -- ) \ core,block
loadfilename 2@ 2>r	s" evaluated string" loadfilename>r
s" evaluated string" loadfilename 2! \ "evaluated string"
push-file #tib ! >tib !	push-file #tib ! >tib !
>in off blk off loadfile off -1 loadline !	>in off blk off loadfile off -1 loadline !
['] parse-line catch	['] parse-line catch
pop-file 2r> loadfilename 2! throw ;	pop-file r>loadfilename throw ;
[ELSE]	[ELSE]
: parse-string ( addr u -- )	: parse-string ( addr u -- )
evaluate-input cell new-tib #tib ! tib !	evaluate-input cell new-tib #tib ! tib !

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.17
changed lines
	Added in v.1.19