home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / perl-5.003-src.tgz / tar.out / fsf / perl / vms / sockadapt.c < prev    next >
C/C++ Source or Header  |  1996-09-28  |  2KB  |  44 lines
  1. /*  sockadapt.c
  2.  *
  3.  *  Author: Charles Bailey  bailey@genetics.upenn.edu
  4.  *  Last Revised: 29-Jan-1996
  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. #if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 50200000)
  17. #  define __sockadapt_my_netent_t __struct_netent_ptr32
  18. #  define __sockadapt_my_addr_t   __in_addr_t
  19. #  define __sockadapt_my_name_t   const char *
  20. #else
  21. #  define __sockadapt_my_netent_t struct netent *
  22. #  define __sockadapt_my_addr_t   long
  23. #  define __sockadapt_my_name_t   char *
  24. #endif
  25.  
  26. __sockadapt_my_netent_t getnetbyaddr( __sockadapt_my_addr_t net, int type) {
  27.   croak("Function \"getnetbyaddr\" not implemented in this version of perl");
  28.   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
  29. }
  30. __sockadapt_my_netent_t getnetbyname( __sockadapt_my_name_t name) {
  31.   croak("Function \"getnetbyname\" not implemented in this version of perl");
  32.   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
  33. }
  34. __sockadapt_my_netent_t getnetent() {
  35.   croak("Function \"getnetent\" not implemented in this version of perl");
  36.   return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */
  37. }
  38. void setnetent() {
  39.   croak("Function \"setnetent\" not implemented in this version of perl");
  40. }
  41. void endnetent() {
  42.   croak("Function \"endnetent\" not implemented in this version of perl");
  43. }
  44.