closesocket(s->s);
p_closesocket(s->s);
static void sk_tcp_close(Socket sock){    extern char *do_select(SOCKET skt, int startup);    Actual_Socket s = (Actual_Socket) sock;    del234(sktree, s);    do_select(s->s, 0);    closesocket(s->s);    sfree(s);}