vms/sockadapt.c

   1 /*  sockadapt.c
   2  *
   3  *  Author: Charles Bailey  bailey@genetics.upenn.edu
   4  *  Last Revised: 08-Feb-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 "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(endnetent);
  29 FATALSTUB(getnetbyaddr);
  30 FATALSTUB(getnetbyname);
  31 FATALSTUB(getnetent);
  32 FATALSTUB(setnetent);