Commit | Line | Data |
a0d0e21e |
1 | /* sockadapt.c |
2 | * |
3 | * Author: Charles Bailey bailey@genetics.upenn.edu |
4633a7c4 |
4 | * Last Revised: 17-Mar-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 | |
4633a7c4 |
14 | #include "EXTERN.h" |
15 | #include "perl.h" |
a0d0e21e |
16 | |
4633a7c4 |
17 | void endnetent() { |
18 | croak("Function \"endnetent\" not implemented in this version of perl"); |
19 | } |
20 | struct netent *getnetbyaddr( long net, int type) { |
21 | croak("Function \"getnetbyaddr\" not implemented in this version of perl"); |
22 | return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */ |
23 | } |
24 | struct netent *getnetbyname( char *name) { |
25 | croak("Function \"getnetbyname\" not implemented in this version of perl"); |
26 | return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */ |
27 | } |
28 | struct netent *getnetent() { |
29 | croak("Function \"getnetent\" not implemented in this version of perl"); |
30 | return (struct netent *)NULL; /* Avoid MISSINGRETURN warning, not reached */ |
31 | } |
32 | void setnetent() { |
33 | croak("Function \"setnetent\" not implemented in this version of perl"); |
34 | } |