Create an HTML table: Difference between revisions

Content deleted Content added
Line 1,032: Line 1,032:
: '"..' '"' space ; \ output a quote char with trailing space
: '"..' '"' space ; \ output a quote char with trailing space


: toquote \ parse input, print as quoted text
: toquote \ parse input to " then print as quoted text
'"' [char] " PARSE pad place
'"' [char] " PARSE pad place
pad count type '"..' ;
pad count type '"..' ;


: > [char] > emit space ; \ output the '>' output text upto next tag
: > [char] > emit space ; \ output the '>' with trailing space


\ Create some HTML extensions to the Forth interpreter
\ Create some HTML extensions to the Forth interpreter