 
 : init-winsock ( -- )
     HEX: 0202 <wsadata> WSAStartup winsock-return-check ;
-

    { "char*" "canonname" }
    { "sockaddr*" "addr" }
    { "addrinfo*" "next" } ;

: hostent-addr ( hostent -- addr ) hostent-addr-list *void* ; ! *uint ;


! Copyright (C) 2006 Mackenzie Straight, Doug Coleman.
! 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 ;
IN: windows.winsock

USE: libc
