Forums before death by AOL, social media and spammers... "We can't have nice things"
|    comp.lang.forth    |    Forth programmers eat a lot of Bratwurst    |    117,927 messages    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
|    Message 117,112 of 117,927    |
|    dxf to sjack    |
|    Re: Fetch string from comment    |
|    04 Mar 25 16:08:49    |
      From: dxforth@gmail.com              On 4/03/2025 5:17 am, sjack wrote:       > 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       >       > ...              Not understanding where it fits in. Is this meant to be in lieu of       ." ," S" etc ?              --- SoupGate-DOS v1.05        * Origin: you cannot sedate... all the things you hate (1:229/2)    |
[   << oldest   |   < older   |   list   |   newer >   |   newest >>   ]
(c) 1994, bbs@darkrealms.ca