[REPATCH] Re: [PATCH] Re: socketpair blip on unicos/mk, too
[p5sagit/p5-mst-13.2.git] / plan9 / plan9.c
CommitLineData
396e9e6f 1#include "EXTERN.h"
2#include "perl.h"
3
4/* Functions mentioned in <sys/socket.h> but not implemented */
5
6int 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
12int 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
19int 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
25int 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 */
33struct netent *getnetbyname(const char *a)
34{
35 croak("Function \"getnetbyname\" not implemented in this version of perl.");
36 return (struct netent *)NULL;
37}
38
39struct 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
45struct netent *getnetent()
46{
47 croak("Function \"getnetent\" not implemented in this version of perl.");
48 return (struct netent *)NULL;
49}
50
51struct protoent *getprotobyname(const char *a)
52{
53 croak("Function \"getprotobyname\" not implemented in this version of perl.");
54 return (struct protoent *)NULL;
55}
56
57struct protoent *getprotobynumber(int a)
58{
59 croak("Function \"getprotobynumber\" not implemented in this version of perl.");
60 return (struct protoent *)NULL;
61}
62
63struct protoent *getprotoent()
64{
65 croak("Function \"getprotoent\" not implemented in this version of perl.");
66 return (struct protoent *)NULL;
67}
68
69struct 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
75struct servent *getservent()
76{
77 croak("Function \"getservent\" not implemented in this version of perl.");
78 return (struct servent *)NULL;
79}
80
81void sethostent(int a)
82{
83 croak("Function \"sethostent\" not implemented in this version of perl.");
84}
85
86void setnetent(int a)
87{
88 croak("Function \"setnetent\" not implemented in this version of perl.");
89}
90
91void setprotoent(int a)
92{
93 croak("Function \"setprotoent\" not implemented in this version of perl.");
94}
95
96void setservent(int a)
97{
98 croak("Function \"setservent\" not implemented in this version of perl.");
99}
100
101void endnetent()
102{
103 croak("Function \"endnetent\" not implemented in this version of perl.");
104}
105
106void endprotoent()
107{
108 croak("Function \"endprotoent\" not implemented in this version of perl.");
109}
110
111void endservent()
112{
113 croak("Function \"endservent\" not implemented in this version of perl.");
114}
115
116int tcdrain(int)
117{
118croak("Function \"tcdrain\" not implemented in this version of perl.");
119}
120
121int tcflow(int, int)
122{
123croak("Function \"tcflow\" not implemented in this version of perl.");
124}
125
126int tcflush(int, int)
127{
128croak("Function \"tcflush\" not implemented in this version of perl.");
129}
130
131int tcsendbreak(int, int)
132{
133croak("Function \"tcsendbreak\" not implemented in this version of perl.");
134}