Fetch string from comment

                          String fetched from comment                          



Comment string

( This string is a simple comment)
( The comment can be enhanced to include parethises in the string)

( This string is an (enhanced) comment)


Accessing enhanced comments

A comment string, when interpreting, can be found in the
input buffer.  It can be accessed and used if it's consumed
or moved before the end of line.


.( ( ccc<)> -- )  Print enhanced comment string

cr i. .( This string, an enhanced comment, is consumed (gets printed))
 --> This string, an enhanced comment, is consumed (gets printed)


s( ( ccc<)> -- s )  Save enhanced comment string

s( "MOO") s( The sound of a cow)
The above strings are saved in a ring buffer and
return string references to be used soon.

cr i. ul( tell ) tab tell
 --> The sound of a cow "MOO"


,(  ( ccc<)> -- )  Compile enhanced comment string

here ,( This string with '"bar" (foo)' is compiled)
here om cr i. type
 --> This string with '"bar" (foo)' is compiled



Notes


i.          Print "-->"
ul(...)     Underline output of enclosed code
tell        COUNT TYPE
om          OVER MINUS

-fin-
Note The underline didn't show in the post.