perl5.002beta3
[perl.git] / vms / sockadapt.c
index 69f5def..08251d6 100644 (file)
@@ -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
 
 #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");
+}