Return to html.fs CVS log | Up to [gforth] / gforth |
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>" $> ;