vms/sockadapt.c

   1 /*  sockadapt.c
   2  *
   3  *  Author: Charles Bailey  bailey@genetics.upenn.edu
   4  *  Last Revised: 17-Mar-1995
   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  *
  11  *  This version is set up for perl5 with socketshr 0.9D TCP/IP support.
  12  */
  13
  14 #include "EXTERN.h"
  15 #include "perl.h"
  16
  17 void endnetent() {
  18   croak("Function \"endnetent\" not implemented in this version of perl");
  19 }
  20 struct netent *getnetbyaddr( long net, int type) {
  21   croak("Function \"getnetbyaddr\" not implemented in this version of perl");
  22   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
  23 }
  24 struct netent *getnetbyname( char *name) {
  25   croak("Function \"getnetbyname\" not implemented in this version of perl");
  26   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
  27 }
  28 struct netent *getnetent() {
  29   croak("Function \"getnetent\" not implemented in this version of perl");
  30   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
  31 }
  32 void setnetent() {
  33   croak("Function \"setnetent\" not implemented in this version of perl");
  34 }