home bbs files messages ]

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,111 of 117,927   
   sjack to All   
   Fetch string from comment   
   03 Mar 25 18:17:01   
   
   From: sjack@dontemail.me   
      
                             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.   
      
   --- 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