diff options
Diffstat (limited to 'contrib/perl5/ext/Socket')
-rw-r--r-- | contrib/perl5/ext/Socket/Makefile.PL | 9 | ||||
-rw-r--r-- | contrib/perl5/ext/Socket/Socket.pm | 453 | ||||
-rw-r--r-- | contrib/perl5/ext/Socket/Socket.xs | 1116 |
3 files changed, 0 insertions, 1578 deletions
diff --git a/contrib/perl5/ext/Socket/Makefile.PL b/contrib/perl5/ext/Socket/Makefile.PL deleted file mode 100644 index 339c45a..0000000 --- a/contrib/perl5/ext/Socket/Makefile.PL +++ /dev/null @@ -1,9 +0,0 @@ -use ExtUtils::MakeMaker; -use Config; -WriteMakefile( - NAME => 'Socket', - VERSION_FROM => 'Socket.pm', - ($Config{libs} =~ /(-lsocks\S*)/ ? (LIBS => [ "$1" ] ) : ()), - MAN3PODS => {}, # Pods will be built by installman. - XSPROTOARG => '-noprototypes', # XXX remove later? -); diff --git a/contrib/perl5/ext/Socket/Socket.pm b/contrib/perl5/ext/Socket/Socket.pm deleted file mode 100644 index d89b2f6..0000000 --- a/contrib/perl5/ext/Socket/Socket.pm +++ /dev/null @@ -1,453 +0,0 @@ -package Socket; - -our($VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS); -$VERSION = "1.72"; - -=head1 NAME - -Socket, sockaddr_in, sockaddr_un, inet_aton, inet_ntoa - load the C socket.h defines and structure manipulators - -=head1 SYNOPSIS - - use Socket; - - $proto = getprotobyname('udp'); - socket(Socket_Handle, PF_INET, SOCK_DGRAM, $proto); - $iaddr = gethostbyname('hishost.com'); - $port = getservbyname('time', 'udp'); - $sin = sockaddr_in($port, $iaddr); - send(Socket_Handle, 0, 0, $sin); - - $proto = getprotobyname('tcp'); - socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto); - $port = getservbyname('smtp', 'tcp'); - $sin = sockaddr_in($port,inet_aton("127.1")); - $sin = sockaddr_in(7,inet_aton("localhost")); - $sin = sockaddr_in(7,INADDR_LOOPBACK); - connect(Socket_Handle,$sin); - - ($port, $iaddr) = sockaddr_in(getpeername(Socket_Handle)); - $peer_host = gethostbyaddr($iaddr, AF_INET); - $peer_addr = inet_ntoa($iaddr); - - $proto = getprotobyname('tcp'); - socket(Socket_Handle, PF_UNIX, SOCK_STREAM, $proto); - unlink('/tmp/usock'); - $sun = sockaddr_un('/tmp/usock'); - connect(Socket_Handle,$sun); - -=head1 DESCRIPTION - -This module is just a translation of the C F<socket.h> file. -Unlike the old mechanism of requiring a translated F<socket.ph> -file, this uses the B<h2xs> program (see the Perl source distribution) -and your native C compiler. This means that it has a -far more likely chance of getting the numbers right. This includes -all of the commonly used pound-defines like AF_INET, SOCK_STREAM, etc. - -Also, some common socket "newline" constants are provided: the -constants C<CR>, C<LF>, and C<CRLF>, as well as C<$CR>, C<$LF>, and -C<$CRLF>, which map to C<\015>, C<\012>, and C<\015\012>. If you do -not want to use the literal characters in your programs, then use -the constants provided here. They are not exported by default, but can -be imported individually, and with the C<:crlf> export tag: - - use Socket qw(:DEFAULT :crlf); - -In addition, some structure manipulation functions are available: - -=over - -=item inet_aton HOSTNAME - -Takes a string giving the name of a host, and translates that -to the 4-byte string (structure). Takes arguments of both -the 'rtfm.mit.edu' type and '18.181.0.24'. If the host name -cannot be resolved, returns undef. For multi-homed hosts (hosts -with more than one address), the first address found is returned. - -=item inet_ntoa IP_ADDRESS - -Takes a four byte ip address (as returned by inet_aton()) -and translates it into a string of the form 'd.d.d.d' -where the 'd's are numbers less than 256 (the normal -readable four dotted number notation for internet addresses). - -=item INADDR_ANY - -Note: does not return a number, but a packed string. - -Returns the 4-byte wildcard ip address which specifies any -of the hosts ip addresses. (A particular machine can have -more than one ip address, each address corresponding to -a particular network interface. This wildcard address -allows you to bind to all of them simultaneously.) -Normally equivalent to inet_aton('0.0.0.0'). - -=item INADDR_BROADCAST - -Note: does not return a number, but a packed string. - -Returns the 4-byte 'this-lan' ip broadcast address. -This can be useful for some protocols to solicit information -from all servers on the same LAN cable. -Normally equivalent to inet_aton('255.255.255.255'). - -=item INADDR_LOOPBACK - -Note - does not return a number. - -Returns the 4-byte loopback address. Normally equivalent -to inet_aton('localhost'). - -=item INADDR_NONE - -Note - does not return a number. - -Returns the 4-byte 'invalid' ip address. Normally equivalent -to inet_aton('255.255.255.255'). - -=item sockaddr_in PORT, ADDRESS - -=item sockaddr_in SOCKADDR_IN - -In a list context, unpacks its SOCKADDR_IN argument and returns an array -consisting of (PORT, ADDRESS). In a scalar context, packs its (PORT, -ADDRESS) arguments as a SOCKADDR_IN and returns it. If this is confusing, -use pack_sockaddr_in() and unpack_sockaddr_in() explicitly. - -=item pack_sockaddr_in PORT, IP_ADDRESS - -Takes two arguments, a port number and a 4 byte IP_ADDRESS (as returned by -inet_aton()). Returns the sockaddr_in structure with those arguments -packed in with AF_INET filled in. For internet domain sockets, this -structure is normally what you need for the arguments in bind(), -connect(), and send(), and is also returned by getpeername(), -getsockname() and recv(). - -=item unpack_sockaddr_in SOCKADDR_IN - -Takes a sockaddr_in structure (as returned by pack_sockaddr_in()) and -returns an array of two elements: the port and the 4-byte ip-address. -Will croak if the structure does not have AF_INET in the right place. - -=item sockaddr_un PATHNAME - -=item sockaddr_un SOCKADDR_UN - -In a list context, unpacks its SOCKADDR_UN argument and returns an array -consisting of (PATHNAME). In a scalar context, packs its PATHNAME -arguments as a SOCKADDR_UN and returns it. If this is confusing, use -pack_sockaddr_un() and unpack_sockaddr_un() explicitly. -These are only supported if your system has E<lt>F<sys/un.h>E<gt>. - -=item pack_sockaddr_un PATH - -Takes one argument, a pathname. Returns the sockaddr_un structure with -that path packed in with AF_UNIX filled in. For unix domain sockets, this -structure is normally what you need for the arguments in bind(), -connect(), and send(), and is also returned by getpeername(), -getsockname() and recv(). - -=item unpack_sockaddr_un SOCKADDR_UN - -Takes a sockaddr_un structure (as returned by pack_sockaddr_un()) -and returns the pathname. Will croak if the structure does not -have AF_UNIX in the right place. - -=back - -=cut - -use Carp; -use warnings::register; - -require Exporter; -use XSLoader (); -@ISA = qw(Exporter); -@EXPORT = qw( - inet_aton inet_ntoa pack_sockaddr_in unpack_sockaddr_in - pack_sockaddr_un unpack_sockaddr_un - sockaddr_in sockaddr_un - INADDR_ANY INADDR_BROADCAST INADDR_LOOPBACK INADDR_NONE - AF_802 - AF_APPLETALK - AF_CCITT - AF_CHAOS - AF_DATAKIT - AF_DECnet - AF_DLI - AF_ECMA - AF_GOSIP - AF_HYLINK - AF_IMPLINK - AF_INET - AF_LAT - AF_MAX - AF_NBS - AF_NIT - AF_NS - AF_OSI - AF_OSINET - AF_PUP - AF_SNA - AF_UNIX - AF_UNSPEC - AF_X25 - IOV_MAX - MSG_BCAST - MSG_CTLFLAGS - MSG_CTLIGNORE - MSG_CTRUNC - MSG_DONTROUTE - MSG_DONTWAIT - MSG_EOF - MSG_EOR - MSG_ERRQUEUE - MSG_FIN - MSG_MAXIOVLEN - MSG_MCAST - MSG_NOSIGNAL - MSG_OOB - MSG_PEEK - MSG_PROXY - MSG_RST - MSG_SYN - MSG_TRUNC - MSG_URG - MSG_WAITALL - PF_802 - PF_APPLETALK - PF_CCITT - PF_CHAOS - PF_DATAKIT - PF_DECnet - PF_DLI - PF_ECMA - PF_GOSIP - PF_HYLINK - PF_IMPLINK - PF_INET - PF_LAT - PF_MAX - PF_NBS - PF_NIT - PF_NS - PF_OSI - PF_OSINET - PF_PUP - PF_SNA - PF_UNIX - PF_UNSPEC - PF_X25 - SCM_CONNECT - SCM_CREDENTIALS - SCM_CREDS - SCM_RIGHTS - SCM_TIMESTAMP - SHUT_RD - SHUT_RDWR - SHUT_WR - SOCK_DGRAM - SOCK_RAW - SOCK_RDM - SOCK_SEQPACKET - SOCK_STREAM - SOL_SOCKET - SOMAXCONN - SO_ACCEPTCONN - SO_BROADCAST - SO_DEBUG - SO_DONTLINGER - SO_DONTROUTE - SO_ERROR - SO_KEEPALIVE - SO_LINGER - SO_OOBINLINE - SO_RCVBUF - SO_RCVLOWAT - SO_RCVTIMEO - SO_REUSEADDR - SO_REUSEPORT - SO_SNDBUF - SO_SNDLOWAT - SO_SNDTIMEO - SO_TYPE - SO_USELOOPBACK - UIO_MAXIOV -); - -@EXPORT_OK = qw(CR LF CRLF $CR $LF $CRLF - - IPPROTO_TCP - TCP_KEEPALIVE - TCP_MAXRT - TCP_MAXSEG - TCP_NODELAY - TCP_STDURG); - -%EXPORT_TAGS = ( - crlf => [qw(CR LF CRLF $CR $LF $CRLF)], - all => [@EXPORT, @EXPORT_OK], -); - -BEGIN { - sub CR () {"\015"} - sub LF () {"\012"} - sub CRLF () {"\015\012"} -} - -*CR = \CR(); -*LF = \LF(); -*CRLF = \CRLF(); - -sub sockaddr_in { - if (@_ == 6 && !wantarray) { # perl5.001m compat; use this && die - my($af, $port, @quad) = @_; - warnings::warn "6-ARG sockaddr_in call is deprecated" - if warnings::enabled(); - pack_sockaddr_in($port, inet_aton(join('.', @quad))); - } elsif (wantarray) { - croak "usage: (port,iaddr) = sockaddr_in(sin_sv)" unless @_ == 1; - unpack_sockaddr_in(@_); - } else { - croak "usage: sin_sv = sockaddr_in(port,iaddr))" unless @_ == 2; - pack_sockaddr_in(@_); - } -} - -sub sockaddr_un { - if (wantarray) { - croak "usage: (filename) = sockaddr_un(sun_sv)" unless @_ == 1; - unpack_sockaddr_un(@_); - } else { - croak "usage: sun_sv = sockaddr_un(filename)" unless @_ == 1; - pack_sockaddr_un(@_); - } -} - -sub INADDR_ANY (); -sub INADDR_BROADCAST (); -sub INADDR_LOOPBACK (); -sub INADDR_LOOPBACK (); - -sub AF_802 (); -sub AF_APPLETALK (); -sub AF_CCITT (); -sub AF_CHAOS (); -sub AF_DATAKIT (); -sub AF_DECnet (); -sub AF_DLI (); -sub AF_ECMA (); -sub AF_GOSIP (); -sub AF_HYLINK (); -sub AF_IMPLINK (); -sub AF_INET (); -sub AF_LAT (); -sub AF_MAX (); -sub AF_NBS (); -sub AF_NIT (); -sub AF_NS (); -sub AF_OSI (); -sub AF_OSINET (); -sub AF_PUP (); -sub AF_SNA (); -sub AF_UNIX (); -sub AF_UNSPEC (); -sub AF_X25 (); -sub IOV_MAX (); -sub MSG_BCAST (); -sub MSG_CTLFLAGS (); -sub MSG_CTLIGNORE (); -sub MSG_CTRUNC (); -sub MSG_DONTROUTE (); -sub MSG_DONTWAIT (); -sub MSG_EOF (); -sub MSG_EOR (); -sub MSG_ERRQUEUE (); -sub MSG_FIN (); -sub MSG_MAXIOVLEN (); -sub MSG_MCAST (); -sub MSG_NOSIGNAL (); -sub MSG_OOB (); -sub MSG_PEEK (); -sub MSG_PROXY (); -sub MSG_RST (); -sub MSG_SYN (); -sub MSG_TRUNC (); -sub MSG_URG (); -sub MSG_WAITALL (); -sub PF_802 (); -sub PF_APPLETALK (); -sub PF_CCITT (); -sub PF_CHAOS (); -sub PF_DATAKIT (); -sub PF_DECnet (); -sub PF_DLI (); -sub PF_ECMA (); -sub PF_GOSIP (); -sub PF_HYLINK (); -sub PF_IMPLINK (); -sub PF_INET (); -sub PF_LAT (); -sub PF_MAX (); -sub PF_NBS (); -sub PF_NIT (); -sub PF_NS (); -sub PF_OSI (); -sub PF_OSINET (); -sub PF_PUP (); -sub PF_SNA (); -sub PF_UNIX (); -sub PF_UNSPEC (); -sub PF_X25 (); -sub SCM_CONNECT (); -sub SCM_CREDENTIALS (); -sub SCM_CREDS (); -sub SCM_RIGHTS (); -sub SCM_TIMESTAMP (); -sub SHUT_RD (); -sub SHUT_RDWR (); -sub SHUT_WR (); -sub SOCK_DGRAM (); -sub SOCK_RAW (); -sub SOCK_RDM (); -sub SOCK_SEQPACKET (); -sub SOCK_STREAM (); -sub SOL_SOCKET (); -sub SOMAXCONN (); -sub SO_ACCEPTCONN (); -sub SO_BROADCAST (); -sub SO_DEBUG (); -sub SO_DONTLINGER (); -sub SO_DONTROUTE (); -sub SO_ERROR (); -sub SO_KEEPALIVE (); -sub SO_LINGER (); -sub SO_OOBINLINE (); -sub SO_RCVBUF (); -sub SO_RCVLOWAT (); -sub SO_RCVTIMEO (); -sub SO_REUSEADDR (); -sub SO_SNDBUF (); -sub SO_SNDLOWAT (); -sub SO_SNDTIMEO (); -sub SO_TYPE (); -sub SO_USELOOPBACK (); -sub UIO_MAXIOV (); - -sub AUTOLOAD { - my($constname); - ($constname = $AUTOLOAD) =~ s/.*:://; - my $val = constant($constname, @_ ? $_[0] : 0); - if ($! != 0) { - my ($pack,$file,$line) = caller; - croak "Your vendor has not defined Socket macro $constname, used"; - } - eval "sub $AUTOLOAD () { $val }"; - goto &$AUTOLOAD; -} - -XSLoader::load 'Socket', $VERSION; - -1; diff --git a/contrib/perl5/ext/Socket/Socket.xs b/contrib/perl5/ext/Socket/Socket.xs deleted file mode 100644 index e089829..0000000 --- a/contrib/perl5/ext/Socket/Socket.xs +++ /dev/null @@ -1,1116 +0,0 @@ -#define PERL_NO_GET_CONTEXT -#include "EXTERN.h" -#include "perl.h" -#include "XSUB.h" - -#ifndef VMS -# ifdef I_SYS_TYPES -# include <sys/types.h> -# endif -# include <sys/socket.h> -# if defined(USE_SOCKS) && defined(I_SOCKS) -# include <socks.h> -# endif -# ifdef MPE -# define PF_INET AF_INET -# define PF_UNIX AF_UNIX -# define SOCK_RAW 3 -# endif -# ifdef I_SYS_UN -# include <sys/un.h> -# endif -/* XXX Configure test for <netinet/in_systm.h needed XXX */ -# if defined(NeXT) || defined(__NeXT__) -# include <netinet/in_systm.h> -# endif -# ifdef I_NETINET_IN -# include <netinet/in.h> -# endif -# ifdef I_NETDB -# include <netdb.h> -# endif -# ifdef I_ARPA_INET -# include <arpa/inet.h> -# endif -# ifdef I_NETINET_TCP -# include <netinet/tcp.h> -# endif -#else -# include "sockadapt.h" -#endif - -#ifdef I_SYSUIO -# include <sys/uio.h> -#endif - -#ifndef AF_NBS -# undef PF_NBS -#endif - -#ifndef AF_X25 -# undef PF_X25 -#endif - -#ifndef INADDR_NONE -# define INADDR_NONE 0xffffffff -#endif /* INADDR_NONE */ -#ifndef INADDR_BROADCAST -# define INADDR_BROADCAST 0xffffffff -#endif /* INADDR_BROADCAST */ -#ifndef INADDR_LOOPBACK -# define INADDR_LOOPBACK 0x7F000001 -#endif /* INADDR_LOOPBACK */ - -#ifndef HAS_INET_ATON - -/* - * Check whether "cp" is a valid ascii representation - * of an Internet address and convert to a binary address. - * Returns 1 if the address is valid, 0 if not. - * This replaces inet_addr, the return value from which - * cannot distinguish between failure and a local broadcast address. - */ -static int -my_inet_aton(register const char *cp, struct in_addr *addr) -{ - dTHX; - register U32 val; - register int base; - register char c; - int nparts; - const char *s; - unsigned int parts[4]; - register unsigned int *pp = parts; - - if (!cp) - return 0; - for (;;) { - /* - * Collect number up to ``.''. - * Values are specified as for C: - * 0x=hex, 0=octal, other=decimal. - */ - val = 0; base = 10; - if (*cp == '0') { - if (*++cp == 'x' || *cp == 'X') - base = 16, cp++; - else - base = 8; - } - while ((c = *cp) != '\0') { - if (isDIGIT(c)) { - val = (val * base) + (c - '0'); - cp++; - continue; - } - if (base == 16 && (s=strchr(PL_hexdigit,c))) { - val = (val << 4) + - ((s - PL_hexdigit) & 15); - cp++; - continue; - } - break; - } - if (*cp == '.') { - /* - * Internet format: - * a.b.c.d - * a.b.c (with c treated as 16-bits) - * a.b (with b treated as 24 bits) - */ - if (pp >= parts + 3 || val > 0xff) - return 0; - *pp++ = val, cp++; - } else - break; - } - /* - * Check for trailing characters. - */ - if (*cp && !isSPACE(*cp)) - return 0; - /* - * Concoct the address according to - * the number of parts specified. - */ - nparts = pp - parts + 1; /* force to an int for switch() */ - switch (nparts) { - - case 1: /* a -- 32 bits */ - break; - - case 2: /* a.b -- 8.24 bits */ - if (val > 0xffffff) - return 0; - val |= parts[0] << 24; - break; - - case 3: /* a.b.c -- 8.8.16 bits */ - if (val > 0xffff) - return 0; - val |= (parts[0] << 24) | (parts[1] << 16); - break; - - case 4: /* a.b.c.d -- 8.8.8.8 bits */ - if (val > 0xff) - return 0; - val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8); - break; - } - addr->s_addr = htonl(val); - return 1; -} - -#undef inet_aton -#define inet_aton my_inet_aton - -#endif /* ! HAS_INET_ATON */ - - -static int -not_here(char *s) -{ - croak("Socket::%s not implemented on this architecture", s); - return -1; -} - -static double -constant(char *name, int arg) -{ - errno = 0; - switch (*name) { - case 'A': - if (strEQ(name, "AF_802")) -#ifdef AF_802 - return AF_802; -#else - goto not_there; -#endif - if (strEQ(name, "AF_APPLETALK")) -#ifdef AF_APPLETALK - return AF_APPLETALK; -#else - goto not_there; -#endif - if (strEQ(name, "AF_CCITT")) -#ifdef AF_CCITT - return AF_CCITT; -#else - goto not_there; -#endif - if (strEQ(name, "AF_CHAOS")) -#ifdef AF_CHAOS - return AF_CHAOS; -#else - goto not_there; -#endif - if (strEQ(name, "AF_DATAKIT")) -#ifdef AF_DATAKIT - return AF_DATAKIT; -#else - goto not_there; -#endif - if (strEQ(name, "AF_DECnet")) -#ifdef AF_DECnet - return AF_DECnet; -#else - goto not_there; -#endif - if (strEQ(name, "AF_DLI")) -#ifdef AF_DLI - return AF_DLI; -#else - goto not_there; -#endif - if (strEQ(name, "AF_ECMA")) -#ifdef AF_ECMA - return AF_ECMA; -#else - goto not_there; -#endif - if (strEQ(name, "AF_GOSIP")) -#ifdef AF_GOSIP - return AF_GOSIP; -#else - goto not_there; -#endif - if (strEQ(name, "AF_HYLINK")) -#ifdef AF_HYLINK - return AF_HYLINK; -#else - goto not_there; -#endif - if (strEQ(name, "AF_IMPLINK")) -#ifdef AF_IMPLINK - return AF_IMPLINK; -#else - goto not_there; -#endif - if (strEQ(name, "AF_INET")) -#ifdef AF_INET - return AF_INET; -#else - goto not_there; -#endif - if (strEQ(name, "AF_LAT")) -#ifdef AF_LAT - return AF_LAT; -#else - goto not_there; -#endif - if (strEQ(name, "AF_MAX")) -#ifdef AF_MAX - return AF_MAX; -#else - goto not_there; -#endif - if (strEQ(name, "AF_NBS")) -#ifdef AF_NBS - return AF_NBS; -#else - goto not_there; -#endif - if (strEQ(name, "AF_NIT")) -#ifdef AF_NIT - return AF_NIT; -#else - goto not_there; -#endif - if (strEQ(name, "AF_NS")) -#ifdef AF_NS - return AF_NS; -#else - goto not_there; -#endif - if (strEQ(name, "AF_OSI")) -#ifdef AF_OSI - return AF_OSI; -#else - goto not_there; -#endif - if (strEQ(name, "AF_OSINET")) -#ifdef AF_OSINET - return AF_OSINET; -#else - goto not_there; -#endif - if (strEQ(name, "AF_PUP")) -#ifdef AF_PUP - return AF_PUP; -#else - goto not_there; -#endif - if (strEQ(name, "AF_SNA")) -#ifdef AF_SNA - return AF_SNA; -#else - goto not_there; -#endif - if (strEQ(name, "AF_UNIX")) -#ifdef AF_UNIX - return AF_UNIX; -#else - goto not_there; -#endif - if (strEQ(name, "AF_UNSPEC")) -#ifdef AF_UNSPEC - return AF_UNSPEC; -#else - goto not_there; -#endif - if (strEQ(name, "AF_X25")) -#ifdef AF_X25 - return AF_X25; -#else - goto not_there; -#endif - break; - case 'B': - break; - case 'C': - break; - case 'D': - break; - case 'E': - break; - case 'F': - break; - case 'G': - break; - case 'H': - break; - case 'I': - if (strEQ(name, "IOV_MAX")) -#ifdef IOV_MAX - return IOV_MAX; -#else - goto not_there; -#endif - if (strEQ(name, "IPPROTO_TCP")) -#ifdef IPPROTO_TCP - return IPPROTO_TCP; -#else - goto not_there; -#endif - break; - case 'J': - break; - case 'K': - break; - case 'L': - break; - case 'M': - if (strEQ(name, "MSG_BCAST")) -#ifdef MSG_BCAST - return MSG_BCAST; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_CTLFLAGS")) -#ifdef MSG_CTLFLAGS - return MSG_CTLFLAGS; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_CTLIGNORE")) -#ifdef MSG_CTLIGNORE - return MSG_CTLIGNORE; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_CTRUNC")) -#if defined(MSG_TRUNC) || defined(HAS_MSG_CTRUNC) /* might be an enum */ - return MSG_CTRUNC; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_DONTROUTE")) -#if defined(MSG_DONTROUTE) || defined(HAS_MSG_DONTROUTE) /* might be an enum */ - return MSG_DONTROUTE; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_DONTWAIT")) -#ifdef MSG_DONTWAIT - return MSG_DONTWAIT; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_EOF")) -#ifdef MSG_EOF - return MSG_EOF; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_EOR")) -#ifdef MSG_EOR - return MSG_EOR; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_ERRQUEUE")) -#ifdef MSG_ERRQUEUE - return MSG_ERRQUEUE; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_FIN")) -#ifdef MSG_FIN - return MSG_FIN; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_MAXIOVLEN")) -#ifdef MSG_MAXIOVLEN - return MSG_MAXIOVLEN; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_MCAST")) -#ifdef MSG_MCAST - return MSG_MCAST; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_NOSIGNAL")) -#ifdef MSG_NOSIGNAL - return MSG_NOSIGNAL; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_OOB")) -#if defined(MSG_OOB) || defined(HAS_MSG_OOB) /* might be an enum */ - return MSG_OOB; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_PEEK")) -#if defined(MSG_PEEK) || defined(HAS_MSG_PEEK) /* might be an enum */ - return MSG_PEEK; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_PROXY")) -#if defined(MSG_PROXY) || defined(HAS_MSG_PROXY) /* might be an enum */ - return MSG_PROXY; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_RST")) -#ifdef MSG_RST - return MSG_RST; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_SYN")) -#ifdef MSG_SYN - return MSG_SYN; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_TRUNC")) -#ifdef MSG_TRUNC - return MSG_TRUNC; -#else - goto not_there; -#endif - if (strEQ(name, "MSG_WAITALL")) -#ifdef MSG_WAITALL - return MSG_WAITALL; -#else - goto not_there; -#endif - break; - case 'N': - break; - case 'O': - break; - case 'P': - if (strEQ(name, "PF_802")) -#ifdef PF_802 - return PF_802; -#else - goto not_there; -#endif - if (strEQ(name, "PF_APPLETALK")) -#ifdef PF_APPLETALK - return PF_APPLETALK; -#else - goto not_there; -#endif - if (strEQ(name, "PF_CCITT")) -#ifdef PF_CCITT - return PF_CCITT; -#else - goto not_there; -#endif - if (strEQ(name, "PF_CHAOS")) -#ifdef PF_CHAOS - return PF_CHAOS; -#else - goto not_there; -#endif - if (strEQ(name, "PF_DATAKIT")) -#ifdef PF_DATAKIT - return PF_DATAKIT; -#else - goto not_there; -#endif - if (strEQ(name, "PF_DECnet")) -#ifdef PF_DECnet - return PF_DECnet; -#else - goto not_there; -#endif - if (strEQ(name, "PF_DLI")) -#ifdef PF_DLI - return PF_DLI; -#else - goto not_there; -#endif - if (strEQ(name, "PF_ECMA")) -#ifdef PF_ECMA - return PF_ECMA; -#else - goto not_there; -#endif - if (strEQ(name, "PF_GOSIP")) -#ifdef PF_GOSIP - return PF_GOSIP; -#else - goto not_there; -#endif - if (strEQ(name, "PF_HYLINK")) -#ifdef PF_HYLINK - return PF_HYLINK; -#else - goto not_there; -#endif - if (strEQ(name, "PF_IMPLINK")) -#ifdef PF_IMPLINK - return PF_IMPLINK; -#else - goto not_there; -#endif - if (strEQ(name, "PF_INET")) -#ifdef PF_INET - return PF_INET; -#else - goto not_there; -#endif - if (strEQ(name, "PF_LAT")) -#ifdef PF_LAT - return PF_LAT; -#else - goto not_there; -#endif - if (strEQ(name, "PF_MAX")) -#ifdef PF_MAX - return PF_MAX; -#else - goto not_there; -#endif - if (strEQ(name, "PF_NBS")) -#ifdef PF_NBS - return PF_NBS; -#else - goto not_there; -#endif - if (strEQ(name, "PF_NIT")) -#ifdef PF_NIT - return PF_NIT; -#else - goto not_there; -#endif - if (strEQ(name, "PF_NS")) -#ifdef PF_NS - return PF_NS; -#else - goto not_there; -#endif - if (strEQ(name, "PF_OSI")) -#ifdef PF_OSI - return PF_OSI; -#else - goto not_there; -#endif - if (strEQ(name, "PF_OSINET")) -#ifdef PF_OSINET - return PF_OSINET; -#else - goto not_there; -#endif - if (strEQ(name, "PF_PUP")) -#ifdef PF_PUP - return PF_PUP; -#else - goto not_there; -#endif - if (strEQ(name, "PF_SNA")) -#ifdef PF_SNA - return PF_SNA; -#else - goto not_there; -#endif - if (strEQ(name, "PF_UNIX")) -#ifdef PF_UNIX - return PF_UNIX; -#else - goto not_there; -#endif - if (strEQ(name, "PF_UNSPEC")) -#ifdef PF_UNSPEC - return PF_UNSPEC; -#else - goto not_there; -#endif - if (strEQ(name, "PF_X25")) -#ifdef PF_X25 - return PF_X25; -#else - goto not_there; -#endif - break; - case 'Q': - break; - case 'R': - break; - case 'S': - if (strEQ(name, "SCM_CONNECT")) -#ifdef SCM_CONNECT - return SCM_CONNECT; -#else - goto not_there; -#endif - if (strEQ(name, "SCM_CREDENTIALS")) -#ifdef SCM_CREDENTIALS - return SCM_CREDENTIALS; -#else - goto not_there; -#endif - if (strEQ(name, "SCM_CREDS")) -#ifdef SCM_CREDS - return SCM_CREDS; -#else - goto not_there; -#endif - if (strEQ(name, "SCM_RIGHTS")) -#if defined(SCM_RIGHTS) || defined(HAS_SCM_RIGHTS) /* might be an enum */ - return SCM_RIGHTS; -#else - goto not_there; -#endif - if (strEQ(name, "SCM_TIMESTAMP")) -#ifdef SCM_TIMESTAMP - return SCM_TIMESTAMP; -#else - goto not_there; -#endif - if (strEQ(name, "SHUT_RD")) -#ifdef SHUT_RD - return SHUT_RD; -#else - return 0; -#endif - if (strEQ(name, "SHUT_RDWR")) -#ifdef SHUT_RDWR - return SHUT_RDWR; -#else - return 2; -#endif - if (strEQ(name, "SHUT_WR")) -#ifdef SHUT_WR - return SHUT_WR; -#else - return 1; -#endif - if (strEQ(name, "SOCK_DGRAM")) -#ifdef SOCK_DGRAM - return SOCK_DGRAM; -#else - goto not_there; -#endif - if (strEQ(name, "SOCK_RAW")) -#ifdef SOCK_RAW - return SOCK_RAW; -#else - goto not_there; -#endif - if (strEQ(name, "SOCK_RDM")) -#ifdef SOCK_RDM - return SOCK_RDM; -#else - goto not_there; -#endif - if (strEQ(name, "SOCK_SEQPACKET")) -#ifdef SOCK_SEQPACKET - return SOCK_SEQPACKET; -#else - goto not_there; -#endif - if (strEQ(name, "SOCK_STREAM")) -#ifdef SOCK_STREAM - return SOCK_STREAM; -#else - goto not_there; -#endif - if (strEQ(name, "SOL_SOCKET")) -#ifdef SOL_SOCKET - return SOL_SOCKET; -#else - goto not_there; -#endif - if (strEQ(name, "SOMAXCONN")) -#ifdef SOMAXCONN - return SOMAXCONN; -#else - goto not_there; -#endif - if (strEQ(name, "SO_ACCEPTCONN")) -#ifdef SO_ACCEPTCONN - return SO_ACCEPTCONN; -#else - goto not_there; -#endif - if (strEQ(name, "SO_BROADCAST")) -#ifdef SO_BROADCAST - return SO_BROADCAST; -#else - goto not_there; -#endif - if (strEQ(name, "SO_DEBUG")) -#ifdef SO_DEBUG - return SO_DEBUG; -#else - goto not_there; -#endif - if (strEQ(name, "SO_DONTLINGER")) -#ifdef SO_DONTLINGER - return SO_DONTLINGER; -#else - goto not_there; -#endif - if (strEQ(name, "SO_DONTROUTE")) -#ifdef SO_DONTROUTE - return SO_DONTROUTE; -#else - goto not_there; -#endif - if (strEQ(name, "SO_ERROR")) -#ifdef SO_ERROR - return SO_ERROR; -#else - goto not_there; -#endif - if (strEQ(name, "SO_KEEPALIVE")) -#ifdef SO_KEEPALIVE - return SO_KEEPALIVE; -#else - goto not_there; -#endif - if (strEQ(name, "SO_LINGER")) -#ifdef SO_LINGER - return SO_LINGER; -#else - goto not_there; -#endif - if (strEQ(name, "SO_OOBINLINE")) -#ifdef SO_OOBINLINE - return SO_OOBINLINE; -#else - goto not_there; -#endif - if (strEQ(name, "SO_RCVBUF")) -#ifdef SO_RCVBUF - return SO_RCVBUF; -#else - goto not_there; -#endif - if (strEQ(name, "SO_RCVLOWAT")) -#ifdef SO_RCVLOWAT - return SO_RCVLOWAT; -#else - goto not_there; -#endif - if (strEQ(name, "SO_RCVTIMEO")) -#ifdef SO_RCVTIMEO - return SO_RCVTIMEO; -#else - goto not_there; -#endif - if (strEQ(name, "SO_REUSEADDR")) -#ifdef SO_REUSEADDR - return SO_REUSEADDR; -#else - goto not_there; -#endif - if (strEQ(name, "SO_REUSEPORT")) -#ifdef SO_REUSEPORT - return SO_REUSEPORT; -#else - goto not_there; -#endif - if (strEQ(name, "SO_SNDBUF")) -#ifdef SO_SNDBUF - return SO_SNDBUF; -#else - goto not_there; -#endif - if (strEQ(name, "SO_SNDLOWAT")) -#ifdef SO_SNDLOWAT - return SO_SNDLOWAT; -#else - goto not_there; -#endif - if (strEQ(name, "SO_SNDTIMEO")) -#ifdef SO_SNDTIMEO - return SO_SNDTIMEO; -#else - goto not_there; -#endif - if (strEQ(name, "SO_TYPE")) -#ifdef SO_TYPE - return SO_TYPE; -#else - goto not_there; -#endif - if (strEQ(name, "SO_USELOOPBACK")) -#ifdef SO_USELOOPBACK - return SO_USELOOPBACK; -#else - goto not_there; -#endif - break; - case 'T': - if (strEQ(name, "TCP_KEEPALIVE")) -#ifdef TCP_KEEPALIVE - return TCP_KEEPALIVE; -#else - goto not_there; -#endif - if (strEQ(name, "TCP_MAXRT")) -#ifdef TCP_MAXRT - return TCP_MAXRT; -#else - goto not_there; -#endif - if (strEQ(name, "TCP_MAXSEG")) -#ifdef TCP_MAXSEG - return TCP_MAXSEG; -#else - goto not_there; -#endif - if (strEQ(name, "TCP_NODELAY")) -#ifdef TCP_NODELAY - return TCP_NODELAY; -#else - goto not_there; -#endif - if (strEQ(name, "TCP_STDURG")) -#ifdef TCP_STDURG - return TCP_STDURG; -#else - goto not_there; -#endif - break; - case 'U': - if (strEQ(name, "UIO_MAXIOV")) -#ifdef UIO_MAXIOV - return UIO_MAXIOV; -#else - goto not_there; -#endif - break; - case 'V': - break; - case 'W': - break; - case 'X': - break; - case 'Y': - break; - case 'Z': - break; - } - errno = EINVAL; - return 0; - -not_there: - errno = ENOENT; - return 0; -} - - -MODULE = Socket PACKAGE = Socket - -double -constant(name,arg) - char * name - int arg - - -void -inet_aton(host) - char * host - CODE: - { - struct in_addr ip_address; - struct hostent * phe; - int ok = inet_aton(host, &ip_address); - - if (!ok && (phe = gethostbyname(host))) { - Copy( phe->h_addr, &ip_address, phe->h_length, char ); - ok = 1; - } - - ST(0) = sv_newmortal(); - if (ok) { - sv_setpvn( ST(0), (char *)&ip_address, sizeof ip_address ); - } - } - -void -inet_ntoa(ip_address_sv) - SV * ip_address_sv - CODE: - { - STRLEN addrlen; - struct in_addr addr; - char * addr_str; - char * ip_address = SvPV(ip_address_sv,addrlen); - if (addrlen != sizeof(addr)) { - croak("Bad arg length for %s, length is %d, should be %d", - "Socket::inet_ntoa", - addrlen, sizeof(addr)); - } - - Copy( ip_address, &addr, sizeof addr, char ); - addr_str = inet_ntoa(addr); - - ST(0) = sv_2mortal(newSVpvn(addr_str, strlen(addr_str))); - } - -void -pack_sockaddr_un(pathname) - char * pathname - CODE: - { -#ifdef I_SYS_UN - struct sockaddr_un sun_ad; /* fear using sun */ - STRLEN len; - - Zero( &sun_ad, sizeof sun_ad, char ); - sun_ad.sun_family = AF_UNIX; - len = strlen(pathname); - if (len > sizeof(sun_ad.sun_path)) - len = sizeof(sun_ad.sun_path); -# ifdef OS2 /* Name should start with \socket\ and contain backslashes! */ - { - int off; - char *s, *e; - - if (pathname[0] != '/' && pathname[0] != '\\') - croak("Relative UNIX domain socket name '%s' unsupported", pathname); - else if (len < 8 - || pathname[7] != '/' && pathname[7] != '\\' - || !strnicmp(pathname + 1, "socket", 6)) - off = 7; - else - off = 0; /* Preserve names starting with \socket\ */ - Copy( "\\socket", sun_ad.sun_path, off, char); - Copy( pathname, sun_ad.sun_path + off, len, char ); - - s = sun_ad.sun_path + off - 1; - e = s + len + 1; - while (++s < e) - if (*s = '/') - *s = '\\'; - } -# else /* !( defined OS2 ) */ - Copy( pathname, sun_ad.sun_path, len, char ); -# endif - ST(0) = sv_2mortal(newSVpvn((char *)&sun_ad, sizeof sun_ad)); -#else - ST(0) = (SV *) not_here("pack_sockaddr_un"); -#endif - - } - -void -unpack_sockaddr_un(sun_sv) - SV * sun_sv - CODE: - { -#ifdef I_SYS_UN - struct sockaddr_un addr; - STRLEN sockaddrlen; - char * sun_ad = SvPV(sun_sv,sockaddrlen); - char * e; -# ifndef __linux__ - /* On Linux sockaddrlen on sockets returned by accept, recvfrom, - getpeername and getsockname is not equal to sizeof(addr). */ - if (sockaddrlen != sizeof(addr)) { - croak("Bad arg length for %s, length is %d, should be %d", - "Socket::unpack_sockaddr_un", - sockaddrlen, sizeof(addr)); - } -# endif - - Copy( sun_ad, &addr, sizeof addr, char ); - - if ( addr.sun_family != AF_UNIX ) { - croak("Bad address family for %s, got %d, should be %d", - "Socket::unpack_sockaddr_un", - addr.sun_family, - AF_UNIX); - } - e = addr.sun_path; - while (*e && e < addr.sun_path + sizeof addr.sun_path) - ++e; - ST(0) = sv_2mortal(newSVpvn(addr.sun_path, e - addr.sun_path)); -#else - ST(0) = (SV *) not_here("unpack_sockaddr_un"); -#endif - } - -void -pack_sockaddr_in(port,ip_address) - unsigned short port - char * ip_address - CODE: - { - struct sockaddr_in sin; - - Zero( &sin, sizeof sin, char ); - sin.sin_family = AF_INET; - sin.sin_port = htons(port); - Copy( ip_address, &sin.sin_addr, sizeof sin.sin_addr, char ); - - ST(0) = sv_2mortal(newSVpvn((char *)&sin, sizeof sin)); - } - -void -unpack_sockaddr_in(sin_sv) - SV * sin_sv - PPCODE: - { - STRLEN sockaddrlen; - struct sockaddr_in addr; - unsigned short port; - struct in_addr ip_address; - char * sin = SvPV(sin_sv,sockaddrlen); - if (sockaddrlen != sizeof(addr)) { - croak("Bad arg length for %s, length is %d, should be %d", - "Socket::unpack_sockaddr_in", - sockaddrlen, sizeof(addr)); - } - Copy( sin, &addr,sizeof addr, char ); - if ( addr.sin_family != AF_INET ) { - croak("Bad address family for %s, got %d, should be %d", - "Socket::unpack_sockaddr_in", - addr.sin_family, - AF_INET); - } - port = ntohs(addr.sin_port); - ip_address = addr.sin_addr; - - EXTEND(SP, 2); - PUSHs(sv_2mortal(newSViv((IV) port))); - PUSHs(sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address))); - } - -void -INADDR_ANY() - CODE: - { - struct in_addr ip_address; - ip_address.s_addr = htonl(INADDR_ANY); - ST(0) = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address )); - } - -void -INADDR_LOOPBACK() - CODE: - { - struct in_addr ip_address; - ip_address.s_addr = htonl(INADDR_LOOPBACK); - ST(0) = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address)); - } - -void -INADDR_NONE() - CODE: - { - struct in_addr ip_address; - ip_address.s_addr = htonl(INADDR_NONE); - ST(0) = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address)); - } - -void -INADDR_BROADCAST() - CODE: - { - struct in_addr ip_address; - ip_address.s_addr = htonl(INADDR_BROADCAST); - ST(0) = sv_2mortal(newSVpvn((char *)&ip_address,sizeof ip_address)); - } |