 ! 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

! FUNCTION: BaseUpdateAppcompatCache
! FUNCTION: Beep
! FUNCTION: BeginUpdateResourceA
FUNCTION: HANDLE BeginUpdateResource ( LPCTSTR pFileName, BOOL bDeleteExistingResources ) ;
ALIAS: BeginUpdateResource BeginUpdateResourceW
! FUNCTION: BindIoCompletionCallback
! FUNCTION: BuildCommDCBA

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
