Add fallback to tmpfile for use in cases where user's relying on
[p5sagit/p5-mst-13.2.git] / vms / sockadapt.c
CommitLineData
a0d0e21e 1/* sockadapt.c
2 *
bd3fa61c 3 * Author: Charles Bailey bailey@newman.upenn.edu
9607fc9c 4 * Last Revised: 4-Mar-1997
a0d0e21e 5 *
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.
10 *
9607fc9c 11 * This version is set up for perl5 with UCX (or emulation) via
12 * the DECCRTL or SOCKETSHR 0.9D.
a0d0e21e 13 */
14
4633a7c4 15#include "EXTERN.h"
16#include "perl.h"
9607fc9c 17
c07a80fd 18#if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 50200000)
9607fc9c 19# define __sockadapt_my_hostent_t __struct_hostent_ptr32
c07a80fd 20# define __sockadapt_my_netent_t __struct_netent_ptr32
9607fc9c 21# define __sockadapt_my_servent_t __struct_servent_ptr32
c07a80fd 22# define __sockadapt_my_addr_t __in_addr_t
23# define __sockadapt_my_name_t const char *
24#else
9607fc9c 25# define __sockadapt_my_hostent_t struct hostent *
c07a80fd 26# define __sockadapt_my_netent_t struct netent *
9607fc9c 27# define __sockadapt_my_servent_t struct servent *
c07a80fd 28# define __sockadapt_my_addr_t long
29# define __sockadapt_my_name_t char *
30#endif
a0d0e21e 31
84902520 32/* We have these on VMS 7.0 and above, or on Dec C 5.6 if it's providing */
33/* the 7.0 DECC RTL */
34#if ((((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000)) && defined(DECCRTL_SOCKETS))
35#else
9607fc9c 36void setnetent(int stayopen) {
37 croak("Function \"setnetent\" not implemented in this version of perl");
38}
39void endnetent() {
40 croak("Function \"endnetent\" not implemented in this version of perl");
41}
84902520 42#endif
9607fc9c 43
44#if defined(DECCRTL_SOCKETS)
45 /* Use builtin socket interface in DECCRTL and
46 * UCX emulation in whatever TCP/IP stack is present.
47 */
48
84902520 49#if ((__VMS_VER >= 70000000) && (__DECC_VER >= 50200000)) || (__CRTL_VER >= 70000000)
50#else
9607fc9c 51 void sethostent(int stayopen) {
52 croak("Function \"sethostent\" not implemented in this version of perl");
53 }
54 void endhostent() {
55 croak("Function \"endhostent\" not implemented in this version of perl");
56 }
57 void setprotoent(int stayopen) {
58 croak("Function \"setprotoent\" not implemented in this version of perl");
59 }
60 void endprotoent() {
61 croak("Function \"endprotoent\" not implemented in this version of perl");
62 }
63 void setservent(int stayopen) {
64 croak("Function \"setservent\" not implemented in this version of perl");
65 }
66 void endservent() {
67 croak("Function \"endservent\" not implemented in this version of perl");
68 }
69 __sockadapt_my_hostent_t gethostent() {
70 croak("Function \"gethostent\" not implemented in this version of perl");
71 return (__sockadapt_my_hostent_t )NULL; /* Avoid MISSINGRETURN warning, not reached */
72 }
73 __sockadapt_my_servent_t getservent() {
74 croak("Function \"getservent\" not implemented in this version of perl");
75 return (__sockadapt_my_servent_t )NULL; /* Avoid MISSINGRETURN warning, not reached */
76 }
84902520 77#endif
9607fc9c 78
79#else
80 /* Work around things missing/broken in SOCKETSHR. */
81
c07a80fd 82__sockadapt_my_netent_t getnetbyaddr( __sockadapt_my_addr_t net, int type) {
4633a7c4 83 croak("Function \"getnetbyaddr\" not implemented in this version of perl");
84 return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
85}
c07a80fd 86__sockadapt_my_netent_t getnetbyname( __sockadapt_my_name_t name) {
4633a7c4 87 croak("Function \"getnetbyname\" not implemented in this version of perl");
88 return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
89}
c07a80fd 90__sockadapt_my_netent_t getnetent() {
4633a7c4 91 croak("Function \"getnetent\" not implemented in this version of perl");
9607fc9c 92 return (__sockadapt_my_netent_t )NULL; /* Avoid MISSINGRETURN warning, not reached */
c07a80fd 93}
42084d09 94
95/* Some TCP/IP implementations seem to return success, when getpeername()
96 * is called on a UDP socket, but the port and in_addr are all zeroes.
97 */
98
99int my_getpeername(int sock, struct sockaddr *addr, int *addrlen) {
100 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";
101 int rslt;
102
103 rslt = si_getpeername(sock, addr, addrlen);
104
105 /* Just pass an error back up the line */
106 if (rslt) return rslt;
107
108 /* If the call succeeded, make sure we don't have a zeroed port/addr */
109 if (addr->sa_family == AF_INET &&
110 !memcmp((char *)addr + sizeof(u_short), nowhere,
111 sizeof(u_short) + sizeof(struct in_addr))) {
112 rslt = -1;
113 SETERRNO(ENOTCONN,SS$_CLEARED);
114 }
115 return rslt;
116}
9607fc9c 117#endif /* SOCKETSHR stuff */