[p5sagit/p5-mst-13.2.git] / vms / sockadapt.c

/*  sockadapt.c
 *
 *  Author: Charles Bailey  bailey@genetics.upenn.edu
 *  Last Revised: 08-Feb-1995
 *
 *  This file should contain stubs for any of the TCP/IP functions perl5
 *  requires which are not supported by your TCP/IP stack.  These stubs
 *  can attempt to emulate the routine in question, or can just return
 *  an error status or cause perl to die.
 *
 *  This version is set up for perl5 with socketshr 0.9D TCP/IP support.
 */

#include "sockadapt.h"

#ifdef __STDC__
#define STRINGIFY(a) #a	 /* config-skip */
#else
#define STRINGIFY(a) "a"	 /* config-skip */
#endif

#define FATALSTUB(func) \
  void func() {\
    croak("Function %s not implemented in this version of perl",\
    STRINGIFY(func));\
  }

FATALSTUB(endnetent);
FATALSTUB(getnetbyaddr);
FATALSTUB(getnetbyname);
FATALSTUB(getnetent);
FATALSTUB(setnetent);
Commit	Line	Data
a0d0e21e	1	/* sockadapt.c
	2	*
	3	* Author: Charles Bailey bailey@genetics.upenn.edu
748a9306	4	* Last Revised: 08-Feb-1995
a0d0e21e	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	*
748a9306	11	* This version is set up for perl5 with socketshr 0.9D TCP/IP support.
a0d0e21e	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
a0d0e21e	28	FATALSTUB(endnetent);
a0d0e21e	29	FATALSTUB(getnetbyaddr);
	30	FATALSTUB(getnetbyname);
	31	FATALSTUB(getnetent);
a0d0e21e	32	FATALSTUB(setnetent);