windows.kernel32: add MAKEINTRESOURCE, standard resource types

db4
Joe Groff 2010-02-15 11:43:30 -08:00
parent c3e60fc9c3
commit f1d6082738
1 changed files with 26 additions and 2 deletions

View File

@ -1,7 +1,7 @@
! Copyright (C) 2005, 2006 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.syntax kernel windows.types
multiline classes.struct ;
math multiline classes.struct ;
IN: windows.kernel32
CONSTANT: MAX_PATH 260
@ -787,6 +787,30 @@ CONSTANT: STATUS_CONTROL_C_EXIT HEX: C000013A
CONSTANT: STATUS_FLOAT_MULTIPLE_FAULTS HEX: C00002B4
CONSTANT: STATUS_FLOAT_MULTIPLE_TRAPS HEX: C00002B5
! Resource IDs
: MAKEINTRESOURCE ( int -- resource ) HEX: ffff bitand <alien> ; inline
: RT_CURSOR ( -- id ) 1 MAKEINTRESOURCE ; inline
: RT_BITMAP ( -- id ) 2 MAKEINTRESOURCE ; inline
: RT_ICON ( -- id ) 3 MAKEINTRESOURCE ; inline
: RT_MENU ( -- id ) 4 MAKEINTRESOURCE ; inline
: RT_DIALOG ( -- id ) 5 MAKEINTRESOURCE ; inline
: RT_STRING ( -- id ) 6 MAKEINTRESOURCE ; inline
: RT_FONTDIR ( -- id ) 7 MAKEINTRESOURCE ; inline
: RT_FONT ( -- id ) 8 MAKEINTRESOURCE ; inline
: RT_ACCELERATOR ( -- id ) 9 MAKEINTRESOURCE ; inline
: RT_RCDATA ( -- id ) 10 MAKEINTRESOURCE ; inline
: RT_MESSAGETABLE ( -- id ) 11 MAKEINTRESOURCE ; inline
: RT_GROUP_CURSOR ( -- id ) 12 MAKEINTRESOURCE ; inline
: RT_GROUP_ICON ( -- id ) 14 MAKEINTRESOURCE ; inline
: RT_VERSION ( -- id ) 16 MAKEINTRESOURCE ; inline
: RT_DLGINCLUDE ( -- id ) 17 MAKEINTRESOURCE ; inline
: RT_PLUGPLAY ( -- id ) 19 MAKEINTRESOURCE ; inline
: RT_VXD ( -- id ) 20 MAKEINTRESOURCE ; inline
: RT_ANICURSOR ( -- id ) 21 MAKEINTRESOURCE ; inline
: RT_ANIICON ( -- id ) 22 MAKEINTRESOURCE ; inline
: RT_MANIFEST ( -- id ) 24 MAKEINTRESOURCE ; inline
LIBRARY: kernel32
! FUNCTION: _hread
! FUNCTION: _hwrite
@ -826,7 +850,7 @@ FUNCTION: BOOL AllocConsole ( ) ;
! FUNCTION: BaseUpdateAppcompatCache
! FUNCTION: Beep
! FUNCTION: BeginUpdateResourceA
FUNCTION: HANDLE BeginUpdateResource ( LPCTSTR pFileName, BOOL bDeleteExistingResources ) ;
FUNCTION: HANDLE BeginUpdateResourceW ( LPCTSTR pFileName, BOOL bDeleteExistingResources ) ;
ALIAS: BeginUpdateResource BeginUpdateResourceW
! FUNCTION: BindIoCompletionCallback
! FUNCTION: BuildCommDCBA