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
|
