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
\ ------------------------------------------------------------------------
|
