[Wisp-cvs] wisp/users/dig winapi.tran,1.9,1.10

[<di...@us...>]

Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv29999

Modified Files:
	winapi.tran 
Log Message:
wrapped ReadFile

Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- winapi.tran	21 May 2003 14:33:17 -0000	1.9
+++ winapi.tran	21 May 2003 14:39:00 -0000	1.10
@@ -6,6 +6,8 @@
 \
 \\\\ @(#) $Id$
 
+:[ ] NULL 0 ;
+
 :[ ] GetStdHandle \ ( handle-number -- handle )
     commit 'GetStdHandle@kernel32 $call %eax ;
 
@@ -79,5 +81,9 @@
                  \   creation-disposition flags-and-attrs template-handle
                  \   -- handle )
     7rev commit 'CreateFileW@kernel32 $call %eax ;
+
+:[ ] ReadFile \ ( handle buffer byte-count *read-byte-count *overlapped
+              ]   -- success? )
+    5rev commit 'ReadFile@kernel32 $call %eax ;
 
 \ vim: ft=tran