vms/sockadapt.c

   1 /*  sockadapt.c
   2  *
   3  *  Author: Charles Bailey  bailey@genetics.upenn.edu
   4  *  Last Revised: 05-Oct-1994
   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.9A TCP/IP support.
  12  */
  13
  14 #include "sockadapt.h"
  15
  16 #ifdef __STDC__
  17 #define STRINGIFY(a) #a  /* config-skip */
  18 #else
  19 #define STRINGIFY(a) "a"         /* config-skip */
  20 #endif
  21
  22 #define FATALSTUB(func) \
  23   void func() {\
  24     croak("Function %s not implemented in this version of perl",\
  25     STRINGIFY(func));\
  26   }
  27
  28 FATALSTUB(endhostent);
  29 FATALSTUB(endnetent);
  30 FATALSTUB(endprotoent);
  31 FATALSTUB(endservent);
  32 FATALSTUB(gethostent);
  33 FATALSTUB(getnetbyaddr);
  34 FATALSTUB(getnetbyname);
  35 FATALSTUB(getnetent);
  36 FATALSTUB(getprotobyname);
  37 FATALSTUB(getprotobynumber);
  38 FATALSTUB(getprotoent);
  39 FATALSTUB(getservent);
  40 FATALSTUB(sethostent);
  41 FATALSTUB(setnetent);
  42 FATALSTUB(setprotoent);
  43 FATALSTUB(setservent);