fix windows compile errors
parent
b796529be4
commit
e909f7b290
|
@ -45,12 +45,12 @@ IN: windows.user32
|
|||
: WS_POPUPWINDOW ( -- n )
|
||||
{ WS_POPUP WS_BORDER WS_SYSMENU } flags ; foldable
|
||||
|
||||
: WS_CHILDWINDOW WS_CHILD ; inline
|
||||
ALIAS: WS_CHILDWINDOW WS_CHILD
|
||||
|
||||
: WS_TILED WS_OVERLAPPED ; inline
|
||||
: WS_ICONIC WS_MINIMIZE ; inline
|
||||
: WS_SIZEBOX WS_THICKFRAME ; inline
|
||||
: WS_TILEDWINDOW WS_OVERLAPPEDWINDOW ; inline
|
||||
ALIAS: WS_TILED WS_OVERLAPPED
|
||||
ALIAS: WS_ICONIC WS_MINIMIZE
|
||||
ALIAS: WS_SIZEBOX WS_THICKFRAME
|
||||
ALIAS: WS_TILEDWINDOW WS_OVERLAPPEDWINDOW
|
||||
|
||||
! Extended window styles
|
||||
|
||||
|
@ -503,7 +503,7 @@ IN: windows.user32
|
|||
: MB_ICONQUESTION HEX: 00000020 ; inline
|
||||
: MB_OK HEX: 00000000 ; inline
|
||||
|
||||
: FVIRTKEY TRUE ; inline
|
||||
ALIAS: FVIRTKEY TRUE
|
||||
: FNOINVERT 2 ; inline
|
||||
: FSHIFT 4 ; inline
|
||||
: FCONTROL 8 ; inline
|
||||
|
@ -670,7 +670,7 @@ FUNCTION: HWND CreateWindowExW (
|
|||
|
||||
ALIAS: CreateWindowEx CreateWindowExW
|
||||
|
||||
: CreateWindow 0 12 -nrot CreateWindowEx ; inline
|
||||
: CreateWindow ( a b c d e f g h i j k -- hwnd ) 0 12 -nrot CreateWindowEx ; inline
|
||||
|
||||
|
||||
! FUNCTION: CreateWindowStationA
|
||||
|
@ -1265,7 +1265,7 @@ FUNCTION: BOOL SetForegroundWindow ( HWND hWnd ) ;
|
|||
! FUNCTION: SetKeyboardState
|
||||
! type is ignored
|
||||
FUNCTION: void SetLastErrorEx ( DWORD dwErrCode, DWORD dwType ) ;
|
||||
: SetLastError 0 SetLastErrorEx ; inline
|
||||
: SetLastError ( errcode -- ) 0 SetLastErrorEx ; inline
|
||||
! FUNCTION: SetLayeredWindowAttributes
|
||||
! FUNCTION: SetLogonNotifyWindow
|
||||
! FUNCTION: SetMenu
|
||||
|
|
|
@ -2,7 +2,8 @@
|
|||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: alien alien.c-types alien.strings alien.syntax arrays
|
||||
byte-arrays kernel math sequences windows.types windows.kernel32
|
||||
windows.errors windows math.bitwise alias io.encodings.utf16n ;
|
||||
windows.errors windows math.bitwise alias io.encodings.utf16n
|
||||
alias ;
|
||||
IN: windows.winsock
|
||||
|
||||
USE: libc
|
||||
|
@ -29,7 +30,7 @@ TYPEDEF: void* SOCKET
|
|||
: SO_USELOOPBACK HEX: 40 ; inline
|
||||
: SO_LINGER HEX: 80 ; inline
|
||||
: SO_OOBINLINE HEX: 100 ; inline
|
||||
: SO_DONTLINGER SO_LINGER bitnot ; inline
|
||||
: SO_DONTLINGER ( -- n ) SO_LINGER bitnot ; inline
|
||||
|
||||
: SO_SNDBUF HEX: 1001 ; inline
|
||||
: SO_RCVBUF HEX: 1002 ; inline
|
||||
|
@ -50,7 +51,7 @@ TYPEDEF: void* SOCKET
|
|||
: AF_CHAOS 5 ; inline
|
||||
: AF_NS 6 ; inline
|
||||
: AF_ISO 7 ; inline
|
||||
: AF_OSI AF_ISO ; inline
|
||||
ALIAS: AF_OSI AF_ISO
|
||||
: AF_ECMA 8 ; inline
|
||||
: AF_DATAKIT 9 ; inline
|
||||
: AF_CCITT 10 ; inline
|
||||
|
@ -83,19 +84,19 @@ TYPEDEF: void* SOCKET
|
|||
: IPPROTO_UDP 17 ; inline
|
||||
: IPPROTO_RM 113 ; inline
|
||||
|
||||
: WSA_FLAG_OVERLAPPED 1 ; inline
|
||||
: WSA_WAIT_EVENT_0 WAIT_OBJECT_0 ; inline
|
||||
: WSA_MAXIMUM_WAIT_EVENTS MAXIMUM_WAIT_OBJECTS ; inline
|
||||
: WSA_INVALID_EVENT f ; inline
|
||||
: WSA_WAIT_FAILED -1 ; inline
|
||||
: WSA_WAIT_IO_COMPLETION WAIT_IO_COMPLETION ; inline
|
||||
: WSA_WAIT_TIMEOUT WAIT_TIMEOUT ; inline
|
||||
: WSA_INFINITE INFINITE ; inline
|
||||
: WSA_IO_PENDING ERROR_IO_PENDING ; inline
|
||||
CONSTANT: WSA_FLAG_OVERLAPPED 1
|
||||
ALIAS: WSA_WAIT_EVENT_0 WAIT_OBJECT_0
|
||||
ALIAS: WSA_MAXIMUM_WAIT_EVENTS MAXIMUM_WAIT_OBJECTS
|
||||
CONSTANT: WSA_INVALID_EVENT f
|
||||
CONSTANT: WSA_WAIT_FAILED -1
|
||||
ALIAS: WSA_WAIT_IO_COMPLETION WAIT_IO_COMPLETION
|
||||
ALIAS: WSA_WAIT_TIMEOUT WAIT_TIMEOUT
|
||||
ALIAS: WSA_INFINITE INFINITE
|
||||
ALIAS: WSA_IO_PENDING ERROR_IO_PENDING
|
||||
|
||||
: INADDR_ANY 0 ; inline
|
||||
|
||||
: INVALID_SOCKET -1 <alien> ; inline
|
||||
: INVALID_SOCKET ( -- alien ) -1 <alien> ; inline
|
||||
: SOCKET_ERROR -1 ; inline
|
||||
|
||||
: SD_RECV 0 ; inline
|
||||
|
|
Loading…
Reference in New Issue