gforth/wf.fs - diff

Return to wf.fs CVS log

Up to [gforth] / gforth

version 1.59, 2008/10/12 13:15:23	version 1.60, 2008/10/29 20:45:33
Line 270 Defer parse-line	Line 270 Defer parse-line
s" ]" link-suffix $+!	s" ]" link-suffix $+!
link-suffix $@ alt= ;	link-suffix $@ alt= ;

	: replace.- ( addr u -- )
	bounds ?DO I c@ '. = IF '- I c! THEN LOOP ;

: get-icon ( addr u -- ) iconpath @ IF 2drop EXIT THEN	: get-icon ( addr u -- ) iconpath @ IF 2drop EXIT THEN
link-suffix $! s" .*" link-suffix $+!	link-suffix $! link-suffix $@ replace.-
	s" .*" link-suffix $+!
icon-prefix $@ open-dir IF drop EXIT THEN >r	icon-prefix $@ open-dir IF drop EXIT THEN >r
BEGIN	BEGIN
pad $100 r@ read-dir throw WHILE	pad $100 r@ read-dir throw WHILE
Line 731 Variable orig-date	Line 735 Variable orig-date
s" Mail\|@/mail.gif" .img mail $@ mailto: mail-name $@ s" a" tagged	s" Mail\|@/mail.gif" .img mail $@ mailto: mail-name $@ s" a" tagged
public-key @ IF	public-key @ IF
public-key $@ href= s" a" tag	public-key $@ href= s" a" tag
s" PGP key\|-@/gpg.asc.gif" .img s" a" /tag	s" PGP key\|-@/gpg-asc.gif" .img s" a" /tag
THEN	THEN
-envs ;	-envs ;