File:  [gforth] / gforth / html.fs
Revision 1.1: download - view: text, annotated - select for diffs
Sun Mar 19 23:04:13 2000 UTC (24 years ago) by pazsan
Branches: MAIN
CVS tags: HEAD
Added Forth as HTML scripting language
Fixed >NAME bug for words >27 letters

    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>