Function l_socket_create_and_connect

lib/lua/src/luasocket.c:340–367

// create_and_connect(host, port, timeout)
extern double __gettime();
static int l_socket_create_and_connect(lua_State *L) {
  const char* err = NULL;
  double end;
  t_socket sock;
  const char *host = luaL_checkstring(L, 1);
  unsigned short port = luaL_checknumber(L, 2);
  int timeout = luaL_checknumber(L, 3);

  // Create and connect loop for timeout milliseconds
  end = __gettime() + timeout/1000;
  do {
    // Create and connect the socket
    err = tcp_create_and_connect(&sock, host, port, timeout);
    if (err) {
      tcp_destroy(&sock);
      usleep(100000); // sleep for 100ms
    } else {
      p_tcp tcp = (p_tcp) lua_newuserdata(L, sizeof(t_tcp));
      settype(L, -2, SOCKET_CLIENT);
      socket_setnonblocking(&sock);
      tcp->sock = sock;
      tcp->timeout = timeout;
      return 1; // Return userdata
    }
  } while (err && __gettime() < end);

  LUA_CHECK_RETURN(L, err);
}

// connect(host, port)
static int l_socket_connect(lua_State *L) {