 
 PRIVATE>
 
-
 : interfaces-each ( quot -- seq )
     [ [ iterate-interfaces ] dip each ] with-destructors ; inline
 

            [ FirstUnicastAddress>> loop-list [ Address>> SOCKET_ADDRESS>sockaddr sockaddr>ip ] map ]
        } cleave>array
    ] interfaces-map ;

USING: accessors alien alien.c-types alien.data alien.strings
alien.syntax arrays byte-arrays classes.struct combinators
combinators.smart destructors io.encodings.string
io.encodings.utf8 io.sockets io.sockets.private kernel libc
make refs sequences sequences.extras windows.errors
windows.kernel32 windows.types windows.winsock fry ;
IN: windows.iphlpapi

LIBRARY: iphlpapi
