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

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

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