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