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
|
