[Win32forth-cvs] win32forth/src Primutil.f,1.10,1.11

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19483/src

Modified Files:
	Primutil.f 
Log Message:
Jos: Added string: and erase$. They are often used in various sources. Now they can be easier used.

Index: Primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Primutil.f	29 Aug 2005 15:56:27 -0000	1.10
--- Primutil.f	12 Oct 2005 15:52:29 -0000	1.11
***************
*** 97,102 ****
  MAXSTRING newuser z-buf
  
! : asciiz	( addr len -- buff-z )
! 		z-buf ascii-z ;
  
  : +z,"          ( -<text">- )
--- 97,102 ----
  MAXSTRING newuser z-buf
  
! : asciiz        ( addr len -- buff-z )
!                 z-buf ascii-z ;
  
  : +z,"          ( -<text">- )
***************
*** 524,528 ****
                          LCOUNT BASE ! EXECUTE   \ run headerless definition
                          R> BASE ! ;
!                         
  in-application
  
--- 524,528 ----
                          LCOUNT BASE ! EXECUTE   \ run headerless definition
                          R> BASE ! ;
! 
  in-application
  
***************
*** 688,704 ****
  : NT?           ( -- fl )       \ Retained for compatability -- deprecated
                  WinVer 4 >= ;   \ NT3.51 or above
! 		DEPRECATED
  
  : Win95?        ( -- f1 )       \ Retained for compatability -- deprecated
                  winver 1 = ;
! 		DEPRECATED
  
  : Win98?        ( -- f1 )       \ Retained for compatability -- deprecated
                  winver 2 3 between ;
! 		DEPRECATED
  
  : Win32s?       ( -- f1 )       \ Retained for compatability -- deprecated
                  false ;         \ no longer supported
! 		DEPRECATED
  
  \ -------------------- Load Standard Libraries --------------------
--- 688,704 ----
  : NT?           ( -- fl )       \ Retained for compatability -- deprecated
                  WinVer 4 >= ;   \ NT3.51 or above
!                 DEPRECATED
  
  : Win95?        ( -- f1 )       \ Retained for compatability -- deprecated
                  winver 1 = ;
!                 DEPRECATED
  
  : Win98?        ( -- f1 )       \ Retained for compatability -- deprecated
                  winver 2 3 between ;
!                 DEPRECATED
  
  : Win32s?       ( -- f1 )       \ Retained for compatability -- deprecated
                  false ;         \ no longer supported
!                 DEPRECATED
  
  \ -------------------- Load Standard Libraries --------------------
***************
*** 741,744 ****
--- 741,757 ----
  in-application
  
+ 
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ \       Often used
+ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
+ 
+ : STRING:                 \ Allocates strings
+   CREATE MAXSTRING ALLOT  \ Compiletime: ( -< name >- )
+   DOES>                   \ Runtime: ( - addr$ )
+  ;
+ 
+ : ERASE$ ( adr - )   MAXSTRING ERASE ;
+ 
+ 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \       LONG counted string support
***************
*** 778,781 ****
--- 791,795 ----
          LCOUNT + 0 SWAP C! ;
  
+ 
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  \       Some case insensitive version of search and compare
***************
*** 860,862 ****
  defer (dialogunlock)  ' noop is (dialogunlock)
  
! 
--- 874,876 ----
  defer (dialogunlock)  ' noop is (dialogunlock)
  
! \s