| /openbsd/src/gnu/llvm/lldb/source/Host/common/ |
| D | Socket.cpp | 57 const NativeSocket Socket::kInvalidSocketValue = INVALID_SOCKET; 61 const NativeSocket Socket::kInvalidSocketValue = -1; 72 Socket::Socket(SocketProtocol protocol, bool should_close, in Socket() function in Socket 79 Socket::~Socket() { Close(); } in ~Socket() 81 llvm::Error Socket::Initialize() { in Initialize() 100 void Socket::Terminate() { in Terminate() 106 std::unique_ptr<Socket> Socket::Create(const SocketProtocol protocol, in Create() 111 std::unique_ptr<Socket> socket_up; in Create() 147 llvm::Expected<std::unique_ptr<Socket>> 148 Socket::TcpConnect(llvm::StringRef host_and_port, in TcpConnect() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Socket/t/ |
| D | sockaddr.t | 7 use Socket qw( 27 like($@, qr/^Wide character in Socket::inet_ntoa at/, 'inet_ntoa warns about wide characters'); 43 like($@, qr/^Wide character in Socket::inet_ntop at/, 'inet_ntop warns about wide characters'); 47 skip "No AF_INET6", 3 unless my $AF_INET6 = eval { Socket::AF_INET6() }; 64 …like($@, qr/^Bad arg length for Socket::sockaddr_family, length is 0, should be at least \d+/, 'so… 100 …like( $warnings, qr/^Port number above 0xFFFF, will be truncated to 33229 for Socket::pack_sockadd… 107 skip "No AF_INET6", 15 unless my $AF_INET6 = eval { Socket::AF_INET6() }; 108 …skip "Cannot pack_sockaddr_in6()", 15 unless my $sin6 = eval { Socket::pack_sockaddr_in6(0x1234, "… 114 …is((Socket::unpack_sockaddr_in6($sin6))[0], 0x1234, 'pack_sockaddr_in6->unpack_sockadd… 115 …is((Socket::unpack_sockaddr_in6($sin6))[1], "0123456789abcdef", 'pack_sockaddr_in6->unpack_sockadd… [all …]
|
| /openbsd/src/gnu/llvm/lldb/tools/lldb-server/ |
| D | Acceptor.cpp | 29 const Socket::SocketProtocol m_protocol; 33 {"tcp", Socket::ProtocolTcp}, 34 {"udp", Socket::ProtocolUdp}, 35 {"unix", Socket::ProtocolUnixDomain}, 36 {"unix-abstract", Socket::ProtocolUnixAbstract}, 40 Socket::SocketProtocol &protocol) { in FindProtocolByScheme() 50 const char *FindSchemeByProtocol(const Socket::SocketProtocol protocol) { in FindSchemeByProtocol() 64 Socket *conn_socket = nullptr; in Accept() 72 Socket::SocketProtocol Acceptor::GetSocketProtocol() const { in GetSocketProtocol() 87 Socket::SocketProtocol socket_protocol = Socket::ProtocolUnixDomain; in Create() [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/IO-Socket-IP/t/ |
| D | 05local-server-v6.t | 8 use IO::Socket::IP; 9 use Socket qw( inet_pton inet_ntop pack_sockaddr_in6 unpack_sockaddr_in6 IN6ADDR_LOOPBACK ); 11 my $AF_INET6 = eval { Socket::AF_INET6() } or 17 socket my $sockh, Socket::PF_INET6(), SOCK_STREAM, 0 or die "Cannot socket(PF_INET6) - $!"; 29 return ( Socket::unpack_sockaddr_in6( shift ) )[0,1]; 33 my $testserver = IO::Socket::IP->new( 37 Type => Socket->$socktype, 45 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 53 my $socket = IO::Socket->new; 54 $socket->socket( $AF_INET6, Socket->$socktype, 0 ) [all …]
|
| D | 04local-client-v6.t | 8 use IO::Socket::IP; 9 use Socket qw( inet_pton inet_ntop pack_sockaddr_in6 unpack_sockaddr_in6 IN6ADDR_LOOPBACK ); 11 my $AF_INET6 = eval { Socket::AF_INET6() } or 17 socket my $sockh, Socket::PF_INET6(), SOCK_STREAM, 0 or die "Cannot socket(PF_INET6) - $!"; 29 return ( Socket::unpack_sockaddr_in6( shift ) )[0,1]; 33 my $testserver = IO::Socket->new; 34 $testserver->socket( $AF_INET6, Socket->$socktype, 0 ) 37 …my ( $err, $ai ) = Socket::getaddrinfo( "::1", 0, { family => $AF_INET6, socktype => Socket->$sock… 46 my $testport = ( Socket::unpack_sockaddr_in6 $testserver->sockname )[0]; 48 my $socket = IO::Socket::IP->new( [all …]
|
| D | 19no-addrs.t | 8 use IO::Socket::IP; 9 use Socket qw( SOCK_STREAM AF_INET ); 15 my $sock = IO::Socket::IP->new( Family => AF_INET ); 16 my $save_exc = $IO::Socket::errstr; 26 my $AF_INET6 = eval { require Socket and Socket::AF_INET6() } or 29 eval { IO::Socket::IP->new( LocalHost => "::1" ) } or 32 my $sock = IO::Socket::IP->new( Family => $AF_INET6 ); 33 my $save_exc = $IO::Socket::errstr; 45 my $sock = IO::Socket::IP->new( Type => SOCK_STREAM ); 46 my $save_exc = $IO::Socket::errstr;
|
| D | 10args.t | 8 use IO::Socket::IP; 22 local *IO::Socket::IP::_io_socket_ip__configure = sub { 27 IO::Socket::IP->new(@$arg); 58 is_deeply( [ IO::Socket::IP->split_addr( "hostname:http" ) ], 62 is_deeply( [ IO::Socket::IP->split_addr( "192.0.2.1:80" ) ], 66 is_deeply( [ IO::Socket::IP->split_addr( "[2001:db8::1]:80" ) ], 70 is_deeply( [ IO::Socket::IP->split_addr( "something.else" ) ], 74 is( IO::Socket::IP->join_addr( "hostname", "http" ), 78 is( IO::Socket::IP->join_addr( "192.0.2.1", 80 ), 82 is( IO::Socket::IP->join_addr( "2001:db8::1", 80 ), [all …]
|
| D | 15io-socket.t | 8 use IO::Socket; 9 use IO::Socket::IP -register; 13 my $sock = IO::Socket->new( 24 $sock = IO::Socket->new( 34 my $AF_INET6 = eval { Socket::AF_INET6() } || 37 eval { IO::Socket::IP->new( LocalHost => "::1" ) } or 40 my $sock = IO::Socket->new( 51 $sock = IO::Socket->new(
|
| D | 11sockopts.t | 8 use IO::Socket::IP; 11 use Socket qw( SOL_SOCKET SO_REUSEADDR SO_REUSEPORT SO_BROADCAST ); 19 my $sock = IO::Socket::IP->new( 28 $sock = IO::Socket::IP->new( 45 socket( $s, Socket::PF_INET, Socket::SOCK_STREAM, 0 ) and 48 my $sock = IO::Socket::IP->new( 61 my $sock = IO::Socket::IP->new(
|
| D | 16v6only.t | 8 use Socket qw(PF_INET6 PF_INET IPPROTO_IPV6 IPV6_V6ONLY); 9 use IO::Socket::IP; 11 eval { IO::Socket::IP->new( LocalHost => "::1" ) } or 26 my $listensock = IO::Socket::IP->new( 37 my $testsock = IO::Socket::IP->new( 51 …skip "This platform does not allow turning IPV6_V6ONLY off", 3 unless IO::Socket::IP->CAN_DISABLE_… 55 my $listensock = IO::Socket::IP->new( 66 my $testsock = IO::Socket::IP->new(
|
| D | 02local-server-v4.t | 8 use IO::Socket::IP; 10 use IO::Socket::INET; 11 use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in ); 27 my $testserver = IO::Socket::IP->new( 31 Type => Socket->$socktype, 38 is( $testserver->socktype, Socket->$socktype, "\$testserver->socktype for $socktype" ); 50 my $socket = IO::Socket::INET->new( 53 Type => Socket->$socktype, 65 is( $testclient->socktype, Socket->$socktype, "\$testclient->socktype for $socktype" );
|
| D | 13addrinfo.t | 8 use IO::Socket::IP; 10 use IO::Socket::INET; 11 use Socket qw( SOCK_STREAM unpack_sockaddr_in getaddrinfo ); 14 my $testserver = IO::Socket::INET->new( 23 my $socket = IO::Socket::IP->new( 39 my $socket = IO::Socket::IP->new( 47 my $testclient = IO::Socket::INET->new(
|
| D | 01local-client-v4.t | 8 use IO::Socket::IP; 10 use IO::Socket::INET; 11 use Socket qw( inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in ); 27 my $testserver = IO::Socket::INET->new( 30 Type => Socket->$socktype, 34 my $socket = IO::Socket::IP->new( 37 Type => Socket->$socktype, 44 is( $socket->socktype, Socket->$socktype, "\$socket->socktype for $socktype" );
|
| /openbsd/src/gnu/usr.bin/perl/dist/IO/t/ |
| D | cachepropagate-unix.t | 8 use IO::Socket; 9 use IO::Socket::UNIX; 10 use Socket; 37 my $listener = IO::Socket::UNIX->new(Type => SOCK_STREAM, 69 my $connector = IO::Socket::UNIX->new(Peer => $socketpath); 79 skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); 81 if !defined $new->sockopt(Socket::SO_PROTOCOL); 85 skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE }); 87 if !defined $new->sockopt(Socket::SO_TYPE); 100 $listener = IO::Socket::UNIX->new(Type => SOCK_DGRAM, [all …]
|
| D | io_sock.t | 38 use IO::Socket; 40 my $listen = IO::Socket::INET->new(LocalAddr => 'localhost', 77 my $sock = IO::Socket::INET->new(PeerPort => $port, 81 || IO::Socket::INET->new(PeerPort => $port, 102 $listen = IO::Socket::INET->new(LocalAddr => 'localhost', Listen => '', Timeout => 15) or die "$!"; 119 my $sock = IO::Socket::INET->new("localhost:$port") 120 || IO::Socket::INET->new("127.0.0.1:$port"); 142 $sock = IO::Socket::INET->new("127.0.0.1:$port"); 156 $sock = IO::Socket->new(Domain => AF_INET, 158 || IO::Socket->new(Domain => AF_INET, [all …]
|
| D | cachepropagate-udp.t | 6 use IO::Socket; 7 use IO::Socket::INET; 8 use Socket; 13 my $listener = IO::Socket::INET->new(LocalAddr => '127.0.0.1', 24 my $new = IO::Socket::INET->new_from_fd($listener->fileno(), 'r+'); 28 skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); 30 if !defined $new->sockopt(Socket::SO_PROTOCOL); 36 skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE }); 38 if !defined $new->sockopt(Socket::SO_TYPE);
|
| D | cachepropagate-tcp.t | 6 use IO::Socket; 7 use IO::Socket::INET; 8 use Socket; 14 my $listener = IO::Socket::INET->new(Listen => 1, 36 my $connector = IO::Socket::INET->new(PeerAddr => '127.0.0.1', 59 skip "no Socket::SO_PROTOCOL", 1 if !defined(eval { Socket::SO_PROTOCOL }); 63 skip "no Socket::SO_TYPE", 1 if !defined(eval { Socket::SO_TYPE });
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Socket/ |
| D | Socket.pm | 1 package Socket; package 893 delete $Socket::{fake_getaddrinfo}; 894 delete $Socket::{fake_getnameinfo}; 982 $family ||= Socket::AF_INET(); # 0 == AF_UNSPEC, which we want too 983 $family == Socket::AF_INET() or return fake_makeerr( EAI_FAMILY() ); 1018 $addrs[0] = $flag_passive ? Socket::inet_aton( "0.0.0.0" ) 1019 : Socket::inet_aton( "127.0.0.1" ); 1033 foreach my $this_socktype ( Socket::SOCK_STREAM(), Socket::SOCK_DGRAM(), Socket::SOCK_RAW() ) { 1037 $this_socktype == Socket::SOCK_STREAM() and $this_protname = "tcp"; 1038 $this_socktype == Socket::SOCK_DGRAM() and $this_protname = "udp"; [all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/IO-Socket-IP/lib/IO/Socket/ |
| D | IP.pm | 6 package IO::Socket::IP 0.42; 15 use Socket 1.97 qw( 27 my $AF_INET6 = eval { Socket::AF_INET6() }; # may not be defined 28 my $AI_ADDRCONFIG = eval { Socket::AI_ADDRCONFIG() } || 0; 127 IO::Socket::IP::_ForINET->register_domain( AF_INET ); 128 IO::Socket::IP::_ForINET6->register_domain( $AF_INET6 ) if defined $AF_INET6; 136 goto &IO::Socket::import; 146 socket my $testsock, Socket::PF_INET6(), SOCK_STREAM, 0 or 445 : eval { Socket->${\"IPPROTO_\U$proto"}() }; 495 $IO::Socket::errstr = $@ = "$err"; [all …]
|
| /openbsd/src/regress/sys/net/pf_divert/ |
| D | Packet.pm | 23 use Socket; 25 use IO::Socket; 26 use IO::Socket::IP -register; 48 my $ds = do { local $> = 0; IO::Socket->new( 49 Type => Socket::SOCK_RAW, 54 $sa = pack_sockaddr_in($self->{bindport}, Socket::INADDR_ANY) 56 $sa = pack_sockaddr_in6($self->{bindport}, Socket::IN6ADDR_ANY)
|
| /openbsd/src/gnu/usr.bin/perl/dist/IO/lib/IO/Socket/ |
| D | INET.pm | 7 package IO::Socket::INET; 10 use IO::Socket; 11 use Socket; 21 IO::Socket::INET->register_domain( AF_INET ); 28 $proto_number{tcp} = Socket::IPPROTO_TCP() if defined &Socket::IPPROTO_TCP; 29 $proto_number{udp} = Socket::IPPROTO_UDP() if defined &Socket::IPPROTO_UDP; 30 $proto_number{icmp} = Socket::IPPROTO_ICMP() if defined &Socket::IPPROTO_ICMP; 82 $IO::Socket::errstr = $@ = "Bad protocol '$proto'"; 97 $IO::Socket::errstr = $@ = "Bad service '$origport'"; 116 $IO::Socket::errstr = $@ = join("", $_[0] =~ /^$title/ ? "" : $title, @_);
|
| /openbsd/src/regress/sys/kern/sosplice/error/ |
| D | args-splice-EBUSY.pl | 5 use IO::Socket::IP; 6 use BSD::Socket::Splice "SO_SPLICE"; 11 my $sl = IO::Socket::IP->new( 17 my $s = IO::Socket::IP->new( 23 my $ss = IO::Socket::IP->new( 32 my $so = IO::Socket::IP->new(
|
| D | args-EBUSY.pl | 5 use IO::Socket::IP; 6 use BSD::Socket::Splice "SO_SPLICE"; 11 my $sl = IO::Socket::IP->new( 17 my $s = IO::Socket::IP->new( 23 my $ss = IO::Socket::IP->new( 32 my $so = IO::Socket::IP->new(
|
| /openbsd/src/gnu/usr.bin/perl/cpan/libnet/t/ |
| D | smtp_ssl.t | 11 if (!eval { require Socket }) { 35 my $srv = IO::Socket::INET->new( 44 require IO::Socket::SSL::Utils; 45 my ($ca,$key) = IO::Socket::SSL::Utils::CERT_create( CA => 1 ); 47 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca); 53 my ($cert) = IO::Socket::SSL::Utils::CERT_create( 104 if ( ! IO::Socket::SSL->start_SSL($cl, %sslargs)) { 125 if ( ! IO::Socket::SSL->start_SSL($cl, %sslargs)) {
|
| D | pop3_ssl.t | 11 if (!eval { require Socket }) { 35 my $srv = IO::Socket::INET->new( 44 require IO::Socket::SSL::Utils; 45 my ($ca,$key) = IO::Socket::SSL::Utils::CERT_create( CA => 1 ); 47 print $fh IO::Socket::SSL::Utils::PEM_cert2string($ca); 53 my ($cert) = IO::Socket::SSL::Utils::CERT_create( 104 if ( ! IO::Socket::SSL->start_SSL($cl, %sslargs)) { 123 if ( ! IO::Socket::SSL->start_SSL($cl, %sslargs)) {
|