[Win32forth-cvs] win32forth/src/lib file.f,1.3,1.4

[Dirk B. <db...@us...>]

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

Modified Files:
	file.f 
Log Message:
SciEdit append a null byte to any file that was saved to disk. Thank's Ezra for reporting this bug.

Index: file.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/file.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** file.f	3 May 2005 12:21:10 -0000	1.3
--- file.f	19 Aug 2005 16:05:47 -0000	1.4
***************
*** 199,202 ****
--- 199,216 ----
                  then ;M
  
+ :M GetLength:   ( -- len ) \ get the length of the file-buffer
+                 FileBuffer ?dup
+                 if   @
+                 else 0
+                 then ;M
+ 
+ :M SetLength:   ( len -- ) \ set the length of the file-buffer
+                            \ NOTE: You can set the length with this method behind the
+                            \ allocated memory of the file-buffer! So take care.
+                 FileBuffer ?dup
+                 if   !
+                 else drop
+                 then ;M
+ 
  :M SetBuffer:   ( addr len -- )    \ set the address and len of the file-buffer
                  ReleaseBuffer: self