3 * Author: Charles Bailey bailey@genetics.upenn.edu
4 * Last Revised: 4-Mar-1997
6 * This file should contain stubs for any of the TCP/IP functions perl5
7 * requires which are not supported by your TCP/IP stack. These stubs
8 * can attempt to emulate the routine in question, or can just return
9 * an error status or cause perl to die.
11 * This version is set up for perl5 with UCX (or emulation) via
12 * the DECCRTL or SOCKETSHR 0.9D.
18 #if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 50200000)
19 # define __sockadapt_my_hostent_t __struct_hostent_ptr32
20 # define __sockadapt_my_netent_t __struct_netent_ptr32
21 # define __sockadapt_my_servent_t __struct_servent_ptr32
22 # define __sockadapt_my_addr_t __in_addr_t
23 # define __sockadapt_my_name_t const char *
25 # define __sockadapt_my_hostent_t struct hostent *
26 # define __sockadapt_my_netent_t struct netent *
27 # define __sockadapt_my_servent_t struct servent *
28 # define __sockadapt_my_addr_t long
29 # define __sockadapt_my_name_t char *
32 void setnetent(int stayopen) {
33 croak("Function \"setnetent\" not implemented in this version of perl");
36 croak("Function \"endnetent\" not implemented in this version of perl");
39 #if defined(DECCRTL_SOCKETS)
40 /* Use builtin socket interface in DECCRTL and
41 * UCX emulation in whatever TCP/IP stack is present.
44 void sethostent(int stayopen) {
45 croak("Function \"sethostent\" not implemented in this version of perl");
48 croak("Function \"endhostent\" not implemented in this version of perl");
50 void setprotoent(int stayopen) {
51 croak("Function \"setprotoent\" not implemented in this version of perl");
54 croak("Function \"endprotoent\" not implemented in this version of perl");
56 void setservent(int stayopen) {
57 croak("Function \"setservent\" not implemented in this version of perl");
60 croak("Function \"endservent\" not implemented in this version of perl");
62 __sockadapt_my_hostent_t gethostent() {
63 croak("Function \"gethostent\" not implemented in this version of perl");
64 return (__sockadapt_my_hostent_t )NULL; /* Avoid MISSINGRETURN warning, not reached */
66 __sockadapt_my_servent_t getservent() {
67 croak("Function \"getservent\" not implemented in this version of perl");
68 return (__sockadapt_my_servent_t )NULL; /* Avoid MISSINGRETURN warning, not reached */
72 /* Work around things missing/broken in SOCKETSHR. */
74 __sockadapt_my_netent_t getnetbyaddr( __sockadapt_my_addr_t net, int type) {
75 croak("Function \"getnetbyaddr\" not implemented in this version of perl");
76 return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
78 __sockadapt_my_netent_t getnetbyname( __sockadapt_my_name_t name) {
79 croak("Function \"getnetbyname\" not implemented in this version of perl");
80 return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
82 __sockadapt_my_netent_t getnetent() {
83 croak("Function \"getnetent\" not implemented in this version of perl");
84 return (__sockadapt_my_netent_t )NULL; /* Avoid MISSINGRETURN warning, not reached */
87 /* Some TCP/IP implementations seem to return success, when getpeername()
88 * is called on a UDP socket, but the port and in_addr are all zeroes.
91 int my_getpeername(int sock, struct sockaddr *addr, int *addrlen) {
92 static char nowhere[] = "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0";
95 rslt = si_getpeername(sock, addr, addrlen);
97 /* Just pass an error back up the line */
98 if (rslt) return rslt;
100 /* If the call succeeded, make sure we don't have a zeroed port/addr */
101 if (addr->sa_family == AF_INET &&
102 !memcmp((char *)addr + sizeof(u_short), nowhere,
103 sizeof(u_short) + sizeof(struct in_addr))) {
105 SETERRNO(ENOTCONN,SS$_CLEARED);
109 #endif /* SOCKETSHR stuff */