void tcp_connect (p_tcp_point p)                                               /* Auto-generated */
{
  select (p->type_stamp)
  {
    case TYPE_TCP_POINT_V4: connect ((p_tcp_point_v4) p); break;               /* O(n) */
    case TYPE_TCP_POINT_V6: connect ((p_tcp_point_v6) p); break;
  }
  else
  {
    error (ERR_TYPE);
  }
}