home *** CD-ROM | disk | FTP | other *** search
/ OpenStep 4.2J (Developer) / os42jdev.iso / NextDeveloper / Source / GNU / perl / Perl / vms / sockadapt.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-02-14  |  839 b   |  33 lines
  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);
  33.