gforth/wf.fs - diff

Return to wf.fs CVS log

Up to [gforth] / gforth

version 1.45, 2006/03/19 23:27:38	version 1.48, 2006/10/08 11:30:56
Line 43 require string.fs	Line 43 require string.fs
case	case
'& of ." &" endof	'& of ." &" endof
'< of ." <" endof	'< of ." <" endof
\ '¤ of ." €" endof	\ &164 of ." €" endof
dup emit	dup emit
endcase	endcase
LOOP ;	LOOP ;
Line 68 s" " default-class $!	Line 68 s" " default-class $!
: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ;	: tagged ( addr1 u1 addr2 u2 -- ) 2dup 2>r tag .type 2r> /tag ;

: opt ( addr u opt u -- ) s" " tag-option $+!	: opt ( addr u opt u -- ) s" " tag-option $+!
tag-option $+! s' ="' tag-option $+! tag-option $+!	tag-option $+! s' ="' tag-option $+!
	\ BEGIN dup WHILE '& $split >r >r tag-option $+! r> r>
	\ dup IF s" %26" tag-option $+! THEN
	\ REPEAT 2drop
	tag-option $+!
s' "' tag-option $+! ;	s' "' tag-option $+! ;
: n>string ( n -- addr u ) 0 <# #S #> ;	: n>string ( n -- addr u ) 0 <# #S #> ;
: xy>string ( x y -- ) swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ;	: xy>string ( x y -- ) swap 0 <# #S 'x hold 2drop 0 #S 's hold #> ;
Line 327 s" Gforth" environment? [IF] s" 0.5.0" s	Line 331 s" Gforth" environment? [IF] s" 0.5.0" s
[ELSE]	[ELSE]
: parse-string ( addr u -- )	: parse-string ( addr u -- )
evaluate-input cell new-tib #tib ! tib !	evaluate-input cell new-tib #tib ! tib !
['] parse-line catch pop-file throw ;	['] parse-line catch pop-file rethrow ;
[THEN] [THEN]	[THEN] [THEN]

Variable expand-link	Variable expand-link