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
|
