blob: 9867d536a1ae3f4f591d45e86dac994c64afe6a3 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
/* 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);
|
