\ cstrings   10/18/97  gwj

\ manipulate counted strings 
: $!  ( $ addr -- )
  over c@ char+ move ;
: $,  ( $ -- )
  here over c@ char+ allot $! ;
: $.  ( $ -- )   count type ;

\ create counted string constants 
\ and variables
: $constant  ( $ ; name -- )
here swap $, constant ;
: $variable  (  len ; name -- )  
create 0allot ;

\ create a counted string literal at
\ compile- or interpret-time
\ thanks, neal
: "  ( <ccc"> -- $ )
   state @ if
     postpone ahead
     [char] " word
     dup >r c@ char+ allot align
     postpone then r> postpone literal
   else [char] " word
   then ; immediate