![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to html.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to html.fs CVS log | Up to [gforth] / gforth |
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>" $> ;