| Commit | Line | Data |
|---|
| a0d0e21e |
1 | /* sockadapt.c |
| 2 | * |
| 3 | * Author: Charles Bailey bailey@genetics.upenn.edu |
| 4 | * Last Revised: 05-Oct-1994 |
| 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.9A 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(endhostent); |
| 29 | FATALSTUB(endnetent); |
| 30 | FATALSTUB(endprotoent); |
| 31 | FATALSTUB(endservent); |
| 32 | FATALSTUB(gethostent); |
| 33 | FATALSTUB(getnetbyaddr); |
| 34 | FATALSTUB(getnetbyname); |
| 35 | FATALSTUB(getnetent); |
| 36 | FATALSTUB(getprotobyname); |
| 37 | FATALSTUB(getprotobynumber); |
| 38 | FATALSTUB(getprotoent); |
| 39 | FATALSTUB(getservent); |
| 40 | FATALSTUB(sethostent); |
| 41 | FATALSTUB(setnetent); |
| 42 | FATALSTUB(setprotoent); |
| 43 | FATALSTUB(setservent); |
projects / p5sagit/p5-mst-13.2.git / blame