 ! 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 structs windows math.bitwise alias ;
+windows.errors windows math.bitwise alias ;
 IN: windows.winsock
 
 USE: libc


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


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

C-STRUCT: timeval
    { "long" "sec" }
    { "long" "usec" } ;

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

