[Win32forth-cvs] win32forth/src/lib file.f,1.5,1.6

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

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

Modified Files:
	file.f 
Log Message:
More documentation added.

Index: file.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/file.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** file.f	21 Aug 2005 06:22:01 -0000	1.5
--- file.f	31 Dec 2005 11:12:44 -0000	1.6
***************
*** 245,247 ****
--- 245,266 ----
  ;Class
  
+ \ ReadFile MyDumpFile
+ \
+ \ : DumpFile  ( addr len -- )
+ \
+ \         \ Load the file into memory
+ \         LoadFile: MyDumpFile
+ \         if   \ get the address and length of the file buffer
+ \              GetBuffer: MyDumpFile ( addr len )
+ \
+ \              \ do something with the file data
+ \              dump
+ \
+ \              \ don't forget to close the file
+ \              Close: MyDumpFile
+ \         else abort" Can't read file."
+ \         then ;
+ \
+ \ s" temp.f" DumpFile
+ 
  module