gforth/history.fs - diff

Return to history.fs CVS log

Up to [gforth] / gforth

version 1.16, 1997/12/01 21:15:03	version 1.18, 1999/12/12 12:49:51
Line 65 interpret/compile: ctrl ( "<char>" -- c	Line 65 interpret/compile: ctrl ( "<char>" -- c
: force-open ( addr len -- fid )	: force-open ( addr len -- fid )
2dup r/w open-file 0<	2dup r/w open-file 0<
IF drop r/w create-file	IF drop r/w create-file
throw ELSE nip nip THEN ;	throw ELSE nip nip THEN ;

s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN]	s" os-class" environment? [IF] s" unix" compare 0= [ELSE] true [THEN]
[IF]	[IF]
Line 201 Create prefix-found 0 , 0 ,	Line 201 Create prefix-found 0 , 0 ,
: search-prefix ( addr1 len1 -- addr2 len2 )	: search-prefix ( addr1 len1 -- addr2 len2 )
0 vp dup @ 1- cells over +	0 vp dup @ 1- cells over +
DO I 2@ <>	DO I 2@ <>
IF I cell+ @ @ swap search-voc THEN	IF I cell+ @ wordlist-id @ swap search-voc THEN
[ -1 cells ] Literal +LOOP	[ -1 cells ] Literal +LOOP
prefix-string ;	prefix-string ;