From f1d60827389004d4ce60e5d8dbc600dd7f977e96 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Mon, 15 Feb 2010 11:43:30 -0800 Subject: [PATCH] windows.kernel32: add MAKEINTRESOURCE, standard resource types --- basis/windows/kernel32/kernel32.factor | 28 ++++++++++++++++++++++++-- 1 file changed, 26 insertions(+), 2 deletions(-) diff --git a/basis/windows/kernel32/kernel32.factor b/basis/windows/kernel32/kernel32.factor index 1e9a387646..576fac3a06 100644 --- a/basis/windows/kernel32/kernel32.factor +++ b/basis/windows/kernel32/kernel32.factor @@ -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 ; 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 -- 2.34.1