Update of /cvsroot/wisp/wisp/users/dig
In directory sc8-pr-cvs1:/tmp/cvs-serv2668
Modified Files:
winapi.tran
Log Message:
reformatted winapi.tran
Index: winapi.tran
===================================================================
RCS file: /cvsroot/wisp/wisp/users/dig/winapi.tran,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -d -r1.10 -r1.11
--- winapi.tran 21 May 2003 14:39:00 -0000 1.10
+++ winapi.tran 22 May 2003 08:33:10 -0000 1.11
@@ -6,7 +6,7 @@
\
\\\\ @(#) $Id$
-:[ ] NULL 0 ;
+0 constant NULL
:[ ] GetStdHandle \ ( handle-number -- handle )
commit 'GetStdHandle@kernel32 $call %eax ;
@@ -33,44 +33,44 @@
commit 'FreeConsole@kernel32 $call %eax ;
\ flags for the share-mode argument of CreateFile*
-:[ ] FILE_SHARE_READ 1 ;
-:[ ] FILE_SHARE_WRITE 2 ;
-:[ ] FILE_SHARE_DELETE 4 ; \ Not supported in MSW ME/98/95
+1 constant FILE_SHARE_READ
+2 constant FILE_SHARE_WRITE
+4 constant FILE_SHARE_DELETE \ Not supported in MSW ME/98/95
\ values for the creation-disposition argument of CreateFile*
-:[ ] CREATE_NEW 1 ;
-:[ ] CREATE_ALWAYS 2 ;
-:[ ] OPEN_EXISTING 3 ;
-:[ ] OPEN_ALWAYS 4 ;
-:[ ] TRUNCATE_EXISTING 5 ;
+1 constant CREATE_NEW
+2 constant CREATE_ALWAYS
+3 constant OPEN_EXISTING
+4 constant OPEN_ALWAYS
+5 constant TRUNCATE_EXISTING
\ attributes for the flags-and-attrs argument of CreateFile*
-:[ ] FILE_ATTRIBUTE_READONLY 1 ;
-:[ ] FILE_ATTRIBUTE_HIDDEN 2 ;
-:[ ] FILE_ATTRIBUTE_SYSTEM 4 ;
-:[ ] FILE_ATTRIBUTE_ARCHIVE 32 ;
-:[ ] FILE_ATTRIBUTE_NORMAL 128 ; \ valid only if used alone
-:[ ] FILE_ATTRIBUTE_TEMPORARY 256 ;
-:[ ] FILE_ATTRIBUTE_OFFLINE 4096 ;
+1 constant FILE_ATTRIBUTE_READONLY
+2 constant FILE_ATTRIBUTE_HIDDEN
+4 constant FILE_ATTRIBUTE_SYSTEM
+32 constant FILE_ATTRIBUTE_ARCHIVE
+128 constant FILE_ATTRIBUTE_NORMAL \ valid only if used alone
+256 constant FILE_ATTRIBUTE_TEMPORARY
+4096 constant FILE_ATTRIBUTE_OFFLINE
\ flags for the flags-and-attrs argument of CreateFile*
-:[ ] FILE_FLAG_BACKUP_SEMANTICS 33554432 ;
-:[ ] FILE_FLAG_DELETE_ON_CLOSE 67108864 ;
-:[ ] FILE_FLAG_NO_BUFFERING 536870912 ;
-:[ ] FILE_FLAG_OVERLAPPED 1073741824 ;
-:[ ] FILE_FLAG_POSIX_SEMANTICS 16777216 ;
-:[ ] FILE_FLAG_RANDOM_ACCESS 268435456 ; \ optimization hint
-:[ ] FILE_FLAG_SEQUENTIAL_SCAN 134217728 ; \ optimization hint
-:[ ] FILE_FLAG_WRITE_THROUGH 0x80000000 ;
+16777216 constant FILE_FLAG_POSIX_SEMANTICS
+33554432 constant FILE_FLAG_BACKUP_SEMANTICS
+67108864 constant FILE_FLAG_DELETE_ON_CLOSE
+134217728 constant FILE_FLAG_SEQUENTIAL_SCAN \ optimization hint
+268435456 constant FILE_FLAG_RANDOM_ACCESS \ optimization hint
+536870912 constant FILE_FLAG_NO_BUFFERING
+1073741824 constant FILE_FLAG_OVERLAPPED
+#x80000000 constant FILE_FLAG_WRITE_THROUGH
\ yet more bits for the flags-and-attrs argument of CreateFile*
-:[ ] SECURITY_SQOS_PRESENT 1048576 ;
-:[ ] SECURITY_ANONYMOUS 0 ;
-:[ ] SECURITY_CONTEXT_TRACKING 262144 ;
-:[ ] SECURITY_DELEGATION 196608 ;
-:[ ] SECURITY_EFFECTIVE_ONLY 524288 ;
-:[ ] SECURITY_IDENTIFICATION 65536 ;
-:[ ] SECURITY_IMPERSONATION 131072 ;
+0 constant SECURITY_ANONYMOUS
+65536 constant SECURITY_IDENTIFICATION
+131072 constant SECURITY_IMPERSONATION
+196608 constant SECURITY_DELEGATION
+262144 constant SECURITY_CONTEXT_TRACKING
+524288 constant SECURITY_EFFECTIVE_ONLY
+1048576 constant SECURITY_SQOS_PRESENT
:[ ] CreateFileA \ ( filename desired-access share-mode security-attr
\ creation-disposition flags-and-attrs template-handle
|
