lib/silcutil/win32/silcwin32net.c

   1 /*
   2
   3   silcwin32net.c
   4
   5   Author: Pekka Riikonen <priikone@silcnet.org>
   6
   7   Copyright (C) 1997 - 2007 Pekka Riikonen
   8
   9   This program is free software; you can redistribute it and/or modify
  10   it under the terms of the GNU General Public License as published by
  11   the Free Software Foundation; version 2 of the License.
  12
  13   This program is distributed in the hope that it will be useful,
  14   but WITHOUT ANY WARRANTY; without even the implied warranty of
  15   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16   GNU General Public License for more details.
  17
  18 */
  19 /* $Id$ */
  20
  21 #include "silc.h"
  22
  23 /************************** Types and definitions ***************************/
  24
  25 #ifdef HAVE_IPV6
  26 #define SIZEOF_SOCKADDR(so) ((so).sa.sa_family == AF_INET6 ?    \
  27   sizeof(so.sin6) : sizeof(so.sin))
  28 #else
  29 #define SIZEOF_SOCKADDR(so) (sizeof(so.sin))
  30 #endif
  31
  32 typedef union {
  33   struct sockaddr sa;
  34   struct sockaddr_in sin;
  35 #ifdef HAVE_IPV6
  36   struct sockaddr_in6 sin6;
  37 #endif
  38 } SilcSockaddr;
  39
  40
  41 /************************ Static utility functions **************************/
  42
  43 static SilcBool silc_net_set_sockaddr(SilcSockaddr *addr, const char *ip_addr,
  44                                       int port)
  45 {
  46   int len;
  47
  48   memset(addr, 0, sizeof(*addr));
  49
  50   /* Check for IPv4 and IPv6 addresses */
  51   if (ip_addr) {
  52     if (!silc_net_is_ip(ip_addr)) {
  53       SILC_LOG_ERROR(("%s is not IP address", ip_addr));
  54       return FALSE;
  55     }
  56
  57     if (silc_net_is_ip4(ip_addr)) {
  58       /* IPv4 address */
  59       len = sizeof(addr->sin.sin_addr);
  60       if (!silc_net_addr2bin(ip_addr,
  61                              (unsigned char *)&addr->sin.sin_addr.s_addr,
  62                              len))
  63         return FALSE;
  64       addr->sin.sin_family = AF_INET;
  65       addr->sin.sin_port = port ? htons(port) : 0;
  66     } else {
  67 #ifdef HAVE_IPV6
  68       /* IPv6 address */
  69       len = sizeof(addr->sin6.sin6_addr);
  70       if (!silc_net_addr2bin(ip_addr,
  71                              (unsigned char *)&addr->sin6.sin6_addr, len))
  72         return FALSE;
  73       addr->sin6.sin6_family = AF_INET6;
  74       addr->sin6.sin6_port = port ? htons(port) : 0;
  75 #else
  76       SILC_LOG_ERROR(("Operating System does not support IPv6"));
  77       return FALSE;
  78 #endif
  79     }
  80   } else {
  81     /* Any address */
  82     addr->sin.sin_family = AF_INET;
  83     addr->sin.sin_addr.s_addr = INADDR_ANY;
  84     if (port)
  85       addr->sin.sin_port = htons(port);
  86   }
  87
  88   return TRUE;
  89 }
  90
  91
  92 /****************************** TCP Listener ********************************/
  93
  94 /* Deliver new stream to upper layer */
  95
  96 static void silc_net_accept_stream(SilcSocketStreamStatus status,
  97                                    SilcStream stream, void *context)
  98 {
  99   SilcNetListener listener = context;
 100
 101   if (status != SILC_SOCKET_OK)
 102     return;
 103
 104   listener->callback(SILC_NET_OK, stream, listener->context);
 105 }
 106
 107 /* Accept incoming connection and notify upper layer */
 108
 109 SILC_TASK_CALLBACK(silc_net_accept)
 110 {
 111   SilcNetListener listener = context;
 112   int sock;
 113
 114   SILC_LOG_DEBUG(("Accepting new connection"));
 115
 116   sock = silc_net_accept_connection(fd);
 117   if (sock == INVALID_SOCKET)
 118     return;
 119
 120   /* Set socket options */
 121   silc_net_set_socket_opt(sock, SOL_SOCKET, SO_REUSEADDR, 1);
 122
 123   /* Create socket stream */
 124   silc_socket_tcp_stream_create(sock, listener->lookup,
 125                                 listener->require_fqdn, schedule,
 126                                 silc_net_accept_stream, listener);
 127 }
 128
 129 /* Create TCP network listener */
 130
 131 SilcNetListener
 132 silc_net_tcp_create_listener(const char **local_ip_addr,
 133                              SilcUInt32 local_ip_count, int port,
 134                              SilcBool lookup, SilcBool require_fqdn,
 135                              SilcSchedule schedule,
 136                              SilcNetCallback callback, void *context)
 137 {
 138   SilcNetListener listener = NULL;
 139   SOCKET sock;
 140   SilcSockaddr server;
 141   int i, rval;
 142   const char *ipany = "0.0.0.0";
 143
 144   SILC_LOG_DEBUG(("Creating TCP listener"));
 145
 146   if (port < 0 || !schedule || !callback)
 147     goto err;
 148
 149   listener = silc_calloc(1, sizeof(*listener));
 150   if (!listener)
 151     return NULL;
 152   listener->schedule = schedule;
 153   listener->callback = callback;
 154   listener->context = context;
 155   listener->require_fqdn = require_fqdn;
 156   listener->lookup = lookup;
 157
 158   if (local_ip_count > 0) {
 159     listener->socks = silc_calloc(local_ip_count, sizeof(*listener->socks));
 160     if (!listener->socks)
 161       return NULL;
 162   } else {
 163     listener->socks = silc_calloc(1, sizeof(*listener->socks));
 164     if (!listener->socks)
 165       return NULL;
 166
 167     local_ip_count = 1;
 168   }
 169
 170   /* Bind to local addresses */
 171   for (i = 0; i < local_ip_count; i++) {
 172     SILC_LOG_DEBUG(("Binding to local address %s",
 173                     local_ip_addr ? local_ip_addr[i] : ipany));
 174
 175     /* Set sockaddr for server */
 176     if (!silc_net_set_sockaddr(&server,
 177                                local_ip_addr ? local_ip_addr[i] : ipany,
 178                                port))
 179       goto err;
 180
 181     /* Create the socket */
 182     sock = socket(server.sin.sin_family, SOCK_STREAM, 0);
 183     if (sock == INVALID_SOCKET) {
 184       SILC_LOG_ERROR(("Cannot create socket, error %d", WSAGetLastError()));
 185       goto err;
 186     }
 187
 188     /* Set the socket options */
 189     rval = silc_net_set_socket_opt(sock, SOL_SOCKET, SO_REUSEADDR, 1);
 190     if (rval == SOCKET_ERROR) {
 191       SILC_LOG_ERROR(("Cannot set socket options, error %d",
 192                      WSAGetLastError()));
 193       closesocket(sock);
 194       goto err;
 195     }
 196
 197     /* Bind the listener socket */
 198     rval = bind(sock, &server.sa, SIZEOF_SOCKADDR(server));
 199     if (rval == SOCKET_ERROR) {
 200       SILC_LOG_ERROR(("Cannot bind socket, error %d", WSAGetLastError()));
 201       closesocket(sock);
 202       goto err;
 203     }
 204
 205     /* Specify that we are listenning */
 206     rval = listen(sock, SOMAXCONN);
 207     if (rval == SOCKET_ERROR) {
 208       SILC_LOG_ERROR(("Cannot set socket listenning, error %d",
 209                      WSAGetLastError()));
 210       closesocket(sock);
 211       goto err;
 212     }
 213
 214     /* Schedule for incoming connections */
 215     silc_schedule_task_add_fd(schedule, sock, silc_net_accept, listener);
 216
 217     SILC_LOG_DEBUG(("TCP listener created, fd=%d", sock));
 218     listener->socks[i] = sock;
 219     listener->socks_count++;
 220   }
 221
 222   return listener;
 223
 224  err:
 225   if (listener)
 226     silc_net_close_listener(listener);
 227   return NULL;
 228 }
 229
 230 /* Close network listener */
 231
 232 void silc_net_close_listener(SilcNetListener listener)
 233 {
 234   int i;
 235
 236   SILC_LOG_DEBUG(("Closing network listener"));
 237
 238   if (!listener)
 239     return;
 240
 241   for (i = 0; i < listener->socks_count; i++) {
 242     silc_schedule_task_del_by_fd(listener->schedule, listener->socks[i]);
 243     shutdown(listener->socks[i], 2);
 244     closesocket(listener->socks[i]);
 245   }
 246
 247   silc_free(listener->socks);
 248   silc_free(listener);
 249 }
 250
 251 /******************************* UDP Stream *********************************/
 252
 253 /* Create UDP stream */
 254
 255 SilcStream
 256 silc_net_udp_connect(const char *local_ip_addr, int local_port,
 257                      const char *remote_ip_addr, int remote_port,
 258                      SilcSchedule schedule)
 259 {
 260   SilcStream stream;
 261   SilcSockaddr server;
 262   SOCKET sock;
 263   int rval;
 264   const char *ipany = "0.0.0.0";
 265
 266   SILC_LOG_DEBUG(("Creating UDP stream"));
 267
 268   if (!schedule)
 269     goto err;
 270
 271   /* Bind to local addresses */
 272   SILC_LOG_DEBUG(("Binding to local address %s",
 273                   local_ip_addr ? local_ip_addr : ipany));
 274
 275   /* Set sockaddr for server */
 276   if (!silc_net_set_sockaddr(&server, local_ip_addr ? local_ip_addr : ipany,
 277                              local_port))
 278     goto err;
 279
 280   /* Create the socket */
 281   sock = socket(server.sin.sin_family, SOCK_DGRAM, 0);
 282   if (sock == INVALID_SOCKET) {
 283     SILC_LOG_ERROR(("Cannot create socket"));
 284     goto err;
 285   }
 286
 287   /* Set the socket options */
 288   rval = silc_net_set_socket_opt(sock, SOL_SOCKET, SO_REUSEADDR, 1);
 289   if (rval == SOCKET_ERROR) {
 290     SILC_LOG_ERROR(("Cannot set socket options"));
 291     goto err;
 292   }
 293 #ifdef SO_REUSEPORT
 294   rval = silc_net_set_socket_opt(sock, SOL_SOCKET, SO_REUSEPORT, 1);
 295   if (rval == SOCKET_ERROR) {
 296     SILC_LOG_ERROR(("Cannot set socket options"));
 297     goto err;
 298   }
 299 #endif /* SO_REUSEPORT */
 300
 301   /* Bind the listener socket */
 302   rval = bind(sock, &server.sa, SIZEOF_SOCKADDR(server));
 303   if (rval == SOCKET_ERROR) {
 304     SILC_LOG_DEBUG(("Cannot bind socket"));
 305     goto err;
 306   }
 307
 308   /* Set to connected state if remote address is provided. */
 309   if (remote_ip_addr && remote_port) {
 310     if (!silc_net_set_sockaddr(&server, remote_ip_addr, remote_port))
 311       goto err;
 312
 313     rval = connect(sock, &server.sa, SIZEOF_SOCKADDR(server));
 314     if (rval == SOCKET_ERROR) {
 315       SILC_LOG_DEBUG(("Cannot connect UDP stream"));
 316       goto err;
 317     }
 318   }
 319
 320   /* Encapsulate into socket stream */
 321   stream =
 322     silc_socket_udp_stream_create(sock, local_ip_addr ?
 323                                   silc_net_is_ip6(local_ip_addr) : FALSE,
 324                                   remote_ip_addr ? TRUE : FALSE, schedule);
 325   if (!stream)
 326     goto err;
 327
 328   SILC_LOG_DEBUG(("UDP stream created, fd=%d", sock));
 329   return stream;
 330
 331  err:
 332   if (sock != -1)
 333     close(sock);
 334   return NULL;
 335 }
 336
 337 /* Receive UDP packet */
 338
 339 int silc_net_udp_receive(SilcStream stream, char *remote_ip_addr,
 340                          SilcUInt32 remote_ip_addr_size, int *remote_port,
 341                          unsigned char *ret_data, SilcUInt32 data_size)
 342 {
 343   SilcSocketStream sock = stream;
 344   SilcSockaddr s;
 345   struct sockaddr *from;
 346   int len, flen, err;
 347
 348   SILC_LOG_DEBUG(("Reading data from UDP socket %d", sock->sock));
 349
 350   if (remote_ip_addr && remote_port) {
 351     if (sock->ipv6) {
 352 #ifdef HAVE_IPV6
 353       from = (struct sockaddr *)&s.sin6;
 354       flen = sizeof(s.sin6);
 355 #endif /* HAVE_IPV6 */
 356     } else {
 357       from = (struct sockaddr *)&s.sin;
 358       flen = sizeof(s.sin);
 359     }
 360     len = recvfrom(sock->sock, ret_data, data_size, 0, from, &flen);
 361   } else
 362     len = recv(sock->sock, ret_data, data_size, 0);
 363
 364   if (len == SOCKET_ERROR) {
 365     err = WSAGetLastError();
 366     if (err == WSAEWOULDBLOCK) {
 367       SILC_LOG_DEBUG(("Could not read immediately, will do it later"));
 368       silc_schedule_set_listen_fd(sock->schedule, sock->sock,
 369                                   SILC_TASK_READ, FALSE);
 370       return -1;
 371     }
 372     SILC_LOG_DEBUG(("Cannot read from UDP socket: %d", sock->sock));
 373     silc_schedule_unset_listen_fd(sock->schedule, sock->sock);
 374     sock->sock_error = err;
 375     return -2;
 376   }
 377
 378   SILC_LOG_DEBUG(("Read %d bytes", len));
 379
 380   if (!len)
 381     silc_schedule_unset_listen_fd(sock->schedule, sock->sock);
 382
 383   /* Return remote address */
 384   if (remote_ip_addr && remote_port) {
 385     if (sock->ipv6) {
 386 #ifdef HAVE_IPV6
 387       *remote_port = ntohs(s.sin6.sin6_port);
 388       inet_ntop(AF_INET6, &s.sin6.sin6_addr, remote_ip_addr,
 389                 remote_ip_addr_size);
 390 #endif /* HAVE_IPV6 */
 391     } else {
 392       const char *ip = inet_ntoa(s.sin.sin_addr);
 393       if (ip)
 394         silc_snprintf(remote_ip_addr, remote_ip_addr_size, ip);
 395       *remote_port = ntohs(s.sin.sin_port);
 396     }
 397
 398     SILC_LOG_DEBUG(("UDP packet from %s:%d", remote_ip_addr, *remote_port));
 399   }
 400
 401   return len;
 402 }
 403
 404 /* Send UDP packet */
 405
 406 int silc_net_udp_send(SilcStream stream,
 407                       const char *remote_ip_addr, int remote_port,
 408                       const unsigned char *data, SilcUInt32 data_len)
 409 {
 410   SilcSocketStream sock = stream;
 411   SilcSockaddr remote;
 412   int ret, err;
 413
 414   SILC_LOG_DEBUG(("Sending data to UDP socket %d", sock->sock));
 415
 416   /* Set sockaddr */
 417   if (!silc_net_set_sockaddr(&remote, remote_ip_addr, remote_port))
 418     return -2;
 419
 420   /* Send */
 421   ret = sendto(sock->sock, data, data_len, 0, &remote.sa,
 422                SIZEOF_SOCKADDR(remote));
 423   if (ret == SOCKET_ERROR) {
 424     err = WSAGetLastError();
 425     if (err == WSAEWOULDBLOCK) {
 426       SILC_LOG_DEBUG(("Could not send immediately, will do it later"));
 427       silc_schedule_set_listen_fd(sock->schedule, sock->sock,
 428                                   SILC_TASK_READ | SILC_TASK_WRITE, FALSE);
 429       return -1;
 430     }
 431     SILC_LOG_DEBUG(("Cannot send to UDP socket: %s", strerror(errno)));
 432     silc_schedule_unset_listen_fd(sock->schedule, sock->sock);
 433     sock->sock_error = err;
 434     return -2;
 435   }
 436
 437   SILC_LOG_DEBUG(("Sent data %d bytes", ret));
 438   if (silc_schedule_get_fd_events(sock->schedule, sock->sock) &
 439       SILC_TASK_WRITE)
 440     silc_schedule_set_listen_fd(sock->schedule, sock->sock,
 441                                 SILC_TASK_READ, FALSE);
 442
 443   return ret;
 444 }
 445
 446
 447 /******************************* TCP Stream *********************************/
 448
 449 typedef struct {
 450   SilcNetStatus status;
 451   SilcSocketStreamStatus stream_status;
 452   SilcStream stream;
 453   SilcFSMStruct fsm;
 454   SilcFSMThreadStruct thread;
 455   SilcAsyncOperation op;
 456   SilcAsyncOperation sop;
 457   char *local_ip;
 458   char *remote;
 459   char ip_addr[64];
 460   int sock;
 461   SilcNetCallback callback;
 462   void *context;
 463   unsigned int port     : 24;
 464   unsigned int retry    : 7;
 465   unsigned int aborted  : 1;
 466 } *SilcNetConnect;
 467
 468 SILC_FSM_STATE(silc_net_connect_st_start);
 469 SILC_FSM_STATE(silc_net_connect_st_stream);
 470 SILC_FSM_STATE(silc_net_connect_st_finish);
 471
 472 static void silc_net_connect_wait_stream(SilcSocketStreamStatus status,
 473                                          SilcStream stream, void *context)
 474 {
 475   SilcNetConnect conn = context;
 476   conn->sop = NULL;
 477   conn->stream_status = status;
 478   conn->stream = stream;
 479   SILC_FSM_CALL_CONTINUE(&conn->thread);
 480 }
 481
 482 /* Start connecting.  Create a real thread where we connect. */
 483
 484 SILC_FSM_STATE(silc_net_connect_st_thread)
 485 {
 486   SilcNetConnect conn = fsm_context;
 487
 488   /* Connect in real thread so as to not block the application. */
 489   silc_fsm_thread_init(&conn->thread, fsm, conn, NULL, NULL, TRUE);
 490   silc_fsm_start(&conn->thread, silc_net_connect_st_start);
 491
 492   /* Wait for the thread to finish */
 493   silc_fsm_next(fsm, silc_net_connect_st_finish);
 494   SILC_FSM_THREAD_WAIT(&conn->thread);
 495 }
 496
 497 /* Connecting thread */
 498
 499 SILC_FSM_STATE(silc_net_connect_st_start)
 500 {
 501   SilcNetConnect conn = fsm_context;
 502   SOCKET sock;
 503   int rval, err;
 504   SilcSockaddr desthost;
 505   SilcBool prefer_ipv6 = TRUE;
 506
 507   if (conn->aborted)
 508     return SILC_FSM_FINISH;
 509
 510   /* Do host lookup */
 511  retry:
 512   if (!silc_net_gethostbyname(conn->remote, prefer_ipv6,
 513                               conn->ip_addr, sizeof(conn->ip_addr))) {
 514     SILC_LOG_ERROR(("Network (%s) unreachable: could not resolve the "
 515                     "host, error %d", conn->remote, WSAGetLastError()));
 516
 517     /** Network unreachable */
 518     conn->status = SILC_NET_HOST_UNREACHABLE;
 519     return SILC_FSM_FINISH;
 520   }
 521
 522   /* Set sockaddr for this connection */
 523   if (!silc_net_set_sockaddr(&desthost, conn->ip_addr, conn->port))
 524     return SILC_FSM_FINISH;
 525
 526   /* Create the connection socket */
 527   sock = socket(desthost.sin.sin_family, SOCK_STREAM, 0);
 528   if (sock == INVALID_SOCKET) {
 529     /* If address is IPv6, then fallback to IPv4 and see whether we can do
 530        better with that on socket creation. */
 531     if (prefer_ipv6 && silc_net_is_ip6(conn->ip_addr)) {
 532       prefer_ipv6 = FALSE;
 533       goto retry;
 534     }
 535
 536     /** Cannot create socket */
 537     SILC_LOG_ERROR(("Cannot create socket, error %d", WSAGetLastError()));
 538     return SILC_FSM_FINISH;
 539   }
 540
 541   /* Bind to the local address if provided */
 542   if (conn->local_ip) {
 543     SilcSockaddr local;
 544
 545     /* Set sockaddr for local listener, and try to bind it. */
 546     if (silc_net_set_sockaddr(&local, conn->local_ip, 0))
 547       bind(sock, &local.sa, SIZEOF_SOCKADDR(local));
 548   }
 549
 550   /* Connect to the host */
 551   rval = connect(sock, &desthost.sa, SIZEOF_SOCKADDR(desthost));
 552   err = WSAGetLastError();
 553   if (rval == SOCKET_ERROR) {
 554     if (err != WSAEWOULDBLOCK) {
 555       shutdown(sock, 2);
 556       closesocket(sock);
 557
 558       /* Retry using an IPv4 address, if IPv6 didn't work */
 559       if (prefer_ipv6 && silc_net_is_ip6(conn->ip_addr)) {
 560         prefer_ipv6 = FALSE;
 561         goto retry;
 562       }
 563
 564       switch (err) {
 565       case WSAETIMEDOUT:
 566         conn->status = SILC_NET_CONNECTION_TIMEOUT;
 567         break;
 568       case WSAECONNREFUSED:
 569         conn->status = SILC_NET_CONNECTION_REFUSED;
 570         break;
 571       case WSAEHOSTUNREACH:
 572         conn->status = SILC_NET_HOST_UNREACHABLE;
 573         break;
 574       default:
 575         break;
 576       }
 577
 578       SILC_LOG_ERROR(("Cannot connect to remote host, error %d",
 579                       WSAGetLastError()));
 580       return SILC_FSM_FINISH;
 581     }
 582   }
 583
 584   /* Set the socket to non-blocking mode */
 585   silc_net_set_socket_nonblock(sock);
 586
 587   /* Set appropriate options */
 588 #if defined(TCP_NODELAY)
 589   silc_net_set_socket_opt(sock, IPPROTO_TCP, TCP_NODELAY, 1);
 590 #endif
 591   silc_net_set_socket_opt(sock, SOL_SOCKET, SO_KEEPALIVE, 1);
 592
 593   SILC_LOG_DEBUG(("TCP connection established"));
 594
 595   conn->sock = sock;
 596
 597   /** Connection created */
 598   silc_fsm_next(fsm, silc_net_connect_st_stream);
 599   SILC_FSM_CALL((conn->sop = silc_socket_tcp_stream_create(
 600                                      conn->sock, TRUE, FALSE,
 601                                      silc_fsm_get_schedule(&conn->fsm),
 602                                      silc_net_connect_wait_stream, conn)));
 603 }
 604
 605 /* TCP socket stream created */
 606
 607 SILC_FSM_STATE(silc_net_connect_st_stream)
 608 {
 609   SilcNetConnect conn = fsm_context;
 610
 611   if (conn->aborted)
 612     return SILC_FSM_FINISH;
 613
 614   if (conn->stream_status != SILC_SOCKET_OK) {
 615     /** Stream creation failed */
 616     if (conn->stream_status == SILC_SOCKET_UNKNOWN_IP)
 617       conn->status = SILC_NET_UNKNOWN_IP;
 618     else if (conn->stream_status == SILC_SOCKET_UNKNOWN_HOST)
 619       conn->status = SILC_NET_UNKNOWN_HOST;
 620     else
 621       conn->status = SILC_NET_ERROR;
 622
 623     return SILC_FSM_FINISH;
 624   }
 625
 626   /** Stream created successfully */
 627   SILC_LOG_DEBUG(("Connected successfully, sock %d", conn->sock));
 628   conn->status = SILC_NET_OK;
 629   return SILC_FSM_FINISH;
 630 }
 631
 632 SILC_FSM_STATE(silc_net_connect_st_finish)
 633 {
 634   SilcNetConnect conn = fsm_context;
 635
 636   /* Deliver error or new stream */
 637   if (!conn->aborted) {
 638     conn->callback(conn->status, conn->stream, conn->context);
 639     if (conn->op)
 640       silc_async_free(conn->op);
 641   }
 642
 643   return SILC_FSM_FINISH;
 644 }
 645
 646 static void silc_net_connect_abort(SilcAsyncOperation op, void *context)
 647 {
 648   SilcNetConnect conn = context;
 649   conn->aborted = TRUE;
 650
 651   /* Abort underlaying stream creation too */
 652   if (conn->sop) {
 653     silc_async_abort(conn->sop, NULL, NULL);
 654     conn->sop = NULL;
 655   }
 656 }
 657
 658 static void silc_net_connect_destructor(SilcFSM fsm, void *fsm_context,
 659                                         void *destructor_context)
 660 {
 661   SilcNetConnect conn = fsm_context;
 662   silc_free(conn->local_ip);
 663   silc_free(conn->remote);
 664   silc_free(conn);
 665 }
 666
 667 /* Create asynchronous TCP/IP connection. */
 668
 669 SilcAsyncOperation silc_net_tcp_connect(const char *local_ip_addr,
 670                                         const char *remote_ip_addr,
 671                                         int remote_port,
 672                                         SilcSchedule schedule,
 673                                         SilcNetCallback callback,
 674                                         void *context)
 675 {
 676   SilcNetConnect conn;
 677
 678   if (!remote_ip_addr || remote_port < 1 || !schedule || !callback)
 679     return NULL;
 680
 681   SILC_LOG_DEBUG(("Creating connection to host %s port %d",
 682                   remote_ip_addr, remote_port));
 683
 684   conn = silc_calloc(1, sizeof(*conn));
 685   if (!conn) {
 686     callback(SILC_NET_NO_MEMORY, NULL, context);
 687     return NULL;
 688   }
 689
 690   /* Start async operation */
 691   conn->op = silc_async_alloc(silc_net_connect_abort, NULL, conn);
 692   if (!conn->op) {
 693     silc_free(conn);
 694     callback(SILC_NET_NO_MEMORY, NULL, context);
 695     return NULL;
 696   }
 697
 698   if (local_ip_addr)
 699     conn->local_ip = strdup(local_ip_addr);
 700   conn->remote = strdup(remote_ip_addr);
 701   if (!conn->remote) {
 702     silc_async_free(conn->op);
 703     silc_free(conn->local_ip);
 704     silc_free(conn);
 705     callback(SILC_NET_NO_MEMORY, NULL, context);
 706     return NULL;
 707   }
 708   conn->port = remote_port;
 709   conn->callback = callback;
 710   conn->context = context;
 711   conn->retry = 1;
 712   conn->status = SILC_NET_ERROR;
 713
 714   silc_fsm_init(&conn->fsm, conn, silc_net_connect_destructor, NULL, schedule);
 715   silc_fsm_start(&conn->fsm, silc_net_connect_st_thread);
 716
 717   return conn->op;
 718 }
 719
 720 /* Closes the connection by closing the socket connection. */
 721
 722 void silc_net_close_connection(int sock)
 723 {
 724   SILC_LOG_DEBUG(("Closing sock %d", sock));
 725   closesocket(sock);
 726 }
 727
 728 /* Converts the IP number string from numbers-and-dots notation to
 729    binary form. */
 730
 731 SilcBool silc_net_addr2bin(const char *addr, void *bin, SilcUInt32 bin_len)
 732 {
 733   if (silc_net_is_ip4(addr)) {
 734     /* IPv4 address */
 735     int i = 0, c = 0, d = 0, len = strlen(addr);
 736     unsigned char ret[4];
 737
 738     memset(ret, 0, sizeof(ret));
 739     while (len-- > 0) {
 740       if (addr[i++] == '.') {
 741         ret[c++] = d;
 742         d = 0;
 743         if (c > 3)
 744           return FALSE;
 745         continue;
 746       }
 747
 748       if (!isdigit((int)addr[i - 1]))
 749         return FALSE;
 750
 751       d = 10 * d + addr[i - 1] - '0';
 752       if (d > 255)
 753         return FALSE;
 754     }
 755     if (c != 3)
 756       return FALSE;
 757     ret[c] = d;
 758
 759     if (bin_len < sizeof(ret))
 760       return FALSE;
 761
 762     memcpy(bin, ret, sizeof(ret));
 763     return TRUE;
 764   } else {
 765 #ifdef HAVE_IPV6
 766     struct addrinfo hints, *ai;
 767     SilcSockaddr *s;
 768
 769     /* IPv6 address */
 770     if (bin_len < 16)
 771       return FALSE;
 772
 773     memset(&hints, 0, sizeof(hints));
 774     hints.ai_family = AF_INET6;
 775     if (getaddrinfo(addr, NULL, &hints, &ai))
 776       return FALSE;
 777
 778     if (ai) {
 779       s = (SilcSockaddr *)ai->ai_addr;
 780       memcpy(bin, &s->sin6.sin6_addr, sizeof(s->sin6.sin6_addr));
 781       freeaddrinfo(ai);
 782     }
 783
 784     return TRUE;
 785 #else
 786     return FALSE;
 787 #endif /* HAVE_IPV6 */
 788   }
 789 }
 790
 791 /* Set socket to non-blocking mode. */
 792
 793 int silc_net_set_socket_nonblock(SilcSocket sock)
 794 {
 795   unsigned long on = 1;
 796   return ioctlsocket(sock, FIONBIO, &on);
 797 }