[Win32forth-cvs] win32forth-stc/src primutil.f,1.18,1.19

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv21690/win32forth-stc/src

Modified Files:
	primutil.f 
Log Message:
gah:Structure packages added.

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** primutil.f	7 Nov 2006 11:04:50 -0000	1.18
--- primutil.f	13 Nov 2006 13:01:37 -0000	1.19
***************
*** 300,303 ****
--- 300,313 ----
  
  \ ------------------------------------------------------------------------
+ \       Often used
+ \ ------------------------------------------------------------------------
+ 
+ : STRING:                 \ Allocates strings
+   CREATE MAXSTRING ALLOT  \ Compiletime: ( -< name >- ) Runtime: ( - addr$ )
+  ;
+ 
+ : ERASE$ ( addr - )   MAXSTRING ERASE ;
+ 
+ \ ------------------------------------------------------------------------
  \       Some case insensitive version of search and compare
  \ ------------------------------------------------------------------------