68 lines
1.9 KiB
Factor
68 lines
1.9 KiB
Factor
! Copyright (C) 2006 Mackenzie Straight, Doug Coleman.
|
|
|
|
IN: win32-api
|
|
USING: alien arrays kernel ;
|
|
|
|
: <wsadata> ( -- byte-array )
|
|
HEX: 190 <byte-array> ;
|
|
|
|
: AF_INET 2 ; inline
|
|
: SOCK_STREAM 1 ; inline
|
|
: WSA_FLAG_OVERLAPPED 1 ; inline
|
|
: INADDR_ANY 0 ; inline
|
|
: INVALID_SOCKET -1 ; inline
|
|
|
|
BEGIN-STRUCT: sockaddr-in
|
|
FIELD: short family
|
|
FIELD: short port
|
|
FIELD: int addr
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
FIELD: char pad
|
|
END-STRUCT
|
|
|
|
BEGIN-STRUCT: hostent
|
|
FIELD: char* name
|
|
FIELD: void* aliases
|
|
FIELD: short addrtype
|
|
FIELD: short length
|
|
FIELD: void* addr-list
|
|
END-STRUCT
|
|
|
|
: hostent-addr hostent-addr-list *void* *uint ;
|
|
|
|
LIBRARY: winsock
|
|
|
|
FUNCTION: int WSAStartup ( short version, void* out-data ) ;
|
|
FUNCTION: void* WSASocketA ( int af,
|
|
int type,
|
|
int protocol,
|
|
void* protocol-info,
|
|
void* g,
|
|
int flags ) ;
|
|
: WSASocket WSASocketA ;
|
|
|
|
FUNCTION: ushort htons ( ushort n ) ;
|
|
FUNCTION: ushort ntohs ( ushort n ) ;
|
|
IN: win32-api-internals
|
|
FUNCTION: int bind ( void* socket, sockaddr-in* sockaddr, int len ) ;
|
|
FUNCTION: int listen ( void* socket, int backlog ) ;
|
|
FUNCTION: char* inet_ntoa ( int in-addr ) ;
|
|
IN: win32-api
|
|
: wsa-bind bind ;
|
|
: wsa-listen listen ;
|
|
: inet-ntoa inet_ntoa ;
|
|
FUNCTION: int WSAGetLastError ( ) ;
|
|
FUNCTION: hostent* gethostbyname ( char* name ) ;
|
|
FUNCTION: int connect ( void* socket, sockaddr-in* sockaddr, int addrlen ) ;
|
|
|
|
LIBRARY: mswsock
|
|
|
|
FUNCTION: bool AcceptEx ( void* listen, void* accept, void* out-buf, int recv-len, int addr-len, int remote-len, void* out-len, void* overlapped ) ;
|
|
FUNCTION: void GetAcceptExSockaddrs ( void* a, int b, int c, int d, void* e, void* f, void* g, void* h ) ;
|