gforth/html.fs - annotate

Return to html.fs CVS log

Up to [gforth] / gforth

Annotation of gforth/html.fs, revision 1.1

1.1     ! pazsan      1: \ Use Forth as server-side script language
        !             2: : $> ( -- )
        !             3:     BEGIN  source >in @ /string s" <$" search  0= WHILE
        !             4:        type cr refill  0= UNTIL  EXIT  THEN
        !             5:     nip source >in @ /string rot - dup 2 + >in +! type ;
        !             6: : <HTML>  ." <HTML>" $> ;

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