steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fix windows compile errors

db4
Doug Coleman 2008-12-16 02:28:04 -06:00
parent b796529be4
commit e909f7b290
2 changed files with 22 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
basis/windows/user32/user32.factor
View File

@ -45,12 +45,12 @@ IN: windows.user32
: WS_POPUPWINDOW ( -- n ) : WS_POPUPWINDOW ( -- n )
{ WS_POPUP WS_BORDER WS_SYSMENU } flags ; foldable { WS_POPUP WS_BORDER WS_SYSMENU } flags ; foldable
: WS_CHILDWINDOW WS_CHILD ; inline ALIAS: WS_CHILDWINDOW WS_CHILD
: WS_TILED WS_OVERLAPPED ; inline ALIAS: WS_TILED WS_OVERLAPPED
: WS_ICONIC WS_MINIMIZE ; inline ALIAS: WS_ICONIC WS_MINIMIZE
: WS_SIZEBOX WS_THICKFRAME ; inline ALIAS: WS_SIZEBOX WS_THICKFRAME
: WS_TILEDWINDOW WS_OVERLAPPEDWINDOW ; inline ALIAS: WS_TILEDWINDOW WS_OVERLAPPEDWINDOW
! Extended window styles ! Extended window styles
@ -503,7 +503,7 @@ IN: windows.user32
: MB_ICONQUESTION HEX: 00000020 ; inline : MB_ICONQUESTION HEX: 00000020 ; inline
: MB_OK HEX: 00000000 ; inline : MB_OK HEX: 00000000 ; inline
: FVIRTKEY TRUE ; inline ALIAS: FVIRTKEY TRUE
: FNOINVERT 2 ; inline : FNOINVERT 2 ; inline
: FSHIFT 4 ; inline : FSHIFT 4 ; inline
: FCONTROL 8 ; inline : FCONTROL 8 ; inline
@ -670,7 +670,7 @@ FUNCTION: HWND CreateWindowExW (
ALIAS: CreateWindowEx 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 ! FUNCTION: CreateWindowStationA
@ -1265,7 +1265,7 @@ FUNCTION: BOOL SetForegroundWindow ( HWND hWnd ) ;
! FUNCTION: SetKeyboardState ! FUNCTION: SetKeyboardState
! type is ignored ! type is ignored
FUNCTION: void SetLastErrorEx ( DWORD dwErrCode, DWORD dwType ) ; FUNCTION: void SetLastErrorEx ( DWORD dwErrCode, DWORD dwType ) ;
: SetLastError 0 SetLastErrorEx ; inline : SetLastError ( errcode -- ) 0 SetLastErrorEx ; inline
! FUNCTION: SetLayeredWindowAttributes ! FUNCTION: SetLayeredWindowAttributes
! FUNCTION: SetLogonNotifyWindow ! FUNCTION: SetLogonNotifyWindow
! FUNCTION: SetMenu ! FUNCTION: SetMenu

27
basis/windows/winsock/winsock.factor
View File

@ -2,7 +2,8 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: alien alien.c-types alien.strings alien.syntax arrays USING: alien alien.c-types alien.strings alien.syntax arrays
byte-arrays kernel math sequences windows.types windows.kernel32 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 IN: windows.winsock
USE: libc USE: libc
@ -29,7 +30,7 @@ TYPEDEF: void* SOCKET
: SO_USELOOPBACK HEX: 40 ; inline : SO_USELOOPBACK HEX: 40 ; inline
: SO_LINGER HEX: 80 ; inline : SO_LINGER HEX: 80 ; inline
: SO_OOBINLINE HEX: 100 ; 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_SNDBUF HEX: 1001 ; inline
: SO_RCVBUF HEX: 1002 ; inline : SO_RCVBUF HEX: 1002 ; inline
@ -50,7 +51,7 @@ TYPEDEF: void* SOCKET
: AF_CHAOS 5 ; inline : AF_CHAOS 5 ; inline
: AF_NS 6 ; inline : AF_NS 6 ; inline
: AF_ISO 7 ; inline : AF_ISO 7 ; inline
: AF_OSI AF_ISO ; inline ALIAS: AF_OSI AF_ISO
: AF_ECMA 8 ; inline : AF_ECMA 8 ; inline
: AF_DATAKIT 9 ; inline : AF_DATAKIT 9 ; inline
: AF_CCITT 10 ; inline : AF_CCITT 10 ; inline
@ -83,19 +84,19 @@ TYPEDEF: void* SOCKET
: IPPROTO_UDP 17 ; inline : IPPROTO_UDP 17 ; inline
: IPPROTO_RM 113 ; inline : IPPROTO_RM 113 ; inline
: WSA_FLAG_OVERLAPPED 1 ; inline CONSTANT: WSA_FLAG_OVERLAPPED 1
: WSA_WAIT_EVENT_0 WAIT_OBJECT_0 ; inline ALIAS: WSA_WAIT_EVENT_0 WAIT_OBJECT_0
: WSA_MAXIMUM_WAIT_EVENTS MAXIMUM_WAIT_OBJECTS ; inline ALIAS: WSA_MAXIMUM_WAIT_EVENTS MAXIMUM_WAIT_OBJECTS
: WSA_INVALID_EVENT f ; inline CONSTANT: WSA_INVALID_EVENT f
: WSA_WAIT_FAILED -1 ; inline CONSTANT: WSA_WAIT_FAILED -1
: WSA_WAIT_IO_COMPLETION WAIT_IO_COMPLETION ; inline ALIAS: WSA_WAIT_IO_COMPLETION WAIT_IO_COMPLETION
: WSA_WAIT_TIMEOUT WAIT_TIMEOUT ; inline ALIAS: WSA_WAIT_TIMEOUT WAIT_TIMEOUT
: WSA_INFINITE INFINITE ; inline ALIAS: WSA_INFINITE INFINITE
: WSA_IO_PENDING ERROR_IO_PENDING ; inline ALIAS: WSA_IO_PENDING ERROR_IO_PENDING
: INADDR_ANY 0 ; inline : INADDR_ANY 0 ; inline
: INVALID_SOCKET -1 <alien> ; inline : INVALID_SOCKET ( -- alien ) -1 <alien> ; inline
: SOCKET_ERROR -1 ; inline : SOCKET_ERROR -1 ; inline
: SD_RECV 0 ; inline : SD_RECV 0 ; inline