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

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

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