Fix [perl #114812] Configure not finding isblank().
[perl.git] / plan9 / plan9.c
1 #include "EXTERN.h"
2 #include "perl.h"
3
4 /* Functions mentioned in <sys/socket.h> but not implemented */
5
6 int getsockopt(int a, int b, int c, void *d, int *e)
7 {
8     croak("Function \"getsockopt\" not implemented in this version of perl.");
9     return (int)NULL; 
10 }
11
12 int setsockopt(int a, int b, int c, void *d, int *e)
13 {
14     croak("Function \"setsockopt\" not implemented in this version of perl.");
15     return (int)NULL;
16 }
17
18
19 int recvmsg(int a, struct msghdr *b, int c)
20 {
21     croak("Function \"recvmsg\" not implemented in this version of perl.");
22     return (int)NULL;
23
24
25 int sendmsg(int a, struct msghdr *b, int c)
26 {
27     croak("Function \"sendmsg\" not implemented in this version of perl.");
28     return (int)NULL;
29
30
31
32 /* Functions mentioned in <netdb.h> but not implemented */
33 struct netent *getnetbyname(const char *a)
34 {
35     croak("Function \"getnetbyname\" not implemented in this version of perl.");
36     return (struct netent *)NULL;
37 }
38
39 struct netent *getnetbyaddr(long a, int b)
40 {
41     croak("Function \"getnetbyaddr\" not implemented in this version of perl.");
42     return (struct netent *)NULL;
43 }
44
45 struct netent *getnetent()
46 {
47     croak("Function \"getnetent\" not implemented in this version of perl.");
48     return (struct netent *)NULL;
49 }
50
51 struct protoent *getprotobyname(const char *a)
52 {
53     croak("Function \"getprotobyname\" not implemented in this version of perl.");
54     return (struct protoent *)NULL;
55 }
56
57 struct protoent *getprotobynumber(int a)
58 {
59     croak("Function \"getprotobynumber\" not implemented in this version of perl.");
60     return (struct protoent *)NULL;
61 }
62
63 struct protoent *getprotoent()
64 {
65     croak("Function \"getprotoent\" not implemented in this version of perl.");
66     return (struct protoent *)NULL;
67 }
68
69 struct servent *getservbyport(int a, const char *b)
70 {
71     croak("Function \"getservbyport\" not implemented in this version of perl.");
72     return (struct servent *)NULL;
73 }
74
75 struct servent *getservent()
76 {
77     croak("Function \"getservent\" not implemented in this version of perl.");
78     return (struct servent *)NULL;
79 }
80
81 void sethostent(int a)
82 {
83     croak("Function \"sethostent\" not implemented in this version of perl.");
84 }
85
86 void setnetent(int a)
87 {
88     croak("Function \"setnetent\" not implemented in this version of perl.");
89 }
90
91 void setprotoent(int a)
92 {
93     croak("Function \"setprotoent\" not implemented in this version of perl.");
94 }
95
96 void setservent(int a)
97 {
98     croak("Function \"setservent\"  not implemented in this version of perl.");
99 }
100
101 void endnetent()
102 {
103     croak("Function \"endnetent\" not implemented in this version of perl.");
104 }
105
106 void endprotoent()
107 {
108     croak("Function \"endprotoent\" not implemented in this version of perl.");
109 }
110
111 void endservent()
112 {
113     croak("Function \"endservent\" not implemented in this version of perl.");
114 }
115
116 int tcdrain(int)
117 {
118 croak("Function \"tcdrain\" not implemented in this version of perl.");
119 }
120
121 int tcflow(int, int)
122 {
123 croak("Function \"tcflow\" not implemented in this version of perl.");
124 }
125
126 int tcflush(int, int)
127 {
128 croak("Function \"tcflush\" not implemented in this version of perl.");
129 }
130
131 int tcsendbreak(int, int)
132 {
133 croak("Function \"tcsendbreak\" not implemented in this version of perl.");
134 }