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
|
