diff options
Diffstat (limited to 'vms/sockadapt.c')
| -rw-r--r-- | vms/sockadapt.c | 23 |
1 files changed, 16 insertions, 7 deletions
diff --git a/vms/sockadapt.c b/vms/sockadapt.c index 69f5def785..08251d6bdf 100644 --- a/vms/sockadapt.c +++ b/vms/sockadapt.c @@ -1,7 +1,7 @@ /* sockadapt.c * * Author: Charles Bailey bailey@genetics.upenn.edu - * Last Revised: 17-Mar-1995 + * Last Revised: 29-Jan-1996 * * This file should contain stubs for any of the TCP/IP functions perl5 * requires which are not supported by your TCP/IP stack. These stubs @@ -13,22 +13,31 @@ #include "EXTERN.h" #include "perl.h" +#if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 50200000) +# define __sockadapt_my_netent_t __struct_netent_ptr32 +# define __sockadapt_my_addr_t __in_addr_t +# define __sockadapt_my_name_t const char * +#else +# define __sockadapt_my_netent_t struct netent * +# define __sockadapt_my_addr_t long +# define __sockadapt_my_name_t char * +#endif -void endnetent() { - croak("Function \"endnetent\" not implemented in this version of perl"); -} -struct netent *getnetbyaddr( long net, int type) { +__sockadapt_my_netent_t getnetbyaddr( __sockadapt_my_addr_t net, int type) { croak("Function \"getnetbyaddr\" not implemented in this version of perl"); return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */ } -struct netent *getnetbyname( char *name) { +__sockadapt_my_netent_t getnetbyname( __sockadapt_my_name_t name) { croak("Function \"getnetbyname\" not implemented in this version of perl"); return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */ } -struct netent *getnetent() { +__sockadapt_my_netent_t getnetent() { croak("Function \"getnetent\" not implemented in this version of perl"); return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */ } void setnetent() { croak("Function \"setnetent\" not implemented in this version of perl"); } +void endnetent() { + croak("Function \"endnetent\" not implemented in this version of perl"); +} |