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.50, 2006/12/31 13:39:14
Line 1	Line 1
\ wiki forth	\ wiki forth

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

\ This file is part of Gforth.	\ This file is part of Gforth.

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 #> ;