Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv25600
Modified Files:
mswhello.tran
Added Files:
winapi.tran
Log Message:
extracted winapi.tran form mswhello.tran
--- NEW FILE: winapi.tran ---
\\\\ winapi.tran - WinAPI support
\
\ Copyleft © 2003 by Andres Soolo (di...@us...)
\ This file is licensed under the GNU GPL v2. If you
\ don't know what that means, please do read the GPL.
\
\\\\ @(#) $Id: winapi.tran,v 1.1 2003/05/16 20:49:22 digg Exp $
// :macro GetStdHandle \ (handle-number -- handle)
commit ref GetStdHandle@kernel32 $call %eax ;
// :macro WriteFile \ (file buffer count result* overlapped* -- result)
5rev commit ref WriteFile@kernel32 $call %eax ;
// :macro ExitProcess \ (code --)
commit ref ExitProcess@kernel32 $call ;
\ vim: ft=forth
Index: mswhello.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/mswhello.tran,v
retrieving revision 1.9
retrieving revision 1.10
diff -u -d -r1.9 -r1.10
--- mswhello.tran 16 May 2003 20:34:38 -0000 1.9
+++ mswhello.tran 16 May 2003 20:49:21 -0000 1.10
@@ -9,17 +9,9 @@
\ Don't forget to translate with -fpe
include ia32
+include winapi
lit :macro $call #xe8 b, 4 - $-t, ;
-
-// :macro GetStdHandle \ (handle-number -- handle)
- commit ref GetStdHandle@kernel32 $call %eax ;
-
-// :macro WriteFile \ (file buffer count result* overlapped* -- result)
- 5rev commit ref WriteFile@kernel32 $call %eax ;
-
-// :macro ExitProcess \ (code --)
- commit ref ExitProcess@kernel32 $call ;
\ main entry point
|
